[prev] [thread] [next] [lurker] [Date index for 2002/09/01]
----- Forwarded message from Mail Delivery System <Mailer-Daemon@xxxxxxxx.xx.xx> -----
Date: Sun, 01 Sep 2002 13:09:38 +0100
To: muttley@xxxxx.xxxxxxxxxxx.xxx
From: Mail Delivery System <Mailer-Daemon@xxxxxxxx.xx.xx>
Subject: Mail delivery failed: returning message to sender
This message was created automatically by mail delivery software.
A message that you sent could not be delivered to one or more of its
recipients. The following address(es) failed:
siesta-commit@xxxxxxxxx.xxx:
generated |/home/richardc/lab/siesta/blib/script/tequila siesta-commit:
Child process of address_pipe transport returned 20 from command:
/home/richardc/lab/siesta/blib/script/tequila
The following text was generated during the delivery attempt:
------ |/home/richardc/lab/siesta/blib/script/tequila siesta-commit ------
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.6.1/sparc-linux/DBI.pm line 504, <STDIN> line 85.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.6.1/Ima/DBI.pm line 577, <STDIN> line 85.
Failure while doing '' with '_filter_search in Siesta::Storage::Table::Lists'
Ima::DBI->connect(/home/richardc/lab/siesta/bin/siesta.db) failed: at /home/richardc/lab/siesta/lib/Siesta/Storage/DBI.pm line 37
at /home/richardc/lab/siesta/lib/Siesta/Storage/DBI.pm line 37
couldn't load list 'siesta-commit' at /home/richardc/lab/siesta/lib/Siesta.pm line 30, <STDIN> line 85.
------ This is a copy of the message, including all the headers. ------
Return-path: <muttley@xxxxx.xxxxxxxxxxx.xxx>
Received: from usw-sf-sshgate.sourceforge.net ([216.136.171.253] helo=usw-sf-netmisc.sourceforge.net)
by plough.barnyard.co.uk with esmtp (Exim 3.12 #1)
id 17lTXc-0004Bj-00
for siesta-commit@xxxxxxxxx.xxx; Sun, 01 Sep 2002 13:09:20 +0100
Received: from usw-pr-cvs1-b.sourceforge.net ([10.5.1.7] helo=usw-pr-cvs1.sourceforge.net)
by usw-sf-netmisc.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 17lTXa-00056o-00
for <siesta-commit@xxxxxxxxx.xxx>; Sun, 01 Sep 2002 05:09:18 -0700
Received: from localhost ([127.0.0.1] helo=usw-pr-cvs1.sourceforge.net)
by usw-pr-cvs1.sourceforge.net with esmtp (Exim 3.22 #1 (Debian))
id 17lTXa-000743-00
for <siesta-commit@xxxxxxxxx.xxx>; Sun, 01 Sep 2002 05:09:18 -0700
From: muttley@xxxxx.xxxxxxxxxxx.xxx
To: siesta-commit@xxxxxxxxx.xxx
Subject: siesta/lib/Siesta Config.pm,1.4,1.5
Message-Id: <E17lTXa-000743-00@xxxxxxxxxxx.xxxxxxxxxxx.xxx>
Date: Sun, 01 Sep 2002 05:09:18 -0700
Update of /cvsroot/siesta/siesta/lib/Siesta
In directory usw-pr-cvs1:/tmp/cvs-serv27086/lib/Siesta
Modified Files:
Config.pm
Log Message:
Hacking around on a config API.
Index: Config.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Config.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Config.pm 22 Aug 2002 20:41:16 -0000 1.4
+++ Config.pm 1 Sep 2002 12:09:16 -0000 1.5
@@ -2,8 +2,44 @@
use strict;
use vars qw( $DBFILE $ARCHIVE_PATH );
+require Ima::DBI;
+use base qw(Ima::DBI);
-$DBFILE = '/home/gem/Siesta/siesta.db';
+$DBFILE = '/home/simon/projects/siesta/siesta.db';
$ARCHIVE_PATH = '/home/richardc/lab/siesta/archive';
+
+
+sub new {} # nop
+
+
+# get a value from the the config data base
+sub get
+{
+ my ($self, $id, $namespace, $key) = @_;
+ my $sth = $self->sql_get;
+
+ $sth->execute(qw($id $namespace $key));
+ return $sth->fetch;
+}
+
+
+# set a value in the the config data base
+sub set
+{
+ my ($self, $id, $namespace, $key, $value) = @_;
+
+ # are we inserting or updating?
+ my $sth;
+ unless (defined $self->get($namespace, $key)) {
+ $sth = $self->sql_insert()
+ } else {
+ $sth = $self->sql_update()
+ }
+
+ return undef unless defined $sth;
+ return $sth->execute(qw($id $namespace $key $value));
+
+}
+
1;
----- End forwarded message -----
--
: third time's a charm
Generated at 13:56 on 01 Jul 2004 by mariachi 0.52