Changeset 477 for trunk/DNSDB.pm


Ignore:
Timestamp:
03/13/13 17:10:34 (11 years ago)
Author:
Kris Deugau
Message:

/trunk

Object conversion of DNSDB.pm, 11 of <mumble>. See #11.

  • convert addDomain(), delZone(), addRDNS(), getZoneCount(), getZoneList() getZoneLocation(), zoneStatus(), and getZonesByCIDR() and callers
  • fix a couple of missed utility calls in dns-rpc.cgi as well
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/DNSDB.pm

    r476 r477  
    18161816sub addDomain {
    18171817  $errstr = '';
    1818   my $dbh = shift;
     1818  my $self = shift;
     1819  my $dbh = $self->{dbh};
    18191820  return ('FAIL',"Need database handle") if !$dbh;
    18201821  my $domain = shift;
    … …  
    19071908# later we may want to archive it in some way instead (status code 2, for example?)
    19081909sub delZone {
    1909   my $dbh = shift;
     1910  my $self = shift;
     1911  my $dbh = $self->{dbh};
    19101912  my $zoneid = shift;
    19111913  my $revrec = shift;
    … …  
    20472049# Returns a status code and message
    20482050sub addRDNS {
    2049   my $dbh = shift;
     2051  my $self = shift;
     2052  my $dbh = $self->{dbh};
    20502053  my $zone = NetAddr::IP->new(shift);
    20512054
    … …  
    22202223# Returns an integer count of the resulting zone list.
    22212224sub getZoneCount {
    2222   my $dbh = shift;
     2225  my $self = shift;
     2226  my $dbh = $self->{dbh};
    22232227
    22242228  my %args = @_;
    … …  
    22532257# Returns a reference to an array of hashrefs suitable for feeding to HTML::Template
    22542258sub getZoneList {
    2255   my $dbh = shift;
     2259  my $self = shift;
     2260  my $dbh = $self->{dbh};
    22562261
    22572262  my %args = @_;
    … …  
    23112316# Takes a database handle, forward/reverse flag, and zone ID
    23122317sub getZoneLocation {
    2313   my $dbh = shift;
     2318  my $self = shift;
     2319  my $dbh = $self->{dbh};
    23142320  my $revrec = shift;
    23152321  my $zoneid = shift;
    … …  
    42354241# Returns status, or undef on errors.
    42364242sub zoneStatus {
    4237   my $dbh = shift;
     4243  my $self = shift;
     4244  my $dbh = $self->{dbh};
    42384245  my $id = shift;
    42394246  my $revrec = shift;
    … …  
    42874294# Get a list of zone names and IDs that records for a passed CIDR block are within.
    42884295sub getZonesByCIDR {
    4289   my $dbh = shift;
     4296  my $self = shift;
     4297  my $dbh = $self->{dbh};
    42904298  my %args = @_;
    42914299
Note: See TracChangeset for help on using the changeset viewer.