Re: need help on perl scripts #1 newuser.pl

Luke Palmer Wed, 28 Aug 2002 10:42:43 -0700

This is really the wrong place to be sending this.   This is Perl 5 (or 
maybe even Perl 4, which I don't know) code, and this is a list for 
discussing the design of Perl 6.  A good place to send this would 
probably be [EMAIL PROTECTED]


Good Luck,
Luke

On Wed, 28 Aug 2002, frank crowley wrote:

> #!/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
>

Re: need help on perl scripts #1 newuser.pl

Reply via email to