From e4d5c2aa7fa9dc49cbdece5472dcb155d5833ea9 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 30 Aug 2012 00:18:35 +0100 Subject: [PATCH] wip --- AwayMsg.pm | 12 +++++++++--- mason/.perl-lib | 1 + mason/check | 7 +++++++ mason/main | 3 +-- 4 files changed, 18 insertions(+), 5 deletions(-) create mode 120000 mason/.perl-lib create mode 100755 mason/check diff --git a/AwayMsg.pm b/AwayMsg.pm index 468e9f0..9fdf742 100644 --- a/AwayMsg.pm +++ b/AwayMsg.pm @@ -1,25 +1,29 @@ -module AwayMsg; package AwayMsg; + use strict; use warnings; +use DBI; + BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); $VERSION = 1.00; @ISA = qw(Exporter); - @EXPORT = qw(&db_connect $dhb); + @EXPORT = qw(&db_connect $dbh); %EXPORT_TAGS = ( ); @EXPORT_OK = qw(); } +our ($dbh); + sub db_connect () { my $h = DBI->connect("dbi:SQLite:away.db", { AutoCommit=>0, RaiseError=>1, ShowErrorStatement=>1 }) - or die "$DBI:errstr ?"; + or die "$DBI::errstr ?"; $dbh->do("BEGIN"); @@ -46,3 +50,5 @@ sub db_connect () { return $h; } + +1; diff --git a/mason/.perl-lib b/mason/.perl-lib new file mode 120000 index 0000000..a96aa0e --- /dev/null +++ b/mason/.perl-lib @@ -0,0 +1 @@ +.. \ No newline at end of file diff --git a/mason/check b/mason/check new file mode 100755 index 0000000..56a1be1 --- /dev/null +++ b/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/mason/main b/mason/main
index de9a0a3..8a2533f 100755
--- a/mason/main
+++ b/mason/main
@@ -1,7 +1,6 @@
-<%doc>
-<%/doc>
 <%init>
 use AwayMsg;
+
 
 Email "out of office" setup
 
-- 
2.30.2