use LWP::UserAgent; use HTTP::Date qw(str2time); my $URL="http://alf.uib.no/block/"; my $DIR="/local/exim"; my %FILES=qw( spammers tab Spamdomains etc norelay etc reject etc reject.except etc rbl.except etc sysmailfilter etc ); # my $make; chdir($DIR); foreach my $FILE (keys %FILES) { my ($dev,$ino,$lmode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat("$FILES{$FILE}/$FILE"); my $ua = new LWP::UserAgent; $ua->agent("EximTab/0.2 " . $ua->agent); my $req = new HTTP::Request GET => "$URL/$FILE"; my $res = $ua->request($req); if ($res->is_success) { my $MOD=str2time($res->header('Last-Modified')); if ($MOD > $mtime) { # print "henter ny versjon av $FILE\n"; @_=$res->content; $make=1; open(UT,">$FILES{$FILE}/$FILE"); if ($FILE eq "sysmailfilter") { open(IN,"$DIR/$FILES{$FILE}/$FILE.fix") or die; # you will need this my @IN=; close IN; print UT @IN; } print UT @_; close UT; } } } # if ($make) { # some local action # }