diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CGI.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CGI.pm | 63 |
1 files changed, 31 insertions, 32 deletions
diff --git a/Master/tlpkg/tlperl/lib/CGI.pm b/Master/tlpkg/tlperl/lib/CGI.pm index df63490129c..bcee2b1134d 100644 --- a/Master/tlpkg/tlperl/lib/CGI.pm +++ b/Master/tlpkg/tlperl/lib/CGI.pm @@ -1,5 +1,6 @@ package CGI; require 5.008001; +use if $] >= 5.019, 'deprecate'; use Carp 'croak'; # See the bottom of this file for the POD documentation. Search for the @@ -18,9 +19,9 @@ use Carp 'croak'; # The most recent version and complete docs are available at: # http://search.cpan.org/dist/CGI.pm -# The revision is no longer being updated since moving to git. +# The revision is no longer being updated since moving to git. $CGI::revision = '$Id: CGI.pm,v 1.266 2009/07/30 16:32:34 lstein Exp $'; -$CGI::VERSION='3.63'; +$CGI::VERSION='3.65'; # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES. # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING. @@ -171,7 +172,7 @@ $DefaultClass = 'CGI' unless defined $CGI::DefaultClass; $AutoloadClass = $DefaultClass unless defined $CGI::AutoloadClass; # The path separator is a slash, backslash or semicolon, depending -# on the paltform. +# on the platform. $SL = { UNIX => '/', OS2 => '\\', EPOC => '/', CYGWIN => '/', NETWARE => '/', WINDOWS => '\\', DOS => '\\', MACINTOSH => ':', VMS => '/' @@ -3131,7 +3132,7 @@ END_OF_FUNC sub user_agent { my($self,$match)=self_or_CGI(@_); my $user_agent = $self->http('user_agent'); - return $user_agent unless $match && $user_agent; + return $user_agent unless defined $match && $match && $user_agent; return $user_agent =~ /$match/i; } END_OF_FUNC @@ -4320,7 +4321,7 @@ submissions, file uploads, reading and writing cookies, query string generation and manipulation, and processing and preparing HTTP headers. Some HTML generation utilities are included as well. -CGI.pm performs very well in in a vanilla CGI.pm environment and also comes +CGI.pm performs very well in a vanilla CGI.pm environment and also comes with built-in support for mod_perl and mod_perl2 as well as FastCGI. It has the benefit of having developed and refined over 10 years with input @@ -5506,9 +5507,9 @@ backwards compatibility. The old-style positional parameters are as follows: -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -5524,13 +5525,12 @@ A 'true' flag if you want to include a <base> tag in the header. This helps resolve relative addresses to absolute ones when the document is moved, but makes the document hierarchy non-portable. Use with care! -=item 4, 5, 6... - -Any other parameters you want to include in the <body> tag. This is a good -place to put HTML extensions, such as colors and wallpaper patterns. - =back +Other parameters you want to include in the <body> tag may be appended +to these. This is a good place to put HTML extensions, such as colors and +wallpaper patterns. + =head2 ENDING THE HTML DOCUMENT: print $q->end_html; @@ -6076,9 +6076,9 @@ supported. textfield() will return a text input field. -=over 4 +B<Parameters> -=item B<Parameters> +=over 4 =item 1. @@ -6159,9 +6159,9 @@ by calling B<start_form()> with an encoding type of B<&CGI::MULTIPART>, or by calling the new method B<start_multipart_form()> instead of vanilla B<start_form()>. -=over 4 +B<Parameters> -=item B<Parameters> +=over 4 =item 1. @@ -6514,9 +6514,9 @@ attribute's value as the value. scrolling_list() creates a scrolling list. -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -6590,9 +6590,9 @@ selected items can be retrieved with: checkbox_group() creates a list of checkboxes that are related by the same name. -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -6617,7 +6617,6 @@ list. Otherwise, they will be strung together on a horizontal line. =back - The optional B<-labels> argument is a pointer to a hash relating the checkbox values to the user-visible labels that will be printed next to them. If not provided, the values will be used as the @@ -6683,9 +6682,9 @@ or in other creative ways: checkbox() is used to create an isolated checkbox that isn't logically related to any others. -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -6740,9 +6739,9 @@ The value of the checkbox can be retrieved using: radio_group() creates a set of logically-related radio buttons (turning one member of the group on turns the others off) -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -6777,7 +6776,6 @@ displayed. =back - All modern browsers can take advantage of the optional parameters B<-rows>, and B<-columns>. These parameters cause radio_group() to return an HTML3 compatible table containing the radio group formatted @@ -6840,9 +6838,9 @@ or in other creative ways: submit() will create the query submission button. Every form should have one of these. -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -6901,9 +6899,9 @@ hidden() produces a text field that can't be seen by the user. It is useful for passing state variable information from one invocation of the script to the next. -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -6944,9 +6942,9 @@ position of the click is returned to your script as "button_name.x" and "button_name.y", where "button_name" is the name you've assigned to it. -=over 4 +B<Parameters:> -=item B<Parameters:> +=over 4 =item 1. @@ -6958,6 +6956,7 @@ field. The second argument (-src) is also required and specifies the URL =item 3. + The third option (-align, optional) is an alignment type, and may be TOP, BOTTOM or MIDDLE |