Changeset 69 for trunk/cgi-bin

Timestamp:

11/15/04 12:36:31 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix for mailNotify() so it works

File:

• trunk/cgi-bin/IPDB.pm (modified) (1 diff)

trunk/cgi-bin/IPDB.pm

@@ -79 +79 @@
 sub mailNotify ($$$) {
   my ($recip,$subj,$message) = @_;
-  my $mailer = Net::SMTP->new("smtp.example.com", Debug => 1);
+  my $mailer = Net::SMTP->new("smtp.example.com", Hello => "ipdb.example.com");
 
   $mailer->mail('ipdb@example.com');
   $mailer->to($recip);
-  $mailer->data(
-"X-Mailer: IPDB Notify v".sprintf("%.1d",$IPDB::VERSION)."\n",
-"Date: ".strftime("%a, %d %b %Y %H:%M:%S %z",localtime)."\n",
-"Organization: Example Corp.\n",
-"From: \"IP Database\" <ipdb\@example.com>\n",
-"Subject: {IPDB} $subj\n",
-"X-Test: test\n",
-"\n$message\n"
-);
+  $mailer->data("From: \"IP Database\" <ipdb\@example.com>\n",
+        "Date: ".strftime("%a, %d %b %Y %H:%M:%S %z",localtime)."\n",
+        "Subject: {IPDB} $subj\n",
+        "X-Mailer: IPDB Notify v".sprintf("%.1d",$IPDB::VERSION)."\n",
+        "Organization: Example Corp\n",
+        "\n$message\n");
   $mailer->quit;
 }