home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
linuxmafia.com 2016
/
linuxmafia.com.tar
/
linuxmafia.com
/
pub
/
skeptic
/
bibliography
/
submit.cgi
< prev
next >
Wrap
Text File
|
2009-08-26
|
5KB
|
188 lines
#!/usr/bin/perl
# $rcs = ' $Id: edit.cgi,v 1.2 1998/06/20 04:00:04 fitz Exp $ ' ;
unshift(@INC, "lib");
require 'bib.pl';
require 'web.pl';
require 'cgi-lib.pl';
&ReadParse; # Read the script input
print "Content-type: text/html\n";
&bib::load("CATEGORY", "KEYWORDS");
# Determine if we are running as an administrator
$admin = ($ENV{SCRIPT_NAME} =~ m!/admin/! ? 1 : 0);
# If the ID is specified as part of the URL,
# then we are editing an existing file
#($id = $ENV{PATH_INFO}) =~ s!.*/!!;
if ($ENV{PATH_INFO} =~ /.*\/(\d+)/)
{
$id = $1;
}
if ($id)
{
$heading = "Edit Bibliography Entry";
&error("Invalid format for ID '$id'.")
unless $id =~ /^\d+$/;
&error("Editing allowed only for administrators.")
unless $admin;
%entry = &db::read_entry($id);
&error("Error reading bibliography entry for ID '$id': $db::error")
unless defined %entry;
}
else
{
$heading = ($admin ?
"Create Bibliography Entry" :
"Submit Bibliography Entry");
%entry = ();
}
# Get the categories
@categories = &bib::get_categories();
&error($bib::error) unless defined @categories;
# Get the keywords
@keywords = &bib::get_keywords(1);
&error($bib::error) unless defined @keywords;
# If they clicked the "Erase Changes",
# revert to the last saved
undef %in if $in{REVERT};
if (%in)
{
# If the Delete button was pressed, redirect to another CGI
if ($in{delete})
{
$url = "$bib::admin_cgi/delete.cgi/$id";
print "Location: $url\n\n",
"This page has been redirected to<P><a href=\"$url\">$url</a>\n";
exit 0;
}
# If they entered a new category,
# override the category selected in the list
$in{CATEGORY} = $in{NEW_CATEGORY} if $in{NEW_CATEGORY};
# If they selected multiple keywords,
# convert it into a single string,
# and include any additional keywords
if ($in{KEYWORDS})
{
my(@k) = &splitMultiple($in{KEYWORDS});
$in{KEYWORDS} = "@k";
}
$in{KEYWORDS} .= " $in{NEW_KEYWORDS}";
# If the user is not an administrator, list the entry as
# preliminary
unless ($admin)
{
$in{META} = "submit";
&error("You must enter a submitter name and email address.")
unless ($in{SUBMITNAME} && $in{SUBMITADDR});
}
if ($id2 = &bib::write_entry($id, %in))
{
if ($id)
{
&success("Wrote entry ID=$id<P>\n",
"<A HREF=$bib::cgi/display.cgi/$id>Display Entry</A>\n");
}
elsif ($admin)
{
&success("Added new entry ID=$id2<P>\n",
"<A HREF=$bib::cgi/display.cgi/$id2>Display Entry</A>\n");
}
else
{
$link = "http://$ENV{SERVER_NAME}$bib::cgi/display.cgi/$id2";
&bib::sendmail("The following entry was submitted:" .
"\n$link\n$in{TITLE}\n",
"To: $bib::email{admin}",
"Bcc: $bib::email{webmaster}",
"From: $in{SUBMITADDR} ($in{SUBMITNAME})",
"Subject: submission to SKEPTIC bibliography",)
|| ($mail_error = "<P>Mail error: $bib::error");
&success("Submitted new entry: it will not appear ",
"in the bibliography until an administrator verifies it.<P>\n",
"<A HREF=$bib::cgi/display.cgi/$id2>Display Entry</A>\n",
$mail_error,
);
}
}
else
{
# Validation or write error.
# Display the error, and redisplay the entry form
$vars = "<FONT COLOR=red SIZE=4><STRONG>Errors:</STRONG>"
. "<UL>$bib::error</UL></FONT>";
%entry = %in;
$revert = "<INPUT TYPE=submit NAME=REVERT VALUE=\"Revert Entry to Last Saved\">" if $id;
}
}
# Construct a list of all current categories
# and make sure the correct one is selected
# if we are editing an existing entry
foreach $category (@categories)
{
$select = ($category eq $entry{CATEGORY}) ? "SELECTED" : "";
$categories .= "<OPTION $select>$category";
}
# Construct a list of all current keywords
# and make sure the correct ones are selected
# if we are editing an existing entry
foreach $keyword (@keywords)
{
$select = "";
$select = "SELECTED"
if ($entry{KEYWORDS} =~ /\b$keyword\b/ &&
$entry{KEYWORDS} !~ /\b$keyword:/);
$keywords .= "<OPTION $select>$keyword";
}
# Make a copy of the entry, but untaint the values
# so the special HTML characters are escaped
%entry_untaint = &untaint_assoc(%entry);
$entry_untaint{CATEGORY} = $categories;
$entry_untaint{KEYWORDS} = $keywords;
$delete = "<INPUT TYPE=submit NAME=delete VALUE=\"Delete Entry...\">"
if $admin && $id;
$newcat = "<INPUT NAME=NEW_CATEGORY VALUE=\"$entry_untaint{NEW_CATEGORY}\">"
if $admin;
$revert = "<INPUT TYPE=reset VALUE=\"Erase Changes\">" unless $revert;
$data = &bib::template("edit.html",
%entry_untaint,
"HEADING", $heading,
"VARS", $vars,
"DELETE", $delete,
"NEW_CATEGORY", $newcat,
"REVERT", $revert,);
print "\n", &bib::template("basic.html",
"TITLE", "Edit Entry $id",
"DATA", $data);
exit 0;