1#!/usr/bin/perl 2# 3# cache refresh cron job 4# version 1.02 6-14-13 michael@bizsystems.com 5# 6require URBL::Prepare; 7 8my $whitefile = 9 'http://spamassasin.googlecode.com/svn-history/r6/trunk/share/spamassassin/25_uribl.cf'; 10 11my $tldfile2 = 'http://george.surbl.org/two-level-tlds'; 12my $tldfile3 = 'http://george.surbl.org/three-level-tlds'; 13 14my $cachedir = $ARGV[0]; 15my $level2 = $cachedir .'/level2'; 16my $level3 = $cachedir .'/level3'; 17my $white = $cachedir .'/white'; 18 19mkdir $cachedir unless $cachedir && -d $cachedir; 20 21my($code,$msg) = URBL::Prepare->loadcache($whitefile,$white); 22print $0,' ',$msg,"\n" unless $code == 200 || $code == 304; 23($code,$msg) = URBL::Prepare->loadcache($tldfile2,$level2); 24print $0,' ',$msg,"\n" unless $code == 200 || $code == 304; 25($code,$msg) = URBL::Prepare->loadcache($tldfile3,$level3); 26print $0,' ',$msg,"\n" unless $code == 200 || $code == 304; 27