Changeset 248 for branches

Timestamp:

05/18/05 15:58:31 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Merge bugfix from /trunk r246

File:

• branches/stable/cgi-bin/IPDB.pm (modified) (1 diff)

branches/stable/cgi-bin/IPDB.pm

@@ -425 +425 @@
     my @poolip_list = $pool->hostenum;
     if ($class eq 'all') { # (DSL-ish block - *all* IPs available
-      $sth->execute($pool->addr);
+      if ($pool->addr !~ /\.0$/) {      # .0 causes weirdness.
+        $sth->execute($pool->addr);
+      }
       for (my $i=0; $i<=$#poolip_list; $i++) {
         $sth->execute($poolip_list[$i]->addr);
       }
       $pool--;
-      $sth->execute($pool->addr);
+      if ($pool->addr !~ /\.255$/) {    # .255 can cause weirdness.
+        $sth->execute($pool->addr);
+      }
     } else { # (real netblock)
       for (my $i=1; $i<=$#poolip_list; $i++) {