1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#ESL
#convert user -> ip , get user name from file
#file format
#
#192.168.0.96 User1
#192.168.0.106 User2
#192.168.0.105 User3
#
#if user not found -> return IP
sub StartIp2Name() {
my $ipfile = "/etc/squid/users.txt";
open (F, "<$ipfile") || die ("ERROR: Can't open $ipfile!!! \n");
while (<F>) {
chomp;
($ip,$user) = split;
$hIP2NAME{$ip}=$user;
}
close (F);
}
sub Ip2Name($$$) {
# $Lhost,$user,$Ltimestamp
my $ip=shift;
my $ret;
if (defined $hIP2NAME{$ip}) {
$ret=$hIP2NAME{$ip};
} else {
$ret=$ip;
}
return $ret;
}
sub StopIp2Name() {
}
#warning !!!
1;
|
