From: Ian Jackson Date: Sun, 9 Aug 2009 20:15:11 +0000 (+0100) Subject: Move nascent website here X-Git-Tag: 3.4~236 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=df69db0e99cf082732c5d1ded74de9ad528cc8dc;hp=5933e39a714521fd5144b6fb8d033065bfbda1be Move nascent website here --- diff --git a/yarrg/mason/.perl-lib b/yarrg/mason/.perl-lib new file mode 120000 index 0000000..a96aa0e --- /dev/null +++ b/yarrg/mason/.perl-lib @@ -0,0 +1 @@ +.. \ No newline at end of file diff --git a/yarrg/mason/check b/yarrg/mason/check new file mode 100644 index 0000000..56a1be1 --- /dev/null +++ b/yarrg/mason/check @@ -0,0 +1,7 @@ +Stuff +
+@INC = <% join ':', @INC |h %>
+% foreach my $e (sort keys %ENV) {
+<% $e |h%>=<% $ENV{$e} |h%>
+% }
+
diff --git a/yarrg/mason/pirates b/yarrg/mason/pirates
new file mode 100644
index 0000000..5378cf4
--- /dev/null
+++ b/yarrg/mason/pirates
@@ -0,0 +1,66 @@
+
+
+test pirate page
+
+
+
+Select island
+

+
+

+
+
+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();
+
+
+
+% my @row;
+% while (@row=$sth->fetchrow_array) {
+
+% foreach my $cell (@row) {
+
+% }
+
+% }
+

+<% $cell %>
+

+
+
+