Changeset 784 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/DNSDB.pm

    r782 r784  
    42734273        " retry $soa{retry}, expire $soa{expire}, minTTL $soa{minttl}, TTL $soa{ttl})";
    42744274    }
    4275     _updateserial(%logdata);
     4275    $self->_updateserial(%logdata);
    42764276    $logdata{entry} = $msg;
    42774277    $self->_log(%logdata);
     
    46224622    $dbh->do("INSERT INTO "._rectable($defrec, $revrec)." ($fields) VALUES ($vallen)",
    46234623        undef, @vallist);
    4624     _updateserial(%logdata);
     4624    $self->_updateserial(%logdata);
    46254625    $self->_log(%logdata);
    46264626    $dbh->commit;
     
    48234823  eval {
    48244824    $dbh->do("UPDATE "._rectable($defrec,$revrec)." SET $fields WHERE record_id=?", undef, (@vallist, $id) );
    4825     _updateserial(%logdata);
     4825    $self->_updateserial(%logdata);
    48264826    $self->_log(%logdata);
    48274827    $dbh->commit;
     
    48904890    $dbh->do("UPDATE records SET $delpar = ?, type = ? WHERE record_id = ?", undef, @sqlargs);
    48914891    # we have no %logdata in this sub
    4892     _updateserial(domain_id => $rec->{domain_id}, rdns_id => $rec->{rdns_id});
     4892    $self->_updateserial(domain_id => $rec->{domain_id}, rdns_id => $rec->{rdns_id});
    48934893    $self->_log(domain_id => $rec->{domain_id}, rdns_id => $rec->{rdns_id},
    48944894        group_id => $self->parentID(id => $rec->{rdns_id}, type => 'revzone', revrec => 'y'),
     
    49424942  eval {
    49434943    $dbh->do("DELETE FROM "._rectable($defrec,$revrec)." WHERE record_id=?", undef, ($id));
    4944     _updateserial(%logdata);
     4944    $self->_updateserial(%logdata);
    49454945    $self->_log(%logdata);
    49464946    $dbh->commit;
Note: See TracChangeset for help on using the changeset viewer.