Archived lists

7 Aug 2000

      I have been using the O'Reilly book "Managing Mailing Lists" to help me
set up a SmartList mailing list.  Within the book, the section on
archives shows a perl script to save messages in an archive organized in
"/archive/YYMM/DD" format.

I typed the script in and have found it to work just fine with the
exception of what looks like a Y2K bug.  Instead of creating a YYMM
directory having a name of "0008" it creates one with the name of
"10008".  I think this means it calculates the year as being 100, which
is one more than 99 (1999).  I have included the script in this email.
Any ideas in correcting this problem?  Thank you

(arch_trunc script replacement from O'Reilly & Associates Managing
Mailing Lists)

-----------------------------------------------------------------------------------------------------------------------------------------------------------------

#!/usr/bin/perl
#
# arch_trunc, a replacement for the distributed ./bin/arch_trunc
# shell script in SmartList.  To use it, put it in some list's
directory.
#
# By Alan Schwartz
#
# This script is run whenever a submission is received and archived
# in archive/latest.  It's responsible for cleaning up that directory.
# This version figures out the date of each file in archive/latest
# that should be removed and appends it to the file archive/YYMM/DD
#
unless (chdir("archive/latest")) {
  print "Don't start this script directly, it is called by
rc.request\n";
  exit 64
}

# Only do the removing now and then to keep load down
#if ($ENV{'ARCHIVE'} =~ /[248]$/) {
    opendir(DIR,".");
    @files = grep(/^\d+/,readdir(DIR));
    closedir (DIR);
    foreach (sort bytime @files) {
        $recent++;
        if ($recent > $ENV{'archive_hist'}) {
          # Archive these and delete them
          @time = localtime((stat($_))[9]);
          $newdir = sprintf("%02d%02d",$time[5],$time[4]+1);
          $newfile = sprintf("%02d",$time[3]);
          unless (-d "../$newdir") {
              mkdir("../$newdir",2770);
          }
          open(IN,$_);
          open(OUT,">>../$newdir/$newfile");
          print OUT <IN>;
          close(IN);
          close(OUT);
          unlink($_);
        }
    }
    unlink("_dummy_");
#}

sub bytime {
  return -M $a <=> -M $b;
}

-----------------------------------------------------------------------------------------------------------------------

--

                _________________________________________

                              Dave G. Bacon
                        Computer Network Manager
                    Outagamie Waupaca Library System
                 225 N. Oneida St., Appleton, WI  54911
                 920/832-6193(voice),  920/832-6422(FAX)
                       dbacon@mail.owls.lib.wi.us
                _________________________________________

Archived lists

Dave Bacon