- Timestamp:
- 05/18/05 15:36:14 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/IPDB.pm
r233 r246 425 425 my @poolip_list = $pool->hostenum; 426 426 if ($class eq 'all') { # (DSL-ish block - *all* IPs available 427 $sth->execute($pool->addr); 427 if ($pool->addr !~ /\.0$/) { # .0 causes weirdness. 428 $sth->execute($pool->addr); 429 } 428 430 for (my $i=0; $i<=$#poolip_list; $i++) { 429 431 $sth->execute($poolip_list[$i]->addr); 430 432 } 431 433 $pool--; 432 $sth->execute($pool->addr); 434 if ($pool->addr !~ /\.255$/) { # .255 can cause weirdness. 435 $sth->execute($pool->addr); 436 } 433 437 } else { # (real netblock) 434 438 for (my $i=1; $i<=$#poolip_list; $i++) {
Note:
See TracChangeset
for help on using the changeset viewer.