]>
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; |