#!/usr/local/bin/perl -wT # TESTING # BEGIN {print STDERR "\n--------------------------------------------------------\n-- My Cgi\n--\n"} # END {print STDERR "--\n-- My Cgi\n--------------------------------------------------------\n"} #========================================================================= # Copyright 1999-2001 Idocs Guide to HTML, http://www.idocs.com/ # You may distribute this program freely, but keep # this notice in place. #========================================================================= #========================================================================= # modules # use strict; use CGI; use CGI::Carp 'fatalsToBrowser', 'croak'; $CGI::POST_MAX = 10240; # set maximum size of post # use lib 'pt/PtLib'; # use lib 'ads/'; # use Banner; # # modules #========================================================================= #========================================================================= # variables # my ( $query, # CGI query object $maxFields, # maximum number of fields to accept $rand, # random number for banners $inputdata, # filehandle for uploaded files @inputVals, # values for a field (they can send more than one) $inputVal, # a single values for a field $modval, # modified value of $fileinfo, # uploaded file information @params, # array of all fields sent $key,$val, # key an value for $fileinfo hash $ad,$adcode, ); $query=CGI->new; # get CGI object $maxFields=100; # maximum number of fields to accept $rand = int(rand(100000)); # random number for ad banner # # variables #========================================================================= #========================================================================= # top of page # print $query->header; print <<"(TOPOFPAGE)"; Idocs Guide to HTML: My CGI
Idocs Guide to HTML

My CGI

This CGI displays the name=value pairs sent to it. Feel free to use this CGI for practice making HTML forms. This CGI is provided compliments of the Idocs Guide to HTML.

You may also be interested in these pages: Headers Sent By Your Browser and Headers Sent With Your Web Page. (TOPOFPAGE) # # top of page #========================================================================= #========================================================================= # list # # get list of fields @params = $query->param; if (@params > $maxFields) {croak "No more than $maxFields fields please"} # open table if necessary print "

\n" if @params; PARAMLOOP: foreach my $paramKey (@params) { print ''; #---------------------------------------------------------------- # value # $inputdata = $query->param($paramKey); # print STDERR "[b]\n"; # TESTING # the problem with "Use of uninitialized value in hash element at (eval 6) line 3." # happens during the next line $fileinfo = $query->uploadInfo($inputdata); # if it's an uploaded file if (defined $fileinfo) { print "", "\n'; } # # value #---------------------------------------------------------------- print "\n"; } # close table if necessary print "
", tablesc($paramKey), "\n"; while (($key,$val) = each %{$fileinfo}) { # content-disposition gives several pieces of # information about the file, so let's parse it up if (lc($key) eq 'content-disposition') { foreach my $dis (split(m|\s*;\s*|,$val)) { my @dispieces=split(m/\s*=\s*/,$dis,2); next unless defined $dispieces[1]; next if $dispieces[0] =~ m|^name$|i; print '\n"; } } # else just print the field else { print '\n"; } } # output the file size seek($inputdata,0,2); # go to end of file handle print '\n"; print '
', tablesc($dispieces[0]), '', tablesc($dispieces[1]), "
', tablesc($key), '', tablesc($val), "
size', tell($inputdata), "
'; # } # else it's not an uploaded file else { # get array of input values @inputVals=$query->param($paramKey); @inputVals=grep(tablesc($_),@inputVals); # name of field print '		', tablesc($paramKey), '
';
		
		#out put value(s) for field
		foreach $inputVal (@inputVals)
			{$inputVal = tablesc($inputVal)}
		print 
			join("
", @inputVals), 
			'

\n" if @params; # # list #========================================================================= #======================================================================= # bottom of document # # ************************************************************************ # *** IF YOU COPY My CGI, ABSOLUTELY PLEASE DO NOT CHANGE THIS SECTION *** # ************************************************************************ print <<"(END BOTTOM OF PAGE)";

A lot of people have asked to see the code for this CGI. OK, here it is.

My CGI by The Idocs Guide to HTML, copyright 1997-1999, Idocs Inc.
This entire web site is served by our friends at Ninth Wonder (END BOTTOM OF PAGE) # # bottom of document #======================================================================= #======================================================================= # tablesc # return   undefined or for space-only/empty string, # otherwise change < > and & to character entities # sub tablesc { return " " if (! defined $_[0]) || ($_[0] !~ m|\S|); $_[0] =~ s|&|&|gso; $_[0] =~ s|<|<|gso; $_[0] =~ s|>|>|gso; $_[0]; } # # tablesc #=======================================================================