distrib/lib/CGI.pm

19 #   http://stein.cshl.org/WWW/software/CGI/
30 #                           'http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd'];
33                            'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'];
55 		     'http://www.w3.org/TR/html4/loose.dtd' ] ;
246 			 virtual_host remote_ident auth_type http append
571       # http://www.w3.org/TR/2006/REC-xforms-20060314/slice11.html#submit-options
1517     push(@header,"Expires: " . expires($expires,'http'))
1519     push(@header,"Date: " . expires(0,'http')) if $expires || $cookie || $nph;
1647     my $meta_bits = qq(<meta http-equiv="Content-Type" content="text/html; charset=$encoding" />)
1650     push(@result,$XHTML ? qq(<html xmlns="http://www.w3.org/1999/xhtml"$lang_bits>\n<head>\n<title>$title</title>)
2194 	     # <http://validator.w3.org/docs/errors.html#bad-entity> /
2195 	     # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
2712 	my $vh = http('x_forwarded_host') || http('host') || '';
2721 	  unless (lc($protocol) eq 'http'  && $port == 80)
2942     my(@accept) = split(',',$self->http('accept'));
2981     return $self->http('user_agent') unless $match;
2982     return $self->http('user_agent') =~ /$match/i;
3009     return $self->http('cookie') || $ENV{'COOKIE'} || '';
3019     my $vh = http('x_forwarded_host') || http('host') || server_name();
3076     return $self->http('referer');
3105     my $vh = $self->http('x_forwarded_host') || $self->http('host');
3133 #### Method: http
3137 'http' => <<'END_OF_FUNC',
3138 sub http {
3171 # Return the protocol (http or https currently)
3224     return $self->http('from') || $ENV{'REMOTE_IDENT'} || $ENV{'REMOTE_USER'};
4139   http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
4587   http://stein.cshl.org/boulder/
4819 (http://www.w3.org/TR/xhtml1/).  The -no_xhtml pragma disables this
5077    print redirect('http://somewhere.else/in/movie/land');
5087 You should always use full URLs (including the http: or ftp: part) in
5092     print redirect(-uri=>'http://somewhere.else/in/movie/land',
5140     -xbase=>"http://home.mcom.com/"
5193 		                  -href=>'http://www.capricorn.com/s2.html'}));
5200 				   -href=>'http://www.capricorn.com/s2.html'}),
5202 				   -href=>'http://www.capricorn.com/s1.html'})
5368     http://your.host.com/path/to/script.cgi
5406 Generate just the protocol and net location, as in http://www.foo.com:8000
5452 		     $q->a({href=>"http://crete.org/"},"Crete"),
5463    <a href="http://crete.org/">Crete</a> there lived
5475       a({href=>"http://crete.org/"},"Crete"),
6238 (http://www.w3.org/TR/REC-html40/interact/forms.html#edef-OPTGROUP)
6918   http://wp.netscape.com/assist/net_sites/frames.html
7136 http://www.w3.org/pub/WWW/TR/Wd-css-1.html for more information.
7157 		      -style=>{-src=>'http://www.capricorn.com/style/st1.css',
7414 =item B<http()>
7425    $requested_language = http('Accept-language');
7426    $requested_language = http('Accept_language');
7427    $requested_language = http('HTTP_ACCEPT_LANGUAGE');
7431 The same as I<http()>, but operates on the HTTPS environment variables
7465 http://support.microsoft.com/support/kb/articles/Q280/3/41.ASP: