Blob Blame Raw
#!/usr/bin/perl
    eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
        if $running_under_some_shell;
#
# Usage:	bsd2cyrus inputfile
#
# Purpose:	Maps a user's Berkeley-format mail folder names into the
#		Cyrus namespace
#
# Input:	List of usernames, one per line
#
# Output:	Lines of the format
#		username:Cyrus-mailbox-name:BSD-mailbox-name
#
#$Id: bsd2cyrus,v 1.1 2004/02/04 12:59:42 karsten Exp $

require "find.pl";

# User's subdirectory where personal mail folders are stored 
# (typically $HOME/mail)
$maildir = "mail";

$inputfile  = "$ARGV[0]";
if (! $inputfile) { die "Usage: $0 inputfile\n"; }

open (DATA, $inputfile) || die "can't open $inputfile";
while (<DATA>) {
    chop;
    ($user,$pw,$uid,$gid,$quota,$cmnt,$gcos,$home) = getpwnam $_;
    next if $home eq "";
    &find("$home/$maildir");
}
close DATA;

foreach (@folders) {

    ($user,$folder) = split(/:/,$_,2);
    if (! rfc822($folder) ) { next; }
    @tokens = split(/\//, $folder);
    $mailbox = $tokens[$#tokens]; 

    # Sanity checks - earlier tests should have caught these.

    next if ($mailbox =~ /\.gz$/);      # Skip gzipped files
    next if ($mailbox =~ /\.Z$/);       # Skip compressed files
    next if ($mailbox =~ /^\./);        # Skip hidden files

    # Replace "bad" characters with an underscore followed by 
    # the ASCII representation of the "bad" character.

    $mailbox = rm_badchars($mailbox);
    print "$user:user.$user.$mailbox:$folder\n";
}

sub wanted {
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _;
    if ($_ ne '.') { push @folders, "$user:$dir/$_"; }
}

sub rfc822 {

    my ($file) = @_;
    my ($rc) = 1;
    if (-d $file || -z $file || -B $file || -x $file) {
        $rc = 0;
    }
    return $rc;
}

sub rm_badchars {

    my ($mailbox) = @_;
    $mailbox =~ s/ /_040/g;
    $mailbox =~ s/\!/_041/g;
    $mailbox =~ s/\"/_042/g;
    $mailbox =~ s/\#/_043/g;

    return $mailbox;
}