「apache1.3+mod_perl は単純に 302 リダイレクトすると Content-Type: httpd/unix-directory を返す」のだが、これは問題ない。基本的には。
ただ、リダイレクトを吐くページを最初にみると、エラーになる
いわゆる WJ46065E になります。マジヤバス。
$r->header_out( Location => $uri );
$r->status(302);
$r->content_type('text/plain');
# $self->r->content_type('text/plain'); # とか明示的に指定してやるとよい
$r->send_http_header();
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;
DOCUMENT_ROOT: /path/to//htdocs GATEWAY_INTERFACE: CGI-Perl/1.1 HOME: /home/tokuhiro/ HOSTNAME: jigen HTTP_ACCEPT: '*/*' HTTP_ACCEPT_ENCODING: 'deflate, gzip' HTTP_CONNECTION: close HTTP_HOST: example.com HTTP_USER_AGENT: Mozilla/3.0(WILLCOM;SANYO/WX310SA/2;1/1/C128) NetFront/3.3 PATH_INFO: / PERL_SEND_HEADER: On QUERY_STRING: '' REQUEST_METHOD: GET REQUEST_URI: /
役にたつ情報がなさすぎて泣いた
居ますか、09078311834 又、本当に色々書いてあることが本当に出来るのでしょうか。
居ますか、09078311834 又、本当に色々書いてあることが本当に出来るのでしょうか。