#!/usr/bin/perl
#
# mbox2maildir: coverts mbox file to maildir directory - the reverse of
# maildir2mbox from the qmail distribution.
#
# Usage: mbox2maildir uses the same environment variables as maildir2mbox:
# MAILDIR is the name of your maildir directory; MAIL is the name of your
# mbox file; MAILTMP is ignored.  MAIL is deleted after the conversion.
#
# WARNING: there is no locking; don't run more than one of these!  you
# have been warned.
#
# based on convert-and-create by Russell Nelson <nelson@qmail.org>
# kludged into this by Ivan Kohler <ivan@voicenet.com> 97-sep-17
 
require 'stat.pl';
 
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
local $SIG{QUIT} = 'IGNORE'; 
local $SIG{TERM} = 'IGNORE';
local $SIG{TSTP} = 'IGNORE';
 
($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) =
  getpwuid($<);

perror("Usage: mbox2maildir mbox maildir") if (@ARGV != 2);
 
$spoolname = $ARGV[1];
$mbox = $ARGV[0];

-d $spoolname or mkdir $spoolname,0700
  or die("fatal: $spoolname doesn't exist and can't be created.\n");
 
#chdir($spoolname) or die("fatal: unable to chdir to $spoolname.\n");
-d "$spoolname/tmp" or mkdir("$spoolname/tmp",0700) or die("fatal: unable to make tmp/ subdir\n");
-d "$spoolname/new" or mkdir("$spoolname/new",0700) or die("fatal: unable to make new/ subdir\n");
-d "$spoolname/cur" or mkdir("$spoolname/cur",0700) or die("fatal: unable to make cur/ subdir\n");

open(SPOOL, "<$mbox")
  or die "Unable to open $mbox\n";
$i = time;
while(<SPOOL>) {
  if (/^From /) {
    $fn = sprintf("$spoolname/new/%d.$$.mbox", $i);
    open(OUT, ">$fn") or die("fatal: unable to create new message");
    $i++;
    next;
  }
  s/^>From /From /;
  print OUT or die("fatal: unable to write to new message");
}
close(SPOOL);
close(OUT);
#unlink("$ENV{MAIL}");

sub perror
{
    print $_[0]."\n";
    exit 1;
}