Added function Format_Number

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 31bc9091140649e97ed482d9d7ef7b1f4b8a117b..7eeeb1ab23939558ad55f884e1abbdc17221ebc0 100644 (file)
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -4395,6 +4395,21 @@ sub Format_Bytes {
        return int($bytes).(int($bytes)?" $Message[119]":"");
 }
 
+#------------------------------------------------------------------------------
+# Function:            Format a number
+# Parameters:   number
+# Input:        None
+# Output:       None
+# Return:       "999 999 999 999"
+#------------------------------------------------------------------------------
+sub Format_Number {
+       my $number = shift||0;
+       $number=~s/(\d)(\d\d\d)$/$1 $2/;
+       $number=~s/(\d)(\d\d\d\s\d\d\d)$/$1 $2/;
+       $number=~s/(\d)(\d\d\d\s\d\d\d\s\d\d\d)$/$1 $2/;
+       return $number;
+}
+
 #------------------------------------------------------------------------------
 # Function:            Return " alt=string title=string"
 # Parameters:   string