#!/usr/local/bin/perl -w # Output the initial HTML code. print < xmailer mail stats

X-Mailer raw data

Totals for all mailers:

EOF

# Skip the first four lines.
<>; <>; <>; <>;
# Print the rest of the lines from the file.
while (<>)
{
  next if /Date Database Created/;
  next if /Total Messages Received/;
  last if /Totals for selected mailers/;
  print;
}

print <


Totals for selected mailers:


EOF

while (<>)
{
  next if /Results graph is/;
  print;
}

# Finish with closing html code.
print <


EOF