HTML v příkladech - část 8

CGI

#!/usr/local/bin/perl

print "Content-Type: text/plain\n\n";

foreach $key ( sort keys %ENV )
  { print $key, " = ", $ENV{$key}, "\n"; }

if ( $ENV{"REQUEST_METHOD"} =~ m/POST/i )
  { print "\n\nInput:\n";
    read ( STDIN, $data, $ENV{"CONTENT_LENGTH"} );
    print $data;
  }

A jeho výsledek pro formulář z obrázku předchozího dílu:

DOCUMENT_ROOT = /usr/local/etc/httpd/htdocs
GATEWAY_INTERFACE = CGI/1.1
HTTP_ACCEPT = image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
HTTP_CONNECTION = Keep-Alive
HTTP_HOST = www.kin.vslib.cz
HTTP_REFERER = http://www.kin.vslib.cz/~satrapa/clanky/swn/obr7.htm
HTTP_USER_AGENT = Mozilla/3.0Gold (X11; I; IRIX 5.3 IP22)
PATH = /usr/sbin:/sbin:/usr/local/bin:/usr/bin:/bin:/usr/openwin/bin:/usr/X11/bin:.:/home/randus/bin
QUERY_STRING = jmeno=Pavel+Satrapa&pohl=muz&mame=pocitac&mame=jojo
REMOTE_ADDR = 147.230.16.108
REMOTE_HOST = asterix.vslib.cz
REMOTE_PORT = 522
REQUEST_METHOD = GET
SCRIPT_FILENAME = /usr/local/etc/httpd/cgi-bin/cgivars
SCRIPT_NAME = /cgi-bin/cgivars
SERVER_ADMIN = Jiri.Randus@vslib.cz
SERVER_NAME = otus.kin.vslib.cz
SERVER_PORT = 80
SERVER_PROTOCOL = HTTP/1.0
SERVER_SOFTWARE = Apache/1.2b4 PHP/FI-2.0b10