#!/usr/local/bin/perl

# $Header: /afs/sipb.mit.edu/project/dec-charon/mail-server/RCS/gather-old-data.pl,v 1.2 1993/09/22 18:50:43 jik Exp $

open(FILELIST, "/tmp/foo") || die;

while (<FILELIST>) {
    chop;
    open(FILE, $_) || die;
    $topline = <FILE>;
    @_ = split(' ', $topline, 6);
    if ($_[4] > $current_day) {
	close(OUTFILE);
	$current_day = $_[4];
	open(OUTFILE, ">$current_day") || die;
	print "$_ in $current_day.\n";
    }
    print OUTFILE "File: $_\n" || die;
    print OUTFILE $topline || die;
    while ($topline = <FILE>) {
	print OUTFILE $topline || die;
    }
    close(FILE);
    unlink($_);
}