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

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

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

revision 1.1 by wakaba, Sun Jun 16 10:50:15 2002 UTC revision 1.2 by wakaba, Wed Dec 18 23:21:00 2002 UTC
# Line 31  sub meta_regex ($) { Line 31  sub meta_regex ($) {
31  (?:\xA1\xA1)?([^<]+)<br>  (?:\xA1\xA1)?([^<]+)<br>
32  [^<]+<b>日記記者にメールを送る</b>[^<]+<a href="mailto:([^?"]+)\?Subject=富校日記"><b><i>[^<]+</i></b></a><br>  [^<]+<b>日記記者にメールを送る</b>[^<]+<a href="mailto:([^?"]+)\?Subject=富校日記"><b><i>[^<]+</i></b></a><br>
33  (?:\xA1\xA1)?([^<]+)  (?:\xA1\xA1)?([^<]+)
 </TD></TR></TABLE></CENTER>  
34  EOH  EOH
35    qw (misc_kisha_shoukai_uri misc_kisha_kao_uri from_name    qw (misc_kisha_shoukai_uri misc_kisha_kao_uri from_name
36        misc_kisha_kai list_info from_mail reply_info);        misc_kisha_kai list_info from_mail reply_info);
# Line 108  sub on_make ($$) {shift; Line 107  sub on_make ($$) {shift;
107        my $part2 = $msg->body->item (1);        my $part2 = $msg->body->item (1);
108        $part2->header->add (content_type => 'multipart/alternative');        $part2->header->add (content_type => 'multipart/alternative');
109        $part2->header->add (content_description => $p->{misc_img_alt});        $part2->header->add (content_description => $p->{misc_img_alt});
110        ## message/external-body        ## text/html
111          my $part2_1 = $part2->body->item (0);          my $part2_0 = $part2->body->item (0);
112          my $ct = $part2_1->header->field ('content-type');          my $ct = $part2_0->header->field ('content-type');
113          $ct->value ('text/html');          $ct->value ('text/html');
114          $ct->parameter (charset => 'iso-2022-jp');          $ct->parameter (charset => 'iso-2022-jp');
115          my $html = <<EOH;          my $html = <<EOH;
116    <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
117    <base href="$p->{base_uri}" />
118    <title>$p->{list_name}</title>
119    <div>
120            <img src="$p->{misc_img_src_uri}" alt="$p->{misc_img_alt}" />
121    </div>
122    EOH
123            $part2_0->body->value ($html);
124          ## application/xhtml+xml
125            my $part2_1 = $part2->body->item (1);
126            my $ct = $part2_1->header->field ('content-type');
127            $ct->value ('application/xhtml+xml');
128            $ct->parameter (charset => 'iso-2022-jp');
129            my $html = <<EOH;
130  <?xml version="1.0" encoding="iso-2022-jp"?>  <?xml version="1.0" encoding="iso-2022-jp"?>
131  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
132     "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">     "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
# Line 127  sub on_make ($$) {shift; Line 140  sub on_make ($$) {shift;
140          <img src="$p->{misc_img_src_uri}" alt="$p->{misc_img_alt}" />          <img src="$p->{misc_img_src_uri}" alt="$p->{misc_img_alt}" />
141  </div>  </div>
142  </body>  </body>
143    </html>
144  EOH  EOH
145          $part2_1->body->value ($html);          $part2_1->body->value ($html);
146        ## message/external-body        ## message/external-body
147          my $part2_2 = $part2->body->item (1);          my $part2_2 = $part2->body->item (2);
148          $part2_2->header->add (content_type => 'message/external-body');          $part2_2->header->add (content_type => 'message/external-body');
149          require URI::WithBase;          require URI::WithBase;
150          my $uri = URI::WithBase->new ($p->{misc_img_src_uri}, $p->{base_uri});          my $uri = URI::WithBase->new ($p->{misc_img_src_uri}, $p->{base_uri});
# Line 145  EOH Line 159  EOH
159    
160  =head1 SEE ALSO  =head1 SEE ALSO
161    
162  Suikawari, Bunshin  Suikawari, L<Bunshin>
163    
164  =head1 LICENSE  =head1 LICENSE
165    
166  Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.  Copyright 2002 Wakaba <w@suika.fam.cx>, all rights reserved.
167    
168  This program is free software; you can redistribute it and/or modify  This program is free software; you can redistribute it and/or modify
169  it under the terms of the GNU General Public License as published by  it under the terms of the GNU General Public License as published by
# Line 166  along with this program; see the file CO Line 180  along with this program; see the file CO
180  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
181  Boston, MA 02111-1307, USA.  Boston, MA 02111-1307, USA.
182    
 =head1 CHANGE  
   
 See F<ChangeLog>.  
 $Date$  
   
183  =cut  =cut
184    
185  1;  1; # $Date$
 ### Suikawari::TomikouNikki ends here  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24