--- messaging/suikawari/module/TomikouKeijiban.sb 2002/06/20 11:33:44 1.1
+++ messaging/suikawari/module/TomikouKeijiban.sb 2002/09/10 23:37:00 1.2
@@ -11,7 +11,7 @@
package Suikawari::TomikouKeijiban;
use strict;
use vars qw/$VERSION/;
-$VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
+$VERSION=do{my @r=(q$Revision: 1.2 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
use Message::MIME::Charset::Jcode 'jcode.pl';
sub msg_regex ($) {
@@ -30,14 +30,23 @@
$r, qw (list_name);
}
+sub element_decoders () {
+(
+ list_name => 'deentity_html',
+ from_name => 'deentity_html',
+ from_mail => 'deentity_html',
+);
+}
+
sub on_load_source ($$) {shift;
my $b = shift;
- $b->set_hook_function (code_conversion => sub { jcode::euc ($_[1], 'sjis') });
+ $b->set_hook_function (code_conversion => sub { (Message::MIME::Charset::decode (shift_jisx0213 => $_[1]))[0] });
}
sub source ($) {
if ($Bunshin::DEBUG) {
(file => 'Tomikou-ban.tmp');
+ (uri => 'http://tomikou.net/keijiban/keijiban.php');
} else {
(uri => 'http://tomikou.net/keijiban/keijiban.php');
}
@@ -87,14 +96,14 @@
$body =~ s#
$##;
$body =~ s#
#
\n#g;
my $meta = '';
- $meta .= qq{\n} if $p->{from_mail};
- $meta .= qq{\n} if $p->{from_name};
+ $meta .= qq{\n} if $p->{from_mail};
+ $meta .= qq{\n} if $p->{from_name};
my $html = <
-
-$p->{subject}
+
+@{[Message::Util::enentity_html (Message::Util::deentity_html ($p->{subject}))]}
$meta
@@ -132,7 +141,7 @@
=head1 CHANGE
See F.
-$Date: 2002/06/20 11:33:44 $
+$Date: 2002/09/10 23:37:00 $
=cut