/[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 311 by dpavlin, Thu Aug 27 17:44:03 2009 UTC revision 318 by dpavlin, Thu Aug 27 20:01:29 2009 UTC
# Line 215  warn "XXX pids = ", dump( $daemons::pids Line 215  warn "XXX pids = ", dump( $daemons::pids
215                          $ip = $new_ip;                          $ip = $new_ip;
216                  }                  }
217    
218                  my $ip_short = (split(/\./, $ip, 4))[3];                  if ( $ip ne $server::ip ) {
   
                 # if ( $ip ne $server::ip ) -- not flexible enough for tunnel endpoints  
                 if ( $ip_short >= $server::ip_from && $ip_short <= $server::ip_to ) {  
219                          my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} );                          my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} );
220    
221                          my @table = (                          my @table = (
# Line 288  warn "XXX pids = ", dump( $daemons::pids Line 285  warn "XXX pids = ", dump( $daemons::pids
285                                                  $ip;                                                  $ip;
286                                          } glob("$server::conf/ip/*")                                          } glob("$server::conf/ip/*")
287                                  )                                  )
                                 , qq|<h2>ARP</h2>|  
                                 , html::table( -3, 'ip', 'mac', 'dev',  
                                         map {  
                                                 my $c = $arp->{$_};  
                                                 ( $c->[0], format::mac( $_ => 'html' ), $c->[1] )  
                                         } sort keys %$arp  
                                 )  
288                                  ;                                  ;
289                  }                  }
290          } elsif ( $path =~ m{^/brctl} ) {          } elsif ( $path =~ m{^/brctl} ) {
Legend:
Removed from v.311  
changed lines
  Added in v.318
  ViewVC Help
Powered by ViewVC 1.1.26