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

Blob History Raw

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