rev 1361 - in trunk/siesta: . bin

[prev] [thread] [next] [lurker] [Date index for 2003/08/21]

From: simon
Subject: rev 1361 - in trunk/siesta: . bin
Date: 16:33 on 21 Aug 2003
Author: simon
Date: 2003-08-21 16:33:51 +0100 (Thu, 21 Aug 2003)
New Revision: 1361

Modified:
   trunk/siesta/Build.PL
   trunk/siesta/Config.pm.in
   trunk/siesta/INSTALL
   trunk/siesta/bin/bandito
Log:
Lessons learnt trying to upgrade


Modified: trunk/siesta/Build.PL
===================================================================
--- trunk/siesta/Build.PL	2003-08-20 11:22:35 UTC (rev 1360)
+++ trunk/siesta/Build.PL	2003-08-21 15:33:51 UTC (rev 1361)
@@ -5,7 +5,7 @@
 my $build = Siesta::Build
   ->new( module_name => "Siesta",
          license     => 'perl',
-         scripts     => [ 'bin/tequila', 'bin/nacho' ],
+         scripts     => [ 'bin/tequila', 'bin/nacho', 'bin/bandito' ],
          requires    => { 'Test::More' => 0,
                           'Apache::Session::SharedMem' => 0,
                           'Class::Accessor::Fast' => 0,

Modified: trunk/siesta/Config.pm.in
===================================================================
--- trunk/siesta/Config.pm.in	2003-08-20 11:22:35 UTC (rev 1360)
+++ trunk/siesta/Config.pm.in	2003-08-21 15:33:51 UTC (rev 1361)
@@ -65,7 +65,7 @@
 
 The DSN for our local DB
 
-By default - dbi:SQLite:@@ROOT@@/database/
+By default - dbi:SQLite:@@ROOT@@/database/siesta.db
 
 =item storage_user
 
@@ -133,7 +133,7 @@
             DEFAULT => 3,
         },
         storage_dsn => {
-            DEFAULT => 'dbi:SQLite:@@ROOT@@/database',
+            DEFAULT => 'dbi:SQLite:@@ROOT@@/database/siesta.db',
         },
         storage_user => {
             DEFAULT => 'root',

Modified: trunk/siesta/INSTALL
===================================================================
--- trunk/siesta/INSTALL	2003-08-20 11:22:35 UTC (rev 1360)
+++ trunk/siesta/INSTALL	2003-08-21 15:33:51 UTC (rev 1361)
@@ -6,6 +6,11 @@
   been warned. So watch it.
 -------------------------------------
 
+
+-------------------------------------
+ * Installing the modules
+-------------------------------------
+
 Currently just install like any other Perl module :
 
 % perl Build.PL
@@ -15,10 +20,20 @@
 
 
 During the install process you will be asked to provide a directory to
-install the database in. /usr/local/siesta/ will probably be ok. The 
+install the database in. '/usr/local/siesta/' will probably be ok. The 
 installation process doens't create directory for you so you may need to 
 do that.
 
+From now on we'll assume that you've chosen '/usr/local/siesta' however
+you should subsitute whatever you actually chose wherever this document 
+mentions it.
+
+
+
+-------------------------------------
+ * Setting up the database
+-------------------------------------
+
 The first thing you'll need to do is create the database. 
 
 Because of the way it will be run the user that runs the mail process 
@@ -40,13 +55,44 @@
 your mail user and, optionally, the web server user and anybody else you 
 want to have configuration rights for Siesta.
 
-Then read the MANUAL file in the docs directory for how to create new 
-lists and users, add users to lists, configure plugins and generally 
-administer the system.
+Then read the B<Siesta::UserGuide> file using 
 
+  % perldoc Siesta::UserGuide
+
+for how to create new lists and members, add members to lists, configure 
+plugins and generally administer the system.
+
 Then you'll need to create a list
  
-  % nacho add-list newlist
+  % nacho create-list <newlist>
 
 When Siesta isn't alpha software this installation process will be a lot 
 easier, we promise.
+
+
+
+-------------------------------------
+ * Installing the web frontend
+-------------------------------------
+
+You need to add a line like this to your Apache config in one of the 
+virtual server sections
+
+  ScriptAliasMatch /siesta/.*\.tt2 /usr/local/siesta/web-frontend/tt2.cgi
+
+Then you need to copy the directory 
+
+    /usr/local/siesta/web-frontend/siesta 
+
+to the document root of the virtual server you've set the ScriptAlias for and 
+away you go.
+
+It should be noted that the web frontend currently looks like ass. Most of the 
+functionality is there but work needs to be done on making it not completely 
+braindead usability wise.
+
+
+
+
+
+ 

Modified: trunk/siesta/bin/bandito
===================================================================
--- trunk/siesta/bin/bandito	2003-08-20 11:22:35 UTC (rev 1360)
+++ trunk/siesta/bin/bandito	2003-08-21 15:33:51 UTC (rev 1361)
@@ -18,11 +18,11 @@
         if (@ARGV && $ARGV[0] eq '-a') {
             shift;
             $old_archive_dir = shift;
-        }
-        
-        if (@ARGV && $ARGV[0] eq '-f') {
+        } elsif (@ARGV && $ARGV[0] eq '-f') {
             shift;
             $Siesta::Config::CONFIG_FILE = shift;
+        } else {
+            last;
         }
 
     }
@@ -222,9 +222,16 @@
 
 # where are we going to get the mails from
 my $in     = $old_archive_dir || $data->{'public_archive_file_dir'};
-my $folder = Email::Folder->new($in);
 
-unless($folder) {
+
+unless (-e $in) {   
+    warn "No such file or dir '$in'\n";
+    goto FAIL;
+}
+
+my $folder;
+
+unless($folder = Email::Folder->new($in)) {
     warn "Couldn't open '$in' to read archives from\n";
     goto FAIL;
 }
@@ -233,6 +240,12 @@
 my $name = $list->name;
 my $path = "$Siesta::Config::ARCHIVE/$name/";
 
+unless (-e $path) {
+    warn "No such file or dir '$in'\n";
+    goto FAIL;
+}
+
+
 # and then deliver each one
 foreach my $mail ($folder->messages()) {
     unless (Email::LocalDelivery->deliver( $mail->as_string, $path )) {

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