Tree - rpms/cyrus-imapd - src.fedoraproject.org

Blob History Raw

		38f2261	`#!/usr/bin/perl`
		38f2261	`#`
		38f2261	`# Usage: cat mailbox.txt \| formail -s cpmsg`
		38f2261	`#`
		38f2261	`# where 'cpmsg' is the name of this script`
		38f2261	`#`
		38f2261	`# Purpose: Called by formail once for each mail message in a Berkeley-`
		38f2261	`# format mailbox`
		38f2261	`#`
		38f2261	`#$Id: cpmsg,v 1.1 2005/04/15 20:24:15 jdennis Exp $`
		38f2261
		38f2261	`$maildir = "$ARGV[0]";`
		38f2261	`if (!$maildir) { die "Usage: $0 $maildir"; }`
		38f2261
		38f2261	`# Formail increments this number for each message. The`
		38f2261	`# leading "0"'s must be removed (e.g. 001 becomes 1)`
		38f2261
		38f2261	`$filenum = ($ENV{FILENO} - 0) + 1;`
		38f2261
		38f2261	`open (OUTFILE,">$maildir/$filenum.");`
		38f2261	`while (<STDIN>) {`
		38f2261	`chop;`
		38f2261	`print OUTFILE "$_\015\012"; # Add CRLF to each line!`
		38f2261	`}`
		38f2261	`close OUTFILE;`
		38f2261