Changeset 257

Timestamp:

03/02/12 16:38:41 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix update to calls to _log from r256. See #26

File:

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

trunk/DNSDB.pm

@@ -1093 +1093 @@
 
     _log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group, username => $userinfo{name},
-                name => $userinfo{fullname}),
-        "Added ".($state ? 'active' : 'inactive')." domain $domain");
+                name => $userinfo{fullname}, entry => "Added ".($state ? 'active' : 'inactive')." domain $domain"));
 
     # ... and now we construct the standard records from the default set.  NB:  group should be variable.
@@ -1109 +1108 @@
         my @tmp2 = split /:/, $val;
         _log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group,
-                        username => $userinfo{name}, name => $userinfo{fullname}),
+                username => $userinfo{name}, name => $userinfo{fullname}, entry =>
                 "[new $domain] Added SOA record [contact $tmp1[0]] [master $tmp1[1]] ".
-                "[refresh $tmp2[0]] [retry $tmp2[1]] [expire $tmp2[2]] [minttl $tmp2[3]], TTL $ttl");
+                "[refresh $tmp2[0]] [retry $tmp2[1]] [expire $tmp2[2]] [minttl $tmp2[3]], TTL $ttl"));
       } else {
         my $logentry = "[new $domain] Added record '$host $typemap{$type}";
@@ -1117 +1116 @@
         $logentry .= " [priority $dist] [weight $weight] [port $port]" if $typemap{$type} eq 'SRV';
         _log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group,
-                        username => $userinfo{name}, name => $userinfo{fullname}),
-                $logentry." $val', TTL $ttl");
+                username => $userinfo{name}, name => $userinfo{fullname}, entry =>
+                $logentry." $val', TTL $ttl"));
       }
     }