rev 1294 - trunk/siesta/bin

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

Author: simon
Date: 2003-08-08 11:25:36 +0100 (Fri, 08 Aug 2003)
New Revision: 1294

Modified:
   trunk/siesta/bin/bandito
Log:
Add in option to specify an alternative archive


Modified: trunk/siesta/bin/bandito
===================================================================
--- trunk/siesta/bin/bandito	2003-08-08 10:23:07 UTC (rev 1293)
+++ trunk/siesta/bin/bandito	2003-08-08 10:25:36 UTC (rev 1294)
@@ -10,10 +10,21 @@
 use Email::LocalDelivery;
 use POSIX qw/strftime/;
 
+my $old_archive_dir;
+
 BEGIN {
-    if (@ARGV && $ARGV[0] eq '-f') {
-        shift;
-        $Siesta::Config::CONFIG_FILE = shift;
+     while (@ARGV) {
+        
+        if (@ARGV && $ARGV[0] eq '-a') {
+            shift;
+            $old_archive_dir = shift;
+        }
+        
+        if (@ARGV && $ARGV[0] eq '-f') {
+            shift;
+            $Siesta::Config::CONFIG_FILE = shift;
+        }
+
     }
 }
 use Siesta::Config;
@@ -42,7 +53,16 @@
 an alternative can be used instead.
 
 
+=head1 ALTERNATIVE ARCHIVE IMPORT
 
+If you're migrating from a none standard Mailman config and 
+the old archive is not in the location that the config thinks it is
+then you can do this :
+
+    % bandito -a <full path to old archive> <path to a mailman list config db>
+
+to specify an alternative archive.
+
 =head1 DESCRIPTION
 
 Bandito is a tool for stealing configurations from mailing list managers and 
@@ -201,7 +221,7 @@
 # now copy across the archives
 
 # where are we going to get the mails from
-my $in     = $data->{'public_archive_file_dir'};
+my $in     = $old_archive_dir || $data->{'public_archive_file_dir'};
 my $folder = Email::Folder->new($in);
 
 unless($folder) {

• rev 1294 - trunk/siesta/bin simon 11:25 on 08 Aug 2003

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