Changeset 23 for trunk/dns.cgi

Timestamp:

10/20/09 14:47:36 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

• basic group management functional
• add readable failure messages on domain/group delete

File:

• trunk/dns.cgi (modified) (4 diffs)

trunk/dns.cgi

@@ -392 +392 @@
   if (!defined($webvar{del})) {
     $page->param(del_getconf => 1);
-    $page->param(groupname => groupName($dbh,$webvar{id}));
+#    $page->param(groupname => groupName($dbh,$webvar{id}));
 # print some neato things?
 
@@ -400 +400 @@
   } elsif ($webvar{del} eq 'ok') {
     my ($code,$msg) = delGroup($dbh, $webvar{id});
+push @debugbits, groupName($dbh, $webvar{id});
     if ($code ne 'OK') {
 # need to find failure mode
@@ -414 +415 @@
     changepage(page => "grpman");
   }
-
+  $page->param(delgroupname => groupName($dbh, $webvar{id}));
 }
 
@@ -539 +540 @@
     $rec->{sid} = $webvar{sid};
     $rec->{id} = $id;
+    $rec->{distance} = 'n/a' unless ($rec->{type} eq 'MX' || $rec->{type} eq 'SRV'); 
+    $rec->{weight} = 'n/a' unless ($rec->{type} eq 'SRV'); 
+    $rec->{port} = 'n/a' unless ($rec->{type} eq 'SRV');
     $row++;
   }
   $page->param(reclist => $foo2);
 }
+
 
 # fill in record type list on add/update/edit record template