/[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 328 by dpavlin, Fri Aug 28 19:44:38 2009 UTC revision 330 by dpavlin, Fri Aug 28 22:29:08 2009 UTC
# Line 269  warn "XXX pids = ", dump( $daemons::pids Line 269  warn "XXX pids = ", dump( $daemons::pids
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                          }                          }
272    
273                  } else {                  } else {
274    
275                          my $arp = {                          my $arp = client::arp_mac_dev;
276                                  map {                          my @ips = client::all_ips;
                                         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')  
                         };  
277    
278                          warn "# arp ",dump( $arp );                          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 292  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.328  
changed lines
  Added in v.330
  ViewVC Help
Powered by ViewVC 1.1.26