#!/usr/bin/perl
require "ctime.pl";
require "ptime.pl";

$AF_INET = 2;

while(<>)
{
	chop;
	($time, $from, $to, $size, $uid, $program) = split;
	$date = &ptime("%a %d.%m.%y %T",$time);
	($name) = getpwuid($uid);
	$h1 = &hbyaddr($from);
	$h2 = &hbyaddr($to);	
	print "$date\t$h1\t$h2\t$size\t$name\t$program\n"; 
}

sub hbyaddr
{
    local($addr) = @_;
    local($ipaddr, $host_name);
    if(! ($host_name = $ip_cache{$addr}))
    {
        print "[lookup] " if $debug;
        $ipaddr=pack("C4",split(/\./,$addr));
        if (!(($host_name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($ipaddr,$AF_INET)))
        {
            print "[lookup failed] " if $debug;
            $host_name = $addr;
        }
        $ip_cache{$addr} = $host_name;
    }
    print ">>>\"$host_name\"<<< " if $debug;
    $host_name;
}

 

