/[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 333 by dpavlin, Fri Aug 28 22:55:01 2009 UTC revision 334 by dpavlin, Fri Aug 28 23:30:38 2009 UTC
# Line 224  warn "XXX pids = ", dump( $daemons::pids Line 224  warn "XXX pids = ", dump( $daemons::pids
224                  if ( ! $ip ) {                  if ( ! $ip ) {
225                          my $peer_ip = $client->peerhost;                          my $peer_ip = $client->peerhost;
226    
227                          my $netmask = ip::to_int $server::netmask;                          my $netmask  = ip::to_int $server::netmask;
228                          my $network = ip::to_int $server::ip & $netmask;                          my $network  = ip::to_int($server::ip) & $netmask;
229                          my ( $from, $to ) = ( $network | $server::ip_from, $network | $server::ip_to );                          my $from_int = $network | $server::ip_from;
230                          my $ip_int  = ip::to_int $peer_ip;                          my $to_int   = $network | $server::ip_to;
231                            my $ip_int   = ip::to_int $peer_ip;
232    
233                          # show edit for clients in our dhcp range                          # show edit for clients in our dhcp range
234                          if ( $ip_int >= ( $network | $server::ip_from ) && $ip_int <= ( $network | $server::ip_to ) ) {                          if ( $ip_int >= $from_int && $ip_int <= $to_int ) {
235                                  $ip = $peer_ip;                                  $ip = $peer_ip;
236                          }                          }
237                  }                  }
# Line 272  warn "XXX pids = ", dump( $daemons::pids Line 273  warn "XXX pids = ", dump( $daemons::pids
273    
274                  } else {                  } else {
275    
276                          my $arp = client::arp_mac_dev;                          my @ping;
277                          my @ips = client::all_ips;                          if ( my $host = $param->{ping_target} ) {
278                                    @ping = ( $host );
279                            } elsif ( $param->{ping} ) {
280                                    @ping = client::all_ips;
281                            }
282    
283                          my $ping;                          my $ping = ping::fping( @ping ) if @ping;
284                          $ping = ping::fping( @ips ) if $param->{ping};                          my $arp = client::arp_mac_dev;
285    
286                          print $client ok                          print $client ok
287                                  , qq|<h2>Clients on $server::ip</h2>|                                  , qq|<h2>Clients on $server::ip</h2>|
# Line 292  warn "XXX pids = ", dump( $daemons::pids Line 297  warn "XXX pids = ", dump( $daemons::pids
297                                                          . ( $ping->{$ip} ? 'green' : 'red' )                                                          . ( $ping->{$ip} ? 'green' : 'red' )
298                                                          . '"'                                                          . '"'
299                                                          if $ping;                                                          if $ping;
300                                                    $style ||= '';
301                                                  (                                                  (
302                                                          qq|<a $style name=$ip href=/client/$ip>$ip</a>|                                                          qq|<a $style name=$ip href=/client/$ip>$ip</a>|
303                                                          , format::mac( $mac => 'html' )                                                          , format::mac( $mac => 'html' )
# Line 300  warn "XXX pids = ", dump( $daemons::pids Line 306  warn "XXX pids = ", dump( $daemons::pids
306                                                          , delete $conf->{deploy}                                                          , delete $conf->{deploy}
307                                                          , ( %$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>| )
308                                                  );                                                  );
309                                          } @ips                                          } client::all_ips
310                                  )                                  )
311                                  ;                                  ;
312                          print $client qq|                          print $client qq|
313                                  <form method=get>                                  <form method=get>
314                                    <input type=text   name=ping_target   size=15>
315                                  <input type=submit name=ping value=ping>                                  <input type=submit name=ping value=ping>
316                                  </form>                                  </form>
317                          |;                          |;
Legend:
Removed from v.333  
changed lines
  Added in v.334
  ViewVC Help
Powered by ViewVC 1.1.26