Changeset 248 for trunk/DNSDB.pm

Timestamp:

02/28/12 17:11:56 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Quick pass over log linking and display for reverse zones. See #26.
Also add a ##fixme in logaction() for pagination, filtering, and
other log data massaging.

Fix a couple of typos introduced by hand-applying unrelated fixes
in a separate working copy

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -1827 +1827 @@
   my $dbh = shift;
   my $defrec = shift;
-  my $reverc = shift;
+  my $revrec = shift;
 
   my %soa = @_;
 
 ##fixme: data validation: make sure {recid} is really the SOA for {parent}
-  my $sql = "UPDATE "_rectable($defrec, $revrec)." SET host=?, val=?, ttl=? WHERE record_id=? AND type=6";
-  $sth = $dbh->prepare($sql);
-  $sth->execute("$soa{contact}:$soa{prins}", "$soa{refresh}:$soa{retry}:$soa{expire}:$soa{minttl}",
-        $soa{ttl}, $soa{recid});
+  my $sql = "UPDATE "._rectable($defrec, $revrec)." SET host=?, val=?, ttl=? WHERE record_id=? AND type=6";
+  $dbh->do($sql, undef, ("$soa{contact}:$soa{prins}", "$soa{refresh}:$soa{retry}:$soa{expire}:$soa{minttl}",
+        $soa{ttl}, $soa{recid}));
 
 } # end updateSOA()