#!/usr/local/bin/perl $mail_prog = '/usr/lib/sendmail' ; # This script was generated automatically by Perl Builder(tm): http://www.solutionsoft.com
# ***ENDAUTOGEN:HEADER*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:INPUT*** Do NOT modify this line!! Do NOT enter custom code in this section. &GetFormInput; # The intermediate variables below make your script more readable # but somewhat less efficient since they are not really necessary. # If you do not want to use these variables, clear the # Intermediate Variables checkbox in the Tools | Options dialog box, CGI Wizard tab. $fmc = $field{'fmc'} ; $name = $field{'name'} ; $email = $field{'email'} ; $address1 = $field{'address1'} ; $address2 = $field{'address2'} ; $city = $field{'city'} ; $state = $field{'state'} ; $zip = $field{'zip'} ; $country = $field{'country'} ; $username = $field{'username'} ; $password = $field{'password'} ; $confpassword = $field{'confpassword'} ; $NewUser = $field{'NewUser'} ; $message = "" ; $found_err = "" ; # ***ENDAUTOGEN:INPUT*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:VALIDATE*** Do NOT modify this line!! Do NOT enter custom code in this section. $errmsg = "<p></p>\n" ; if (length($fmc) < 5) { $message = $message.$errmsg ; $found_err = 1 ; } if (length($fmc) > 1952935525) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p>Please enter a valid email address</p>\n" ; if ($name !~ /.+\@.+\..+/) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($address2) > 112076456) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($city) > 1830843236) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($state) > 112079212) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($zip) > 168650098) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($country) > 542395983) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($username) > 112001069) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($password) > 332) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($confpassword) > 50528256) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "<p></p>\n" ; if (length($NewUser) > 112137472) { $message = $message.$errmsg ; $found_err = 1 ; } if ($found_err) { &PrintError; } # ***ENDAUTOGEN:VALIDATE*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:LOGFILE*** Do NOT modify this line!! Do NOT enter custom code in this section. # ***ENDAUTOGEN:LOGFILE*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:EMAIL*** Do NOT modify this line!! Do NOT enter custom code in this section. # ***ENDAUTOGEN:EMAIL*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:HTML*** Do NOT modify this line!! Do NOT enter custom code in this section. print "Content-type: text/html\n\n"; print '<?xml version="1.0" encoding="utf-8"?>'."\n" ; print "<!DOCTYPE html\n" ; print ' PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"'."\n" ; print ' "http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">'."\n" ; print '<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US"><head><title>jovens mtg auction - New User</title>'."\n" ; print '<link rev="made" href="mailto:joven_20%40yahoo.com" />'."\n" ; print '</head><body text="#FFFFFF" bgcolor="#000000"><form method="post" action="http://magicauction.netfirms.com/cgi-bin/newuser.cgi" enctype="application/x-www-form-urlencoded">'."\n" ; print "<CENTER>\n" ; print ' <IMG SRC="http://www.mtgauction.com/lazarusMtGlogoHORIZ.GIF" '."\n" ; print ' ALT="lazarus MtG auction" HEIGHT=69 WIDTH=519 ALIGN=CENTER>'."\n" ; print " <BR>\n" ; print '<input type="hidden" name="fmc" value="N" /><table cellpadding="1" align="CENTER" width="70%" cellspacing="1" border="0"><caption><h2><FONT FACE="Arial, Helvetica">New User Entry Form</FONT></h2> <p align="CENTER"><FONT SIZE=-1>Items in <B>bold</B> are'."\n" ; print ' mandatory for participation in the auction.</FONT></p></caption> <tr><th width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>Name:</FONT></th><td align="LEFT"><input type="text" name="name" size="40" maxlength="40" /></td></tr> <tr><th width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>E-mail address:</FONT></th><td align="LEFT"><input type="text" name="email" size="40" maxlength="50" /></td></tr> <tr><th width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>Address:</FONT></th><td align="LEFT"><input type="text" name="address1" size="40" maxlength="40" /></td></tr> <tr><td width="25%" align="RIGHT"> </td><td align="LEFT"><input type="text" name="address2" size="40" maxlength="40" /></td></tr> <tr><th width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>City:</FONT></th><td align="LEFT"><input type="text" name="city" size="30" maxlength="40" /></td></tr> <tr><td width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>State:</FONT></td><td align="LEFT"><input type="text" name="state" size="3" maxlength="2" /></td></tr> <tr><td width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>Zip:</FONT></td><td align="LEFT"><input type="text" name="zip" size="12" maxlength="12" /></td></tr> <tr><td width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>Country:</FONT></td><td align="LEFT"><input type="text" name="country" size="30" maxlength="30" /></td></tr> <tr><th width="25%" align="RIGHT"></th><td align="LEFT"> </td></tr> <tr><th valign="TOP" width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>Username:</FONT></th><td align="LEFT"><input type="text" name="username" size="15" maxlength="15" /><BR><FONT SIZE=-1>Must be one word and contain letters or numbers only.</FONT></td></tr> <tr><th valign="TOP" width="25%" align="RIGHT"><FONT COLOR=#FFFFFF>Password:</FONT></th><td align="LEFT"><input type="password" name="password" size="10" maxlength="10" /><BR><FONT SIZE=-1>Must be 8-10 characters and contain'."\n" ; print ' letters or numbers only.</FONT></td></tr> <tr><th width="25%" align="RIGHT">Confirm <BR>Password:</th><td align="LEFT"><input type="password" name="confpassword" size="10" maxlength="10" /></td></tr> <tr><th></th><td align="LEFT"><input type="submit" name="NewUser" value="Submit" />  <input type="reset" /></td></tr></table>'."\n" ; print "<P>\n" ; print ' <FONT FACE="sans-serif" SIZE=-2>'."\n" ; print " Magic: the Gathering is a trademark of \n" ; print ' <A HREF="http://www.wizards.com/">'."\n" ; print " Wizards of the Coast\n" ; print " </A>.\n" ; print " </FONT>\n" ; print " <BR>\n" ; print ' <FONT FACE="sans-serif" SIZE=-2>'."\n" ; print " Web site copyright © 1998-2002 \n" ; print ' <A HREF="mailto:[EMAIL PROTECTED]">'."\n" ; print " frank j crowley\n" ; print " </A>. All rights reserved.\n" ; print " </FONT>\n" ; print " </CENTER>\n" ; print "\n" ; # ***ENDAUTOGEN:HTML*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:ERRPRINT*** Do NOT modify this line!! Do NOT enter custom code in this section. sub PrintError { print "Content-type: text/html\n\n"; print $message ; exit 0 ; return 1 ; } # ***ENDAUTOGEN:ERRPRINT*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:PARSE*** Do NOT modify this line!! Do NOT enter custom code in this section. sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; #if you want multi-selects to goto into an array change to: #$field{$name} .= "\0$val"; } } } return 1; } # ***ENDAUTOGEN:PARSE*** Do NOT modify this line!! You may enter custom code after this line. ===== frank crowley __________________________________________________ Do You Yahoo!? Yahoo! Finance - Get real-time stock quotes http://finance.yahoo.com