#!/bin/perl
#We're using the GET method
$rawinput = $ENV{'QUERY_STRING'};
print "$rawinput";
#@inps = split(/,/, $rawinput);
#foreach $inp (@inps) {
# ($name, $value) = split(/=/, $inp);
# $value =~ tr/+/ /;
# $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
#
# $FORM{$name} = $value;
#}
#$FORM{'loc'} =~ s/..//; #Does the same as the lines above! heh
#$morestuff = "$basedir"."$FORM{'loc'}";
#ATTEMPTING TO GET A FILE HANDLE
#open(HTMLDOC, $morestuff) || die "Couldn't create file handle to /islam/sq/test.htm for output\n";
#print "Content-type: text/html\n\n";
#print "\n \n Test\n \n";
#print "\n";
#while(){
# chop;
# $work = $_;
# $start = index($work,$FORM{'terms'});
# while($start != -1){
# substr($work,$start,length($FORM{'terms'})) = "$FORM{'terms'}";
# $start = $start+1;
# $start = index($work,$FORM{'terms'},$start);
# }
# print "$work ";
#}
#close(HTMLDOC);
#print "\n \n";