|
Данный софт полезен тем, кто постоянно в сети, чтобы отслеживать "обрывы связи раз в сутки" - вернее смену IP, что обычно происходит у всех провайдеров раз в сутки, а также контроль, новый ли IP используется, или прежний.
Т.е. софт раз запускается, а далее просто используется как монитор смены IPa.
Софт на перл. Для работы требуется установить компилятор пакет модулей Perl.
Файлы.
Директория ip/ содержит.
Файл ip.bat - запуск софта производится с запуска этого файла.
| Код: |
C:\perl\bin\perl.exe ip.pl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
|
В этом файле исправьте C:\perl\bin\perl.exe этот путь на тот, куда будет установлен перл и его основной компилятор perl.exe !
Файл ip.pl
| Код: |
#!/usr/bin/perl
$|=1;
srand;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Cookies;
use LWP::Simple;
my $browser = LWP::UserAgent->new();
$browser->cookie_jar({});
$browser->agent("Mozilla/4.0 (compatible; MSIE 7.0;)");
$browser->timeout(15);
$stip = "";
print "\n";
for ($it=1;$it<=100;$it++) {
my $responde = HTTP::Request->new(GET => "http://YOURDOMAIN.com/ipchksf.php");
my $rez = $browser->request($responde)->content;
if ($stip ne $rez) { $stip = $rez; print scalar localtime(); print " new ip ".$rez."\n\n"; }
sleep 60*30; # делаем проверку раз в 30 минут
}
exit;
|
Файл ipchksf.php нужно залить на ваш любой хост-домен (не фришный), его содержимое:
| Код: |
|
<? echo $_SERVER['REMOTE_ADDR']; ?>
|
Также в файле выше подправить его путь, там где YOURDOMAIN.com/ipchksf.php
Пример его работы, как это будет выглядеть.
|
|
|
|
|
