don't create swap snapshot
[vmdk-backup] / vmdk-backup.pl
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use autodie qw(:all);
5 use Data::Dump qw(dump);
6
7 my $start_t = time();
8
9 my $hostname = `hostname -s`;
10 chomp($hostname);
11
12 # path to create vmdk into (not on same disk as backup)
13 my $vmdk="/mnt/backup/${hostname}.vmdk";
14
15 # root disk device name
16 my $sda="sda";
17
18 # name of new backup vg
19 my $vg_backup="backup";
20
21 # where to mount new filesystem while creating vmdk
22 my $tmp = "/tmp/backup";
23
24
25 warn "collecting filesystem info\n";
26
27 my $blks;
28 open(my $blkid, '-|', 'blkid');
29 while(<$blkid>) {
30         chomp;
31         my ( $dev, $params ) = split(/:\s+/, $_, 2);
32         foreach my $single ( split(/\s+/, $params ) ) {
33                 my ( $name, $value ) = split(/=/, $single, 2);
34                 $value =~ s/"//g;
35                 $blks->{$dev}->{$name} = $value;
36         }
37 }
38 warn "blks = ",dump($blks);
39
40 my @pvs;
41 open(my $pv, '-|', "pvs --noheadings --options pv_name --unbuffered");
42 while(<$pv>) {
43         chomp;
44         s/ *//g;
45         if ( s{$sda}{mapper/nbd0p} ) {
46                 push @pvs, $_;
47         } else {
48                 warn "SKIP pv $_\n";
49         }
50 }
51 warn "# pvs = ",dump(@pvs);
52
53 my @lv_create;
54 my @lv_create_snapshot;
55 my @lv_remove;
56 open(my $lvs, '-|', "lvs --noheadings --options lv_name,vg_name,lv_size --units k");
57 while(<$lvs>) {
58         chomp;
59         s/^\s*//;
60         s/\s*$//;
61         my ($name,$vg,$size) = split(/\s+/, $_, 3);
62         if ( $vg eq $vg_backup ) {
63                 warn "SKIP $name in $vg_backup !\n";
64                 next;
65         }
66         push @lv_create, "lvcreate --name $name --size $size $vg_backup";
67         next if $name =~ m/swap/;
68         push @lv_create, "lvcreate --snapshot /dev/$vg/$name --name ${name}-snap --size 100M";
69         push @lv_remove, "/dev/$vg/$name-snap";
70 }
71 warn "# lv_create = ",dump(@lv_create);
72
73 my @mounts;
74 open(my $mount, '-|', 'mount');
75 while(<$mount>) {
76         chomp;
77         my ($dev, undef, $path, undef, $fs, undef) = split(/\s+/,$_);
78         push @mounts, [ $dev, $path, $fs ];
79 }
80 warn "# mounts = ",dump(@mounts);
81
82 sub sh {
83         warn "# @_\n";
84         system @_ unless $ENV{DEBUG};
85 }
86
87
88 warn "begin vmdk creation...\n";
89
90 my $size = `blockdev --getsize64 /dev/$sda`;
91 sh "qemu-img create -f vmdk -o compat6 $vmdk $size";
92
93 sh "modprobe nbd";
94
95 my $nbd_pid;
96 if ( $nbd_pid = fork ) {
97         # parent
98
99         sh "qemu-nbd --verbose --connect /dev/nbd0 $vmdk";
100
101         exit 0;
102 }
103
104 sleep 1;
105
106 sh "sfdisk -d /dev/$sda | sfdisk --force /dev/nbd0";
107
108 sh "kpartx -av /dev/nbd0";
109
110 sh "pvcreate $_" foreach @pvs;
111
112 sh "vgcreate $vg_backup @pvs";
113
114 sh $_ foreach @lv_create;
115
116 mkdir $tmp unless -d $tmp;
117
118 my @umount;
119
120 sub dev_to_backup {
121         my $dev = shift;
122         $dev =~ s{/dev/$sda}{/dev/mapper/nbd0p} ||
123         $dev =~ s{/dev/mapper/.+-([^-]+)}{/dev/mapper/$vg_backup-$1} ||
124         die "can't map $dev to new backup device!";
125         return $dev;
126 }
127
128 foreach my $mount ( @mounts ) {
129         my ( $dev, $path, $fs ) = @$mount;
130         if ( exists $blks->{$dev} ) {
131                 warn "working on $dev $path $fs\n";
132                 my $dev_backup = dev_to_backup($dev);
133                 my $label = $blks->{$dev}->{LABEL};
134                 $label = $label ? "-L $label" : '';
135                 sh "mkfs.$fs $label $dev_backup";
136                 mkdir $tmp . $path unless -e $tmp . $path;
137                 sh "mount $dev_backup $tmp$path";
138                 unshift @umount, $tmp . $path;
139                 $dev .= '-snap' if -e $dev . '-snap';
140                 chdir $tmp . $path;
141                 sh "dump -0 -f - $dev | restore -r -f -";
142         } else {
143                 warn "SKIP $dev $path $fs";
144         }
145 }
146
147 chdir '/';
148
149 if ( my $swap = (grep { $blks->{$_}->{TYPE} eq 'swap' } keys %$blks)[0] ) {
150         my $dev = dev_to_backup($swap);
151         my $label = $blks->{$swap}->{LABEL};
152         $label = $label ? "-L $label" : '';
153         warn "create swap on $dev\n";
154         sh "mkswap $label $dev";
155 }
156
157
158 warn "cleanup...\n";
159
160 sh "umount $_" foreach @umount;
161
162 sh "lvremove -f $_" foreach @lv_remove;
163
164 sh "vgchange --available n $vg_backup";
165
166 sh "vgexport $vg_backup";
167
168 sh "kpartx -dv /dev/nbd0";
169
170 warn "finished in ", time() - $start_t, " seconds\n";
171
172 sh "qemu-nbd --disconnect /dev/nbd0";
173