X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fpirate-island;h=7f5b24e66e893acd7f9f1a122c526bdb88ba5cae;hp=a41410ee4c208253bc84f9ea43573dbfd7e642d7;hb=f276a86ab559f7800713f94bcda826d6783f46ab;hpb=3793840cd03da4b9bf470ec36bcf1acacb536a49

diff --git a/yarrg/web/pirate-island b/yarrg/web/pirate-island
old mode 100644
new mode 100755
index a41410e..7f5b24e
--- a/yarrg/web/pirate-island
+++ b/yarrg/web/pirate-island
@@ -16,18 +16,7 @@ $sth->execute();
 </form>
 
 <%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;
-
+use CommodsWeb;
+db_setocean('Cerulean');
+db_connect();
 </%init>