]*>|>)/
/gi;
$intext =~ s/<\/P>/
/gi;
$intext =~ s/<(H|\/H)[1-6](\s[^>]*>|>)/
/gi;
# 複数
処理
# $intext =~ s/
(
)+/
/gi;
$intext =~ s/(\t| )/ /g; # タブと全角スペースは、半角スペースに
$intext =~ s/ / /g; # 整形のためのスペースを変換
$intext =~ s/ +/ /g; # 行中の複数空白は1つに
$intext =~ s/> +> $imax && !$dont_cut){
&make_cdata;
}
$_ = $tag[$j++];
if( /^[^<]/ ){
$data .= "$_\n";
next;
}
# if( /^);
# }else{
# # http:// or ローカルファイル
# $url = &make_query($url, $open_dir);
# $data .= qq(\n);
# }
# next;
# }
# おのひろき リンク関係改変 ここから
if( /^);
$dont_cut = 1;
}elsif($url =~ /google\.co/ || $url =~ /mb\.mm\-b\.net/ || $url=~/sjk\.co\.jp/ || $url =~ /tosp\.co\.jp/ ){
# google など iモード対応サイトの処理 hiroki
$data .= qq(\n);
$dont_cut = 1;
}elsif( $url =~ /^[a-z]+:/ && $url !~ /^$top_dir/ ) {
# 自分とこ以外のリンク
$googleurl = $url;
$googleurl =~ s/http\:\/\///;
$googleurl =~ s/\//\@2F/g;
$googleurl =~ s/\?/\@3F/g;
$googleurl =~ s/\+/\@2B/g;
$data .= qq(\n\(※\) );
$dont_cut = 1;
# }elsif(($url !~ /\.htm/ && $url !~ /\.txt/) && $url !~ /\.cgi/){
# # HTML, TEXT, CGI 以外のリンク
# ;
}elsif($url =~ /#/ && $url !~ /\.htm/){
# アンカーは無視 hiroki
;
}elsif($url !~ /\./ && $url !~ /\//){
# アンカーは無視 hiroki
;
}elsif($url =~ /\.JPG/i || $url =~ /\.GIF/i || $url =~ /\.PNG/i){
# 画像は無視 hiroki
;
}else{
# http:// or ローカルファイル
$url = &make_query($url, $open_dir);
$data .= qq(\n);
$dont_cut = 1;
}
next;
}
# おのひろき リンク関係改変 ここまで
if( /^
/i ) {
$data .= "
";
next;
}
# if( /^<\/A/i ){
# $dont_cut = 0;
# $data .= '';
# next;
# }
#おのひろき 改変
if( /^<\/A/i && $dont_cut) {
$data .= "";
$dont_cut = 0;
next;
}
#ここまで
if( /^
※\)注意:※のリンクは Google の変換サービスにリンクします.それに続くリンクは当サイトの変換サービス対象外です.
\n); # おのひろき拡張 print ""; } # 出力 sub print_onc { $num1 = ++$num[$page]; $prev = $FORM{'P'} - 1; $next = $FORM{'P'} + 1; print qq(Content-Type: text/plain; charset=Shift_JIS\n); # おのひろき拡張 print qq(Content-Language: ja\n); # print qq(ROBOTS: NOINDEX,NOFOLLOW\n); # print qq(Pragma: no-cache\n); # print qq(Cache-Control: no-cache\n\n); print qq(\n); print "From: $onc_url\n"; print "Subject: $title\n"; print "Content-Type: Text/X-PmailDX\n\n"; print $sel[$page]; # Prev用SEL表示 if($page > 0){ $num2 = ++$num[$page]; print "\top\n); if($page > 0){ $prev = $FORM{'P'} - 1; if ($FORM{'U'}){ print qq(Prev \|\n); }else{ print qq(Prev |\n); } } if($page < --$p){ $next = $FORM{'P'} + 1; if ($FORM{'U'}){ print qq(Next\n); }else{ print qq(Next\n); } } print qq(
※のリンクは変換サービス対象外
\n); print ""; } # 出力 dot-i おのひろき sub print_doti { print qq(Content-Type: text/html; charset=Shift_JIS\n); print qq(Content-Language: ja\n); # print qq(ROBOTS: NOINDEX,NOFOLLOW\n); # print qq(Pragma: no-cache\n); # print qq(Cache-Control: no-cache\n\n); print qq(\n); # print qq(\n); print qq(\0\) TOP\n); print $out[$page]; print qq(
※\)注意:先頭に\(※\)の付いたリンクは変換サービス対象外.
\n); print ""; } # 自前でHTMLテキストを得る # HTML to ONCコンバータ(onccnv.pl)を参考にしています。 # onccnv.pl --- by M.Kawakami