- Timestamp:
- 05/14/13 17:00:24 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r510 r512 1596 1596 my $sth = $dbh->prepare($sql); 1597 1597 1598 ##fixme: this should be trapped 1598 1599 $sth->execute($id) or die "argh: ".$sth->errstr; 1599 1600 … … 2483 2484 my ($domcnt) = $dbh->selectrow_array("SELECT count(*) FROM domains WHERE group_id=?", undef, ($groupid)); 2484 2485 die "$domcnt domains still in group\n" if $domcnt; 2486 my ($revcnt) = $dbh->selectrow_array("SELECT count(*) FROM revzones WHERE group_id=?", undef, ($groupid)); 2487 die "$revcnt reverse zones still in group\n" if $revcnt; 2485 2488 my ($usercnt) = $dbh->selectrow_array("SELECT count(*) FROM users WHERE group_id=?", undef, ($groupid)); 2486 2489 die "$usercnt users still in group\n" if $usercnt; … … 3581 3584 $defsort = 'val' if $args{revrec} eq 'y'; # default sort by IP on revzone record list 3582 3585 $args{sortby} = $defsort if !$args{revrec}; 3583 $args{sortby} = $defsort if $args{sortby} !~ /^[\w_ .]+$/;3586 $args{sortby} = $defsort if $args{sortby} !~ /^[\w_,.]+$/; 3584 3587 $args{offset} = 0 if !$args{offset} || $args{offset} !~ /^(?:all|\d+)$/; 3585 3588 my $perpage = ($args{nrecs} ? $args{nrecs} : $config{perpage}); … … 4102 4105 $args{logtype} = 'domain' if $args{logtype} eq 'dom'; # hack pthui 4103 4106 return if !grep /^$args{logtype}$/, ('group', 'domain', 'revzone', 'user'); 4104 4105 $args{logtype} = 'revzone' if $args{logtype} eq 'rdns'; # hack pthui4106 4107 4107 4108 my $sql = "SELECT count(*) FROM log ".
Note:
See TracChangeset
for help on using the changeset viewer.