Changeset 116

Timestamp:

09/01/11 14:46:37 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Tighten addDomain()'s checking of domain state

File:

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

trunk/DNSDB.pm

@@ -34 +34 @@
         &getSOA &getRecLine &getDomRecs &getRecCount
         &addRec &updateRec &delRec
+        &isParent
         &domStatus &importAXFR
         &export
@@ -51 +52 @@
                 &getSOA &getRecLine &getDomRecs &getRecCount
                 &addRec &updateRec &delRec
+                &isParent
                 &domStatus &importAXFR
                 &export
@@ -404 +406 @@
   my $state = shift;
   return ('FAIL',"Need domain status") if !defined($state);
+
+  $state = 1 if $state =~ /^active$/;
+  $state = 1 if $state =~ /^on$/;
+  $state = 0 if $state =~ /^inactive$/;
+  $state = 0 if $state =~ /^off$/;
+
+  return ('FAIL',"Invalid domain status") if $state !~ /^\d+$/;
 
   my $sth = $dbh->prepare("SELECT domain_id FROM domains WHERE domain=?");
@@ -1311 +1320 @@
   return ('OK','OK');
 } # end delRec()
+
+
+## DNSDB::getParents()
+# Find out which entities are parent to the requested id
+# Returns arrayref containing hash pairs of id/type
+sub getParents {
+  my $dbh = shift;
+  my $id = shift;
+  my $type = shift;
+
+  # Get immediate parent
+  $par_col = 'group_id';
+
+  if ($type eq 'user') {
+    $table = 'users';
+    $id_col = 'user_id';
+  }
+  if ($type eq 'defrec') {
+    $table = 'default_records';
+    $id_col = 'record_id';
+  }
+  if ($type eq 'domain') {
+    $table = 'domains';
+    $id_col = 'domain_id';
+  }
+  if ($type eq 'record') {
+    $table = 'records';
+    $id_col = 'record_id';
+    $par_col = 'domain_id';
+  }
+
+$dbh->do("SELECT $par_col FROM $table WHERE $id_col = ?", 
+
+} # end getParents()