Code: Select all
#!/bin/sh
#
echo "Mailcopy - Mbox2Cyrus"
echo "processing... ($# files)"
while [ $# -gt 0 ]
do
echo "conv $1"
/root/scripts/mbox2cyrus -m /var/spool/mail/$1 -p /var/spool/imap/user/$1
shift
done
echo "...ready";
echo "su cyrus -m"
echo "/usr/lib/cyrus/bin/reconstruct"Code: Select all
#!/usr/bin/perl -w
#
# mbox2cyrus - convert mbox Mailbox Format to Cyrus Format
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version
# 2 of the License, or (at your option) any later version.
#
# Copyright (C) 2000, 2001 SuSE GmbH
# Copyright (C) 2002 SuSE Linux AG
#
# Author: David Strbac <strbac@suse.de>
#
use strict;
use Getopt::Long;
my $mbox = "";
my $path = "";
my $countstart = 0;
my $i = 0;
sub usage
{
print <<EOF;
Usage: mbox2cyrus [OPTION] ...
convert mbox Mailbox Format to Cyrus Format
-m, --mbox=<mbox file>
-p, --path=<path> output directory
-c, --countstart=<start>
-u, --usage
EOF
exit(1);
}
GetOptions('mbox=s' => $mbox,
'path=s' => $path,
'countstart=i' => $countstart,
'usage' => sub {usage});
if ($mbox eq "") {usage}
$i = $countstart;
open(MBOX, $mbox) || die "can't open $mbox :(n";
unless ($path eq "") { chdir($path) || die "bla" ; }
while (<MBOX>)
{
chomp;
if (/^From /)
{
unless ($i == $countstart) {close(CYRUS) || die "can't close $i. :(n";}
$i++;
while (-e "$i.") {$i++;}
open(CYRUS, ">$i.") || die "can't open $i. :(n";
}
print CYRUS $_ . "x0Dx0A";
}
close(MBOX) || die "can't open $mbox :(n";
close(CYRUS) || die "can't close $i. :(n";
exit(0);