#!/usr/bin/perl # Tämä tekee dynaamisesti index-sivun querystirngin perusteella &readparam; print "Content-type: text/html\n\n"; print < Paimion Rasti Sivut toimivat myös PDA-laitteilla ja vanhemmilla selaimilla. Ongelmatapauksissa poista javascript käytöstä. <a href="etusivu/etusivu_uusi.shtml">Siirry etusivulle</a>. ENDOFHTML # read parameters # name/value pairs are in %cgiVals (global) hash sub readparam { if ( ($ENV{'REQUEST_METHOD'} eq 'POST') || ($ENV{'REQUEST_METHOD'} eq 'post') ) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); #read for POST method to $buffer @cgiPairs = split(/\&/,$buffer); } else { #get the pairs of parameters passed to the script for GET method @cgiPairs = split(/\&/,$ENV{'QUERY_STRING'}); } #split the pairs into a %cgiVals hash foreach $pair ( @cgiPairs ) { ($var,$val,$val1) = split("=",$pair); $val =~ s/\+/ /g; $val =~ s/%(..)/pack("c",hex($1))/ge; $val1 =~ s/\+/ /g; $val1 =~ s/%(..)/pack("c",hex($1))/ge; $cgiVals{"$var"} = "$val"; if ($val1 ne "") {$cgiVals{"$var"} = $cgiVals{"$var"} . "=$val1";} } }