[pve-manager.git] / bin / pve-startall-delay

#!/usr/bin/perl

use strict;
use warnings;

use PVE::INotify;
use PVE::NodeConfig;

my $local_node = PVE::INotify::nodename();

my $node_config = eval { PVE::NodeConfig::load_config($local_node) } // {};

if (my $delay = $node_config->{'startall-onboot-delay'}) {
    warn "Delaying on-boot 'startall' command for $delay second(s).\n";
    sleep($delay); # don't care for interrupts, best effort only
}

exit 0;
Commit	Line	Data
1ff3fef0 TL	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use PVE::INotify;
	7	use PVE::NodeConfig;
	8
	9	my $local_node = PVE::INotify::nodename();
	10
	11	my $node_config = eval { PVE::NodeConfig::load_config($local_node) } // {};
	12
	13	if (my $delay = $node_config->{'startall-onboot-delay'}) {
	14	warn "Delaying on-boot 'startall' command for $delay second(s).\n";
	15	sleep($delay); # don't care for interrupts, best effort only
	16	}
	17
	18	exit 0;