yuu_nkjm blog

トップ «前の日記(2012-11-25(Sun)) 最新次の日記(2012-11-27(Tue))» 月表示　　　編集設定

2012-11-26(Mon) [長年日記]

[sakura][perl] 携帯電話などにメールの添付を外して転送する方法

携帯電話などにメールの添付を外して転送する方法 - ankoya日記で紹介されていたものをメモ．

#!/usr/bin/perl
use MIME::Parser;
 
$sendmail = '/usr/sbin/sendmail';
$fwd_address = 'hogehoge+sakura@example.com'; 
 
my $parser = new MIME::Parser;
$parser->output_to_core(1);
my $entity = $parser->parse(\*STDIN);
 
my $from = $entity->head->get('From');
my $subject = $entity->head->get('Subject');
chomp $from;
chomp $subject;
 
my $body;
if (not $entity->is_multipart) {
	$body = $entity->bodyhandle->as_string ."\n";
} else {
    $body = $entity->parts(0)->bodyhandle->as_string."\n";
}
 
open(OUT,"| $sendmail -t -i");
print OUT "From: " . $from . "\n";
print OUT "To: " . $fwd_address . "\n";
print OUT "Subject: " . $subject . "\n";
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT "Content-Type: text/plain; charset=\"iso-2022-jp\"\n\n";
print OUT $body . "\n";
close(OUT);

携帯電話などにメールの添付を外して転送する方法 - ankoya日記

[ツッコミを入れる]

本日のリンク元

その他のリンク元