Changeset 389 for trunk/DNSDB.pm

Timestamp:

09/21/12 13:08:05 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Add location support to addRec() and updateRec().
Extend add/update record UI to make sure the user can only update
the location if they have record_locchg permission, by retrieving
the parent/original location for add/update respectively.
See #10.

File:

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

trunk/DNSDB.pm

@@ -3261 +3261 @@
   my $id = shift;
 
-  my $sql = "SELECT record_id,host,type,val,ttl".($revrec eq 'n' ? ',distance,weight,port' : '').
+  my $sql = "SELECT record_id,host,type,val,ttl,location".($revrec eq 'n' ? ',distance,weight,port' : '').
         (($defrec eq 'y') ? ',group_id FROM ' : ',domain_id,rdns_id FROM ').
         _rectable($defrec,$revrec)." WHERE record_id=?";
@@ -3402 +3402 @@
   my $val = shift;
   my $ttl = shift;
+  my $location = shift;
+  $location  = '' if !$location;
 
   # prep for validation
@@ -3440 +3442 @@
 
   # Set up database fields and bind parameters
-  $fields .= "host,type,val,ttl,"._recparent($defrec,$revrec);
-  push @vallist, ($$host,$$rectype,$$val,$ttl,$id);
+  $fields .= "host,type,val,ttl,location,"._recparent($defrec,$revrec);
+  push @vallist, ($$host,$$rectype,$$val,$ttl,$location,$id);
   my $vallen = '?'.(',?'x$#vallist);
 
@@ -3468 +3470 @@
   $logdata{entry} .= " [priority $dist] [weight $weight] [port $port]"
         if $typemap{$$rectype} eq 'SRV';
-  $logdata{entry} .= "', TTL $ttl";
+  $logdata{entry} .= "', TTL $ttl, location $location";
 
   # Allow transactions, and raise an exception on errors so we can catch it later.
@@ -3518 +3520 @@
   my $val = shift;
   my $ttl = shift;
+  my $location = shift; # may be empty/null/undef depending on caller
+  $location  = '' if !$location;
 
   # prep for validation
@@ -3564 +3568 @@
   # Set up database fields and bind parameters.  Note only the optional fields
   # (distance, weight, port, secondary parent ID) are added in the validation call above
-  $fields .= "host,type,val,ttl,"._recparent($defrec,$revrec);
-  push @vallist, ($$host,$$rectype,$$val,$ttl,
+  $fields .= "host,type,val,ttl,location,"._recparent($defrec,$revrec);
+  push @vallist, ($$host,$$rectype,$$val,$ttl,$location,
         ($defrec eq 'y' ? $oldrec->{group_id} : ($revrec eq 'n' ? $oldrec->{domain_id} : $oldrec->{rdns_id})) );
 
@@ -3618 +3622 @@
   $logdata{entry} .= " [priority $oldrec->{distance}] [weight $oldrec->{weight}] [port $oldrec->{port}]"
         if $typemap{$oldrec->{type}} eq 'SRV';
-  $logdata{entry} .= "', TTL $oldrec->{ttl}\nto\n";
+  $logdata{entry} .= "', TTL $oldrec->{ttl}, location $oldrec->{location}\nto\n";
   # More NS special
   if ($revrec eq 'y' && $$rectype == 2) {
@@ -3627 +3631 @@
   $logdata{entry} .= " [distance $dist]" if $typemap{$$rectype} eq 'MX';
   $logdata{entry} .= " [priority $dist] [weight $weight] [port $port]" if $typemap{$$rectype} eq 'SRV';
-  $logdata{entry} .= "', TTL $ttl";
+  $logdata{entry} .= "', TTL $ttl, location $location";
 
   local $dbh->{AutoCommit} = 0;