[prev] [thread] [next] [lurker] [Date index for 2003/08/21]
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