[siesta-commit] siesta/bin create_db.sql,1.10,1.11 list_example,1.2,1.3 tequila,1.13,1.14

[prev] [thread] [next] [lurker] [Date index for 2002/09/01]

Update of /cvsroot/siesta/siesta/bin
In directory usw-pr-cvs1:/tmp/cvs-serv27086/bin

Modified Files:
	create_db.sql list_example tequila 
Log Message:
Hacking around on a config API.


Index: create_db.sql
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/create_db.sql,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- create_db.sql	23 Aug 2002 09:22:06 -0000	1.10
+++ create_db.sql	1 Sep 2002 12:09:15 -0000	1.11
@@ -24,3 +24,22 @@
 	plugin_id	VARCHAR(20),
 	list_id		VARCHAR(20)
 );
+create TABLE list_config (
+	id              VARCHAR(20),
+	namespace	VARCHAR(255),
+	key             VARCHAR(255),
+	value           VARCHAR(255)
+);
+create TABLE user_config (
+	id              VARCHAR(20),
+	namespace	VARCHAR(255),
+	key             VARCHAR(255),
+	value           VARCHAR(255)
+);
+create TABLE listuser_config (
+	id              VARCHAR(20),
+	namespace	VARCHAR(255),
+	key             VARCHAR(255),
+	value           VARCHAR(255)
+);
+

Index: list_example
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/list_example,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- list_example	21 Aug 2002 09:39:04 -0000	1.2
+++ list_example	1 Sep 2002 12:09:15 -0000	1.3
@@ -11,12 +11,12 @@
   print $_->forename(),"\n";
 }
 
-print "Checking if 'greg@xxxxxxxxx.xxxxx.xx.xx' is a member : ";
+print "Checking if 'greg\@mccarroll.demon.co.uk' is a member : ";
 $list->is_member('greg@xxxxxxxxx.xxxxx.xx.xx') ? print "True\n" : print "False\n";
 
 
 # You know what? There is no Easter Bunny! Over there that's just a man in a suit.
-print "Checking if 'easter_bunny@foo' is a member : ";
+print "Checking if 'easter_bunny\@foo' is a member : ";
 $list->is_member('easter_bunny@foo') ? print "True\n" : print "False\n";
 
 

Index: tequila
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/tequila,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- tequila	28 Aug 2002 10:05:38 -0000	1.13
+++ tequila	1 Sep 2002 12:09:15 -0000	1.14
@@ -2,13 +2,16 @@
 use strict;
 use lib '/home/richardc/lab/siesta/lib';
 use constant debug => 1;
+use Siesta::Config;
 #use diagnostics;
 #$SIG{__WARN__} = sub { die @_ };
 
 use Siesta;
 
+my $DBI = "dbi:SQLite:".$Siesta::Config::DBFILE;
+
 eval {
-    Siesta->connect( DBI => qw( dbi:SQLite:/home/richardc/lab/siesta/bin/siesta.db ) );
+    Siesta->connect( DBI => qw( $DBI ) );
     Siesta->process( list => $ARGV[0], action => $ARGV[1], mail => \*STDIN );
 };
 if ($@) {

• [siesta-commit] siesta/bin create_db.sql,1.10,1.11 list_example,1.2,1.3 tequila,1.13,1.14 muttley 13:09 on 01 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52