#!/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.
$vcolor = $field{'vcolor'} ;
$sc = $field{'sc'} ;
$vsets = $field{'vsets'} ;
$vlanguages = $field{'vlanguages'} ;
$vrarities = $field{'vrarities'} ;
$ChangeView = $field{'ChangeView'} ;
$White = $field{'White'} ;
$Blue = $field{'Blue'} ;
$Black = $field{'Black'} ;
$Red = $field{'Red'} ;
$Green = $field{'Green'} ;
$Gold = $field{'Gold'} ;
$Artifact = $field{'Artifact'} ;
$Land = $field{'Land'} ;
$_cgifields = $field{'.cgifields'} ;
$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($vlanguages) > 1092690721) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Green) > 20) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Gold) > 197379) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Artifact) > 23) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Land) > 1162158653) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($_cgifields) > 537529662) {
$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.
# ***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
