#!/home/merlyn/bin/perl -Tw
use strict;
$|++;

use LWP::Simple;
use HTTP::Status;

my $WHERE = "http://cronos.toldyouso.Xcom/~select/EFnet-Perl/";
chdir "/home/merlyn/Perl/PoundPerl" or die "chdir: $!";

my $FIRSTTIME = 0;              # ignore "not modified" errors

for (
     my $when = time - 5*60,            # EST (missing first hour in EDT, oh well)
     my $errors = 0;
     $errors < 7;
     $when -= 86400) {
  my @when = gmtime $when;
  my $name = sprintf
    "Perl.log.%02d%s%02d",
    $when[3],
    ( qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/ )[$when[4]],
    $when[5] % 100;             # NOT Y2K, but they probably aren't either
  warn "fetching $name\n";
  my $rc = mirror("$WHERE/$name", $name);
  $errors = 0, next if $rc == RC_OK;
  $errors++;
  if ($rc == RC_NOT_MODIFIED) {
    warn "$name: not modified\n";
    $errors-- if $FIRSTTIME;
  } elsif ($rc == RC_NOT_FOUND) {
    warn "$name: not found\n";
  } else {
    warn "$name: Unexpected error: ", status_message($rc), " ($rc)\n";
  }
}