/[suikacvs]/messaging/suikawari/module/TomikouKeijiban.sb
Suika

Diff of /messaging/suikawari/module/TomikouKeijiban.sb

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Thu Jun 20 11:33:44 2002 UTC revision 1.2 by wakaba, Tue Sep 10 23:37:00 2002 UTC
# Line 30  EOH Line 30  EOH
30    $r, qw (list_name);    $r, qw (list_name);
31  }  }
32    
33    sub element_decoders () {
34    (
35            list_name       => 'deentity_html',
36            from_name       => 'deentity_html',
37            from_mail       => 'deentity_html',
38    );
39    }
40    
41  sub on_load_source ($$) {shift;  sub on_load_source ($$) {shift;
42    my $b = shift;    my $b = shift;
43    $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] });
44  }  }
45    
46  sub source ($) {  sub source ($) {
47    if ($Bunshin::DEBUG) {    if ($Bunshin::DEBUG) {
48      (file => 'Tomikou-ban.tmp');      (file => 'Tomikou-ban.tmp');
49        (uri => 'http://tomikou.net/keijiban/keijiban.php');
50    } else {    } else {
51      (uri => 'http://tomikou.net/keijiban/keijiban.php');      (uri => 'http://tomikou.net/keijiban/keijiban.php');
52    }    }
# Line 87  sub on_make ($$) { Line 96  sub on_make ($$) {
96      $body =~ s#<br ?/?>$##;      $body =~ s#<br ?/?>$##;
97      $body =~ s#<br ?/?>#<br>\n#g;      $body =~ s#<br ?/?>#<br>\n#g;
98      my $meta = '';      my $meta = '';
99      $meta .= qq{<link rev="made" href="$p->{from_mail}">\n} if $p->{from_mail};      $meta .= qq{<link rev="made" href="@{[Message::Util::enentity_html ($p->{from_mail})]}">\n} if $p->{from_mail};
100      $meta .= qq{<meta name="author" content="$p->{from_name}">\n} if $p->{from_name};      $meta .= qq{<meta name="author" content="@{[Message::Util::enentity_html ($p->{from_name})]}">\n} if $p->{from_name};
101      my $html = <<EOH;      my $html = <<EOH;
102  <!-- DOCTYPE html maybe PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" -->  <!-- DOCTYPE html maybe PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" -->
103  <html>  <html>
104  <head>  <head>
105  <base href="$p->{base_uri}">  <base href="@{[Message::Util::enentity_html ($p->{base_uri})]}">
106  <title>$p->{subject}</title>  <title>@{[Message::Util::enentity_html (Message::Util::deentity_html ($p->{subject}))]}</title>
107  $meta</head>  $meta</head>
108  <body>  <body>
109  <div>  <div>
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24