| 1 |
Name: |
| 2 |
MetaVariable |
| 3 |
FullName: |
| 4 |
Meta variables |
| 5 |
URI: |
| 6 |
IW:SuikaWiki:CGI |
| 7 |
|
| 8 |
{ |
| 9 |
Name: |
| 10 |
wikiform_input/cgi-meta-variable |
| 11 |
FullName: |
| 12 |
Returns the value of the CGI meta-variable (See CGI/1.1 draft) |
| 13 |
Format: |
| 14 |
$p->{category} = uc $p->{category}; |
| 15 |
$p->{name} = uc $p->{name}; $p->{name} =~ tr/-/_/; |
| 16 |
if ($p->{category} eq 'HTTP' || $p->{category} eq 'X') { |
| 17 |
$r = $o->escape ($main::ENV{$p->{category} . '_' . $p->{name}}); |
| 18 |
} else { |
| 19 |
$r = $o->escape ($main::ENV{$p->{category} . '_' . $p->{name}}) |
| 20 |
if ({qw(AUTH_TYPE 1 CONTENT_LENGTH 1 CONTENT_TYPE 1 GATEWAY_INTERFACE 1 PATH_INFO 1 PATH_TRANSLATED 1 QUERY_STRING 1 REMOTE_ADDR 1 REMOTE_HOST 1 REMOTE_IDENT 1 REMOTE_USER 1 REQUEST_METHOD 1 SCRIPT_NAME 1 SERVER_NAME 1 SERVER_PORT 1 SERVER_PROTOCOL 1 SERVER_SOFTWARE 1)}->{$p->{category} . '_' . $p->{name}}); |
| 21 |
} |
| 22 |
$r =~ s/([^\x09\x20-\x7E])/sprintf '%%%02X', ord $1/ge; |
| 23 |
} |
| 24 |
|
| 25 |
POD:LICENSE: |
| 26 |
Copyright 2003 Wakaba <w@suika.fam.cx> |
| 27 |
|
| 28 |
%%GNUGPL2%% |
Parent Directory
| 
Revision Log