X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fpirate-island;fp=yarrg%2Fweb%2Fpirate-island;h=a41410ee4c208253bc84f9ea43573dbfd7e642d7;hb=3793840cd03da4b9bf470ec36bcf1acacb536a49;hp=0000000000000000000000000000000000000000;hpb=df69db0e99cf082732c5d1ded74de9ad528cc8dc;p=ypp-sc-tools.db-test.git
diff --git a/yarrg/web/pirate-island b/yarrg/web/pirate-island
new file mode 100644
index 0000000..a41410e
--- /dev/null
+++ b/yarrg/web/pirate-island
@@ -0,0 +1,33 @@
+Select island
+
+
+<%init>
+
+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 ?"
+ unless $dbh;
+
+