From cae4a77425ea3804b9eadab5a5b3000e5783253f Mon Sep 17 00:00:00 2001
From: Ade Barkah <mbarkah@FreeBSD.org>
Date: Sat, 4 Jan 1997 19:54:51 +0000
Subject: [PATCH] To unify all the cgi scripts under one directory in the
 repository.

---
 data/cgi/dosendpr.cgi | 105 ++++++++++++++++++++++++++++++++++++++++++
 en/cgi/dosendpr.cgi   | 105 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 210 insertions(+)
 create mode 100755 data/cgi/dosendpr.cgi
 create mode 100755 en/cgi/dosendpr.cgi

diff --git a/data/cgi/dosendpr.cgi b/data/cgi/dosendpr.cgi
new file mode 100755
index 0000000000..39715f2276
--- /dev/null
+++ b/data/cgi/dosendpr.cgi
@@ -0,0 +1,105 @@
+#!/usr/bin/perl
+#
+#  Send-pr perl script to send a pr.
+#
+# Copyright (c) 1996 Free Range Media
+#
+#  Copying and distribution permitted under the conditions of the
+#  GNU General Public License Version 2.  
+#     (http://www.gnu.ai.mit.edu/copyleft/gpl.html)
+#
+
+require "html.pl";
+
+sub prerror {
+    &html_title ("Problem Report Error");
+    &html_body();
+    print "There is an error in the configuration of the problem\n",
+          "report form genator.  Please back up one page and report\n",
+          "the problem to the owner of that page.  Report @_[0].";
+    &html_end();
+    exit (1);
+}
+
+&www_content ("text","html");
+&cgi_form_in();
+
+$gndb = $cgi_data{'gndb'};
+if (-e "$gndb.def")
+  { require "$gndb.def"; }
+else
+  { &prerror("gndb problem"); }
+
+
+# Configuration
+if ($gnhow eq "mail")
+  {
+    if (-e "/usr/lib/sendmail")
+      { $submitprog = "/usr/lib/sendmail -t" };
+    if (-e "/usr/sbin/sendmail")
+      { $submitprog = "/usr/sbin/sendmail -t" };
+  }
+else
+  { if (-e "$gnroot/queue-pr")
+      { $submitprog = "$gnroot/queue-pr -q" };
+  }
+
+if (!$submitprog) { &prerror("submit program problem"); }
+
+&html_title ($gnspreptitle);
+&html_body ($gnsprepbody);
+
+# Verify the data ...
+if (!$cgi_data{'email'} || !$cgi_data{'originator'} ||
+    !$cgi_data{'synopsis'}) {
+    if ($gnsprepbad && -e $gnsprepbad )
+      { print `cat $gnsprepbad`; }
+    else {
+	print "<h1>Bad Data</h1>\nYou need to specify at least your ",
+          "electronic mail address, your name and a synopsis of the ",
+          "of the problem.\n  Please return to the form and add the ",
+          "missing information.  Thank you.\n";
+    }
+    &html_end();
+
+    exit(1);
+}
+
+# Build the PR.
+$pr = "To: $gnemail\n" .
+      "From: $cgi_data{'email'}\n" . 
+      "Subject: $cgi_data{'synopsis'}\n" .
+      "X-Send-Pr-Version: www-1.0\n\n" .
+      ">Submitter-Id:\t$cgi_data{'submitterid'}\n" .
+      ">Originator:\t$cgi_data{'originator'}\n" .
+      ">Organization:\t$cgi_data{'organization'}\n" .
+      ">Confidential:\t$cgi_data{'confidential'}\n" .
+      ">Synopsis:\t$cgi_data{'synopsis'}\n" .
+      ">Severity:\t$cgi_data{'severity'}\n" .
+      ">Priority:\t$cgi_data{'priority'}\n" .
+      ">Category:\t$cgi_data{'category'}\n" .
+      ">Class:\t\t$cgi_data{'class'}\n" .
+      ">Release:\t$cgi_data{'release'}\n" .
+      ">Environment:\t$cgi_data{'environment'}\n" .
+      ">Description:\n$cgi_data{'description'}\n" .
+      ">How-To-Repeat:\n$cgi_data{'howtorepeat'}\n" .
+      ">Fix:\n$cgi_data{'fix'}\n";
+
+# remove any carrage returns that appear in the report.
+$pr =~ s/\r//g;
+
+#print "<PRE>$submitprog\n\n$pr\n</PRE>";
+if (open (SUBMIT, "|$submitprog")){
+
+    print SUBMIT $pr;
+    close (SUBMIT);
+    if ($gnspreppage && -e $gnspreppage )
+      { print `cat $gnspreppage`; }
+    else
+      { print "<h1>Thank You</h1>",
+	  "Thank you for the problem report.  You should receive confirmation",
+	  " of your report by electronic mail within a day."; }
+} else {
+    print "<h1>Error</h1>An error occured processing your problem report.";
+}
+&html_end();
diff --git a/en/cgi/dosendpr.cgi b/en/cgi/dosendpr.cgi
new file mode 100755
index 0000000000..39715f2276
--- /dev/null
+++ b/en/cgi/dosendpr.cgi
@@ -0,0 +1,105 @@
+#!/usr/bin/perl
+#
+#  Send-pr perl script to send a pr.
+#
+# Copyright (c) 1996 Free Range Media
+#
+#  Copying and distribution permitted under the conditions of the
+#  GNU General Public License Version 2.  
+#     (http://www.gnu.ai.mit.edu/copyleft/gpl.html)
+#
+
+require "html.pl";
+
+sub prerror {
+    &html_title ("Problem Report Error");
+    &html_body();
+    print "There is an error in the configuration of the problem\n",
+          "report form genator.  Please back up one page and report\n",
+          "the problem to the owner of that page.  Report @_[0].";
+    &html_end();
+    exit (1);
+}
+
+&www_content ("text","html");
+&cgi_form_in();
+
+$gndb = $cgi_data{'gndb'};
+if (-e "$gndb.def")
+  { require "$gndb.def"; }
+else
+  { &prerror("gndb problem"); }
+
+
+# Configuration
+if ($gnhow eq "mail")
+  {
+    if (-e "/usr/lib/sendmail")
+      { $submitprog = "/usr/lib/sendmail -t" };
+    if (-e "/usr/sbin/sendmail")
+      { $submitprog = "/usr/sbin/sendmail -t" };
+  }
+else
+  { if (-e "$gnroot/queue-pr")
+      { $submitprog = "$gnroot/queue-pr -q" };
+  }
+
+if (!$submitprog) { &prerror("submit program problem"); }
+
+&html_title ($gnspreptitle);
+&html_body ($gnsprepbody);
+
+# Verify the data ...
+if (!$cgi_data{'email'} || !$cgi_data{'originator'} ||
+    !$cgi_data{'synopsis'}) {
+    if ($gnsprepbad && -e $gnsprepbad )
+      { print `cat $gnsprepbad`; }
+    else {
+	print "<h1>Bad Data</h1>\nYou need to specify at least your ",
+          "electronic mail address, your name and a synopsis of the ",
+          "of the problem.\n  Please return to the form and add the ",
+          "missing information.  Thank you.\n";
+    }
+    &html_end();
+
+    exit(1);
+}
+
+# Build the PR.
+$pr = "To: $gnemail\n" .
+      "From: $cgi_data{'email'}\n" . 
+      "Subject: $cgi_data{'synopsis'}\n" .
+      "X-Send-Pr-Version: www-1.0\n\n" .
+      ">Submitter-Id:\t$cgi_data{'submitterid'}\n" .
+      ">Originator:\t$cgi_data{'originator'}\n" .
+      ">Organization:\t$cgi_data{'organization'}\n" .
+      ">Confidential:\t$cgi_data{'confidential'}\n" .
+      ">Synopsis:\t$cgi_data{'synopsis'}\n" .
+      ">Severity:\t$cgi_data{'severity'}\n" .
+      ">Priority:\t$cgi_data{'priority'}\n" .
+      ">Category:\t$cgi_data{'category'}\n" .
+      ">Class:\t\t$cgi_data{'class'}\n" .
+      ">Release:\t$cgi_data{'release'}\n" .
+      ">Environment:\t$cgi_data{'environment'}\n" .
+      ">Description:\n$cgi_data{'description'}\n" .
+      ">How-To-Repeat:\n$cgi_data{'howtorepeat'}\n" .
+      ">Fix:\n$cgi_data{'fix'}\n";
+
+# remove any carrage returns that appear in the report.
+$pr =~ s/\r//g;
+
+#print "<PRE>$submitprog\n\n$pr\n</PRE>";
+if (open (SUBMIT, "|$submitprog")){
+
+    print SUBMIT $pr;
+    close (SUBMIT);
+    if ($gnspreppage && -e $gnspreppage )
+      { print `cat $gnspreppage`; }
+    else
+      { print "<h1>Thank You</h1>",
+	  "Thank you for the problem report.  You should receive confirmation",
+	  " of your report by electronic mail within a day."; }
+} else {
+    print "<h1>Error</h1>An error occured processing your problem report.";
+}
+&html_end();