exim_msgdate: more options, better perl version compatibility

diff --git a/src/src/exim_msgdate.src b/src/src/exim_msgdate.src
index e5c357bca4c024ebd7a71cf41bd7130083e2bd50..c591f306efce44afd3063311724c9a6a1d367af4 100755 (executable)
--- a/src/src/exim_msgdate.src
+++ b/src/src/exim_msgdate.src
@@ -1,4 +1,4 @@
-#!PERL_COMMAND -WT
+#!PERL_COMMAND -T

 #
 # Utility to convert an exim message-id to a human readable form
 #
 #
 # Utility to convert an exim message-id to a human readable form
 #


@@ -27,6 +27,11 @@
 #
 # PROCESSED_FLAG
 
 #
 # PROCESSED_FLAG
 

+# These match runtest
+use v5.10.1;
+use warnings;
+use if $^V >= v5.19.11, experimental => 'smartmatch';
+

 use strict;
 use File::Basename;
 use Getopt::Long;
 use strict;
 use File::Basename;
 use Getopt::Long;


@@ -48,6 +53,7 @@ if (defined $ENV{TZ}) {
 }
 
 my $localhost_number;  # An Exim config value
 }
 
 my $localhost_number;  # An Exim config value

+my $nolocalhost_number;

 
 my $p_name    = basename $0;
 my $p_version = "20230203.0";
 
 my $p_name    = basename $0;
 my $p_version = "20230203.0";


@@ -56,20 +62,13 @@ my $p_cp      = <<EOM;
 
  Portions taken from exicyclog.src, which is
    Copyright (c) University of Cambridge, 1995 - 2015
 
  Portions taken from exicyclog.src, which is
    Copyright (c) University of Cambridge, 1995 - 2015

-   See the file NOTICE for conditions of use and distribution.
+ See the file NOTICE for conditions of use and distribution.

 EOM
 
 $ENV{PATH} = "/bin:/usr/bin:/usr/sbin";
 
 use POSIX qw(strftime);
 
 EOM
 
 $ENV{PATH} = "/bin:/usr/bin:/usr/sbin";
 
 use POSIX qw(strftime);
 

-sub main::VERSION_MESSAGE()
-{
-    print basename($0), ": $0\n";
-    print "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n";
-    print "perl(             runtime): $]\n";
-}
-

 my ($debug, $nodebug,
     $optbase, $optbase36, $optbase62,
     $optunix, $optgmt, $optlocal,
 my ($debug, $nodebug,
     $optbase, $optbase36, $optbase62,
     $optunix, $optgmt, $optlocal,


@@ -95,6 +94,9 @@ GetOptions (
     "base62" => \$optbase62,
 
     "localhost_number=s" => \$localhost_number,  # cf "local"
     "base62" => \$optbase62,
 
     "localhost_number=s" => \$localhost_number,  # cf "local"

+    "nolocalhost_number" => \$nolocalhost_number,
+    "no-localhost_number" => \$nolocalhost_number,
+    "no_localhost_number" => \$nolocalhost_number,

 
     "unix" => \$optunix,
     "u" => \$optunix,
 
     "unix" => \$optunix,
     "u" => \$optunix,


@@ -122,6 +124,11 @@ GetOptions (
             -noperldoc => system('perldoc -V 2>/dev/null 1>&2')
        );
     },
             -noperldoc => system('perldoc -V 2>/dev/null 1>&2')
        );
     },

+    'version'  => sub {
+       print basename($0), ": $0\n";
+       print "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n";
+       print "perl(runtime): $]\n";
+    },

 ) or pod2usage;
 # die("Error in command line arguments\n");
 
 ) or pod2usage;
 # die("Error in command line arguments\n");
 


@@ -270,13 +277,27 @@ if ($debug) {
     } else {
         warn "localhost_number unset\n";
     }
     } else {
         warn "localhost_number unset\n";
     }

+    if (defined $nolocalhost_number) {
+        warn "nolocalhost_number=$nolocalhost_number\n";
+    } else {
+        warn "nolocalhost_number unset\n";
+    }

 }
 
 if (defined $localhost_number) {
     if ($localhost_number eq "none") {
         $localhost_number = undef;
 }
 
 if (defined $localhost_number) {
     if ($localhost_number eq "none") {
         $localhost_number = undef;

+        $nolocalhost_number = TRUE;
+    } else {
+       if ($nolocalhost_number) {
+           die "aborting: localhost_number and nolocalhost_number both set\n ";
+       }
+        $nolocalhost_number = FALSE;

     }
     }

-} else {
+}
+
+unless (defined $nolocalhost_number) {
+    warn "Looking for config file\n" if $debug;

     my $config = get_configfilename();
     warn "Reading config $config to find localhost_number\n" if $debug;
 
     my $config = get_configfilename();
     warn "Reading config $config to find localhost_number\n" if $debug;
 


@@ -296,6 +317,9 @@ if (defined $localhost_number) {
         warn "$config gives localhost_number $localhost_number\n"
             if $debug and defined $localhost_number;
     } else {
         warn "$config gives localhost_number $localhost_number\n"
             if $debug and defined $localhost_number;
     } else {

+       if ($debug) {
+           warn "cannot read config file $config\n";
+       }

         # This way we get the expanded value for localhost_number
         # directly from exim, but we have to guess which exim binary ...
         # On Debian and Ubuntu, /usr/sbin/exim is a link to exim4 so is OK.
         # This way we get the expanded value for localhost_number
         # directly from exim, but we have to guess which exim binary ...
         # On Debian and Ubuntu, /usr/sbin/exim is a link to exim4 so is OK.


@@ -315,10 +339,18 @@ if (defined $localhost_number) {
 }
 
 if (defined $localhost_number) {
 }
 
 if (defined $localhost_number) {

-    die "localhost_number > 16\n"
-        if $localhost_number > 16;
-    die "localhost_number > 10\n"
-        if $localhost_number > 10 && ($base != 62);
+    if ($localhost_number =~ /\D/) {
+       die "localhost_number must be a number >=0\n";
+    } elsif ($localhost_number =~ /^\d*$/) {
+       die "localhost_number > 16\n"
+           if $localhost_number > 16;
+       die "localhost_number > 10\n"
+           if $localhost_number > 10 && ($base != 62);
+    } else {
+       warn "clearing localhost_number - was $localhost_number\n";
+       undef $localhost_number;
+       $nolocalhost_number=TRUE;
+    }

 }
 
 if ($debug) {
 }
 
 if ($debug) {

diff --git a/test/runtest b/test/runtest
index 137f8dac600c095a2c83299a4ae001827540a304..82ae480ce5acae91d4efab5504b74113135297eb 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -3920,7 +3920,7 @@ foreach my $tool (qw(exim_dumpdb exim_lock exinext exigrep eximstats exiqgrep ex
 # Collect some version information
 print '-' x 78, "\n";
 print "Perl version for runtest: $]\n";
 # Collect some version information
 print '-' x 78, "\n";
 print "Perl version for runtest: $]\n";

-foreach (map { "./eximdir/$_" } qw(exigrep exinext eximstats exiqgrep)) {
+foreach (map { "./eximdir/$_" } qw(exigrep exinext eximstats exiqgrep exim_msgdate)) {

   # fold (or unfold?) multiline output into a one-liner
   print join(', ', map { chomp; $_ } `$_ --version`), "\n";
 }
   # fold (or unfold?) multiline output into a one-liner
   print join(', ', map { chomp; $_ } `$_ --version`), "\n";
 }

diff --git a/test/scripts/0000-Basic/0700 b/test/scripts/0000-Basic/0700
index 8d4f06976efd3ab760bb488d615f5c8a1a0deecd..255e8e20920d6ae8e9415477e50c01b5a0ee11c8 100644 (file)
--- a/test/scripts/0000-Basic/0700
+++ b/test/scripts/0000-Basic/0700
@@ -129,7 +129,7 @@ exim_msgdate --localhost_number 11 -base 36 EZZZZZZ-003FPJ-ZZ
 0 TZ=GB
 exim_msgdate -localhost_number 11 --local -base 62 EZZZZZZ-003FPJ-ZZ
 ****
 0 TZ=GB
 exim_msgdate -localhost_number 11 --local -base 62 EZZZZZZ-003FPJ-ZZ
 ****

-0 TZ=GB
+255 TZ=GB

 exim_msgdate --localhost_number -1 -base 36 EZZZZZZ-003FPJ-ZZ
 ****
 255 TZ=GB
 exim_msgdate --localhost_number -1 -base 36 EZZZZZZ-003FPJ-ZZ
 ****
 255 TZ=GB

diff --git a/test/stderr/0700 b/test/stderr/0700
index 4531d5e2c406b730b4efd94eadd4a4d596b38ba2..f05729b315d8f9f873113d9d17f4710cfd5751ea 100644 (file)
--- a/test/stderr/0700
+++ b/test/stderr/0700
@@ -23,6 +23,7 @@ zzzzzzz not parsed
 ### Show the process id too
 ### Override the value of localhost_number set in the exim configuation file
 localhost_number > 10
 ### Show the process id too
 ### Override the value of localhost_number set in the exim configuation file
 localhost_number > 10

+localhost_number must be a number >=0

 localhost_number > 16
 ### From here as 701 - 703
 ### Each msg-id type, all zone
 localhost_number > 16
 ### From here as 701 - 703
 ### Each msg-id type, all zone

diff --git a/test/stdout/0700 b/test/stdout/0700
index 2e47baa35cc2d59f870522acb0c13e90efa9e0cf..260a132792090278db9d762aec0a117c7456de66 100644 (file)
--- a/test/stdout/0700
+++ b/test/stdout/0700
@@ -50,7 +50,6 @@
 3002-09-30 13:51:45.025000 BST
 2038-12-24 05:45:38.950000 GMT
 3002-09-30 13:51:45.025000 BST
 3002-09-30 13:51:45.025000 BST
 2038-12-24 05:45:38.950000 GMT
 3002-09-30 13:51:45.025000 BST

-2038-12-24 05:45:48.950000 GMT

 ### From here as 701 - 703
 ### Each msg-id type, all zone
 0.000000       pid 1319504
 ### From here as 701 - 703
 ### Each msg-id type, all zone
 0.000000       pid 1319504