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