git.rot13.org Git - vmdk-backup/blob - 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         push @lv_create, "lvcreate --snapshot /dev/$vg/$name --name ${name}-snap --size 100M";
  68         push @lv_remove, "/dev/$vg/$name-snap";
  69 }
  70 warn "# lv_create = ",dump(@lv_create);
  71
  72 my @mounts;
  73 open(my $mount, '-|', 'mount');
  74 while(<$mount>) {
  75         chomp;
  76         my ($dev, undef, $path, undef, $fs, undef) = split(/\s+/,$_);
  77         push @mounts, [ $dev, $path, $fs ];
  78 }
  79 warn "# mounts = ",dump(@mounts);
  80
  81 sub sh {
  82         warn "# @_\n";
  83         system @_ unless $ENV{DEBUG};
  84 }
  85
  86
  87 warn "begin vmdk creation...\n";
  88
  89 my $size = `blockdev --getsize64 /dev/$sda`;
  90 sh "qemu-img create -f vmdk -o compat6 $vmdk $size";
  91
  92 sh "modprobe nbd";
  93
  94 my $nbd_pid;
  95 if ( $nbd_pid = fork ) {
  96         # parent
  97
  98         sh "qemu-nbd --verbose --connect /dev/nbd0 $vmdk";
  99
 100         exit 0;
 101 }
 102
 103 sleep 1;
 104
 105 sh "sfdisk -d /dev/$sda | sfdisk --force /dev/nbd0";
 106
 107 sh "kpartx -av /dev/nbd0";
 108
 109 sh "pvcreate $_" foreach @pvs;
 110
 111 sh "vgcreate $vg_backup @pvs";
 112
 113 sh $_ foreach @lv_create;
 114
 115 mkdir $tmp unless -d $tmp;
 116
 117 my @umount;
 118
 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';
 134                 chdir $tmp . $path;
 135                 sh "dump -0 -f - $dev | restore -r -f -";
 136         } else {
 137                 warn "SKIP $dev $path $fs";
 138         }
 139 }
 140
 141 chdir '/';
 142
 143 warn "FIXME create swap\n";
 144
 145
 146 warn "cleanup...\n";
 147
 148 sh "umount $_" foreach @umount;
 149
 150 sh "lvremove -f $_" foreach @lv_remove;
 151
 152 sh "vgchange --available n $vg_backup";
 153
 154 sh "kpartx -dv /dev/nbd0";
 155
 156 warn "finished in ", time() - $start_t, " seconds\n";
 157
 158 sh "qemu-nbd --disconnect /dev/nbd0";
 159