Changeset 287 for trunk/dns.cgi

Timestamp:

03/26/12 16:59:08 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Move action logging for addRec() into DNSDB.pm. See #35

File:

• trunk/dns.cgi (modified) (1 diff)

trunk/dns.cgi

@@ -677 +677 @@
 
     if ($code eq 'OK' || $code eq 'WARN') {
-      my $restr;
-      if ($webvar{defrec} eq 'y') {
-        $restr = "Added default record '$webvar{name} $typemap{$webvar{type}}";
-        $restr .= " [distance $webvar{distance}]" if $typemap{$webvar{type}} eq 'MX';
-        $restr .= " [priority $webvar{distance}] [weight $webvar{weight}] [port $webvar{port}]"
-                if $typemap{$webvar{type}} eq 'SRV';
-        $restr .= " $webvar{address}', TTL $webvar{ttl}";
-        logaction(0, $session->param("username"), $webvar{parentid}, $restr);
-      } else {
-        $restr = "Added record '$webvar{name} $typemap{$webvar{type}}";
-        $restr .= " [distance $webvar{distance}]" if $typemap{$webvar{type}} eq 'MX';
-        $restr .= " [priority $webvar{distance}] [weight $webvar{weight}] [port $webvar{port}]"
-                if $typemap{$webvar{type}} eq 'SRV';
-        $restr .= " $webvar{address}', TTL $webvar{ttl}";
-        logaction($webvar{parentid}, $session->param("username"),
-                parentID($dbh, (id => $webvar{parentid}, type => 'domain', revrec => $webvar{revrec})), $restr);
-      }
       my %pageparams = (page => "reclist", id => $webvar{parentid},
         defrec => $webvar{defrec}, revrec => $webvar{revrec});
-      $pageparams{warnmsg} = $msg."<br><br>\n".$restr if $code eq 'WARN';
-      $pageparams{resultmsg} = $restr if $code eq 'OK';
+      $pageparams{warnmsg} = $msg."<br><br>\n".$DNSDB::resultstr if $code eq 'WARN';
+      $pageparams{resultmsg} = $DNSDB::resultstr if $code eq 'OK';
       changepage(%pageparams);
     } else {