news.cgi

 

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

print "Content-type: text/html\n\n";



($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdist)=localtime(time);

$mon = $mon + 1;
$mon = sprintf("%02d", $mon) if 
    $mon <= 9;
$mday = sprintf("%02d", $mday) if 
    $mday <= 9;
$min = sprintf("%02d", $min) if 
    $min <= 9;
$date=$year . $mon . $mday . $hour . $min . $sec;



print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"><html><head>"; 

print "<TITLE>Women Who Really Cook</TITLE>"; 

print "<!-- The next two lines should be in every *.html file"; 
print "     that you want to have this style -->"; 

print "<META content=text/css http-equiv=Content-Style-Type>"; 
print "<LINK href=\"http://www.setgetweb.com/wendy/women/members/mstyle.css\" rel=\"stylesheet\" type=\"text/css\">"; 

print "<script language=\"javascript\" src=\"http://www.setgetweb.com/wendy/women/members/sniffer.js\">"; 

print "//Top Navigational Bar III (By BrotherCake @ cake@brothercake.net)"; 
print "//Permission granted/modified by Dynamicdrive.com to include script in archive"; 
print "//For this and 100's more DHTML scripts, visit http://www.dynamicdrive.com"; 

print "</script>"; 
print "<script language=\"javascript1.2\" src=\"http://www.setgetweb.com/wendy/women/members/custom.js\"></script>"; 
print "<script language=\"javascript1.2\" src=\"http://www.setgetweb.com/wendy/women/members/style.js\"></script>"; 

print "</HEAD>"; 


print "<BODY BACKGROUND=\"http://www.setgetweb.com/wendy/women/img/bg.jpg\">"; 

print "<TABLE BORDER=\"0\" WIDTH=\"100%\" ALIGN=\"left\">"; 
print "<TR><TD VALIGN=\"top\">"; 

print "<TABLE BORDER=\"0\" WIDTH=\"570\" CELLPADDING=\"0\" CELLSPACING=\"0\">"; 
print "<TR><TD>"; 
print "<IMG SRC=\"http://www.setgetweb.com/wendy/women/img/logo3.jpg\" BORDER=\"0\"></IMG>"; 
print "</TD></TR>"; 
print "</TABLE>"; 
print "<BR CLEAR=\"all\">"; 
print "</TD></TR>"; 


print "<TR><TD>"; 
print "<P>&nbsp;<BR>"; 
print "<TABLE BORDER=\"0\" WIDTH=\"570\">"; 
print "<TR><TD WIDTH=\"150\">"; 
print "&nbsp;"; 
print "</TD>"; 

print "<TD WIDTH=\"420\">"; 






open (FILENAME, "</news/newscapture.txt") || &ErrorMessage;


@stories = <FILENAME>;
close (FILENAME);

$total=$#stories;


for ($i = $total; $i > 0; --$i) {
	print "$stories[$i]";
}










print "</TD></TR>";
print "</TABLE>";
print "<TABLE BORDER=\"0\" WIDTH=\"570\">";
print "<TR><TD>";
print "<CENTER>";
print "<FONT CLASS=\"blacktextsm\">";
print "<A HREF=\"http://www.setgetweb.com/wendy/women/index.html\">Home</A>&nbsp;&nbsp;
<A HREF=\"http://www.setgetweb.com/wendy/women/membersonly.html\">Members Only</A>&nbsp;&nbsp;
<A HREF=\"http://www.setgetweb.com/wendy/women/recipes.html\">Recipes</A>&nbsp;&nbsp;
<A HREF=\"http://www.setgetweb.com/wendy/women/photos.html\">Photos</A>&nbsp;&nbsp;
<A HREF=\"http://www.setgetweb.com/wendy/women/contact.html\">Contact Us</A>&nbsp;&nbsp;
<A HREF=\"mailto:qp@visi.com\">Webmaster</A></FONT>";
print "</CENTER>";
print "</TD></TR>";
print "</TABLE>";
print "	</TD></TR>";
print "	</TABLE>";
print "	</CENTER>";
print "<script language=\"javascript1.2\" src=\"http://www.setgetweb.com/wendy/women/members/menu.js\"></script>";
print "</BODY>";
print "</HTML>";



 sub ErrorMessage {
 	print "Content-type: text/html\n\n";
 	print "The server can't process file. It either doesn't exist or the permissions are wrong. \n";
 	exit;
 }