/[pxelator]/lib/PXElator/httpd.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/httpd.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 329 by dpavlin, Fri Aug 28 21:55:41 2009 UTC revision 330 by dpavlin, Fri Aug 28 22:29:08 2009 UTC
# Line 272  warn "XXX pids = ", dump( $daemons::pids Line 272  warn "XXX pids = ", dump( $daemons::pids
272    
273                  } else {                  } else {
274    
275                          my $arp = clinet::arp_mac_dev;                          my $arp = client::arp_mac_dev;
276                            my @ips = client::all_ips;
277    
278                            my $ping;
279                            $ping = ping::fping( @ips ) if $param->{ping};
280    
281                          print $client ok                          print $client ok
282                                  , qq|<h2>Clients on $server::ip</h2>|                                  , qq|<h2>Clients on $server::ip</h2>|
# Line 282  warn "XXX pids = ", dump( $daemons::pids Line 286  warn "XXX pids = ", dump( $daemons::pids
286                                                  my $ip = $_;                                                  my $ip = $_;
287                                                  my $conf = client::all_conf( $ip );                                                  my $conf = client::all_conf( $ip );
288                                                  my $mac = delete $conf->{mac} || '';                                                  my $mac = delete $conf->{mac} || '';
289                                                    my $style;
290                                                    $style
291                                                            = 'style="color:'
292                                                            . ( $ping->{$ip} ? 'green' : 'red' )
293                                                            . '"'
294                                                            if $ping;
295                                                  (                                                  (
296                                                          qq|<a name=$ip href=/client/$ip>$ip</a>|                                                          qq|<a $style name=$ip href=/client/$ip>$ip</a>|
297                                                          , format::mac( $mac => 'html' )                                                          , format::mac( $mac => 'html' )
298                                                          , $arp->{$mac}                                                          , $arp->{$mac}
299                                                          , delete $conf->{hostname}                                                          , delete $conf->{hostname}
300                                                          , delete $conf->{deploy}                                                          , delete $conf->{deploy}
301                                                          , ( %$conf ? html::pre_dump( $conf ) : qq|<a href=/nmap?scan=$ip>nmap</a>| )                                                          , ( %$conf ? html::pre_dump( $conf ) : qq|<a href=/nmap?scan=$ip>nmap</a>| )
302                                                  );                                                  );
303                                          } client::all_ips                                          } @ips
304                                  )                                  )
305                                  ;                                  ;
306                            print $client qq|
307                                    <form method=get>
308                                    <input type=submit name=ping value=ping>
309                                    </form>
310                            |;
311                  }                  }
312          } elsif ( $path =~ m{^/brctl} ) {          } elsif ( $path =~ m{^/brctl} ) {
313                  print $client ok                  print $client ok
Legend:
Removed from v.329  
changed lines
  Added in v.330
  ViewVC Help
Powered by ViewVC 1.1.26