summaryrefslogtreecommitdiffstats
path: root/backdoor.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'backdoor.cgi')
-rwxr-xr-xbackdoor.cgi15
1 files changed, 14 insertions, 1 deletions
diff --git a/backdoor.cgi b/backdoor.cgi
index a12fba5c8..93481f21a 100755
--- a/backdoor.cgi
+++ b/backdoor.cgi
@@ -122,12 +122,18 @@ $::FORM{'reporter'} =
DBNameToIdAndCheck("$::FORM{'reporter'}\@netscape.com", 1);
$::FORM{'assigned_to'} =
DBNameToIdAndCheck("$::FORM{'assigned_to'}\@netscape.com", 1);
+if ($::FORM{'qa_contact'} ne "") {
+ $::FORM{'qa_contact'} =
+ DBNameToIdAndCheck("$::FORM{'qa_contact'}\@netscape.com", 1);
+} else {
+ $::FORM{'qa_contact'} = 0;
+}
my @list = ('reporter', 'assigned_to', 'product', 'version', 'rep_platform',
'op_sys', 'bug_status', 'bug_severity', 'priority', 'component',
'short_desc', 'long_desc', 'creation_ts', 'delta_ts',
- 'bug_file_loc');
+ 'bug_file_loc', 'qa_contact');
my @vallist;
foreach my $i (@list) {
@@ -146,5 +152,12 @@ SendSQL($query);
SendSQL("select LAST_INSERT_ID()");
my $zillaid = FetchOneColumn();
+foreach my $cc (split(/,/, $::FORM{'cc'})) {
+ if ($cc ne "") {
+ my $cid = DBNameToIdAndCheck("$cc\@netscape.com", 1);
+ SendSQL("insert into cc (bug_id, who) values ($zillaid, $cid)");
+ }
+}
+
print "Created bugzilla bug $zillaid\n";
system("./processmail $zillaid < /dev/null > /dev/null 2> /dev/null &");