#!/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)
#
# $FreeBSD: www/en/cgi/dosendpr.cgi,v 1.5 2001/05/07 19:28:09 wosch Exp $

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 ($gndb =~ /^[a-z]+$/ && -e "$gndb.def")
  { require "$gndb.def"; }
else
  { &prerror("gndb problem"); }

&prerror("request method problem") if $ENV{'REQUEST_METHOD'} eq 'GET';

# 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{'synopsis'} <$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();