Hatena::Groupmobilehacker

tokuhiromの日記 RSSフィード

 | 

2008-07-29

Email 受信するスクリプトをかくときのやりかた 17:44 Email 受信するスクリプトをかくときのやりかた - tokuhiromの日記 を含むブックマーク はてなブックマーク - Email 受信するスクリプトをかくときのやりかた - tokuhiromの日記 Email 受信するスクリプトをかくときのやりかた - tokuhiromの日記 のブックマークコメント

package Email::MIME::JP::Mobile;
use strict;
use warnings;
use base qw(Email::MIME);
use Encode ();
use Email::Address::JP::Mobile;


sub mobile {
    my ($self, ) = @_;
    $self->{__jp_mobile} ||= Email::Address::JP::Mobile->new( scalar $self->header('From') );
}

sub force_decode_hook { 1 }
sub decode_hook {
    my ($self, $body) = @_;
    $self->mobile->mail_encoding->decode($body);
}

sub subject {
    my ($self, ) = @_;
    my $subject = Email::Simple::header('Subject');
    $self->mobile->mime_encoding->decode($subject);
}

1;
__END__

=head1 SYNOPSIS

    use Email::MIME::JP::Mobile;
    use Email::MIME::XPath;
    my $mail = Email::MIME::JP::Mobile->new($eml);
    say $mail->subject;
    my $bodynode = $mail->xpath_findnodes('//plain');
    say $bodynode->body if $bodynode;

 |