=head1 NAME

Suikawari::RisuukaBan --- Suikawari module for Risuuka Keijiban

=cut

## This file is written in EUC-japan encoding.

package Suikawari::RisuukaBan;
use strict;
use vars qw/$VERSION/;
$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 ($) {
<<'EOH',
 <br><center><table cellpadding=2 width=550>
 <tr><td width=100 valign=top>
 <font color=([0-9A-Za-z#]*)>(?:
 <a href="([^"]+)" target="_blank">)?
 <font color=[0-9A-Za-z#]*>(.+?)</font>(?:</a>
 )?
 </td>
 <td>
 <font color=[0-9A-Za-z#]*>(.+?)</font><br><div align=right>
 [^0-9]+([0-9]+)/([0-9]+)/([0-9]+) ([0-9]+):([0-9]+)[^<]+</td>
 </tr></table>
EOH
  qw (misc_color from_uri from_name
      body date_year date_month date_day date_hour date_minute);
}

sub meta_regex ($) {
  my $r = <<'EOH';
(?i)<title>([^<]+)</title>
EOH
  $r =~ s/\n$//s;
  $r, qw (list_name);
}

sub on_load_source ($$) {shift;
  my $b = shift;
  $b->set_hook_function (code_conversion => sub { jcode::euc ($_[1]) });
}

sub source ($) {
  if ($Bunshin::DEBUG) {
    (file => '');
    (uri => 'http://bbs7.otd.co.jp/703265/bbs_plain');
  } else {
    (uri => 'http://bbs7.otd.co.jp/703265/bbs_plain');
  }
}

sub face ($) {
#  my %face;
#  (faces => \%face);
}

sub on_make ($$) {
  my $self = shift;
  my $b = shift;
  $b->default_parameter (date_zone => '+0900');
  $b->default_parameter (DEFAULT_subject => '(無題)');
  $b->default_parameter (newsgroups => 'suika.chuubu.r.55');
  $b->default_parameter (list_name => '理数科掲示板');
  $b->default_parameter (list_id => '2000e.risuu.chuubu.suika.fam.cx');
  $b->default_parameter (urn_template => 'urn:x-suika-fam-cx:chuubu:r:55:bbs:%msg_count;');
  $b->set_format (msg_count => sub { $_[1]->{msg_count} });
  $b->set_hook_function (msg_header_add => sub {
    my $self = shift;
    my ($msg, $p) = @_;
    my $hdr = $msg->header;
    ## Newsgroups
      my $group = $p->{newsgroups};
      $group = 'suika.test' if $Bunshin::DEBUG;
      $hdr->replace (newsgroups => $group);
  });
  $b->set_hook_function (msg_body => sub {
    shift;
    my ($msg, $body, $p) = @_;
    $body =~ s#[\x0D\x0A]*<br>[\x0D\x0A]*#\x0D\x0A#g;
    $msg->body->value ($body);
  });
}

=head1 SEE ALSO

Suikawari, Bunshin

=head1 LICENSE

Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.

=head1 CHANGE

See F<ChangeLog>.
$Date: 2002/08/29 12:08:14 $

=cut

1;
### Suikawari::TomikouKeijiban ends here