)
{
chop;
if (/^From [^\s]+ (.*)/) {
# Reset everything
$date = "";
$sender = "";
$subject = "";
$lines = -1;
$bytes = -1;
$date = $1;
}
if (/^From: (.*)/) {
$sender = $1;
}
if (/^Subject: (.*)/) {
$subject = $1;
}
if ($date and ($lines < 0) and ($bytes < 0) and ($_ == ""))
{
# End of headers, so start counting size of body.
print "
here\n";
$lines = 0;
$bytes = 0;
}
elsif (($lines >= 0) and ($bytes >= 0))
{
$lines += 1;
$bytes += (1 + length); # compensate for the chopped newline
}
if ($date and $sender and $subject)
{
$count++;
print "Subject: "
. "${subject}"
. "\n
${lines} lines, ${bytes} bytes"
. "\n
\n($sender, $date)\n\n";
}
}
close (ARCHIVE);
print "\n";
print "