8 open(SRV,$ENV{"HOME"}."/.ssh/config") or die;
10 $srvname=$1 if /Host (\S+)/;
11 $HOSTS{$1}=$srvname if /HostName (\S+)/;
16 /([\d\_]+) (#\d+) (\S+) (.*)/ or next;
21 if ($event eq "sent") {
22 $rest =~ /\d+b ([\d\.]+):/;
24 $CHANN{"$channel"} = $HOSTS{$ip};
26 my $host = $CHANN{"$channel"};
27 $host = "unknown" if not $host;
28 print "$time $SERVER $host$channel $event $rest\n";