$title

#
\n#g; $body =~ s#\n#
\n#g; $body .= $ket; $body =~ s/(?:
\n?)+\n?$//; $body =~ s/\n+$//; # 出力 print qq(Content-type: text/html\n\n); print qq(\n\n); if ($title) { print qq($title\n); } print qq(\n\n$body\n\n\n); } #-------------------------------------------------------------------------- # [ HTMLの出力 ] sub PRINT_HTML { # 端末判別 my $ia = 'p'; if ($ua =~ /PalmScape|sharp pda browser|Windows CE|WorldTALK/) { $ia = 'x'; } # 飛ばし処理 if ($link{$ia}) { if ($link{$ia} =~ /^http:\/\//) { print "Location:$link{$ia}\n\n"; } elsif ($link{$ia} =~ /\.html?$/i) { print qq(Content-type: text/html\n\n); open (FILE,"<$link{$ia}"); foreach () { print; } close FILE; } else { print "Content-type: text/html\n\n"; print "飛ばし文が不正です。"; } exit; } # 出力準備 my ($body,$ket); foreach (@lines) { my ($type,$serv,$posi,$text,$url,$key) = split(/<>/); if ($serv !~ /p/) { next; } $text =~ s/ / /g; if ($posi eq 'c') { $body .= $ket; $body .= qq(); $ket = qq(\n); } elsif ($posi eq 'r') { $body .= $ket; $body =~ s/
\n?$//; $body .= qq(

); $ket = qq(

\n); } elsif ($posi eq 's') { $body .= $ket; $body .= qq(); $ket = qq(\n); } elsif (($posi ne '^') && ($type ne 'h')) { $body .= $ket; $ket = qq(
\n); } if ($type eq 'c') { $type = 't'; $text =~ s/\[([\w]+)\]/$countia{$1}/g; } if ($type eq 't') { if ($url) { $body .= qq($text); } else { $body .= $text; } } elsif ($type eq 'i') { $text =~ s/"/"/g; $body .= qq( $text

); } elsif ($type eq 'a') { $body .= qq($text); } elsif ($type eq 'm') { $body .= qq($text); } elsif ($type eq 'p') { $body .= qq($text($url)); } elsif ($type eq 'h') { $body .= $ket; $body =~ s/
\n?$//; $body .= qq(

\n); $ket = ''; } } $body =~ s#\n#
\n#g; $body =~ s#\n

#
\n#g; $body =~ s#

\n#
\n#g; $body =~ s#([^>])( )([^( )])#$1 $3#g; $body .= $ket; $body =~ s/(?:
\n?)+\n?$//; $body =~ s/\n+$//; # 出力 print qq(Content-type: text/html\n\n); print qq(\n\n); if ($title) { print qq($title\n); } print qq(\n\n$body\n\n\n); } #-------------------------------------------------------------------------- # [ データの読み込み ] sub READ_FILE { my $get = $ENV{'QUERY_STRING'}; my @pairs = split(/&/,$get); foreach (@pairs) { my ($name,$value) = split(/=/,$_); if ($name eq 'fn') { $filename = $value; } } open (FILE,"<$filename"); $config = ; if ($config !~ /^#INDEXO/) { print qq(Content-type: text/html\n\n); print qq(エラー); print qq(INDEXOの設定ファイルではありません。
); print qq(一行目に#INDEXOと書かれているかどうか確認してください。); print qq(); exit; } foreach () { chomp; if (/^ *#/) { next; } elsif (/<>/) { push(@lines,$_); } elsif (/^title=>/) { s/^title=>//; $title = $_; } elsif (/^background=>/) { s/^background=>//; $background = $_; } elsif (/^bgcolor=>/) { s/^bgcolor=>#//; $bgcolor = $_; } elsif (/^text=>/) { s/^text=>#//; $textcolor = $_; } elsif (/^link=>/) { s/^link=>#//; $linkcolor = $_; } elsif (/->/) { if (/e.*->/) { $link{e} = $_; $link{e} =~ s/.*->//; } if (/d.*->/) { $link{d} = $_; $link{d} =~ s/.*->//; } if (/h.*->/) { $link{h} = $_; $link{h} =~ s/.*->//; } if (/i.*->/) { $link{i} = $_; $link{i} =~ s/.*->//; } if (/j.*->/) { $link{j} = $_; $link{j} =~ s/.*->//; } if (/l.*->/) { $link{l} = $_; $link{l} =~ s/.*->//; } if (/p.*->/) { $link{p} = $_; $link{p} =~ s/.*->//; } if (/x.*->/) { $link{x} = $_; $link{x} =~ s/.*->//; } } } close (FILE); } #-------------------------------------------------------------------------- # [ COUNTIA ] sub COUNTIA { if (-r $countia) { require $countia; %countia = %{&countia::cia("./logs/cia_$filename",1)}; } }