From f0d1fccd58ce6ea6ceeae1549b142f7cfd7ac205 Mon Sep 17 00:00:00 2001
From: johnkeis <johnkeis@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 3 Feb 2003 03:42:01 +0000
Subject: [PATCH] Upload a patch

git-svn-id: svn://10.0.0.236/trunk@137300 18797224-902f-48f8-a5cc-f745e15eee43
---
 .../tinderbox3/scripts/uploadpatch.pl         | 50 +++++++++++++++++++
 .../webtools/tinderbox3/server/uploadpatch.pl | 50 +++++++++++++++++++
 2 files changed, 100 insertions(+)
 create mode 100755 mozilla/webtools/tinderbox3/scripts/uploadpatch.pl
 create mode 100755 mozilla/webtools/tinderbox3/server/uploadpatch.pl

diff --git a/mozilla/webtools/tinderbox3/scripts/uploadpatch.pl b/mozilla/webtools/tinderbox3/scripts/uploadpatch.pl
new file mode 100755
index 00000000000..56ae8ee912f
--- /dev/null
+++ b/mozilla/webtools/tinderbox3/scripts/uploadpatch.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl -wT -I.
+
+use CGI;
+use Tinderbox3::Header;
+use Tinderbox3::DB;
+use Tinderbox3::Login;
+use strict;
+
+#
+# Init
+#
+my $p = new CGI;
+my $dbh = get_dbh();
+my ($login, $cookie) = check_session($p, $dbh);
+
+my $tree = $p->param('tree') || "";
+if (!$tree) {
+  die "Must specify a tree!";
+}
+
+header($p, $login, $cookie, "Upload Patch for $tree", $tree);
+
+#
+# Upload patch form
+#
+
+print <<EOM;
+<form name=editform method=post enctype='multipart/form-data' action='admintree.pl'>
+<input type=hidden name=action value='upload_patch'>
+@{[$p->hidden(-name=>'tree', -default=>$tree)]}
+<table>
+<tr><th>Patch Name (just for display):</th><td><input type=text name=patch_name></td></tr>
+<tr><th>Bug #:</th><td><input type=text name=bug_id></td></tr>
+<tr><th>In Use:</th><td><input type=checkbox checked name=in_use></td></tr>
+<tr><th>Patch:</th><td><input type=file name=patch></td></tr>
+</table>
+EOM
+
+if (!$login) {
+  print login_fields();
+}
+
+print <<EOM;
+<input type=submit>
+</form>
+EOM
+
+
+footer($p);
+$dbh->disconnect;
diff --git a/mozilla/webtools/tinderbox3/server/uploadpatch.pl b/mozilla/webtools/tinderbox3/server/uploadpatch.pl
new file mode 100755
index 00000000000..56ae8ee912f
--- /dev/null
+++ b/mozilla/webtools/tinderbox3/server/uploadpatch.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl -wT -I.
+
+use CGI;
+use Tinderbox3::Header;
+use Tinderbox3::DB;
+use Tinderbox3::Login;
+use strict;
+
+#
+# Init
+#
+my $p = new CGI;
+my $dbh = get_dbh();
+my ($login, $cookie) = check_session($p, $dbh);
+
+my $tree = $p->param('tree') || "";
+if (!$tree) {
+  die "Must specify a tree!";
+}
+
+header($p, $login, $cookie, "Upload Patch for $tree", $tree);
+
+#
+# Upload patch form
+#
+
+print <<EOM;
+<form name=editform method=post enctype='multipart/form-data' action='admintree.pl'>
+<input type=hidden name=action value='upload_patch'>
+@{[$p->hidden(-name=>'tree', -default=>$tree)]}
+<table>
+<tr><th>Patch Name (just for display):</th><td><input type=text name=patch_name></td></tr>
+<tr><th>Bug #:</th><td><input type=text name=bug_id></td></tr>
+<tr><th>In Use:</th><td><input type=checkbox checked name=in_use></td></tr>
+<tr><th>Patch:</th><td><input type=file name=patch></td></tr>
+</table>
+EOM
+
+if (!$login) {
+  print login_fields();
+}
+
+print <<EOM;
+<input type=submit>
+</form>
+EOM
+
+
+footer($p);
+$dbh->disconnect;