Allow more chars in listen-log.pl

This commit is contained in:
Stefan `Sec` Zehl 2012-05-30 20:51:07 +02:00
parent d23bd1eada
commit 6b6eb79c5c
1 changed files with 2 additions and 1 deletions

View File

@ -26,7 +26,8 @@ while (1){
($port, $hisiaddr) = sockaddr_in($hispaddr); ($port, $hisiaddr) = sockaddr_in($hispaddr);
# $host = gethostbyaddr($hisiaddr, AF_INET); # $host = gethostbyaddr($hisiaddr, AF_INET);
$host=join(".",unpack("CCCC",$hisiaddr)); $host=join(".",unpack("CCCC",$hisiaddr));
$buf =~ y!a-zA-Z0-9.:,; _()[]{}?-!!cd; chomp($buf);
$buf =~ y!a-zA-Z0-9.:,; _()[]{}<>/?-!!cd;
print substr(scalar(localtime),11,8)," ",$host," ",$buf,"\n"; print substr(scalar(localtime),11,8)," ",$host," ",$buf,"\n";
}; };