Changeset 16 for trunk/DNSDB.pm

Timestamp:

09/15/09 17:52:13 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

File:

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

trunk/DNSDB.pm

@@ -24 +24 @@
 @EXPORT_OK      = qw(
         &initGlobals &connectDB &finish &addDomain &delDomain &domainName &grpName &getSOA &getRecLine
-        &getDomRecs &addRec &delRec &domStatus
+        &getDomRecs &addRec &updateRec &delRec &domStatus
         %typemap %reverse_typemap
         );
@@ -31 +31 @@
 %EXPORT_TAGS    = ( ALL => [qw(
                 &initGlobals &connectDB &finish &addDomain &delDomain &domainName &grpName &getSOA &getRecLine
-                &getDomRecs &addRec &delRec &domStatus
+                &getDomRecs &addRec &updateRec &delRec &domStatus
                 %typemap %reverse_typemap
                 )]
@@ -453 +453 @@
 
 
+## DNSDB::updateRec()
+# Update a record
+sub updateRec {
+  $errstr = '';
+  my $dbh = shift;
+  my $defrec = shift;
+  my $id = shift;
+
+# all records have these
+  my $host = shift;
+  my $type = shift;
+  my $val = shift;
+  my $ttl = shift;
+
+  return('FAIL',"Missing standard argument(s)") if !defined($ttl);
+
+# only MX and SRV will use these
+  my $dist = 0;
+  my $weight = 0;
+  my $port = 0;
+
+  if ($type == $reverse_typemap{MX} || $type == $reverse_typemap{SRV}) {
+    $dist = shift
+        or return ('FAIL',"MX or SRV requires distance");
+    if ($type == $reverse_typemap{SRV}) {
+      my $weight = shift
+        or return ('FAIL',"SRV requires weight");
+      my $port = shift
+        or return ('FAIL',"SRV requires port");
+    }
+  }
+
+  my $sth = $dbh->prepare("UPDATE ".($defrec eq 'y' ? 'default_' : '')."records ".
+        "SET host=?,type=?,val=?,ttl=?,distance=?,weight=?,port=? ".
+        "WHERE record_id=?");
+  $sth->execute($host,$type,$val,$ttl,$dist,$weight,$port,$id);
+
+  return ('FAIL',$sth->errstr) if $sth->err;
+
+  return ('OK','OK');
+} # end updateRec()
+
+
 ## DNSDB::delRec()
 # Delete a record.