全てのメッセージを開く [ 最初の画面に戻る ]


PerlAccess Ver.2.20について
masa2014/04/30(水) 10:06No.2878
このメッセージに返信する

解析結果を、全て、ホスト名が、出る様に、伝言板を参考に、
下記の様にしましたが、これで良いのでしょうか?
宜しくお願い致します。
perlaccess.cgi
130行目から142行目までを、
[修正前]
    elsif ($log[1] eq "") {
        @addr = split(/\./,$log[2]);
        $log[1] = join('.',@addr[0..$#addr-1],'xx');
    }
    else {
        @host = split(/\./,$log[1]);
        if ($#host == 2) {
            $log[1] = "$host[$#host-1]\.$host[$#host]";
        }
        else {
            $log[1] = "$host[$#host-2]\.$host[$#host-1]\.$host[$#host]";
        }
    }

[修正後]
else {
    $host[1] = $host[2];
}

Re: PerlAccess Ver.2.20について飾り職人ひで2014/05/01(木) 09:11No.2879
Re: PerlAccess Ver.2.20についてmasa2014/05/01(木) 11:12No.2880

返信入力フォーム

お名前
E-mail
Web
件名
本文

HTMLタグを有効にする

※IPアドレスを記録しています。悪質な投稿はお止め下さい。


PerlTreeBBS Ver.2.31