#!/usr/bin/perl use Suika::CGI; use H2H; print jcode::jis(< おくちゅ。の歩み

おくちゅ。の歩み

EOH opendir DIR, '.'; my @FILELIST = (grep(/.*\.(?:hnf|h2h)$/, readdir(DIR))); close DIR; my %boptions = ( directory => '/home/wakaba/lib/H2H/V100/Theme/', theme => 'Glossary', theme09_directory => '/home/wakaba/lib/H2H/V090/', theme09 => 'glossary', title => 'おくちゅ。の歩み', keyword => '奥中, 奥田中学校, 富山市立奥田中学校, おくちゅ。, 歴史, 年表, History, 出来事, できごと, 流れ, 歩み, 伝統, 行事, 一覧, 実績', description => 'おくちゅ。の過去から現在まで。', version => 'H2H/1.0', ); for my $fn (@FILELIST) { my %options = (%boptions); $fn =~ tr/\x0D\x0A//d; $fn =~ tr/\x0D\x0A//d; if ($fn =~ /^(.+)\.(?:hnf|h2h)$/) {$options{prefix} = $1} $options{noheader} = 1; $options{nofooter} = 1; open HNF, $fn; print jcode::jis(H2H->toHTML(\%options, ), 'euc'); close HNF; } print jcode::jis(< [/ 地図検索] [伝説のおくちゅ。おくちゅ。伝説] EOH 1;