suikawari/module/TomikouHokushinKeijiban.sb


=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/16 10:50:15 $

=cut

1;
### Suikawari::TomikouKeijiban ends here
1
2	=head1 NAME
3
4	Suikawari::TomikouHokushinKeijiban --- Suikawari module for Hokushin Keijiban
5	E<lt>http://tomikou.net/niwa/keijiban/E<gt>
6
7	=cut
8
9	## This file is written in EUC-japan encoding.
10
11	package Suikawari::TomikouHokushinKeijiban;
12	use strict;
13	use vars qw/$VERSION/;
14	$VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
15	use Message::MIME::Charset::Jcode 'jcode.pl';
16
17	sub require () {
18	qw/TomikouKeijiban/;
19	}
20
21	## Inherited
22	#sub msg_regex ($) {
23	#}
24
25	## Inherited
26	#sub meta_regex ($) {
27	#}
28
29	## Inherited
30	#sub on_load_source ($$) {shift;
31	#}
32
33	sub source ($) {
34	if ($Bunshin::DEBUG) {
35	(file => 'Hokushin-ban.tmp');
36	} else {
37	(uri => 'http://tomikou.net/niwa/keijiban/keijiban.php');
38	}
39	}
40
41	## Inherited
42	#sub face ($) {
43	#}
44
45
46	sub _my_on_make ($$) {shift;
47	my $b = shift;
48	$b->default_parameter (list_name => 'ほくしん掲示板');
49	$b->default_parameter (list_id => 'keijiban.niwa.tomikou.net');
50	$b->default_parameter (urn_template => 'urn:x-tomikou-net:niwa:keijiban:%YYYY;:%MM;:%DD;');
51	}
52
53	## Inherited
54	#sub on_make ($$) {
55	#}
56
57	=head1 SEE ALSO
58
59	Suikawari, Bunshin, TomikouKeijiban.sb
60
61	=head1 LICENSE
62
63	Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.
64
65	This program is free software; you can redistribute it and/or modify
66	it under the terms of the GNU General Public License as published by
67	the Free Software Foundation; either version 2 of the License, or
68	(at your option) any later version.
69
70	This program is distributed in the hope that it will be useful,
71	but WITHOUT ANY WARRANTY; without even the implied warranty of
72	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
73	GNU General Public License for more details.
74
75	You should have received a copy of the GNU General Public License
76	along with this program; see the file COPYING. If not, write to
77	the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
78	Boston, MA 02111-1307, USA.
79
80	=head1 CHANGE
81
82	See F<ChangeLog>.
83	$Date: 2002/06/16 10:50:15 $
84
85	=cut
86
87	1;
88	### Suikawari::TomikouKeijiban ends here