・
・
・
# 相対アドレス指定のファイルへのLINKをCGI経由でのアクセスに変更する。
$pos3=&chopparu($honbun,'<a href="','">',0);
while($pos3>=0){
if(index($chop2,'http:')<0
&& index($chop2,'tel:')<0){
# 表示頁のパスの整理
$soutaipath=&path_reduce($base.$chop2);
# Link Checkモード=======================================
if($pass eq $passset){
if(-e "$soutaipath"){$linkchk='<SPAN CLASS="b">LINK OK</SPAN>';}
else{$linkchk="<SPAN CLASS=\"r\">LINK NG</SPAN><SPAN CLASS=\"kyocho\">$soutaipath</span>";}
$pass_add="&pass=$pass";
}
#========================================================
# cgi経由のアクセスに置き換え
$honbun="$chop1<a href=\"$me\?page=$soutaipath$pass_add\">$linkchk$chop3";
}
elsif(substr($chop2,0,4) eq 'tel:' && $pnum == 4){
# PCの場合の電話番号へのLINKタグを消去する。
$dmy=index($chop3,'</a>');
if($dmy>-1){$honbun=$chop1.substr($chop3,0,$dmy).substr($chop3,$dmy+4,length($chop3)-$dmy-4)};
}
$pos3=&chopparu($honbun,'<a href="','">',$pos3+1);
}
・
・
・
・
・
・
# ==========================HDML特有のタグの変更を行う========================
# <font></font>タグを削除、</center>タグを<br>へ、<a href="を<a type="accept" task="go" label="OK"dest="に変換
while(&chopparu($out,'<font','>',0)>=0){$out=$chop1.$chop3;}
$out=~ s/<\/font>//g;
$out=~ s/<blink>//g;
$out=~ s/<\/blink>//g;
$out=~ s/<\/center>/<br>/g;
$out=~ s/<a href\=\"tel:/<atel_"/g;# 電話番号へのLINKを一時変換
$out=~ s/<a href\=\"/<a task\=\"go\" label\=\"OK\" dest\=\"/g;
$out=~ s/<atel_"/<a task="CALL" label="Call" number="/g;# 電話番号へのLINKをHDML形式に直す
# ============================================================================
・
・
・