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

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

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

revision 1.1 by wakaba, Tue Jun 25 09:34:42 2002 UTC revision 1.2 by wakaba, Thu Aug 29 12:08:14 2002 UTC
# Line 15  use Message::MIME::Charset::Jcode 'jcode Line 15  use Message::MIME::Charset::Jcode 'jcode
15    
16  sub msg_regex ($) {  sub msg_regex ($) {
17  <<'EOH',  <<'EOH',
18  <HR width="500" size="1" color="#cccccc">   <br><center><table cellpadding=2 width=550>
19   <BR>   <tr><td width=100 valign=top>
20   <TABLE width="500" cellpadding="0" cellspacing="0">   <font color=([0-9A-Za-z#]*)>(?:
21     <TBODY>   <a href="([^"]+)" target="_blank">)?
22       <TR>   <font color=[0-9A-Za-z#]*>(.+?)</font>(?:</a>
23         <TD align="left">([0-9]+). <FONT color="([^"]+)">([\x00-\xFF]*?)</FONT></TD>   )?
24         <TD align="right">From: (?:<A href="mailto:([^"]+)">)?([\x00-\xFF]+?)(?:</A>)? (?:<A href="([^"]+)" target="_blank">\+Home</A>)?</TD>   </td>
25       </TR>   <td>
26       <TR>   <font color=[0-9A-Za-z#]*>(.+?)</font><br><div align=right>
27         <TD colspan="2" align="left" class="a4"><BR>   [^0-9]+([0-9]+)/([0-9]+)/([0-9]+) ([0-9]+):([0-9]+)[^<]+</td>
28         <FONT color="(?:[^"]+)">([\x00-\xFF]+?)</FONT><BR>   </tr></table>
        <BR>  
        </TD>  
      </TR>  
      <TR>  
        <TD colspan="2" align="center">([0-9]+)/([0-9]+)/([0-9]+) ([0-9]+):([0-9]+)</TD>  
      </TR>  
    </TBODY>  
  </TABLE>  
29  EOH  EOH
30    qw (msg_count misc_color subject from_mail from_name from_uri    qw (misc_color from_uri from_name
31        body date_year date_month date_day date_hour date_minute);        body date_year date_month date_day date_hour date_minute);
32  }  }
33    
34  sub meta_regex ($) {  sub meta_regex ($) {
35    my $r = <<'EOH';    my $r = <<'EOH';
36  (?i)<TITLE>([^<]+)</TITLE>  (?i)<title>([^<]+)</title>
37  EOH  EOH
38    $r =~ s/\n$//s;    $r =~ s/\n$//s;
39    $r, qw (list_name);    $r, qw (list_name);
# Line 75  sub on_make ($$) { Line 67  sub on_make ($$) {
67    $b->default_parameter (list_name => 'Íý¿ô²Ê·Ç¼¨ÈÄ');    $b->default_parameter (list_name => 'Íý¿ô²Ê·Ç¼¨ÈÄ');
68    $b->default_parameter (list_id => '2000e.risuu.chuubu.suika.fam.cx');    $b->default_parameter (list_id => '2000e.risuu.chuubu.suika.fam.cx');
69    $b->default_parameter (urn_template => 'urn:x-suika-fam-cx:chuubu:r:55:bbs:%msg_count;');    $b->default_parameter (urn_template => 'urn:x-suika-fam-cx:chuubu:r:55:bbs:%msg_count;');
70    $b->set_format (msg_count => sub { $_[3]->{msg_count} });    $b->set_format (msg_count => sub { $_[1]->{msg_count} });
71    $b->set_hook_function (msg_header_add => sub {    $b->set_hook_function (msg_header_add => sub {
72      my $self = shift;      my $self = shift;
73      my ($msg, $p) = @_;      my ($msg, $p) = @_;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24