#!/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
![http://www.mtgauction.com/lazarusMtGlogoHORIZ.GIF"](http://www.mtgauction.com/lazarusMtGlogoHORIZ.GIF"){kind=link}