Changeset 784 for trunk

Timestamp:

08/22/19 09:42:22 (5 years ago)

Author:

Kris Deugau

Message:

/trunk

*sigh* Object subs must be called internally as $self->[sub], doofus.

File:

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

trunk/DNSDB.pm

@@ -4273 +4273 @@
         " retry $soa{retry}, expire $soa{expire}, minTTL $soa{minttl}, TTL $soa{ttl})";
     }
-    _updateserial(%logdata);
+    $self->_updateserial(%logdata);
     $logdata{entry} = $msg;
     $self->_log(%logdata);
@@ -4622 +4622 @@
     $dbh->do("INSERT INTO "._rectable($defrec, $revrec)." ($fields) VALUES ($vallen)",
         undef, @vallist);
-    _updateserial(%logdata);
+    $self->_updateserial(%logdata);
     $self->_log(%logdata);
     $dbh->commit;
@@ -4823 +4823 @@
   eval {
     $dbh->do("UPDATE "._rectable($defrec,$revrec)." SET $fields WHERE record_id=?", undef, (@vallist, $id) );
-    _updateserial(%logdata);
+    $self->_updateserial(%logdata);
     $self->_log(%logdata);
     $dbh->commit;
@@ -4890 +4890 @@
     $dbh->do("UPDATE records SET $delpar = ?, type = ? WHERE record_id = ?", undef, @sqlargs);
     # we have no %logdata in this sub
-    _updateserial(domain_id => $rec->{domain_id}, rdns_id => $rec->{rdns_id});
+    $self->_updateserial(domain_id => $rec->{domain_id}, rdns_id => $rec->{rdns_id});
     $self->_log(domain_id => $rec->{domain_id}, rdns_id => $rec->{rdns_id},
         group_id => $self->parentID(id => $rec->{rdns_id}, type => 'revzone', revrec => 'y'),
@@ -4942 +4942 @@
   eval {
     $dbh->do("DELETE FROM "._rectable($defrec,$revrec)." WHERE record_id=?", undef, ($id));
-    _updateserial(%logdata);
+    $self->_updateserial(%logdata);
     $self->_log(%logdata);
     $dbh->commit;