Add a max-backups param, to limit the numer of backups running at a time

GLPI #33827

virt-backup

@@ -48,7 +48,7 @@ $opts{backupdir} = '/var/lib/libvirt/backup';
 $opts{dumpcmd} = undef;
 # Lockdir is where locks will be held when backing up a VM. The default is to put the lock
 # in the backup dir of the VM, but in some situations, you want to put it elsewhere
-$opts{lockdir} = '';
+$opts{lockdir} = $opts{backupdir};
 # Size of LVM snapshots (which will be used to backup VM with minimum downtime
 # if the VM is backed by LVM). If the LVM volume is thinly provisionned (thinp)
 # this parameter will be ignored
@@ -96,7 +96,8 @@ $opts{ionice} = 'ionice -c 2 -n 7';
 # and wait for shutdowntimeout seconds for the guest to be off
 $opts{shutdown} = 0;
 $opts{shutdowntimeout} = 300;
-
+# Limit the number of concurrent backup running. Default is no limit
+$opts{maxbackups} = 0;
 
 # Those are internal variables, do not modify
 $opts{livebackup} = 1;
@@ -125,6 +126,7 @@ GetOptions(
     "blocksize=s"        => \$opts{blocksize},
     "shutdown"           => \$opts{shutdown},
     "shutdown-timeout=s" => \$opts{shutdowntimeout},
+    "max-backups=i"      => \$opts{maxbackups},
     "help"               => \$opts{help}
 );
 
@@ -208,7 +210,7 @@ if (! -d $opts{backupdir} ){
 }
 
 # Lockdir, if defined, must also exist
-if ($opts{lockdir} ne '' && !-d $opts{lockdir}){
+if (!-d $opts{lockdir}){
     print "$opts{lockdir} doesn't exist\n";
     exit 1;
 }
@@ -249,7 +251,6 @@ foreach our $vm (@vms){
         }
     }
     our $backupdir = $opts{backupdir} . '/' . $vm;
-    our $lockdir   = ($opts{lockdir} eq '') ? "$backupdir.meta" : $opts{lockdir};
     our $time      = "_".time();
     if ($opts{action} eq 'cleanup'){
         print "Running cleanup routine for $vm\n\n" if ($opts{debug});
@@ -293,7 +294,12 @@ sub prepare_backup{
     my $data = $xml->XMLin( $dom->get_xml_description(), forcearray => ['disk'] );
 
     # Stop here if the lock file is present, another dump might be running
-    die "Another backup is running\n" if ( -e "$lockdir/$vm.lock" );
+    die "Another backup is running\n" if ( -e "$opts{lockdir}/$vm.lock" );
+
+    my @running = glob "$opts{lockdir}/*.lock";
+
+    die "Already $opts{maxbackups} backup running. Can't start another one\n"
+      if ($opts{maxbackups} gt 0 && scalar @running ge $opts{maxbackups});
 
     # Reset disks list
     @disks = ();
@@ -736,7 +742,9 @@ sub usage{
         "You should make sure your guest react to ACPI signals. This flag is mutual exclusive with --state\n\n" .
     "\t--shutdown-timeout=<seconds>: How long to wait, in seconds, for the vm to shutdown. If the VM isn't stopped " .
         "after that amount of time (in seconds), the backup will abort. The default timeout is 300 seconds\n\n" .
-    "\t--blocksize=<blocksize>: Specify block size in bytes (for dd and chunkfs). Default to 262144 (256kB).\n";
+    "\t--blocksize=<blocksize>: Specify block size in bytes (for dd and chunkfs). Default to 262144 (256kB).\n" .
+    "\t--max-backups=<number>: Specify the max number of backups running at a time. The script fails if the limit " .
+       "is reached, to prevent overloading the system\n";
 }
 
 # Save a running VM, if it's running
@@ -930,7 +938,7 @@ sub destroy_snapshot{
 # Just creates an empty lock file
 sub lock_vm{
     print "Locking $vm\n" if $opts{debug};
-    open ( LOCK, ">$lockdir/$vm.lock" ) || die $!;
+    open ( LOCK, ">$opts{lockdir}/$vm.lock" ) || die $!;
     print LOCK "";
     close LOCK;
 }
@@ -939,6 +947,6 @@ sub lock_vm{
 # Just removes the lock file
 sub unlock_vm{
     print "Removing lock file for $vm\n\n" if $opts{debug};
-    unlink <$lockdir/$vm.lock>;
+    unlink <$opts{lockdir}/$vm.lock>;
 }