#!/usr/local/bin/perl
#Print the query string sent to the script
#noexec
#file: print_query.pl

require '/home/bear-008/users/downeyt/scripts/parse-lib.pl';

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

%query = get_query();

if (%query) {
    print "These are the elements in the query string\n";
    foreach $name (keys %query) {
	if ($query{$name}) {
	    @values = split ($;,$query{$name});
	    foreach $value (@values)
	    {
		print "$name => $value\n";
	    }
	} else {
	    print "$name =>\n";
	}
    }
} else {
    print "The query string was empty";
}