=head1 NAME

Suikawari::TomikouHokushinKeijiban --- Suikawari module for Tomikou-no-mori
Theme Keijiban E<lt>http://tomikou.net/tokushuu/thema/E<gt>

=cut

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

package Suikawari::TomikouThemeKeijiban;
use strict;
use vars qw/$VERSION/;
$VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
use Message::MIME::Charset::Jcode 'jcode.pl';

sub require () {
  qw/TomikouKeijiban/;
}

sub msg_regex ($) {
<<'EOH',
<a name="([0-9]+)-([0-9]+)-([0-9]+)\+([0-9]+):([0-9]+):([0-9]+)"><table border=1 cellspacing=0 cellpadding=2 width=600 bgcolor="#ffffff"><tr><td style="[^"]+"><a href="index.php\?t=([0-9A-Za-z]+)" style="[^"]+"><big>¢£<b>([\x00-\xFF]+?)</a></b></big></td></tr><tr><td style="background:([0-9A-Fa-f#]+);color:([0-9A-Fa-f#]+)"><big>¢£<b>([\x00-\xFF]+?)</b></big></td></tr><tr><td style="[^"]+"><big><a (?:href="mailto:([^"]+)" )?style="[^"]+">¢£<b>([\x00-\xFF]+?)</a></b></big>&nbsp;&nbsp;<small>[0-9]+ǯ[0-9]+·î[0-9]+Æü\(..\) [0-9]+:[0-9]+</small></td></tr><tr><td style="[^"]+">([\x00-\xFF]*?)</td></tr></table></a><br>
EOH
  qw (date_year date_month date_day date_hour date_minute date_second
  misc_theme_id misc_theme_name
  misc_subject_background_color misc_subject_color subject from_mail from_name body);
}

## Inherited
#sub meta_regex ($) {
#}

## Inherited
#sub on_load_source ($$) {shift;
#}

sub source ($) {
  if ($Bunshin::DEBUG) {
    (file => 'Theme-ban.tmp');
  } else {
    (uri => 'http://www.tomikou.net/tokshuu/thema/index.php');
  }
}

## Inherited
#sub face ($) {
#}


sub _my_on_make ($$) {shift;
  my $b = shift;
  $b->default_parameter (list_name => '¥Æ¡¼¥Þ·Ç¼¨ÈÄ');
  $b->default_parameter (list_id => 'theme.tomikou.net');
  $b->default_parameter (urn_template => 'urn:x-tomikou-net:theme:%x_tomikou_theme_name;:%YYYY;:%MM;:%DD;');
  $b->set_format (x_tomikou_theme_name => sub {$_[3]->{misc_theme_id}});
}

sub _my_msg_header_add ($$$) {shift;
  my ($msg, $p) = @_;
  if ($p->{misc_theme_id}) {
    my $lid = $msg->header->field ('list-id');
    $lid->value ( $p->{misc_theme_id} . '.' . $lid->value );
    $lid->display_name ( $p->{misc_theme_name} ) if $p->{misc_theme_name};
  }
}

## Inherited
#sub on_make ($$) {
#}

=head1 SEE ALSO

Suikawari, Bunshin, TomikouKeijiban.sb

=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/06/20 11:33:44 $

=cut

1;
### Suikawari::TomikouKeijiban ends here