undergroundcontract.cgi

 

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

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



$xline = sprintf("%s|%s|%s", $formdata{'bandname'}, $formdata{'bandweb'}, $formdata{'bandemail'});
$xline = sprintf("%s|%s|%s|%s|%s", $formdata{'member1'}, $formdata{'address1'}, $formdata{'city1'}, $formdata{'phone1'}, $formdata{'email1'});
$xline = sprintf("%s|%s|%s", $formdata{'member2'}, $formdata{'phone2'}, $formdata{'email2'});
$xline = sprintf("%s|%s|%s", $formdata{'member3'}, $formdata{'phone3'}, $formdata{'email3'});
$xline = sprintf("%s|%s|%s", $formdata{'member4'}, $formdata{'phone4'}, $formdata{'email4'});
$xline = sprintf("%s|%s|%s", $formdata{'member5'}, $formdata{'phone5'}, $formdata{'email5'});
$xline = sprintf("%s|%s", $formdata{'parentname'}, $formdata{'parentphone'});



open (FILENAME, ">>/news/undergroundcontracts.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: Underground Band Contract\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.tcunderground.com/mstyle.css\" rel=\"stylesheet\" type=\"text/css\">"; 



print "</HEAD>"; 


print "<BODY BACKGROUND=\"http://www.tcunderground.com/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 "<p><FONT CLASS=text>Thank you for submitting your contract information.</FONT>";
print "<p>&nbsp;</p>";
print "<p>&nbsp;</p>";
print "<p>&nbsp;</p>";










print "</TD></TR>";
print "</TABLE>";
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;
 }