- Timestamp:
- 11/08/12 17:57:54 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/admin.cgi
r547 r548 69 69 } 70 70 71 if(!defined($webvar{action})) { 72 $webvar{action} = "main"; #shuts up the warnings. 73 } 74 71 75 # handle DB error output 72 76 if ($webvar{action} eq 'dberr') { … … 87 91 88 92 my $header = HTML::Template->new(filename => "admin/header.tmpl"); 89 90 if(!defined($webvar{action})) {91 $webvar{action} = "main"; #shuts up the warnings.92 }93 93 94 94 my $page; … … 567 567 # List all IPs in a pool, and allow arbitrary admin changes to each 568 568 # Allow changes to ALL fields 569 sub showPool ($){569 sub showPool { 570 570 my $pool = new NetAddr::IP $_[0]; 571 571 … … 582 582 $page->param(typelist => \@typelist); 583 583 584 $sth = $ip_dbh->prepare("select ip,custid,city,type,available,description,notes from poolips where pool='$pool' order by ip"); 585 $sth->execute; 584 $sth = $ip_dbh->prepare("SELECT ip,custid,city,type,available,description,notes from poolips". 585 " WHERE pool=? ORDER BY ip"); 586 $sth->execute($pool); 586 587 my @iplist; 587 588 while (my ($ip,$custid,$city,$type,$avail,$desc,$notes) = $sth->fetchrow_array) {
Note:
See TracChangeset
for help on using the changeset viewer.