| ' . $title . ' | ';
printf (" | ";
}
function do_inputline ($title, $name, $len, $def)
{
echo '| ' . $title . ' | ';
printf ('', $name, $len, $def);
echo ' |
';
}
function do_inputtext ($title, $name, $width, $height, $def)
{
echo '' . $title . '
';
printf ('', $name, $width, $height, $def);
echo ' |
';
}
function do_submit ()
{
echo ' | ';
echo '';
echo ' |
';
}
if ($fromaddr && $pkg && $version && $severity && $os && $details && $subj) {
$mail = "";
switch ($pkg) {
case "QuakeForge":
$address = "quakeforge-bugs@lists.quakeforge.net";
break;
case "QuakeIIForge":
$address = "quake2-bugs@lists.quakeforge.net";
break;
case "Newtree":
$address = "newtree-bugs@lists.quakeforge.net";
break;
case "QFCC":
$address = "qfcc-bugs@lists.quakeforge.net";
break;
case "Forge":
$address = "forge-bugs@lists.quakeforge.net";
break;
default:
}
$mail .= "Package: $pkg\n";
$mail .= 'Version: ' . StripSlashes ($version) . "\n";
$mail .= "Severity: $severity\n\n";
$mail .= "Sender: $fromaddr\n";
$mail .= "Operating System: $os\n\n";
$mail .= "Detailed Description:\n";
$mail .= $details . "\n";
echo "To: $address
\n";
echo 'Subject: ' . StripSlashes($subj) . '
';
echo '' . StripSlashes ($mail) . '
';
mail ($address, StripSlashes ($subj), StripSlashes ($mail), "From: \"Bug-Submission Form\" <$address>");
echo 'Bug report sent!
';
} else {
?>Note: All fields must be filled in.