#!PERL_COMMAND -w
-# $Cambridge: exim/src/src/eximstats.src,v 1.3 2004/12/20 13:12:32 steve Exp $
+# $Cambridge: exim/src/src/eximstats.src,v 1.4 2004/12/21 11:33:55 steve Exp $
# Copyright (c) 2001 University of Cambridge.
# See the file NOTICE for conditions of use and distribution.
# 2004-12-10 V1.34 Steve Campbell
# Eximstats can now parse syslog lines as well as mainlog lines.
#
-# 2004-12-20 V1.35 Andreas Metzler
+# 2004-12-20 V1.35 Wouter Verhelst
# Pie charts by volume were actually generated by count. Fixed.
$chartotherval = 0;
my $use_gig = 0;
foreach $key (top_n_sort($topcount,$m_data_gigs,$m_data,$m_count)) {
+ # The largest volume will be the first (top of the list).
+ # If it has at least 1 gig, then just use gigabytes to avoid
+ # risking an integer overflow when generating the pie charts.
if ($$m_data_gigs{$key}) {
$use_gig = 1;
}