Se souberes programar Perl, com LWP fazes isso com uma perna às costas.existe alguma maneira de automatizar esta acção? como sincronizar? ou pelo menos avisar sempre que houver mais pdf's?
#!/usr/bin/perl
# FILE: check_content.pl
use strict;
use warnings;
use LWP::UserAgent;
use Digest::SHA1 qw/sha1_hex/;
my $LOCAL_FILE = q|/tmp/check_webcontent|;
my $URL = q|http://www.techzonept.com/index.php|;
check();
sub check {
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/1.0");
my $req = HTTP::Request->new(GET => $URL);
my $res = $ua->request($req);
my $actual_hash = sha1_hex($res->content());
if ( -f $LOCAL_FILE ) {
if ( read_sha1() ne $actual_hash ) {
write_sha1($actual_hash);
alert_me();
}
} else {
write_sha1($actual_hash);
alert_me();
}
return;
}
sub read_sha1 {
open my $FILE, '<', $LOCAL_FILE or die "$!\n";
my $hash = <$FILE>;
close $FILE;
return $hash;
}
sub write_sha1 {
my $hash = shift;
open my $FILE, '>', $LOCAL_FILE or die "$!\n";
print $FILE $hash;
close $FILE;
return;
}
sub alert_me {
print qx|/usr/bin/xmessage Alteracões em $URL|;
return;
}
Precisamente.mas pelo que percebi nesse script só tenho que alterar o url que está a techzone certo?
# cpan LWP Digest::SHA1
Depois tens duas hipóteses:penso que consegui instalar isso. agora copio o script para um ficheiro com outra url e depois?
sub alert_me {
use Mail::Sendmail;
sendmail(
To => q|[email protected]|,
From => q|[email protected]|,
Subject => q|Notificação...|,
Message => qq|A página $URL foi modificada!\n|,
smtp => q|mail.server.com|,
) or die $Mail::Sendmail::error;
return;
}
# cpan Mail::Sendmail