#!/usr/bin/perl
use CGI qw(:standard);
use Pg;
$cgi_object = new CGI;
print $cgi_object->header;
my $cnum = param("custnum");
print start_html("MPS Customer List"), h1("MPS Customer List");
if ($cnum) {
	$conn = Pg::connectdb("host=greenman port=5432 dbname=serviceworks
user=kirkpatrickjt");
	$query="SELECT custnum, custname, ccontact, cpayterms, cmaddr1,
cmaddr2, cmcity, cmstate, cmzip, cvphone1 from cust where
custnum='$cnum';"; # goes with fixed
	$result=$conn->exec("$query"); 
	#$conn = Pg::connectdb("host=greenman port=5432 dbname=test user=kirkpatrickjt");
	#$query="SELECT custnum, custname from customers;";  # goes with greenman
	print "<table border=2 text=+2>";
	print
"<tr><th>custnumber</th><th>custname</th><th>contact</th><th>payterms</th><th>addr1</th><th>addr2</th><th>city</th><th>state</th><th>zip</th><th>phone</th></tr>\n";
	while (@row=$result->fetchrow) {

		print "<TR>\n";
		print "<TD>", $row[0], "</TD>";
		print "<TD>", $row[1], "</TD>";
		print "<TD>", $row[2], "</TD>";
		print "<TD>", $row[3], "</TD>";
		print "<TD>", $row[4], "</TD>";
		print "<TD>", $row[5], "</TD>";
		print "<TD>", $row[6], "</TD>";
		print "<TD>", $row[7], "</TD>";
		print "<TD>", $row[8], "</TD>";
		print "<TD>", $row[9], "</TD>";
		print "</TR>\n";
	}
	print "</table>\n";
} else {
	print hr, start_form;
	print p("What customer number: ", textfield("custnum",""));
	print end_form, hr;
}