Changeset 151 for trunk/dns.cgi

Timestamp:

10/20/11 18:15:32 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Add/update/delete record now produces the same consistent nifty
green-bordered box confirming that the action was successful.

File:

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

trunk/dns.cgi

@@ -358 +358 @@
     }
 
+    $page->param(resultmsg => $webvar{resultmsg}) if $webvar{resultmsg};
     $page->param(errmsg => $webvar{errmsg}) if $webvar{errmsg};
 
@@ -394 +395 @@
     if ($code eq 'OK') {
       if ($webvar{defrec} eq 'y') {
-        logaction(0, $session->param("username"), $webvar{parentid},
-                "Added default record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}");
+        my $restr = "Added default record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}";
+        logaction(0, $session->param("username"), $webvar{parentid}, $restr);
+        changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec}, resultmsg => $restr);
       } else {
-        logaction($webvar{parentid}, $session->param("username"), parentID($webvar{parentid}, 'dom', 'group'),
-                "Added record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}");
-      }
-      changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec});
+        my $restr = "Added record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}";
+        logaction($webvar{parentid}, $session->param("username"), parentID($webvar{parentid}, 'dom', 'group'), $restr);
+        changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec}, resultmsg => $restr);
+      }
     } else {
       $page->param(failed       => 1);
@@ -457 +459 @@
 ##log
       if ($webvar{defrec} eq 'y') {
-        logaction(0, $session->param("username"), $webvar{parentid},
-                "Updated default record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}");
+        my $restr = "Updated default record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}";
+        logaction(0, $session->param("username"), $webvar{parentid}, $restr);
+        changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec}, resultmsg => $restr);
       } else {
-        logaction($webvar{parentid}, $session->param("username"), parentID($webvar{id}, 'rec', 'group'),
-                "Updated record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}");
-      }
-      changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec});
+        my $restr = "Updated record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}";
+        logaction($webvar{parentid}, $session->param("username"), parentID($webvar{id}, 'rec', 'group'), $restr);
+        changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec}, resultmsg => $restr);
+      }
     } else {
       $page->param(failed       => 1);
@@ -529 +532 @@
     } else {
       if ($webvar{defrec} eq 'y') {
-        logaction(0, $session->param("username"), $rec->{parid},
-                "Deleted default record '$rec->{host} $typemap{$rec->{type}} $rec->{val}', TTL $rec->{ttl}");
+        my $restr = "Deleted default record '$rec->{host} $typemap{$rec->{type}} $rec->{val}', TTL $rec->{ttl}";
+        logaction(0, $session->param("username"), $rec->{parid}, $restr);
+        changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec}, resultmsg => $restr);
       } else {
-        logaction($rec->{parid}, $session->param("username"), parentID($rec->{parid}, 'dom', 'group'),
-                "Deleted record '$rec->{host} $typemap{$rec->{type}} $rec->{val}', TTL $rec->{ttl}");
-      }
-      changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec});
+        my $restr = "Deleted record '$rec->{host} $typemap{$rec->{type}} $rec->{val}', TTL $rec->{ttl}";
+        logaction($rec->{parid}, $session->param("username"), parentID($rec->{parid}, 'dom', 'group'), $restr);
+        changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec}, resultmsg => $restr);
+      }
     }
   } else {