Handle Bacula backup sizes like '5 M'

diff --git a/bacula-backup/bacula-backup-lib.pl b/bacula-backup/bacula-backup-lib.pl
index dce60f9..0312608 100644 (file)
--- a/bacula-backup/bacula-backup-lib.pl
+++ b/bacula-backup/bacula-backup-lib.pl
@@ -1055,6 +1055,18 @@ sub remove_comma
 {
 local ($n) = @_;
 $n =~ s/,//g;
+if ($n =~ /^(\d+)\s*k/i) {
+       $n = $1*1024;
+       }
+elsif ($n =~ /^(\d+)\s*M/i) {
+       $n = $1*1024*1024;
+       }
+elsif ($n =~ /^(\d+)\s*G/i) {
+       $n = $1*1024*1024*1024;
+       }
+elsif ($n =~ /^(\d+)\s*T/i) {
+       $n = $1*1024*1024*1024*1024;
+       }
 return $n;
 }