Changeset 68 for trunk/cgi-bin

Timestamp:

11/12/04 16:57:59 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Fixed broken headers in mailNotify()

File:

• trunk/cgi-bin/IPDB.pm (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -15 +15 @@
 use Exporter;
 use Net::SMTP;
+use POSIX;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 $VERSION        = 1.0;
 @ISA            = qw(Exporter);
-@EXPORT_OK      = qw(&connectDB &checkDBSanity &allocateBlock);
+@EXPORT_OK      = qw(&connectDB &checkDBSanity &allocateBlock &mailNotify);
 
 @EXPORT         = (); # Export nothing by default.
-%EXPORT_TAGS    = ( ALL => [qw( &connectDB &checkDBSanity &allocateBlock )]
+%EXPORT_TAGS    = ( ALL => [qw( &connectDB &checkDBSanity &allocateBlock &mailNotify)]
                   );
 
@@ -78 +79 @@
 sub mailNotify ($$$) {
   my ($recip,$subj,$message) = @_;
-  my $mailer = new Net::SMTP "smtp.example.com";
+  my $mailer = Net::SMTP->new("smtp.example.com", Debug => 1);
 
   $mailer->mail('ipdb@example.com');
   $mailer->to($recip);
-  $mailer->data("X-Mailer: IPDB Notify v$IPDB::Version\n",
-                "Date: ".strftime("%a, %d %b %Y %H:%M:%S %z\n", localtime)."\n",
-                "Organization: Example Corp.",
-                "From: \"IP Database\" <ipdb\@example.com>\n",
-                "Subject: $subj\n",
-                "\n",
-                "$message\n");
+  $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->quit;
 }