#Ok lets take the query

print "Content-type: text/html\n\n";
print "$ENV{'REQUEST_METHOD'}\n";
print "$ENV{'CONTENT_LENGTH'}\n";
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $request,$ENV{'CONTENT_LENGTH'}) 
		|| print "Could not get query\n";
} 


print <<EOB;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="en">
<head>
<title>OMA Product Listing</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-859-1">
<meta name="keywords" content="OMA, Open Mobile Alliance, mobile industry, mobile service standardization, standards, standards forum">
<meta name="description" content="OMA web site - About OMA">
<link rel="stylesheet" href="oma.css" type="text/css">
<link rel="stylesheet" href="../oma.css" type="text/css">
</head>

<body bgcolor="#FFFFFF">
EOB
print "Thank you for Listing your product";
#@theargs = split /HiddenInput\=\&/, $request;
#foreach $lineinput (@theargs) {#
#	print "$lineinput<br>\n";
#	#each line has the text field but not neccessarily the checkboxes.
#	$checkforlisting = split /ListThis/,$lineinput;
#	if ($checkforlisting ne "") {
#		# This User really want to list something!
#}
#print "$request\n";
print "</body>";
print "</html>";
