Index: /trunk/DNSDB.pm
===================================================================
--- /trunk/DNSDB.pm	(revision 197)
+++ /trunk/DNSDB.pm	(revision 198)
@@ -17,7 +17,7 @@
 use Net::DNS;
 use Crypt::PasswdMD5;
-#use Net::SMTP;
+use Net::SMTP;
 use NetAddr::IP;
-#use POSIX;
+use POSIX;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
@@ -216,6 +216,6 @@
       # Mail settings
       $config{mailhost}		= $1 if /^mailhost\s*=\s*([a-z0-9_.-]+)/i;
-      $config{mailnotify}	= $1 if /^mailnotify\s*=\s*([a-z0-9_.@-]+)/i;
-      $config{mailsender}	= $1 if /^mailsender\s*=\s*([a-z0-9_.@-]+)/i;
+      $config{mailnotify}	= $1 if /^mailnotify\s*=\s*([a-z0-9_.\@-]+)/i;
+      $config{mailsender}	= $1 if /^mailsender\s*=\s*([a-z0-9_.\@-]+)/i;
       $config{mailname}		= $1 if /^mailname\s*=\s*([a-z0-9\s_.-]+)/i;
       $config{orgname}		= $1 if /^orgname\s*=\s*([a-z0-9\s_.,'-]+)/i;
@@ -2062,6 +2062,6 @@
   $mailer->mail($mailsender);
   $mailer->to($config{mailnotify});
-  $mailer->data("From: \"$config{mailname}\" <$mailsender\n",
-	"To: $config{mailnotify}\n",
+  $mailer->data("From: \"$config{mailname}\" <$mailsender>\n",
+	"To: <$config{mailnotify}>\n",
 	"Date: ".strftime("%a, %d %b %Y %H:%M:%S %z",localtime)."\n",
 	"Subject: $subj\n",
Index: /trunk/dns.cgi
===================================================================
--- /trunk/dns.cgi	(revision 197)
+++ /trunk/dns.cgi	(revision 198)
@@ -347,5 +347,7 @@
 
   if ($code eq 'OK') {
-#    logaction($msg, $session->param("username"), $webvar{group}, "Added domain $webvar{domain}");
+    mailNotify($dbh, "New ".($webvar{makeactive} eq 'on' ? 'Active' : 'Inactive')." Domain Created",
+	($webvar{makeactive} eq 'on' ? 'Active' : 'Inactive').qq( domain "$webvar{domain}" added by ).
+	$session->param("username"));
     changepage(page => "reclist", id => $msg);
   } else {