#!/usr/local/bin/perl

use LWP::Simple qw(mirror $ua);

$| = 1;


$ua->timeout(60);

@Urls = ('http://www.sanesecurity.com/clamav/phishsigs/phish.ndb.gz',
  'http://www.sanesecurity.com/clamav/phishsigs/scam.ndb.gz' );


foreach $url (@Urls) {
  $url =~ /\/([^\/]+)$/ ;
  $file = $1;
  $dbfile = $file;

  my $result = mirror($url, $file);
  print "$file\t$result\n";
  if ( ($result == 200) && ($dbfile =~ s/\.gz$//) ) {
    system "gunzip -v --stdout $file > $dbfile";
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks)
      = stat($file);
    utime $atime, $mtime, $dbfile;
  }
}
exit 0;