#!/usr/bin/perl -w -T # CGI-kirjaston funktioita joilla pääsee # käsiksi CGI-rajapinnan ympäristömuuttujien arvoihin # Tarkka selitys kustakin funktiosta löytyy CGI-kirjaston # avustuksesta tai osoitteesta: # http://search.cpan.org/src/LDS/CGI.pm-3.17/cgi_docs.html#environment use strict; use CGI; my $q = new CGI; # tulostetaan sivun sisältö ja http-otsikot # Koska tulostettavassa tekstissä on lainausmerkkejä # niin määrätään erikseen lopetusmerkiksi FOO print < CGI-ympäristö

CGI-ympäristö

FOO

print "Accept\t" . $q->Accept() . "\n";
print "auth_type\t" . $q->auth_type() . "\n";
print "raw_cookie\t" . $q->raw_cookie() . "\n";
print "path_info\t" . $q->path_info() . "\n";
print "path_translated\t" . $q->path_translated() . "\n";
print "query_string\t" . $q->query_string() . "\n";
print "referer\t" . $q->referer() . "\n";
print "remote_addr\t" . $q->remote_addr() . "\n";
print "remote_ident\t" . $q->remote_ident() . "\n";
print "remote_host\t" . $q->remote_host() . "\n";
print "remote_user\t" . $q->remote_user() . "\n";
print "request_method\t" . $q->request_method() . "\n";
print "script_name\t" . $q->script_name() . "\n";
print "server_name\t" . $q->server_name() . "\n";
print "server_software\t" . $q->server_software() . "\n";
print "virtual_host\t" . $q->virtual_host() . "\n";
print "server_port\t" . $q->server_port() . "\n";
print "virtual_port\t" . $q->virtual_port() . "\n";
print "user_agent\t" . $q->user_agent() . "\n";
print "user_name\t" . $q->user_name() . "\n";
print "http\t" . $q->http() . "\n";
print "https\t" . $q->https() . "\n";

print "\nHTTP-ympäristömuuttajat arvoineen:\n\n";
foreach my $p ( $q->http() ) {
 print "$p\t" . $q->http($p) . "\n";
}

print "\nHTTPS-ympäristömuuttajat arvoineen:\n\n";
foreach my $p ( $q->https() ) {
 print "$p\t" . $q->https($p) . "\n";
}

print "\nMahdolliset lomakkeelta tulleet kentät arvoineen:\n\n";

foreach my $p ( $q->param() ) {
 print "$p\t" . $q->param($p) . "\n";
}

print "\nMahdolliset evästeet nimineen ja arvoineen:\n\n";

foreach my $p ( $q->cookie() ) {
 print "$p\t" . $q->cookie($p) . "\n";
}



print "