=head1 NAME

Suikawari::TomikouHokushinKeijiban --- Suikawari module for Hokushin Keijiban
E<lt>http://tomikou.net/niwa/keijiban/E<gt>

=cut

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

package Suikawari::TomikouHokushinKeijiban;
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/;
}

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

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

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

sub source ($) {
  if ($Bunshin::DEBUG) {
    (file => 'Hokushin-ban.tmp');
  } else {
    (uri => 'http://tomikou.net/niwa/keijiban/keijiban.php');
  }
}

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


sub _my_on_make ($$) {shift;
  my $b = shift;
  $b->default_parameter (list_name => 'ほくしん掲示板');
  $b->default_parameter (list_id => 'keijiban.niwa.tomikou.net');
  $b->default_parameter (urn_template => 'urn:x-tomikou-net:niwa:keijiban:%YYYY;:%MM;:%DD;');
}

## 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