Changeset 258 for trunk

Timestamp:

03/02/12 16:40:32 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Still missed a couple pieces in r257. See #26

File:

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

trunk/DNSDB.pm

@@ -1092 +1092 @@
     ($dom_id) = $dbh->selectrow_array("SELECT domain_id FROM domains WHERE domain=?", undef, ($domain));
 
-    _log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group, username => $userinfo{name},
+    _log($dbh, (domain_id => $dom_id, user_id => $userinfo{id}, group_id => $group, username => $userinfo{name},
                 name => $userinfo{fullname}, entry => "Added ".($state ? 'active' : 'inactive')." domain $domain"));
 
@@ -1107 +1107 @@
         my @tmp1 = split /:/, $host;
         my @tmp2 = split /:/, $val;
-        _log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group,
+        _log($dbh, (domain_id => $dom_id, user_id => $userinfo{id}, group_id => $group,
                 username => $userinfo{name}, name => $userinfo{fullname}, entry =>
                 "[new $domain] Added SOA record [contact $tmp1[0]] [master $tmp1[1]] ".
@@ -1115 +1115 @@
         $logentry .= " [distance $dist]" if $typemap{$type} eq 'MX';
         $logentry .= " [priority $dist] [weight $weight] [port $port]" if $typemap{$type} eq 'SRV';
-        _log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group,
+        _log($dbh, (domain_id => $dom_id, user_id => $userinfo{id}, group_id => $group,
                 username => $userinfo{name}, name => $userinfo{fullname}, entry =>
                 $logentry." $val', TTL $ttl"));