【 スクリプト改造依頼スレ 】(丸投げ) part2

[0661 nobodyさん 04/11/07 20:27:16 ID:???]

>>660

106行目に挿入
$value =~ s{(https?://[!#%&*+,\-./;=?\@_~0-9A-Za-z]+)\b}{<a href="$1">$1<\/a>}g;

pref.cgi
158行目を変更
$host=$ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'};
↓
$host=$ENV{'REMOTE_HOST'} || (gethostbyaddr pack('C4', split /\./, $ENV{'REMOTE_ADDR'}), 2)[0] || $ENV{'REMOTE_ADDR'};