connections.cgi: Use &General::formatBytes() for format usage

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/html/cgi-bin/connections.cgi b/html/cgi-bin/connections.cgi
index 055fc3cbcaf51369289e6a312d0988f6e2e15dec..b8a27a28f155f67f79eef3cb7ac3dc9097188c7d 100644 (file)
--- a/html/cgi-bin/connections.cgi
+++ b/html/cgi-bin/connections.cgi
@@ -474,8 +474,9 @@ foreach my $line (<CONNTRACK>) {
                $dserv = uc(getservbyport($dport, lc($l4proto)));
        }
 
-       my $bytes_in = format_bytes($bytes[0]);
-       my $bytes_out = format_bytes($bytes[1]);
+       # Format bytes
+       my $bytes_in  = &General::formatBytes($bytes[0]);
+       my $bytes_out = &General::formatBytes($bytes[1]);
 
        # enumerate location information
        my $srcccode = &Location::Functions::lookup_country_code($sip_ret);
@@ -579,21 +580,6 @@ print "</table>";
 &Header::closebigbox();
 &Header::closepage();
 
-sub format_bytes($) {
-       my $bytes = shift;
-       my @units = ("B", "k", "M", "G", "T");
-
-       foreach my $unit (@units) {
-               if ($bytes < 1024) {
-                       return sprintf("%d%s", $bytes, $unit);
-               }
-
-               $bytes /= 1024;
-       }
-
-       return sprintf("%d%s", $bytes, $units[$#units]);
-}
-
 sub format_time($) {
        my $time = shift;