show client setup just to... well clients within range

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index 7fac25e..6ae0211 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -213,7 +213,10 @@ warn "XXX pids = ", dump( $daemons::pids );
                        $ip = $new_ip;
                }
 
-               if ( $ip ne $server::ip ) {
+               my $ip_short = (split(/\./, $ip, 4))[3];
+
+               # if ( $ip ne $server::ip ) -- not flexible enough for tunnel endpoints
+               if ( $ip_short >= $server::ip_from && $ip_short <= $server::ip_to ) {
                        my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} );
 
                        my @table = (