--- /dev/null
+<HTML>
+<HEAD>
+<TITLE>test pirate page</TITLE>
+</HEAD>
+<BODY>
+
+<html><head><title>Select island</title></head><body>
+<form action="/ucgi/~clareb/mason/something" method="get">
+<select name="islandid">
+<%perl>
+my $sth=$dbh->prepare("SELECT islandid,archipelago,islandname
+ FROM islands
+ ORDER BY archipelago,islandname;");
+$sth->execute();
+</%perl>
+% my $row;
+% while ($row=$sth->fetchrow_hashref) {
+<option value="<% $row->{'islandid'} |h %>"><% $row->{'archipelago'} |h %> -
+<% $row->{'islandname'} |h %>
+% }
+<input type=submit name=submit value="Go">
+</form>
+
+
+use DBI;
+
+our $dbh;
+our $dbfn;
+$dbfn= "/home/ijackson/things/ypp-sc-tools.pctb-dict-test/yarrg/OCEAN-Midnight.db";
+ $dbh=DBI->connect("dbi:SQLite:$dbfn",'','',
+ { AutoCommit=>0,
+ RaiseError=>1, ShowErrorStatement=>1,
+ unicode=>1 })
+ or die "$dbfn $DBI::errstr ?";
+ # default timeout is 30s which is plenty
+
+my $sth=$dbh->prepare(
+ "SELECT a.commodname,b.price,c.price,d.stallname,e.islandname
+ FROM commods as a
+ JOIN buy as b on a.commodid=b.commodid
+ JOIN buy as c on a.commodid=c.commodid
+ JOIN stalls as d on d.stallid=b.stallid
+ JOIN islands as e on e.islandid=d.islandid
+ WHERE a.commodname like 'Wood'
+ ");
+
+$sth->execute();
+</%perl>
+<table frame=box rules=all>
+<!--
+<tr><td>Island</td><td>Arch</td><td>Stall</td><td>buy price</td><td>sell price</td></tr>
+-->
+% my @row;
+% while (@row=$sth->fetchrow_array) {
+<tr>
+% foreach my $cell (@row) {
+<td>
+<% $cell %>
+</td>
+% }
+</tr>
+% }
+</table>
+
+</BODY>
+</HTML>
~yarrgweb / ypp-sc-tools.db-test.git / commitdiff