]>
git.proxmox.com Git - pve-container.git/blob - src/lxc-pve-poststop-hook
10 use PVE
::GuestHelpers
;
15 use PVE
::RESTEnvironment
;
19 PVE
::LXC
::Tools
::lxc_hook
('post-stop', 'lxc', sub {
20 my ($vmid, $vars, undef, undef) = @_;
22 return undef if ! -f PVE
::LXC
::Config-
>config_file($vmid);
24 PVE
::RESTEnvironment-
>setup_default_cli_env();
26 my $conf = PVE
::LXC
::Config-
>load_config($vmid);
28 my $storage_cfg = PVE
::Storage
::config
();
30 PVE
::Tools
::run_command
(['umount', '--recursive', '--', $vars->{ROOTFS_PATH
}]);
31 my $staging_dir = PVE
::LXC
::get_staging_tempfs
();
32 if (my $dh = IO
::Dir-
>new($staging_dir)) {
33 while (defined(my $dir = $dh->read)) {
34 next if $dir eq '.' || $dir eq '..';
36 PVE
::Tools
::run_command
(['umount', '--', "$staging_dir/$dir"]);
42 PVE
::LXC
::vm_stop_cleanup
($storage_cfg, $vmid, $conf);
44 # Because netlink is not a reliable protocol it can happen that lxc's
45 # link-deletion messages get lost (or end up being too early?)
46 for my $k (keys %$conf) {
47 next if $k !~ /^net(\d+)/;
49 my $net = PVE
::LXC
::Config-
>parse_lxc_network($conf->{$k});
50 next if $net->{type
} ne 'veth';
51 # veth_delete tests with '-d /sys/class/net/$name' before running the command
52 PVE
::Network
::veth_delete
("veth${vmid}i$ind");
55 my $config_updated = 0;
56 if ($conf->{pending
}) {
58 PVE
::LXC
::Config-
>vmconfig_apply_pending($vmid, $conf, $storage_cfg);
59 PVE
::LXC
::Config-
>write_config($vmid, $conf);
62 PVE
::LXC
::update_lxc_config
($vmid, $conf);
67 my $target = $vars->{TARGET
};
68 if ($target && $target eq 'reboot') {
69 # In order to make sure hot-plugged config changes aren't reverted
70 # to what the monitor initially loaded we need to stop the container
72 # Update the config and queue a restart of the pve-container@$vmid
73 # task, note that we must not block because we're part of the
74 # service cgroup systemd waits for to die before issuing the new
76 PVE
::LXC
::update_lxc_config
($vmid, $conf) if !$config_updated;
77 # Tell the post-stop hook we want to be restarted.
78 open(my $fh, '>', "/var/lib/lxc/$vmid/reboot")
79 or die "failed to create reboot trigger file: $!\n";
82 # activate all volumes of the container in case pending changes added
83 # a not yet activated volume
84 my $vollist = PVE
::LXC
::Config-
>get_vm_volumes($conf);
85 PVE
::Storage
::activate_volumes
($storage_cfg, $vollist);
87 # cause lxc to stop instead of rebooting
91 PVE
::GuestHelpers
::exec_hookscript
($conf, $vmid, 'post-stop');