Blob Blame Raw
#!/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;