need help on perl scripts #1 newuser.pl

frank crowley Wed, 28 Aug 2002 10:17:23 -0700

#!/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">&nbsp</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">&nbsp</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&nbsp<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"
/>&nbsp&nbsp<input type="reset"
/></td></tr></table>'."\n" ;
print "<P>\n" ;
print '  <FONT FACE="sans-serif" SIZE=-2>'."\n" ;
print "    &nbsp;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 &copy; 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

need help on perl scripts #1 newuser.pl

Reply via email to