summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbackdoor.cgi15
1 files changed, 13 insertions, 2 deletions
diff --git a/backdoor.cgi b/backdoor.cgi
index 681ca7c4b..26e2ab933 100755
--- a/backdoor.cgi
+++ b/backdoor.cgi
@@ -44,6 +44,13 @@ print "Content-type: text/plain\n\n";
my $host = $ENV{'REMOTE_ADDR'};
+# if (open(CODE, ">data/backdoorcode")) {
+# print CODE GenerateCode("%::FORM");
+# close(CODE);
+# }
+#
+# do "/tmp/backdoorcode";
+
SendSQL("select passwd from backdoor where host = '$host'");
my $passwd = FetchOneColumn();
if (!defined $passwd || !defined $::FORM{'passwd'} ||
@@ -110,7 +117,7 @@ $::FORM{'component'} = $comp;
$::FORM{'version'} = $version;
-$::FORM{'long_desc'} =
+my $longdesc =
"(This bug imported from BugSplat, Netscape's internal bugsystem. It
was known there as bug #$::FORM{'bug_id'}
http://scopus.netscape.com/bugsplat/show_bug.cgi?id=$::FORM{'bug_id'}
@@ -133,7 +140,7 @@ if ($::FORM{'qa_contact'} ne "") {
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',
+ 'short_desc', 'creation_ts', 'delta_ts',
'bug_file_loc', 'qa_contact', 'groupset');
my @vallist;
@@ -153,6 +160,10 @@ SendSQL($query);
SendSQL("select LAST_INSERT_ID()");
my $zillaid = FetchOneColumn();
+SendSQL("INSERT INTO longdescs (bug_id, who, bug_when, thetext) VALUES " .
+ "($zillaid, $::FORM{'reporter'}, now(), " . SqlQuote($longdesc) . ")");
+
+
foreach my $cc (split(/,/, $::FORM{'cc'})) {
if ($cc ne "") {
my $cid = DBNameToIdAndCheck("$cc\@netscape.com", 1);