| はじめまして，いつもありがたく使わせていただいてます．
このたびはド素人の無茶なお願いをしに参りました（すみません
本文に記述したURLに自動リンクが生成されますが，
①この自動で生成されるリンクの先頭にURLを挿入しつつ
②表示自体は記述したURLのみにする
なんてことはできないでしょうか？
http://aa.bb/
と記述すれば
ソース的には
<a href="http://○○.○○/□.cgi?url=http://aa.bb/" target="_top">http://aa.bb/</a>
というような具合に．
それがダメでも
<a href="http://○○.○○/□.cgi?url=http://aa.bb/" target="_top">http://○○.○○/□.cgi?url=http://aa.bb/</a>
とという具合に．
perlド素人ながらバックアップをとり，cylib.cgiの下記の部分をいろいろ変えてみたのですが
if ($FORM{'link'}) {
$FORM{'value'} =~ s/"/"/g;
$FORM{'value'} =~ s/([\x81-\x9f\xe0-\xfc].)/$1\0/g;
$FORM{'value'} =~ s/((href|src|action)[\ \=\"\']+(ht|f)tps?):/$1\0/ig;
$FORM{'value'} =~ s/(mailto:[\w\.\-]+)\@/$1\0/ig;
$FORM{'value'} =~ s/((ht|f)tps?:\/\/[\w\;\/\?\:\@\&\=\+\$\,\-\.\!\~\*\'\(\)\%\#]+)|([\w\.\-]+\@[\w\-]+\.[\w\.\-]+)/$1 ?
"<!-- al0:$1 --><a href=".&a0($1)." target=_top>".&fbr2($1,8)."<\/a><!-- al1 -->":
"<!-- al0:$3 --><a href=mailto:".&a0($3).">".&fbr2($3,8)."<\/a><!-- al1 -->"/eig;
$FORM{'value'} =~ s/((href|src|action)[\ \=\"\']+(ht|f)tps?)\0/$1:/ig;
$FORM{'value'} =~ s/(mailto:[\w\.\-]+)\0/$1\@/ig;
$FORM{'value'} =~ tr/\0//d;
$FORM{'value'} =~ s/"/"/g;
}
cylib.cgiが見つかりませんと当然のエラーメッセージがでました．
はやりド素人には無理でした．
大変あつかましいお願いではありますが，もしよろしければ方法をお答えいただければ幸いです． |
|