▼変更対象の変数
3390行目 my ($name,$ax_tm,
$host,$reg_tm) = split(/\,/);
3408行目 my ($name,$ax_tm,
$host,$reg_tm) = split(/\,/);
3426行目 my ($name,$ax_tm,
$host,$reg_tm) = split(/\,/);
3438行目 my ($time_sort, $name_sort, $dir_sort, $mail_sort,$acc_sort,%order,$tindx, %time,
%host);
3617行目
$host{"$reg_tm"} = $ac_host if !
$host{"$reg_tm"};
3954行目
$host{"$tm"} = $ac_host;
3957行目 if (!
$host{"$tm"}) {
3958行目
$host{"$tm"} = ' ';
3968行目 $msg .= qq(<td><small>
$host{"$tm"}</small></td>\n);
3970行目 $msg .= qq(<td><small>$time{"$tm"}</small></td><td><small>
$host{"$tm"}</small></td>\n);
4151行目 my ($name,$ax_tm,
$host,$reg_tm) = split(/\,/);
5762行目 my(
$host) = $ENV{'REMOTE_HOST'};
5764行目 if (
$host eq "" ||
$host eq "$addr") {
5765行目
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
5766行目 if (
$host eq "") {
$host = $addr; }
5771行目 my($str) = "$tmp_id,$time,
$host,$tm,\n";