38df6f51c6
Yes, this is supposed to be a new top level in the repository. For the moment any changes to this area must be cleared by myself or Jordan. Once the kinks are worked out, the policy will probably be relaxed.
131 lines
3.7 KiB
Perl
Executable file
131 lines
3.7 KiB
Perl
Executable file
#!/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;
|