#!/usr/bin/perl
##################################################
#Agent1.1-небольшая программка позволяющая получать обновления
#вашего любимого сайта. Скоро будет версия поддерживающая много адресов и отправку по почте
#автор algol@hotmail.ru
#
#################################################
#настройка вставте аррес по которому хотите получать обновления
$url='http://trampico.virtualave.net/cgi-bin/clickclub/click.cgi';
$url='http://127.0.0.1/cgi-telework/te.cgi';
##################################################
use CGI;
$co= new CGI;
require LWP::UserAgent;
 $ua = new LWP::UserAgent;


 $request = new HTTP::Request('GET', $url);
 $response = $ua->request($request) || print" No connect";;
$text=$response->{'_content'};

print $co->header, $co->start_html('Ваш ВебАгент');

open (DATA,"agent_result.txt"); 
@data=<DATA>;
close (DATA);

open (DATA,">agent_result.txt"); 
print DATA $text;
close (DATA);
@line=split(/\n/,$text);
$a=0; $b=0;
open (RES,">agent_update.txt");
 
foreach(@data){
              chomp($_);
              if($_ ne $line[$a]){print "$line[$a]\n"; print RES "$line[$a]\n"; $b++;
                                 } 
              $a++;
              }
if(!$b){print $co->h2('Обновлений страницы нет.');}
close (RES);
$co->end_html; 

