#!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use DBI; use strict; print header; print start_html("Kite Catalog"); my $dbh = DBI->connect( "dbi:mysql:products", "webserver", "", { RaiseError => 1, AutoCommit => 1 }) or &dienice("Can't connect to database: $DBI::errstr"); print h2("Kite Catalog"); my $sth = $dbh->prepare(qq(select stocknum,name,price from items where status != "OUT" order by stocknum)) or &dienice("Can't select from table: ",$dbh->errmsg); $sth->execute; while (my($stocknum,$name,$price) = $sth->fetchrow_array) { print qq(<b>$name</b> - \$$price<br>\n); print qq(<a href="addcart.cgi?$stocknum">Add to Cart</a><br><br>\n); } print end_html; sub dienice { my($msg) = @_; print "<h2>Error</h2>\n"; print $msg; exit; }