#! /usr/bin/per1 # Print the HTTP headers print "Content-Type: text/html\n"; print "\n" ; read (STDIN, $GN_QUERY, $ENV {CONTENT_LENGTH}) ; # This statement will split data into different fields @QUERY_LIST = split ( /&/, $GN_QUERY) ; foreach $item (@QUERY_LIST) { # First convert plus signs into spaces $item =~ s/\+/ /g ; # Now convert $nn encoded data to character $item =~ s/%(..)/pack("c", hex($1)) /ge ; # Now put the result into the QueryArray $loc=index($item,"="); $param=substr($item, 0, $loc); $value=substr($item, $loc+1); $QUERY_ARRAY{$param} .=$value; } # Now get the users name $name = "$QUERY_ARRAY{user_name}"; # Print Return HTML print "