[p5sagit/Promulger.git] / script / make_message

#!/usr/bin/perl
use strictures 1;
use autodie;

use Email::MIME;
use File::Slurp 'read_file';

my ($from, $to, $subject) = @ARGV;
my $body = read_file \*STDIN;


my $email = Email::MIME->create(
  header => [
    From => $from,
    To   => $to,
    Subject => $subject,
  ],
  body => $body,
);
print $email->as_string;
Commit	Line	Data
44fd0890	1	#!/usr/bin/perl
2a007b5a	2	use strictures 1;
2a007b5a	3	use autodie;
44fd0890	4
	5	use Email::MIME;
	6	use File::Slurp 'read_file';
	7
	8	my ($from, $to, $subject) = @ARGV;
	9	my $body = read_file \*STDIN;
	10
	11
	12	my $email = Email::MIME->create(
	13	header => [
	14	From => $from,
	15	To => $to,
	16	Subject => $subject,
	17	],
	18	body => $body,
	19	);
	20	print $email->as_string;