#!/usr/bin/perl
use CGI;
$query = new CGI;
@names = $query->param;
$lh1 = $query->param(lh1);
$lh2 = $query->param(lh2);
$lh3 = $query->param(lh3);
$date = $query->param(date);
$message = $query->param(message);
$closing = $query->param(closing);
$name = $query->param(name);
$format = $query->param('format');
$message =~ s/\r//g;
$message =~ s/\n\n//g;
if ($format eq "pdf") {
if (! open(PRINCE, "| /usr/bin/prince -"))
{
print "Content-type: text/plain\n\n";
print "Error starting Prince\n";
exit;
}
print "Content-Disposition: attachment;filename=\"campaign.pdf\"\n";
print "Content-type: application/pdf\n\n";
$margin="0";
} else {
if (! open(PRINCE, '>-'))
{
print "Content-type: text/plain\n\n";
print "Error opening stdout\n";
exit;
}
print "Content-type: text/html\n\n";
$margin="3em";
}
print PRINCE <<"EOF";
$lh1
$lh2
$lh3
$date
Motion Picture Association Of America, Inc.
15503 Ventura Boulevard
Encino, California 91436
$message
$closing
$name
EOF
close PRINCE;