From 3793840cd03da4b9bf470ec36bcf1acacb536a49 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 9 Aug 2009 21:18:25 +0100 Subject: [PATCH] Use the directory name "web" rather than "mason" for better completion; include pirate-island script --- yarrg/{mason => web}/.perl-lib | 0 yarrg/{mason => web}/check | 0 yarrg/web/pirate-island | 33 +++++++++++++++++++++++++++++++++ yarrg/{mason => web}/pirates | 0 4 files changed, 33 insertions(+) rename yarrg/{mason => web}/.perl-lib (100%) rename yarrg/{mason => web}/check (100%) create mode 100644 yarrg/web/pirate-island rename yarrg/{mason => web}/pirates (100%) diff --git a/yarrg/mason/.perl-lib b/yarrg/web/.perl-lib similarity index 100% rename from yarrg/mason/.perl-lib rename to yarrg/web/.perl-lib diff --git a/yarrg/mason/check b/yarrg/web/check similarity index 100% rename from yarrg/mason/check rename to yarrg/web/check 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; + + diff --git a/yarrg/mason/pirates b/yarrg/web/pirates similarity index 100% rename from yarrg/mason/pirates rename to yarrg/web/pirates -- 2.30.2