#!/usr/bin/perl
use Jcode;
open(NKF,"|/usr/bin/nkf");
select(NKF);
$base_url = 'http://www.zukeran.org/shin/funifuni/';
print <<"__EOF__";
shin's page / funifuni
__EOF__
while(<>){
if (/^\\month\{(.*)\}/) {
$current_month = $1;
$yyyy = sprintf("%04d",substr($current_month,0,4));
$mm = sprintf("%02d",substr($current_month,4,2));
&do_month;
}elsif (/^\\day\{(.*)\}/) {
$current_day = $1;
$dd = sprintf("%02d",$current_day);
&do_day;
}elsif (/^\\topic\{(.*)\}/) {
$current_topic++;
$tt = sprintf("%02d",$current_topic);
&do_topic($1);
}elsif (/^(.*)\\isbn\{([0-9\-A-Z]+)\}(.*)$/) {
print "$1";
&do_isbn($2);
$_ = $3;
redo;
}elsif (/^([^[]*)\[\[([^ \]]+?) ([^\]]+)\]\](.*)$/) {
print "$1$3";
$_ = $4;
redo;
}elsif (/^([^[]*)\[\[([^\]]+?)\]\](.*)$/) {
print "$1";
do_wiki($2);
$_ = $3;
redo;
}elsif (/^$/) {
next;
}elsif (/^\n$/) {
next;
}else{
print $_;
}
}
print <<"__EOF__";
__EOF__
exit 0;
sub do_month {
print <<"__EOF__";
$yyyy年$mm月のふにふにとしています
__EOF__
}
sub do_day {
$current_topic = 0;
print <<"__EOF__";
__EOF__
}
sub do_topic {
my($topic) = @_;
print <<"__EOF__";
__EOF__
}
sub do_isbn {
my($isbn) = @_;
my($isbn2) = $isbn;
$isbn2 =~ s/-//g;
print "[ISBN$isbn:";
print "amazon:";
print "bk1";
print "]";
}
sub do_wiki {
my ($wikiname) = shift;
$url = Jcode->new($wikiname)->euc;
$url =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
print "";
print "$wikiname";
print "";
}