From 5504342a5e6739afd32dda2ec381686efe24c276 Mon Sep 17 00:00:00 2001 From: Jan Paul Tuecking Date: Thu, 10 Sep 2009 22:33:47 +0200 Subject: [PATCH] Edit backup.cgi, now prints sizes of backups in human readable format (MB) --- html/cgi-bin/backup.cgi | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) mode change 100644 => 100755 html/cgi-bin/backup.cgi diff --git a/html/cgi-bin/backup.cgi b/html/cgi-bin/backup.cgi old mode 100644 new mode 100755 index c02056d8b7..d160349ff1 --- a/html/cgi-bin/backup.cgi +++ b/html/cgi-bin/backup.cgi @@ -189,18 +189,18 @@ foreach (@backups){ chomp($_); my $Datei = "/var/ipfire/backup/".$_; my @Info = stat($Datei); -my $Size = $Info[7] / 1024; -$Size = sprintf("%02d", $Size); -print "$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB
"; +my $Size = $Info[7] / 1024 / 1024; +$Size = sprintf("%0.2f", $Size); +print "$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size MB
"; print "
"; } foreach (@backupisos){ chomp($_); my $Datei = "/var/tmp/backupiso/".$_; my @Info = stat($Datei); -my $Size = $Info[7] / 1024; -$Size = sprintf("%02d", $Size); -print "$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB
"; +my $Size = $Info[7] / 1024 / 1024; +$Size = sprintf("%0.2f", $Size); +print "$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size MB
"; print "
"; } print <