mirror of
https://git.code.sf.net/p/quake/website
synced 2024-11-24 05:01:23 +00:00
89 lines
2.7 KiB
PHP
89 lines
2.7 KiB
PHP
<?
|
|
$pageName = 'Bugs';
|
|
$focused = "none"; // Dock icon name to get a border
|
|
require "../parts/preamble.php"; // Load most of document
|
|
?>
|
|
<?
|
|
|
|
function do_list ($title, $name, $list, $def)
|
|
{
|
|
$list = explode (',', $list);
|
|
$count = count ($list);
|
|
echo '<TR><TD align="left">' . $title . '</TD><TD align="right">';
|
|
printf ("<SELECT name=\"%s\">", $name);
|
|
for ($i = 0; $i < $count; $i++) {
|
|
printf ("<OPTION%s>%s</OPTION>", $def == $list[$i] ? " selected" : "", $list[$i]);
|
|
}
|
|
echo "</SELECT></TD></TR>";
|
|
}
|
|
|
|
function do_inputline ($title, $name, $len, $def)
|
|
{
|
|
echo '<TR><TD align="left">' . $title . '</TD><TD align="right">';
|
|
printf ('<INPUT name="%s" type="text" size="%d" value="%s"></INPUT>', $name, $len, $def);
|
|
echo '</TD></TR>';
|
|
}
|
|
|
|
function do_inputtext ($title, $name, $width, $height, $def)
|
|
{
|
|
echo '<TR><TD colspan="2" align="left">' . $title . '<BR>';
|
|
printf ('<TEXTAREA name="%s" cols="%d" rows="%d">%s</TEXTAREA>', $name, $width, $height, $def);
|
|
echo '</TD></TR>';
|
|
}
|
|
|
|
function do_submit ()
|
|
{
|
|
echo '<TR><TD align="left"></TD><TD align="right">';
|
|
echo '<INPUT type="submit" value="Submit"></INPUT>';
|
|
echo '</TD></TR>';
|
|
}
|
|
|
|
if ($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 .= "Operating System: $os\n\n";
|
|
$mail .= "Detailed Description:\n";
|
|
$mail .= $details . "\n";
|
|
|
|
echo "To: <TT>$address</TT><BR>\n";
|
|
echo 'Subject: <TT>' . StripSlashes($subj) . '</TT><br>';
|
|
echo '<pre>' . StripSlashes ($mail) . '</pre>';
|
|
//mail ('quakeforge-devel@lists.quakeforge.net', $subject, $text, "From: taniwha");
|
|
} else {
|
|
?><P><STRONG>Note:</STRONG> All fields <STRONG>must</STRONG> be filled in.</P><FORM name="bug" method="post"><table><?
|
|
do_list ("Package", "pkg", ",QuakeForge,QuakeIIForge,Newtree,QFCC,Forge", $pkg);
|
|
do_inputline ("Package version", "version", 12, $version);
|
|
do_list ("Operating System", "os", ",Windows,Linux,FreeBSD,NetBSD,OpenBSD,Other", $os);
|
|
do_list ("Bug Severity", "severity", "Normal,Critical,Wishlist", $severity);
|
|
do_inputline ("Brief Description", "subj", 60, $subj);
|
|
do_inputtext ("Detailed Description", "details", 60, 10, $details);
|
|
do_submit ();
|
|
?></table></FORM><?
|
|
}
|
|
?>
|
|
|
|
<?
|
|
require "../parts/postamble.php"; // Finish this sucker up
|
|
?>
|