#!/usr/bin/perl
##################################################################
# A CGI form processor for FreeBSD Gallery submissions
# 
# John Fieber <jfieber@indiana.edu>
# August 9 1996
##################################################################

$curator = "jfieber@indiana.edu";
#$curator = "jkh@freebsd.org";
$subject = "Another gallery submission...";

require 'cgi-lib.pl';
&ReadParse;

#$d_date = "$Date: 1996-09-24 17:45:57 $";
#$h_base = "..";
#$d_author = "
require 'cgi-style.pl';

# Construct the gallery entry in HTML form
$entry = "<li><a href=\"$in{'url'}\"><strong>$in{'organization'}</strong> " .
    "-- $in{'description'}</a></li>";

# Try and figure out where the person came from so we can provide
# links back to the correct place.
$return = "";
if ($in{'return'} eq "") {
    if ($ENV{'HTTP_REFERER'} ne "") {
    	$in{'return'} = $ENV{'HTTP_REFERER'};
    }
}
if ($in{'return'} ne "") {
    $return = "<a href=\"$in{'return'}\">Return to the Gallery</a>";
}


# This is the form where the user enters the information.
$forma = &html_header("Gallery Submission") .
"<form action=\"gallery.cgi\" method=\"POST\">
<input type=hidden name=action value=\"preview\">
<input type=hidden name=return value=\"$in{'return'}\">
<table>
<tr>
<td right>Organization:</td>
<td><input type=text name=organization size=\"50\"></td>
</tr>
<tr>
<td right>Description:</td>
<td><input type=text name=description size=\"50\"></td>
</tr>
<tr>
<td right>URL:</td>
<td><input type=text name=url size=\"50\"></td>
</tr>
<tr>
<td right>Category:</td>
<td>
<input type=radio name=category value=\"Commercial\" checked> Commercial<br>
<input type=radio name=category value=\"Non Profit\"> Non-Profit<br>
<input type=radio name=category value=\"Personal\"> Personal
</td>
</tr>
<tr>
<td right>Email Contact:</td>
<td><input type=text name=\"contact\" size=\"50\"></td>
</tr>
<tr>
<td colspan=\"2\" right><input type=submit value=\" Preview Entry \"></td>
</tr>
</table>
</form>
<p>$return</p>
" . &html_footer();

# This is the form where the user CHECKS the information they typed
$formb = &html_header("Your Gallery Submission") .
"<P>Here is your entry as it will appear in the
FreeBSD Gallery page.</p>
<p>Please check that the category and your e-mail
address are correct, and that the link actually works.
If anything is wrong, use your
browser's <em>back</em> button and correct it.
If everything is okay, press the <em>submit</em> button
below.</p>
<p>Contact person: $in{'contact'}</p>
<hr><h2>$in{'category'}</h2>
<ul>
$entry
</ul>
<hr>
<form method=\"POST\" action=\"gallery.cgi\">
<input type=hidden name=action value=submit>
<input type=hidden name=organization value=\"$in{'organization'}\">
<input type=hidden name=description value=\"$in{'description'}\">
<input type=hidden name=url value=\"$in{'url'}\">
<input type=hidden name=category value=\"$in{'category'}\">
<input type=hidden name=contact value=\"$in{'contact'}\">
<input type=hidden name=return value=\"$in{'return'}\">
<input type=submit value=\" Submit this \">
</form>
<p>$return</p>
" . &html_footer();

# And this is where we thank them for submitting an entry.
$formc = &html_header("Thank You!") .
"<P>Please allow a few days for your entry to be added
to the Gallery.</p>
<p>$return</p>
" . &html_footer();


if ($in{'action'} eq "preview") {
    print $formb;
}
elsif ($in{'action'} eq "submit") {
    print $formc;
#    close(STDOUT);

    open(M, "| mail -s \"$subject\" $curator");
    print M "$in{'contact'} submitted the following to be added under\n";
    print M "\"$in{'category'}\" in the gallery:\n\n";
    print M "<-- from $in{'contact'} on $timestamp -->\n";
    print M "$entry\n";
    close(M);
}
else {
    print $forma;
}

exit 0;