bin/pve-startall-delay

   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;