#!/usr/bin/perl
require "../config.cgi";
print "Content-type: text/html\n\n";
print "$clear_title";
print "";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date = "$hour:$min:$sec..$mon:$mday:$year";
$newfile = "archive/$date.html";
$header = "$records_dir/header";
$footer = "$records_dir/footer";
open(ARCHIVE,"|cat $header $records_file $footer > $newfile");
print ARCHIVE $records_file;
close(ARCHIVE);
open (RECORDS, ">$records_file") || die "can't open $records_file\n";
print RECORDS "";
close (RECORDS);
print "$records_cleared";
print "$archived_as
\"$records_dir/$newfile\"
.";
print "";