need help in getting the website to aknowledge cgi and perl script when clicking on link to go to new user signup html page, as well as auction.html page
and for them to interact. http://magicauction.netfirms.com/index.html trying to get the preview auction link to go to auction.cgi, and the link for new user to go to newuser.cgi which are both in the cgi-bin = frank crowley __ Do You Yahoo!? Yahoo! Finance - Get real-time stock quotes http://finance.yahoo.com
#2 auction.pl
#!/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 = "\n" ;
if (length($vlanguages) > 1092690721) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "\n" ;
if (length($Green) > 20) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "\n" ;
if (length($Gold) > 197379) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "\n" ;
if (length($Artifact) > 23) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "\n" ;
if (length($Land) > 1162158653) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "\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
need help on perl scripts #1 newuser.pl
gic: the Gathering is a trademark
of \n" ;
print ' http://www.wizards.com/";>'."\n"
;
print "Wizards of the Coast\n" ;
print " .\n" ;
print " \n" ;
print " \n" ;
print ' '."\n" ;
print " Web site copyright © 1998-2002 \n" ;
print ' mailto:[EMAIL PROTECTED]";>'."\n" ;
print " frank j crowley\n" ;
print " . All rights reserved.\n" ;
print " \n" ;
print " \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 with entry form?
ttack ranged weapon feats point blank shot far shot precise shot rapid shot shot on the run unarmed weapon feats improved unarmed strike stunning fist spell feats empower spell enlarge spell extend spell heighten spell maximize spell quicken spell silent spell still spell combat casting spell focus spell mastery spell penetration extra turning Skills alchemy animal empathy appraise balance bluff climb concentration craft decipher script diplomacy disable device disguise escape artist forgery gather information handle animal heal hide innuendo intimidate intuit direction jump knowledge listen move silently open lock perform pick pocket profession read lips ride scry search sense motive spellcraft spot swim tumble use magical device use rope wilderness lore Treasure none standard double standard Brief description Full description Combat description Special description Society description Author name Author email = frank crowley __ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com
need help making auction
see attached file.
=
frank crowley
__
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/
#!/usr/bin/perl
use vars qw(%config %category %form);
use strict;
#-###
#
# In accordance with the GPL, this copyright notice MUST remain intact:
#
# EveryAuction Release Version 1.51 (5/13/00)
# Copyright (C) 2000 EverySoft
# Registered with the United States Copyright Office, TX5-186-526
# http://www.everysoft.com/
#
#-###
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
#-###
#
# Modification Log (please add new entries to bottom):
#
# * 02/2000
# Matt Hahnfeld ([EMAIL PROTECTED]) - Original Concept and Design
# Version available from http://www.everysoft.com/
#
# * MM/
# Name (email) - Modification
# Availability
#
#-###
#-#
# Configuration Section
# Edit these variables!
local %config;
# The Base Directory. We need an
# absolute path for the base directory.
# Include the trailing slash. THIS SHOULD
# NOT BE WEB-ACCESSIBLE!
$config{'basepath'} = '/home/hahnfld/auctiondata/';
# Closed Auction Directory
# This is where closed auction items are stored.
# Leave this blank if you don't want to store
# closed auctions. It can potentially take
# up quite a bit of disk space.
$config{'closedir'} = 'closed';
# User Registration Directory
# This is where user registrations are stored.
# Leave this blank if you don't want to
# require registration. It can potentially
# take up quite a bit of disk space.
$config{'regdir'} = 'reg';
# List each directory and its associated
# category name. These directories should
# be subdirectories of the base directory.
%category = (
computer => 'Computer Hardware and Software',
elec => 'Consumer Electronics',
other => 'Other Junk',
);
# This is the password for deleting auction
# items.
$config{'adminpass'} = 'auction';
# You need to assign either a mail program or
# a mail host so confirmation e-mails can
# be sent out.
# Leave one commented and one uncommented.
#
# YOU NEED EITHER A MAIL PROGRAM
# $config{'mailprog'} = '/usr/lib/sendmail -t';
#
# OR YOU NEED A MAIL HOST (SMTP)
$config{'mailhost'} = 'localhost';
# This line should be your e-mail address
$config{'admin_address'} = '[EMAIL PROTECTED]';
# This line should point to the URL of
# your server. It will be used for sending
# "you have been outbid" e-mail. The script
# name and auction will be appended to the
# end automatically, so DO NOT use a trailing
# slash. If you do not want to send outbid
# e-mail, leave this blank.
$config{'scripturl'} = 'www.your.host.com';
# This will let you define colors for the
# tables that are generated and the
# other page colors. The default colors
# create a nice "professional" look. Must
# be in hex format.
$config{'colortablehead'} = '#BB';
$config{'colortablebody'} = '#EE';
# Site Name (will appear at the top of each page)
$config{'sitename'} = 'Your Site Name Here';
# You can configure your own header which will
# be appended to the top of each page.
$config{'header'} =<<"EOF";
$config{'sitename'} - Powered By EveryAuction
$config{'sitename'}
Online Auction
keyword username
EOF
# You can configure your own footer which will
# be appended to the bottom of each page.
# Although not required, a link back to
# everysoft.com will help to support future
# development.
$config{'footer'} =<<"EOF";
Powere
