[PREVIOUS CHAPTER]
[NEXT CHAPTER]
4 Examples
4.1 日別に生メールをSJIS+CRLFに変換しただけのもの
fml-support: 08941
mailbox 形式でいいんですかね?こんなんでできますかね…
#それを UNIX でよむならともかく、M$ 環境でも嬉しいかしら?
$DISTRIBUTE_CLOSE_HOOK = q#
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0..6];
my $dir = "$DIR/mailbox";
my $mailbox =
$dir .'/'.sprintf("%04d%02d%02d", 1900 + $year, $mon + 1, $mday);
&Mkdir($dir);
if ( open($mailbox, ">> $mailbox") ) {
my $body = "\n". $Envelope{'Body'};
$body =~ s/\nFrom /\n>From /g;
$body = &JSTR($body, 'sjis');
print $mailbox "From $From_address \n";
print $mailbox $Envelope{'Hdr'};
print $mailbox $body ;
print $mailbox "\n";
close($mailbox);
}
else {
&Log("ERROR: cannot open $mailbox");
}
#;
[PREVIOUS CHAPTER]
[NEXT CHAPTER]