From: Eric Bollengier <eric@baculasystems.com>
Date: Wed, 30 Dec 2015 08:57:16 +0000 (+0100)
Subject: Fix #1545 about fix in manual_prune.pl script with large number of volumes
X-Git-Tag: Release-7.4.0~35
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=c634c9c86e79d95ea7514f1d0ce988e29f4192f7;p=bacula%2Fbacula

Fix #1545 about fix in manual_prune.pl script with large number of volumes
---

diff --git a/bacula/scripts/manual_prune.pl b/bacula/scripts/manual_prune.pl
index 69d7f1dbee..d01dbbfd1e 100755
--- a/bacula/scripts/manual_prune.pl
+++ b/bacula/scripts/manual_prune.pl
@@ -216,13 +216,13 @@ quit
     while (my $l = <FP>)
     {
                   # |        1 |   TestVolume001 | Used
-        if ($l =~ /^\s*\|\s*\d+\s*\|\s*([\w\d-]+)\s*\|\s*Used/) {
+        if ($l =~ /^\s*\|\s*[\d,]+\s*\|\s*([\w\d-]+)\s*\|\s*Used/) {
             push @vol, $1;
         }
-        if ($l =~ /^\s*\|\s*\d+\s*\|\s*([\w\d-]+)\s*\|\s*Full/) {
+        if ($l =~ /^\s*\|\s*[\d,]+\s*\|\s*([\w\d-]+)\s*\|\s*Full/) {
             push @vol, $1;
         }
-        if ($l =~ /^\s*\|\s*\d+\s*\|\s*([\w\d-]+)\s*\|\s*Purged/) {
+        if ($l =~ /^\s*\|\s*[\d,]+\s*\|\s*([\w\d-]+)\s*\|\s*Purged/) {
             push @vol_purged, $1;
         }
     }