Changeset 511 for trunk


Ignore:
Timestamp:
05/14/13 14:51:22 (12 years ago)
Author:
Kris Deugau
Message:

/trunk

Clean up some error-log garbage in dns-rpc.cgi. See #25.

  • add a check sub to fail if defrec and revrec are not present; only called from subs that actually need them
  • include newlines in error-passback die() calls, so that we don't bother the caller with line numbers in dns-rpc.cgi
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/dns-rpc.cgi

    r506 r511  
    118118}
    119119
     120# check for defrec and revrec;  only call on subs that deal with records
     121sub _reccheck {
     122  my $argref = shift;
     123  die "Missing defrec and/or revrec flags\n" if !($argref->{defrec} || $argref->{revrec});
     124}
     125
    120126# set location to the zone's default location if none is specified
    121127sub _loccheck {
    … …  
    151157
    152158  my ($code, $msg) = $dnsdb->addDomain($args{domain}, $args{group}, $args{state});
    153   die $msg if $code eq 'FAIL';
     159  die "$msg\n" if $code eq 'FAIL';
    154160  return $msg;  # domain ID
    155161}
    … …  
    172178    ($code,$msg) = $dnsdb->delZone($zoneid, $args{revrec});
    173179  }
    174   die $msg if $code eq 'FAIL';
     180  die "$msg\n" if $code eq 'FAIL';
    175181  return $msg;
    176182}
    … …  
    185191
    186192  my $domid = $dnsdb->domainID($args{domain});
    187   die $dnsdb->errstr if !$domid;
     193  die "$dnsdb->errstr\n" if !$domid;
    188194  return $domid;
    189195}
    … …  
    219225## optional $inhert arg?
    220226  my ($code,$msg) = $dnsdb->addGroup($args{groupname}, $args{parent_id}, $perms);
    221   die $msg if $code eq 'FAIL';
     227  die "$msg\n" if $code eq 'FAIL';
    222228  return $msg;
    223229}
    … …  
    238244    ($code,$msg) = $dnsdb->delGroup($grpid);
    239245  }
    240   die $msg if $code eq 'FAIL';
     246  die "$msg\n" if $code eq 'FAIL';
    241247  return $msg;
    242248}
    … …  
    264270  }
    265271  my ($code,$msg) = $dnsdb->addUser(@userargs);
    266   die $msg if $code eq 'FAIL';
     272  die "$msg\n" if $code eq 'FAIL';
    267273  return $msg;
    268274}
    … …  
    290296#         have to pass them all in to be overwritten
    291297  my ($code,$msg) = $dnsdb->updateUser(@userargs);
    292   die $msg if $code eq 'FAIL';
     298  die "$msg\n" if $code eq 'FAIL';
    293299  return $msg;
    294300}
    … …  
    301307  die "Missing UID\n" if !$args{uid};
    302308  my ($code,$msg) = $dnsdb->delUser($args{uid});
    303   die $msg if $code eq 'FAIL';
     309  die "$msg\n" if $code eq 'FAIL';
    304310  return $msg;
    305311}
    … …  
    330336
    331337  _commoncheck(\%args);
     338
     339  _reccheck(\%args);
    332340
    333341  my $ret = $dnsdb->getSOA($args{defrec}, $args{revrec}, $args{id});
    … …  
    349357  _commoncheck(\%args);
    350358
     359  _reccheck(\%args);
     360
    351361  my $ret = $dnsdb->getRecLine($args{defrec}, $args{revrec}, $args{id});
    352362
    353   die $dnsdb->errstr if !$ret;
     363  die "$dnsdb->errstr\n" if !$ret;
    354364
    355365  return $ret;
    … …  
    384394
    385395  # fail if we *still* don't have a valid zone ID
    386   die $dnsdb->errstr."\n" if !$args{id};
     396  die "$dnsdb->errstr\n" if !$args{id};
    387397
    388398  # and finally retrieve the records.
    … …  
    390400        offset => $args{offset}, nrecs => $args{nrecs}, sortby => $args{sortby},
    391401        sortorder => $args{sortorder}, filter => $args{filter});
    392   die $dnsdb->errstr."\n" if !$ret;
     402  die "$dnsdb->errstr\n" if !$ret;
    393403
    394404  return $ret;
    … …  
    399409
    400410  _commoncheck(\%args);
     411
     412  _reccheck(\%args);
    401413
    402414  # set some optional args
    … …  
    409421  my $ret = $dnsdb->getRecCount($args{defrec}, $args{revrec}, $args{id}, $args{filter});
    410422
    411   die $dnsdb->errstr if !$ret;
     423  die "$dnsdb->errstr\n" if !$ret;
    412424
    413425  return $ret;
    … …  
    419431  _commoncheck(\%args, 'y');
    420432
     433  _reccheck(\%args);
    421434  _loccheck(\%args);
    422435  _ttlcheck(\%args);
    … …  
    437450  my ($code, $msg) = $dnsdb->addRec(@recargs);
    438451
    439   die $msg if $code eq 'FAIL';
     452  die "$msg\n" if $code eq 'FAIL';
    440453  return $msg;
    441454}
    … …  
    445458
    446459  _commoncheck(\%args, 'y');
     460
     461  _reccheck(\%args);
    447462
    448463  # get old line, so we can update only the bits that the caller passed to change
    … …  
    462477        $args{distance}, $args{weight}, $args{port});
    463478
    464   die $msg if $code eq 'FAIL';
     479  die "$msg\n" if $code eq 'FAIL';
    465480  return $msg;
    466481}
    … …  
    541556  _commoncheck(\%args, 'y');
    542557
     558  _reccheck(\%args);
     559
    543560  my ($code, $msg) = $dnsdb->delRec($args{defrec}, $args{recrev}, $args{id});
    544561
    545   die $msg if $code eq 'FAIL';
     562  die "$msg\n" if $code eq 'FAIL';
    546563  return $msg;
    547564}
    … …  
    602619          if ($args{delforward} || $rec->{type} == 12) {
    603620            my ($code,$msg) = $dnsdb->delRec('n', 'y', $rec->{record_id});
    604             die $msg if $code eq 'FAIL';
     621            die "$msg\n" if $code eq 'FAIL';
    605622            return $msg;
    606623          } else {
    607624            my $ret = $dnsdb->downconvert($rec->{record_id}, $DNSDB::reverse_typemap{A});
    608             die $dnsdb->errstr if !$ret;
     625            die "$dnsdb->errstr\n" if !$ret;
    609626            return "A+PTR for $args{cidr} split and PTR removed";
    610627          }
Note: See TracChangeset for help on using the changeset viewer.