Changeset 193 for trunk/dns.cgi

Timestamp:

12/09/11 17:56:27 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Hack _log() to dig up user data when (not if) it's missing. Better solution needed.
Clean up debugging statements in addDomain()
Add some ##fixme's to dns.cgi
Log distance, port, weight as needed for new MX, SRV records

File:

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

trunk/dns.cgi

@@ -347 +347 @@
 
   if ($code eq 'OK') {
-    logaction($msg, $session->param("username"), $webvar{group}, "Added domain $webvar{domain}");
+#    logaction($msg, $session->param("username"), $webvar{group}, "Added domain $webvar{domain}");
     changepage(page => "reclist", id => $msg);
   } else {
@@ -519 +519 @@
     if ($code eq 'OK') {
       if ($webvar{defrec} eq 'y') {
-        my $restr = "Added default record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}";
+        my $restr = "Added default record '$webvar{name} $typemap{$webvar{type}}";
+        $restr .= " [distance $dist]" if $typemap{$webvar{type}} eq 'MX';
+        $restr .= " [priority $dist] [weight $weight] [port $port]" if $typemap{$webvar{type}} eq 'SRV';
+        $restr .= " $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 {
-        my $restr = "Added record '$webvar{name} $typemap{$webvar{type}} $webvar{address}', TTL $webvar{ttl}";
+        my $restr = "Added record '$webvar{name} $typemap{$webvar{type}}".
+        $restr .= " [distance $dist]" if $typemap{$webvar{type}} eq 'MX';
+        $restr .= " [priority $dist] [weight $weight] [port $port]" if $typemap{$webvar{type}} eq 'SRV';
+        $restr .= " $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);
@@ -582 +588 @@
 
     if ($code eq 'OK') {
+##fixme: retrieve old record info for full logging of change
       if ($webvar{defrec} eq 'y') {
         my $restr = "Updated default record from '$oldrec->{host} $typemap{$oldrec->{type}} $oldrec->{val}', TTL $oldrec->{ttl}\n".