1 package PVE
::LXC
::Create
;
12 use PVE
::VZDump
::ConvertOVZ
;
15 sub next_free_nbd_dev
{
17 for(my $i = 0;;$i++) {
18 my $dev = "/dev/nbd$i";
20 next if -f
"/sys/block/nbd$i/pid"; # busy
23 die "unable to find free nbd device\n";
27 my ($archive, $rootdir, $conf, $no_unpack_error) = @_;
29 my ($id_map, $rootuid, $rootgid) = PVE
::LXC
::parse_id_maps
($conf);
30 my $userns_cmd = PVE
::LXC
::userns_command
($id_map);
32 my $cmd = [@$userns_cmd, 'tar', 'xpf', $archive, '--totals',
33 @$PVE::LXC
::COMMON_TAR_FLAGS
,
36 # skip-old-files doesn't have anything to do with time (old/new), but is
37 # simply -k (annoyingly also called --keep-old-files) without the 'treat
38 # existing files as errors' part... iow. it's bsdtar's interpretation of -k
40 push @$cmd, '--skip-old-files';
41 push @$cmd, '--anchored';
42 push @$cmd, '--exclude' , './dev/*';
44 if ($archive eq '-') {
45 print "extracting archive from STDIN\n";
46 eval { PVE
::Tools
::run_command
($cmd, input
=> "<&STDIN"); };
48 print "extracting archive '$archive'\n";
49 eval { PVE
::Tools
::run_command
($cmd); };
51 die $@ if $@ && !$no_unpack_error;
53 # if arch is set, we do not try to autodetect it
54 return if defined($conf->{arch
});
56 # determine file type of /usr/bin/file itself to get guests' architecture
57 $cmd = [@$userns_cmd, '/usr/bin/file', '-b', '-L', "$rootdir/bin/sh"];
58 PVE
::Tools
::run_command
($cmd, outfunc
=> sub {
59 shift =~ /^ELF (\d{2}-bit)/; # safely assumes x86 linux
61 $conf->{'arch'} = 'amd64'; # defaults to 64bit
62 if(defined($arch_str)) {
63 $conf->{'arch'} = 'i386' if $arch_str =~ /32/;
64 print "Detected container architecture: $conf->{'arch'}\n";
66 print "CT architecture detection failed, falling back to amd64.\n" .
67 "Edit the config in /etc/pve/nodes/{node}/lxc/{vmid}/config " .
68 "to set another architecture.\n";
76 my ($raw, $conf_file) = PVE
::Storage
::extract_vzdump_config_tar
($archive, qr!(\./etc/vzdump/(pct|vps)\.conf)$!);
80 if ($conf_file =~ m/pct\.conf/) {
82 $conf = PVE
::LXC
::Config
::parse_pct_config
("/lxc/0.conf" , $raw);
84 delete $conf->{snapshots
};
85 delete $conf->{template
}; # restored CT is never a template
87 PVE
::LXC
::Config-
>foreach_mountpoint($conf, sub {
88 my ($ms, $mountpoint) = @_;
89 $mp_param->{$ms} = $conf->{$ms};
92 } elsif ($conf_file =~ m/vps\.conf/) {
94 ($conf, $mp_param) = PVE
::VZDump
::ConvertOVZ
::convert_ovz
($raw);
101 return wantarray ?
($conf, $mp_param) : $conf;
104 sub restore_configuration
{
105 my ($vmid, $rootdir, $conf, $restricted) = @_;
107 # restore: try to extract configuration from archive
109 my $pct_cfg_fn = "$rootdir/etc/vzdump/pct.conf";
110 my $pct_fwcfg_fn = "$rootdir/etc/vzdump/pct.fw";
111 my $ovz_cfg_fn = "$rootdir/etc/vzdump/vps.conf";
112 if (-f
$pct_cfg_fn) {
113 my $raw = PVE
::Tools
::file_get_contents
($pct_cfg_fn);
114 my $oldconf = PVE
::LXC
::Config
::parse_pct_config
("/lxc/$vmid.conf", $raw);
116 foreach my $key (keys %$oldconf) {
117 next if $key eq 'digest' || $key eq 'rootfs' || $key eq 'snapshots' || $key eq 'unprivileged' || $key eq 'parent';
118 next if $key =~ /^mp\d+$/; # don't recover mountpoints
119 next if $key =~ /^unused\d+$/; # don't recover unused disks
120 if ($restricted && $key eq 'lxc') {
121 warn "skipping custom lxc options, restore manually as root:\n";
122 warn "--------------------------------\n";
123 my $lxc_list = $oldconf->{'lxc'};
124 foreach my $lxc_opt (@$lxc_list) {
125 warn "$lxc_opt->[0]: $lxc_opt->[1]\n"
127 warn "--------------------------------\n";
130 $conf->{$key} = $oldconf->{$key} if !defined($conf->{$key});
134 if (-f
$pct_fwcfg_fn) {
135 my $pve_firewall_dir = '/etc/pve/firewall';
136 mkdir $pve_firewall_dir; # make sure the directory exists
137 PVE
::Tools
::file_copy
($pct_fwcfg_fn, "${pve_firewall_dir}/$vmid.fw");
138 unlink $pct_fwcfg_fn;
141 } elsif (-f
$ovz_cfg_fn) {
142 print "###########################################################\n";
143 print "Converting OpenVZ configuration to LXC.\n";
144 print "Please check the configuration and reconfigure the network.\n";
145 print "###########################################################\n";
147 my $lxc_setup = PVE
::LXC
::Setup-
>new($conf, $rootdir); # detect OS
148 $conf->{ostype
} = $lxc_setup->{conf
}->{ostype
};
149 my $raw = PVE
::Tools
::file_get_contents
($ovz_cfg_fn);
150 my $oldconf = PVE
::VZDump
::ConvertOVZ
::convert_ovz
($raw);
151 foreach my $key (keys %$oldconf) {
152 $conf->{$key} = $oldconf->{$key} if !defined($conf->{$key});
157 print "###########################################################\n";
158 print "Backup archive does not contain any configuration\n";
159 print "###########################################################\n";