5 use Data::Dump qw(dump);
9 my $hostname = `hostname -s`;
12 # path to create vmdk into (not on same disk as backup)
13 my $vmdk="/mnt/backup/${hostname}.vmdk";
15 # root disk device name
18 # name of new backup vg
19 my $vg_backup="backup";
21 # where to mount new filesystem while creating vmdk
22 my $tmp = "/tmp/backup";
25 warn "collecting filesystem info\n";
28 open(my $blkid, '-|', 'blkid');
31 my ( $dev, $params ) = split(/:\s+/, $_, 2);
32 foreach my $single ( split(/\s+/, $params ) ) {
33 my ( $name, $value ) = split(/=/, $single, 2);
35 $blks->{$dev}->{$name} = $value;
38 warn "blks = ",dump($blks);
41 open(my $pv, '-|', "pvs --noheadings --options pv_name --unbuffered");
45 if ( s{$sda}{mapper/nbd0p} ) {
51 warn "# pvs = ",dump(@pvs);
54 my @lv_create_snapshot;
56 open(my $lvs, '-|', "lvs --noheadings --options lv_name,vg_name,lv_size --units k");
61 my ($name,$vg,$size) = split(/\s+/, $_, 3);
62 if ( $vg eq $vg_backup ) {
63 warn "SKIP $name in $vg_backup !\n";
66 push @lv_create, "lvcreate --name $name --size $size $vg_backup";
67 push @lv_create, "lvcreate --snapshot /dev/$vg/$name --name ${name}-snap --size 100M";
68 push @lv_remove, "/dev/$vg/$name-snap";
70 warn "# lv_create = ",dump(@lv_create);
73 open(my $mount, '-|', 'mount');
76 my ($dev, undef, $path, undef, $fs, undef) = split(/\s+/,$_);
77 push @mounts, [ $dev, $path, $fs ];
79 warn "# mounts = ",dump(@mounts);
83 system @_ unless $ENV{DEBUG};
87 warn "begin vmdk creation...\n";
89 my $size = `blockdev --getsize64 /dev/$sda`;
90 sh "qemu-img create -f vmdk -o compat6 $vmdk $size";
95 if ( $nbd_pid = fork ) {
98 sh "qemu-nbd --verbose --connect /dev/nbd0 $vmdk";
105 sh "sfdisk -d /dev/$sda | sfdisk --force /dev/nbd0";
107 sh "kpartx -av /dev/nbd0";
109 sh "pvcreate $_" foreach @pvs;
111 sh "vgcreate $vg_backup @pvs";
113 sh $_ foreach @lv_create;
115 mkdir $tmp unless -d $tmp;
119 foreach my $mount ( @mounts ) {
120 my ( $dev, $path, $fs ) = @$mount;
121 if ( exists $blks->{$dev} ) {
122 warn "working on $dev $path $fs\n";
123 my $dev_backup = $dev;
124 $dev_backup =~ s{/dev/$sda}{/dev/mapper/nbd0p} ||
125 $dev_backup =~ s{/dev/mapper/.+-([^-]+)}{/dev/mapper/$vg_backup-$1} ||
126 die "can't map $dev to new backup device!";
127 my $label = $blks->{$dev}->{LABEL};
128 $label = $label ? "-L $label" : '';
129 sh "mkfs.$fs $label $dev_backup";
130 mkdir $tmp . $path unless -e $tmp . $path;
131 sh "mount $dev_backup $tmp$path";
132 unshift @umount, $tmp . $path;
133 $dev .= '-snap' if -e $dev . '-snap';
135 sh "dump -0 -f - $dev | restore -r -f -";
137 warn "SKIP $dev $path $fs";
143 warn "FIXME create swap\n";
148 sh "umount $_" foreach @umount;
150 sh "lvremove -f $_" foreach @lv_remove;
152 sh "vgchange --available n $vg_backup";
154 sh "kpartx -dv /dev/nbd0";
156 warn "finished in ", time() - $start_t, " seconds\n";
158 sh "qemu-nbd --disconnect /dev/nbd0";