Changeset 466 for trunk

Timestamp:

03/12/13 12:06:28 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

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

• general internal utility subs

File:

• trunk/DNSDB.pm (modified) (4 diffs)

trunk/DNSDB.pm

@@ -271 +271 @@
 ## DNSDB::_ipparent()
 # Check an IP to be added in a reverse zone to see if it's really in the requested parent.
-# Takes a database handle, default and reverse flags, IP (fragment) to check, parent zone ID,
+# Takes default and reverse flags, IP (fragment) to check, parent zone ID,
 # and a reference to a NetAddr::IP object (also used to pass back a fully-reconstructed IP for
 # database insertion)
 sub _ipparent {
-  my $dbh = shift;
+  my $self = shift;
+  my $dbh = $self->{dbh};
   my $defrec = shift;
   my $revrec = shift;
@@ -336 +337 @@
 ## DNSDB::_hostparent()
 # A little different than _ipparent above;  this tries to *find* the parent zone of a hostname
-# Takes a database handle and hostname.
+# Takes a hostname.
 # Returns the domain ID of the parent domain if one was found.
 sub _hostparent {
-  my $dbh = shift;
+  my $self = shift;
+  my $dbh = $self->{dbh};
   my $hname = shift;
 
@@ -357 +359 @@
 ## DNSDB::_log()
 # Log an action
-# Takes a database handle and log entry hash containing at least:
+# Takes a log entry hash containing at least:
 #  group_id, log entry
 # and optionally one or more of:
@@ -363 +365 @@
 # The %userdata hash provides the user ID, username, and fullname
 sub _log {
-  my $dbh = shift;
+  my $self = shift;
+  my $dbh = $self->{dbh};
 
   my %args = @_;