Stuff

From df69db0e99cf082732c5d1ded74de9ad528cc8dc Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 9 Aug 2009 21:15:11 +0100 Subject: [PATCH] Move nascent website here --- yarrg/mason/.perl-lib | 1 + yarrg/mason/check | 7 +++++ yarrg/mason/pirates | 66 +++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 74 insertions(+) create mode 120000 yarrg/mason/.perl-lib create mode 100644 yarrg/mason/check create mode 100644 yarrg/mason/pirates 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 %>
+
+
+
+
-- 
2.30.2