#!/usr/bin/perl

#

# Usage:	cat mailbox.txt | formail -s cpmsg 

#

#		where 'cpmsg' is the name of this script

#

# Purpose:	Called by formail once for each mail message in a Berkeley-

#		format mailbox

#

#$Id: cpmsg,v 1.1 2005/04/15 20:24:15 jdennis Exp $

$maildir  = "$ARGV[0]";

if (!$maildir) { die "Usage: $0 $maildir"; }

# Formail increments this number for each message. The 

# leading "0"'s must be removed (e.g. 001 becomes 1)

$filenum  = ($ENV{FILENO} - 0) + 1;

open (OUTFILE,">$maildir/$filenum.");

while (<STDIN>) {

    chop;

    print OUTFILE "$_\015\012";  # Add CRLF to each line!

}

close OUTFILE;