git://git.exim.org
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refuse to open a msglog file with .. in the path.
[exim.git]
/
src
/
src
/
eximstats.src
diff --git
a/src/src/eximstats.src
b/src/src/eximstats.src
index 727ee44b9d4a2d96a0b0bc7998f02166785ff15e..5e1a0847b58fe8424c630c03e5f298da87a89c8e 100644
(file)
--- a/
src/src/eximstats.src
+++ b/
src/src/eximstats.src
@@
-1,6
+1,6
@@
#!PERL_COMMAND
#!PERL_COMMAND
-# Copyright (c) 2001-201
6
University of Cambridge.
+# Copyright (c) 2001-201
7
University of Cambridge.
# See the file NOTICE for conditions of use and distribution.
# Perl script to generate statistics from one or more Exim log files.
# See the file NOTICE for conditions of use and distribution.
# Perl script to generate statistics from one or more Exim log files.
@@
-533,7
+533,7
@@
about how to create charts from the tables.
=head1 AUTHOR
=head1 AUTHOR
-There is a web
site at http
://www.exim.org - this contains details of the
+There is a web
site at https
://www.exim.org - this contains details of the
mailing list exim-users@exim.org.
=head1 TO DO
mailing list exim-users@exim.org.
=head1 TO DO
@@
-552,10
+552,18
@@
use integer;
BEGIN { pop @INC if $INC[-1] eq '.' };
use strict;
use IO::File;
BEGIN { pop @INC if $INC[-1] eq '.' };
use strict;
use IO::File;
+use File::Basename;
# use Time::Local; # PH/FANF
use POSIX;
# use Time::Local; # PH/FANF
use POSIX;
+if (@ARGV and $ARGV[0] eq '--version') {
+ print basename($0) . ": $0\n",
+ "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
+ "perl(runtime): $]\n";
+ exit 0;
+}
+
use vars qw($HAVE_GD_Graph_pie $HAVE_GD_Graph_linespoints $HAVE_Spreadsheet_WriteExcel);
eval { require GD::Graph::pie; };
$HAVE_GD_Graph_pie = $@ ? 0 : 1;
use vars qw($HAVE_GD_Graph_pie $HAVE_GD_Graph_linespoints $HAVE_Spreadsheet_WriteExcel);
eval { require GD::Graph::pie; };
$HAVE_GD_Graph_pie = $@ ? 0 : 1;