mirrors/gecko-dev
1
0
Fork 1
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-11-08 20:28:42 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed to cope with new longdescs table.

Browse source
This commit is contained in:
terry%mozilla.org 2000-02-24 17:54:56 +00:00
parent 61fd5aa3d2
commit 1711899c6a
1 changed files with 13 additions and 2 deletions
repo.diff.show_diff_stats Download patch file Download diff file Expand all files Collapse all files

15
webtools/bugzilla/backdoor.cgi
View file

@ -44,6 +44,13 @@ print "Content-type: text/plain\n\n";
my $host = $ENV{'REMOTE_ADDR'}; 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'"); SendSQL("select passwd from backdoor where host = '$host'");
my $passwd = FetchOneColumn(); my $passwd = FetchOneColumn();
if (!defined $passwd || !defined $::FORM{'passwd'} || if (!defined $passwd || !defined $::FORM{'passwd'} ||
@ -110,7 +117,7 @@ $::FORM{'component'} = $comp;
$::FORM{'version'} = $version; $::FORM{'version'} = $version;
$::FORM{'long_desc'} = my $longdesc =
"(This bug imported from BugSplat, Netscape's internal bugsystem. It "(This bug imported from BugSplat, Netscape's internal bugsystem. It
was known there as bug #$::FORM{'bug_id'} was known there as bug #$::FORM{'bug_id'}
http://scopus.netscape.com/bugsplat/show_bug.cgi?id=$::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', my @list = ('reporter', 'assigned_to', 'product', 'version', 'rep_platform',
'op_sys', 'bug_status', 'bug_severity', 'priority', 'component', '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'); 'bug_file_loc', 'qa_contact', 'groupset');
my @vallist; my @vallist;
@ -153,6 +160,10 @@ SendSQL($query);
SendSQL("select LAST_INSERT_ID()"); SendSQL("select LAST_INSERT_ID()");
my $zillaid = FetchOneColumn(); 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'})) { foreach my $cc (split(/,/, $::FORM{'cc'})) {
if ($cc ne "") { if ($cc ne "") {
my $cid = DBNameToIdAndCheck("$cc\@netscape.com", 1); my $cid = DBNameToIdAndCheck("$cc\@netscape.com", 1);