You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
132 lines
3.7 KiB
Perl
132 lines
3.7 KiB
Perl
#!/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;
|