mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-08 20:47:44 +00:00
f5e622daa8
me. Added a footer to every page. Add some options to do things like display checkboxes instead of scrolling lists, and a new formatting for email diffs, and show list items capitalized instead of all upper case.
114 lines
3.9 KiB
Perl
Executable File
114 lines
3.9 KiB
Perl
Executable File
#!/usr/bonsaitools/bin/perl -w
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public
|
|
# License Version 1.1 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS
|
|
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
# implied. See the License for the specific language governing
|
|
# rights and limitations under the License.
|
|
#
|
|
# The Original Code is the Bugzilla Bug Tracking System.
|
|
#
|
|
# The Initial Developer of the Original Code is Netscape Communications
|
|
# Corporation. Portions created by Netscape are
|
|
# Copyright (C) 1998 Netscape Communications Corporation. All
|
|
# Rights Reserved.
|
|
#
|
|
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
|
# David Gardiner <david.gardiner@unisa.edu.au>
|
|
|
|
use diagnostics;
|
|
use strict;
|
|
|
|
require "CGI.pl";
|
|
|
|
use vars %::COOKIE, %::FILENAME;
|
|
|
|
sub Punt {
|
|
my ($str) = (@_);
|
|
print "$str<P>Please hit <b>Back</b> and try again.\n";
|
|
PutFooter();
|
|
exit;
|
|
}
|
|
|
|
|
|
confirm_login();
|
|
|
|
print "Content-type: text/html\n\n";
|
|
|
|
my $id = $::FORM{'id'};
|
|
|
|
PutHeader("Create an attachment", "Create attachment", "Bug $id");
|
|
|
|
|
|
if (!defined($::FORM{'data'})) {
|
|
print qq{
|
|
<form method=post ENCTYPE="multipart/form-data">
|
|
<input type=hidden name=id value=$id>
|
|
To attach a file to <a href="show_bug.cgi?id=$id">bug $id</a>, place it in a
|
|
file on your local machine, and enter the path to that file here:<br>
|
|
<input type=file name=data size=60>
|
|
<P>
|
|
Please also provide a one-line description of this attachment:<BR>
|
|
<input name=description size=60>
|
|
<BR>
|
|
What kind of file is this?
|
|
<br><input type=radio name=type value=patch>Patch file (text/plain, diffs)
|
|
<br><input type=radio name=type value="text/plain">Plain text (text/plain)
|
|
<br><input type=radio name=type value="text/html">HTML source (text/html)
|
|
<br><input type=radio name=type value="image/gif">GIF Image (image/gif)
|
|
<br><input type=radio name=type value="image/jpeg">JPEG Image (image/jpeg)
|
|
<br><input type=radio name=type value="image/png">PNG Image (image/png)
|
|
<br><input type=radio name=type value="application/octet-stream">Binary file (application/octet-stream)
|
|
<br><input type=radio name=type value="other">Other (enter mime type: <input name=othertype size=30>)
|
|
<P>
|
|
<input type=submit value="Submit">
|
|
</form>
|
|
<P>
|
|
};
|
|
} else {
|
|
if ($::FORM{'data'} eq "" || !defined $::FILENAME{'data'}) {
|
|
Punt("No file was provided, or it was empty.");
|
|
}
|
|
my $desc = trim($::FORM{'description'});
|
|
if ($desc eq "") {
|
|
Punt("You must provide a description of your attachment.");
|
|
}
|
|
my $ispatch = 0;
|
|
my $mimetype = $::FORM{'type'};
|
|
if (!defined $mimetype) {
|
|
Punt("You must select which kind of file you have.");
|
|
}
|
|
$mimetype = trim($mimetype);
|
|
if ($mimetype eq "patch") {
|
|
$mimetype = "text/plain";
|
|
$ispatch = 1;
|
|
}
|
|
if ($mimetype eq "other") {
|
|
$mimetype = $::FORM{'othertype'};
|
|
}
|
|
if ($mimetype !~ m@^(\w|-)+/(\w|-)+$@) {
|
|
Punt("You must select a legal mime type. '<tt>$mimetype</tt>' simply will not do.");
|
|
}
|
|
SendSQL("insert into attachments (bug_id, filename, description, mimetype, ispatch, submitter_id, thedata) values ($id," .
|
|
SqlQuote($::FILENAME{'data'}) . ", " . SqlQuote($desc) . ", " .
|
|
SqlQuote($mimetype) . ", $ispatch, " .
|
|
DBNameToIdAndCheck($::COOKIE{'Bugzilla_login'}) . ", " .
|
|
SqlQuote($::FORM{'data'}) . ")");
|
|
SendSQL("select LAST_INSERT_ID()");
|
|
my $attachid = FetchOneColumn();
|
|
AppendComment($id, $::COOKIE{"Bugzilla_login"},
|
|
"Created an attachment (id=$attachid)\n$desc\n");
|
|
|
|
print "<TABLE BORDER=1><TD><H2>Attachment to bug $id created</H2>\n";
|
|
system("./processmail $id $::COOKIE{'Bugzilla_login'}");
|
|
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Go Back to BUG# $id</A></TABLE>\n";
|
|
}
|
|
|
|
PutFooter();
|
|
|