#!/usr/bin/perl -w
#
# simple_jes_mail_backup.pl
# October 10, 2006
# Morgan Jones (morgan@morganjones.org)
#

use strict;

my $imsbackup = "/opt/SUNWmsgsr/sbin/imsbackup";
my $mboxutil = "/opt/SUNWmsgsr/sbin/mboxutil";

my $backup_path = "/var/imsbackup/users";

my $search_out =  `$mboxutil -l`;

if (-d $backup_path) {
    print ("rm -r $backup_path\n");
    system("rm -r $backup_path");
}
print("mkdir $backup_path\n");
system("mkdir $backup_path");

die "$backup_path does not exist, exiting.."
    if (! -d $backup_path);

print "beginning mail backup..";
# for (split /\n\n/, $search_out) {
for (split /\n/, $search_out) {
    chomp;
    next unless (my ($uid) = /user\/([^\/]+)\/INBOX/);

    # print "$imsbackup -f - /primary/users/$uid > ${backup_path}/$uid\n";
    system ("$imsbackup -f - /primary/users/$uid > ${backup_path}/$uid");
    if ($? >> 8 != 0) {
        print "failed to back up $uid: $!\n";;
        next;
    }
}

print "done.\n";