295 |
|
|
296 |
my $from_t = $param->{from_t}; |
my $from_t = $param->{from_t}; |
297 |
|
|
298 |
store::query( $from_t, sub { |
my $q; |
299 |
|
$q->{'package.time'} = { '$lt' => $from_t * 1 } if $from_t; |
300 |
|
# $q->{'package.name'} = { '$ne' => 'syslogd' }; |
301 |
|
$q->{'package.name'} = { '$ne' => 'dhcpd' }; |
302 |
|
# $q->{'package.name'} = { '$ne' => [ 'dhcpd', 'dnsd' ] }; |
303 |
|
$q->{'tag'} = { '$ne' => 'CRON' }; |
304 |
|
store::query( $q, sub { |
305 |
my $o = shift; |
my $o = shift; |
306 |
my $p = delete( $o->{package} ); |
my $p = delete( $o->{package} ); |
307 |
delete( $o->{_id} ); |
delete( $o->{_id} ); |
362 |
|
|
363 |
if ( $ip && $ip ne $server::ip ) { |
if ( $ip && $ip ne $server::ip ) { |
364 |
|
|
|
my @editable = ( qw/hostname config homepage/ ); |
|
|
|
|
|
client::conf( $ip, $_ => $param->{$_} ) foreach @editable; |
|
|
|
|
365 |
my $conf = client::all_conf( $ip ); |
my $conf = client::all_conf( $ip ); |
366 |
my $config = delete $conf->{config}; |
my $config = delete $conf->{config}; |
367 |
|
|
368 |
|
my @editable = ( qw/hostname config homepage/, grep { m{^\Q$config\E} } keys %$conf ); |
369 |
|
client::conf( $ip, $_ => $param->{$_} ) foreach @editable; |
370 |
|
|
371 |
my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|; |
my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|; |
372 |
my @table = ( |
my @table = ( |
373 |
'ping' => ping::host($ip) |
'ping' => ping::host($ip) |
423 |
my $mac = delete $conf->{mac} || ''; |
my $mac = delete $conf->{mac} || ''; |
424 |
my $dev = $arp->{$mac}; |
my $dev = $arp->{$mac}; |
425 |
|
|
426 |
next unless $dev || $param->{all}; |
my $in_dhcp_range = ip::in_dhcp_range($ip); |
427 |
|
|
428 |
|
next unless $dev || $param->{all} || $in_dhcp_range; |
429 |
|
|
430 |
my $style |
my $style |
431 |
= 'style="color:' |
= 'style="color:' |
435 |
|
|
436 |
$style ||= ''; |
$style ||= ''; |
437 |
my $ip_text = qq|<tt>$ip</tt>|; |
my $ip_text = qq|<tt>$ip</tt>|; |
438 |
$ip_text = qq|<tt><b>$ip</b></tt>| if ip::in_dhcp_range($ip); |
$ip_text = qq|<tt><b>$ip</b></tt>| if $in_dhcp_range; |
439 |
|
|
440 |
$dev = qq|<tt>$dev</tt>| if $dev; |
$dev = qq|<tt>$dev</tt>| if $dev; |
441 |
|
|