Changeset 631 for trunk/cgi-bin


Ignore:
Timestamp:
10/08/14 17:41:59 (10 years ago)
Author:
Kris Deugau
Message:

/trunk

Missed main.cgi update for IP pool page in r630. See #5.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/main.cgi

    r627 r631  
    262262sub showPool {
    263263
    264   my $cidr = new NetAddr::IP $webvar{pool};
    265 
    266   $page->param(block => $webvar{pool});
     264  my $poolinfo = getBlockData($ip_dbh, $webvar{pool});
     265  my $cidr = new NetAddr::IP $poolinfo->{block};
     266
     267  $page->param(block => $cidr);
    267268  $page->param(netip => $cidr->addr);
    268269  $cidr++;
     
    271272  $page->param(bcast => $cidr->addr);
    272273  $page->param(mask => $cidr->mask);
    273 
    274   # Snag pool info for heading
    275   my $poolinfo = getBlockData($ip_dbh, $webvar{pool}, $webvar{rdepth});
    276274
    277275  $page->param(disptype => $disp_alloctypes{$poolinfo->{type}});
Note: See TracChangeset for help on using the changeset viewer.