Name:
	MetaVariable
FullName:
	Meta variables
URI:
	IW:SuikaWiki:CGI

{
Name:
	wikiform_input/cgi-meta-variable
FullName:
	Returns the value of the CGI meta-variable (See CGI/1.1 draft)
Format:
	$p->{category} = uc $p->{category};
	$p->{name} = uc $p->{name}; $p->{name} =~ tr/-/_/;
	if ($p->{category} eq 'HTTP' || $p->{category} eq 'X') {
	  $r = $o->escape ($main::ENV{$p->{category} . '_' . $p->{name}});
	} else {
	  $r = $o->escape ($main::ENV{$p->{category} . '_' . $p->{name}})
	    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}});
	}
	$r =~ s/([^\x09\x20-\x7E])/sprintf '%%%02X', ord $1/ge;
}

POD:LICENSE:
	Copyright 2003 Wakaba <w@suika.fam.cx>
	
	%%GNUGPL2%%