summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CGI.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CGI.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CGI.pm63
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