qf/website
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/website synced 2025-02-21 03:01:31 +00:00
Code Issues Projects Releases Packages Wiki Activity

Update the automatic bug-submitter.

Browse source
This commit is contained in:
Jeff Teunissen 2003-07-11 21:52:01 +00:00
parent 472c957575
commit e0b3572436
1 changed files with 36 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
bugs/index.php
View file

@ -38,25 +38,46 @@ function do_submit ()
echo '</TD></TR>';
}
if ($os && $ver && $prog && $type && $desc && $details) {
$subject = $desc;
$text = 'OS: ' . $os . chr (10) .
'version: ' . $ver . chr (10) .
'program: ' . $prog . chr (10) .
'type: ' . $prog . chr (10) .
chr (10) .
$details;
if ($pkg && $version && $severity && $os && $details && $subj) {
$mail = "";
echo 'Subject: ' . $subject . '<br>';
echo '<code>' . $text . '</code>';
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 {
?><strong>Doesn't work yet.<strong><FORM name="bug" method="post"><table><?
?><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 ("Quakeforge Version", "ver", ",0.5.3,0.5.2,0.2.1 (q2),0.2 (q2)", $ver);
do_list ("Program", "prog", ",NQ,QW client,NQ server,QW server,QW master,HW master,bsp2img,qfbsp,qfcc,qfdefs,qflight,qfmodelgen,qfprpogs,qfvis,qfwavinfo", $prog);
do_list ("Bug Type", "type", ",wishlist,minor,annoying,can't play", $type);
do_inputline ("Brief Description", "desc", 60, $desc);
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><?