$msg[$i]
\n"; } # Just in case we were in a table or two, close them so that # our text is shown. print "\n", "\n", "\n", "\n"; } # dieCgi # Identical to CgiError, but also quits with the passed error message. sub dieCgi { my (@msg) = @_; &CgiError (@msg); die @msg; } # For the remainder of this library: # original author: Mohamed Hendawi (moe@pobox.com) # updates/hacks by: Clint Goss (clint@goss.com) # # BrowserFeatureAvailable # # Given a browser string as per the environment variable HTTP_USER_AGENT # and a feature: # # return 0 for not available # return 1 for available # return 2 for don't recognize feature string # # Current supported features are in the table below. # sub browserFeatureAvailable { my ($browser, $feature) = @_; # MULTIPART-X-MIXED-REPLACE - supports Content-type: multipart/x-mixed-replace my (%features) = ( 'MULTIPART-X-MIXED-REPLACE' => ["Mozilla", "!MSIE"], 'FRAMES' => ["Mozilla/[23456789].*"], "MSIE" ); if (!defined ($features{$feature})) { # Er, ah, which feature was that you wanted?? return 2; } # Here if we know about the feature being queried my ($regexp); my ($avail) = 0; foreach $regexp (@{$features{$feature}}) { if ($regexp =~ m/^\!/) { $regexp = substr ($regexp, 1); if (eval ("\$browser =~ m|$regexp|i;")) { return 0; } } else { if (eval ("\$browser =~ m|$regexp|i;")) { $avail = 1; } } } return $avail; } 1; #return true __END__ =head1 NAME GBasic.pl - Simplified CGI interface routines =head1 SYNOPSIS # Access to modules (see the NOTES section for setup) BEGIN { ... push (@INC, ...location of your library directory...); } require 'GBasic.pl'; # Read any data from the requesting form and then # pick up the parameters for this script (from form # data or specified on the URL). my (%in) = &GBasic::ReadParse; # Fetch the CGI parameter "FIELD". my ($fieldValue) = $in{"FIELD"}; =head1 DESCRIPTION This Perl5 library implements a perl interface to the HTTP Common Gateway Interface (CGI) protocol. It is similar to the popular cgi-lib.pl, but with some simplifications: - The rarely used and cantankerous Mime/Multipart protocol is not supported. =head2 Functions =over 4 =item %in = ReadParse () Reads in GET or POST data, converts it to text (removing HTTP %xx escape sequences), and puts one key=value in each member of the %in hash. Duplicate GET or POST parameters (typically generated from lists which allow multiple selections) have a single entry in the %in hash with the individual values separated by '\0'. =item XCoordinate () =item YCoordinate () Returns the X and Y coordinates for a hit on a clickable image. =item MethGet () Return true if this cgi call was using the GET request, false otherwise. =item MethPost () Return true if this cgi call was using the POST request, false otherwise. =item MyURL () Returns a URL which invoked the CGI script. =item CgiError (@msg) Prints out an error message which which contains appropriate headers, HTML markup, etcetera. If no parameters are supplied, CgiError displays a generic error message. Otherwise, the first parameter will be the title and the rest will be displayed as different paragraphs of the body of the generated HTML page. =item dieCgi (@msg) Identical to CgiError(), but also issues a perl die() with the supplied error message. =item browserFeatureAvailable ($browser, $feature) Given a browser string as per the environment variable HTTP_USER_AGENT and a feature: return 0 for not available return 1 for available return 2 for don't recognize feature string Current supported features are: 'MULTIPART-X-MIXED-REPLACE' 'FRAMES' =back =head1 WARNING None =head1 SEE ALSO G(3) =head1 NOTES This module has not yet been set up for "installation" in your local Perl. =head1 AUTHOR Clint Goss