diff options
author | terry%netscape.com <> | 1998-11-21 03:18:33 +0000 |
---|---|---|
committer | terry%netscape.com <> | 1998-11-21 03:18:33 +0000 |
commit | 89eccc9b74482b8c636a02d3a6bcf3ec2947eb7b (patch) | |
tree | 235232c5fcc2e5d1fb13ad91e8b44da262c2a3f3 /post_bug.cgi | |
parent | 3789246e0d115ebd9b0f280c8fa209a690e425fe (diff) | |
download | bugs-89eccc9b74482b8c636a02d3a6bcf3ec2947eb7b.tar bugs-89eccc9b74482b8c636a02d3a6bcf3ec2947eb7b.tar.gz bugs-89eccc9b74482b8c636a02d3a6bcf3ec2947eb7b.tar.bz2 bugs-89eccc9b74482b8c636a02d3a6bcf3ec2947eb7b.tar.xz bugs-89eccc9b74482b8c636a02d3a6bcf3ec2947eb7b.zip |
Backed out Andrew's patch -- turns out it was doing quoting sublty wrong.
Diffstat (limited to 'post_bug.cgi')
-rwxr-xr-x | post_bug.cgi | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/post_bug.cgi b/post_bug.cgi index 52885a535..3ea3b070f 100755 --- a/post_bug.cgi +++ b/post_bug.cgi @@ -18,7 +18,6 @@ # Netscape Communications Corporation. All Rights Reserved. # # Contributor(s): Terry Weissman <terry@mozilla.org> -# Andrew Anderson <andrew@redhat.com> use diagnostics; @@ -35,19 +34,17 @@ $zz = $zz . $zz; confirm_login(); -my $platform = url_quote($::FORM{'product'}); -my $version = url_quote($::FORM{'version'}); - -print "Set-Cookie: PLATFORM=$platform ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; -print "Set-Cookie: VERSION-$platform=$version ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; +print "Set-Cookie: PLATFORM=$::FORM{'product'} ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; +print "Set-Cookie: VERSION-$::FORM{'product'}=$::FORM{'version'} ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; print "Content-type: text/html\n\n"; if (defined $::FORM{'maketemplate'}) { - PutHeader("Bookmarks are your friend.", "Template constructed."); + print "<TITLE>Bookmarks are your friend.</TITLE>\n"; + print "<H1>Template constructed.</H1>\n"; my $url = "enter_bug.cgi?$::buffer"; - print "If you put a bookmark <A HREF=\"$url\">to this link</A>, it will\n"; + print "If you put a bookmark <a href=\"$url\">to this link</a>, it will\n"; print "bring up the submit-a-new-bug page with the fields initialized\n"; print "as you've requested.\n"; exit; @@ -121,8 +118,6 @@ foreach my $person (keys %ccids) { print "<H2>Changes Submitted</H2>\n"; print "<A HREF=\"show_bug.cgi?id=$id\">Show BUG# $id</A>\n"; print "<BR><A HREF=\"query.cgi\">Back To Query Page</A>\n"; -print "<BR><A HREF=\"enter_bug.cgi?product=" . url_quote($::FORM{'product'}). "\">Enter a new bug</A>\n"; - system("./processmail $id < /dev/null > /dev/null 2> /dev/null &"); exit; |