account.cgi

 

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

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



$xline = sprintf("%s|%s|%s|%s", $formdata{'name'}, $formdata{'email'}, $formdata{'id'}, $formdata{'passwd'});

open (FILENAME, ">>/news/accounts.txt") || &ErrorMessage;
print FILENAME "$xline\n";
close (FILENAME);


open (MAIL, "|/usr/sbin/sendmail -t") || &ErrorMessage;

print MAIL "To: qp\@visi.com \nFrom: mpareene\@setgetweb.com\n";
print MAIL "Subject: New WWRC account\n";
print MAIL "$xline\n";

close (MAIL);


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/mstyle.css\" rel=\"stylesheet\" type=\"text/css\">"; 



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\">"; 





print "<FONT CLASS=\"blacktextsm\">";

print "<p>&nbsp;</p>";
print "<p>&nbsp;</p>";
print "<p>Thanks!  Your request should be processed within 24 hours.";
print "<p><A HREF=\"http://www.wwrc.info\">CLICK HERE TO RETURN TO MAIN PAGE</A>";
print "<p>&nbsp;</p>";
print "<p>&nbsp;</p>";










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 "</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;
 }





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