#! /usr/local/bin/perl
# download.pl at least older than 07/1997 probably quite a bit older
# Dale Bewley dale@bewley.net
#
open (MAIL, "| /usr/lib/sendmail -t");
print MAIL "To: Perl guy <dale\@bewley.net>\n";
print MAIL "From: Archive Snatcher\n";
print MAIL "Subject: Someone snatched your perl site\n\n";
print MAIL "Address: $ENV{'REMOTE_HOST'}\n";
print MAIL "Browser: $ENV{'HTTP_USER_AGENT'}\n";
print MAIL "Referer: $ENV{'HTTP_REFERER'}\n";
close MAIL;
$| =1;

print "Content-type: application/x-gzip\n";
print "Content-Disposition: attachment; filename=dale-perl.tar.gz\n";
print "Content-Description: Dale Bewley's perl archive\n\n";

chdir("/httpd/htdocs/bewley/perl");
print `/bin/tar -cf -  tidbits | /bin/gzip -c`;