Changeset 197

Timestamp:

12/12/11 17:57:31 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Prepare for spamming! Add mailNotify() stolen and trimmed back from
​https://secure.deepnet.cx/svn/ipdb/cgi-bin/IPDB.pm

File:

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

trunk/DNSDB.pm

@@ -38 +38 @@
         &domStatus &importAXFR
         &export
+        &mailNotify
         %typemap %reverse_typemap %config
         %permissions @permtypes $permlist
@@ -57 +58 @@
                 &domStatus &importAXFR
                 &export
+                &mailNotify
                 %typemap %reverse_typemap %config
                 %permissions @permtypes $permlist
@@ -2046 +2048 @@
 
 
+## DNSDB::mailNotify()
+# Sends notification mail to recipients regarding an IPDB operation
+sub mailNotify {
+  my $dbh = shift;
+  my ($subj,$message) = @_;
+
+  return if $config{mailhost} eq 'smtp.example.com';   # do nothing if still using default SMTP host.
+
+  my $mailer = Net::SMTP->new($config{mailhost}, Hello => "dnsadmin.$config{domain}");
+
+  my $mailsender = ($config{mailsender} ? $config{mailsender} : $config{mailnotify});
+
+  $mailer->mail($mailsender);
+  $mailer->to($config{mailnotify});
+  $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",
+        "X-Mailer: DNSAdmin Notify v".sprintf("%.1d",$DNSDB::VERSION)."\n",
+        "Organization: $config{orgname}\n",
+        "\n$message\n");
+  $mailer->quit;
+}
+
 # shut Perl up
 1;