| 1 |
wakaba |
1.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