Move CC and qa-assigned-to info from Bugsplat bugs to Bugzilla.

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 &");