rev 1514 - trunk/siesta/bin

[prev] [thread] [next] [lurker] [Date index for 2004/04/07]

Author: simon
Date: 2004-04-07 17:47:21 +0100 (Wed, 07 Apr 2004)
New Revision: 1514

Modified:
   trunk/siesta/bin/bandito
Log:
add archive copying


Modified: trunk/siesta/bin/bandito
===================================================================
--- trunk/siesta/bin/bandito	2004-04-07 16:17:14 UTC (rev 1513)
+++ trunk/siesta/bin/bandito	2004-04-07 16:47:21 UTC (rev 1514)
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!perl -w
 
 use strict;
 use Siesta::Config;
@@ -240,19 +240,35 @@
 
 $list->{members} = \@members;
 
+
+print STDERR "\n\n";
+
+
+# now copy across the archives
+
+my $name = $list->{name};
+
+# where are we going to get the mails from
+my $from     = $old_archive_dir || $data->{'private_archive_file_dir'}."/$name.mbox";
+
+# work out where to stick them
+my $to   = $config->{archive}."/$name/";
+
+print STDERR "Preparing to move arhives from $from to $to\n";
+
 print Siesta->bake('bandito', 
                    'members' => \@members,
                    'lists'   => [ bless $list, 'Siesta::FakeList' ],
                    'shellq'  => sub { my $val = shift || return; return shell_quote($val) },
+                   'from'    => $from,
+                   'to'      => $to,           
             );
 
 
 
 
-print STDERR "\n\n";
 
 
-
 package Siesta::FakePlugin;
 
 sub member {
@@ -284,8 +300,7 @@
 
         my $fake = bless { list => bless { name => $list_name }, 'Siesta::List'  }, $class;        
 
-        my $options = $fake->options();
-        return $options;
+        return $fake->options();
 }
 
 package Siesta::FakeList;

• rev 1514 - trunk/siesta/bin simon 17:47 on 07 Apr 2004

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