Changeset 548 for branches/stable/compact-recs.pl

Timestamp:

12/11/13 16:01:18 (10 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Merge reverse DNS work and object conversion from /trunk, part 5

Includes changes through r543 with a few more minor conflicts.

Location:

branches/stable

Files:

• . (modified) (1 prop)
• compact-recs.pl (modified) (2 diffs)

branches/stable/compact-recs.pl

@@ -23 +23 @@
 use warnings;
 
-use lib '.';
+use lib '.';    ##uselib##
 use DNSDB;
 
@@ -120 +120 @@
     $dbh->do("INSERT INTO records (domain_id, rdns_id, host, type, val, ttl, location) VALUES (?,?,?,?,?,?,?)",
         undef, ($dparent, $zone, $patt, $newtype, $cidr, $soa->{minttl}, $ploc) );
+    $dbh->do("UPDATE revzones SET changed='y' WHERE rdns_id = ?", undef, ($zone));
+    $dbh->do("UPDATE domains SET changed='y' WHERE domain_id = ?", undef, ($dparent)) if $dparent;
     $dnsdb->_log(rdns_id => $zone, domain_id => $dparent, group_id => 1,
         entry => "A+PTR and/or PTR records in $cidr matching $patt replaced by $typemap{$newtype} record for $cidr");