From: eldy <>
Date: Sat, 27 Dec 2003 17:52:40 +0000 (+0000)
Subject: Some change to add a warning if logresolvemerge.pl is used with ActiveState.
X-Git-Tag: AWSTATS_6_0_RELEASE~48
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d6cf92ca9a63af695167dd0e9599b0869711ebd4;p=thirdparty%2FAWStats.git

Some change to add a warning if logresolvemerge.pl is used with ActiveState.
---

diff --git a/tools/logresolvemerge.pl b/tools/logresolvemerge.pl
index 93fe3289..76863157 100644
--- a/tools/logresolvemerge.pl
+++ b/tools/logresolvemerge.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #-----------------------------------------------------------------------------
-# Merge several log files into one and replace all IP addresses
-# with resolved DNS host name.
+# Allows you to get one unique output log file, sorted on date,
+# built from particular sources.
 # This tool is part of AWStats log analyzer but can be use
 # alone for any other log analyzer.
 # See COPYING.TXT file about AWStats GNU General Public License.
@@ -268,6 +268,12 @@ if ($] < 5.008 && $MaxNbOfThread) {
 	error("Multi-threaded DNS lookup is only supported with Perl 5.8 or higher (not $]). Use -dnslookup option instead");
 }
 
+# Warning, there is a memory hole in ActiveState perl version (in delete functions)
+if ($^X =~ /activestate/i || $^X =~ /activeperl/i) {
+	# TODO Add a warning
+
+}
+
 if (scalar @ParamFile == 0) {
 	print "----- $PROG $VERSION (c) Laurent Destailleur -----\n";
 	print "$PROG allows you to get one unique output log file, sorted on date,\n";