Changeset 862 for trunk

Timestamp:

04/21/16 17:23:47 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Tweak handling for inserting the library version in the IPDB notices so
that non-numeric version strings at least show up sanely. May be simpler
to just use the raw version as-is?

File:

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

trunk/cgi-bin/IPDB.pm

@@ -3501 +3501 @@
   return if !%reciplist;
 
+  # dodge a bullet with module version "numbers"
+  my ($ver) = ($IPDB::VERSION =~ /^([\d.]+)(?:^\d|$)/);
+
   foreach my $recip (keys %reciplist) {
     $mailer->mail($smtpsender);
@@ -3508 +3511 @@
         "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",
+        "X-Mailer: IPDB Notify v".sprintf("%.1d",$ver)."\n",
         "Organization: $org_name\n",
         "\n$message\n");