269 |
if ( my $amt = client::conf( $ip, 'amt' ) ) { |
if ( my $amt = client::conf( $ip, 'amt' ) ) { |
270 |
print $client qq|<h2>AMT</h2>|, amt::info( $amt, $ip ); |
print $client qq|<h2>AMT</h2>|, amt::info( $amt, $ip ); |
271 |
} |
} |
|
} else { |
|
272 |
|
|
273 |
my $arp = { |
} else { |
|
map { |
|
|
my @c = split(/\s+/,$_); |
|
|
if ( $#c == 5 ) { |
|
|
client::save_ip_mac( $c[0], $c[3] ); |
|
|
( uc $c[3] => $c[5] ) |
|
|
} else { |
|
|
} |
|
|
} read_file('/proc/net/arp') |
|
|
}; |
|
274 |
|
|
275 |
warn "# arp ",dump( $arp ); |
my $arp = clinet::arp_mac_dev; |
276 |
|
|
277 |
print $client ok |
print $client ok |
278 |
, qq|<h2>Clients on $server::ip</h2>| |
, qq|<h2>Clients on $server::ip</h2>| |
361 |
|
|
362 |
if ($request =~ m{^GET (/.*) HTTP/1.[01]}) { |
if ($request =~ m{^GET (/.*) HTTP/1.[01]}) { |
363 |
my $path = $1; |
my $path = $1; |
364 |
|
$path =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge; |
365 |
my $param; |
my $param; |
366 |
if ( $path =~ s{\?(.+)}{} ) { |
if ( $path =~ s{\?(.+)}{} ) { |
367 |
foreach my $p ( split(/[&;]/, $1) ) { |
foreach my $p ( split(/[&;]/, $1) ) { |