Mercurial > backup

annotate backup-luks-headers.pl @ 26:14410daf5190 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
get makefile.
author Robert McIntyre <rlm@mit.edu>
date Thu, 29 Jan 2015 20:51:17 -0800
parents 75db8d48c313
children
rev   line source
rlm@17 1 #!/bin/perl
rlm@17 2
rlm@17 3
rlm@17 4
rlm@17 5 sub backup {
rlm@17 6 my $uuid = shift;
rlm@17 7 my @command =
rlm@17 8 ("cryptsetup", "luksHeaderBackup", "--header-backup-file",
rlm@17 9 "./$uuid.luksHeader", "/dev/disk/by-uuid/$uuid");
rlm@17 10 print("@command\n");
rlm@17 11 system(@command);
rlm@17 12 }
rlm@17 13
rlm@17 14 # TODO -- find all luks drives and do this automatically.
rlm@17 15
rlm@17 16 &backup("fd14a1d5-ece0-43c4-a3c5-eb93af261cb5");
rlm@17 17 &backup("23d75d33-611b-424b-810a-099aef0bdd57");
rlm@17 18 &backup("8543575b-25cc-4132-88ef-39af98f646ae");
rlm@17 19 &backup("da9b2d38-bb64-459f-b1c8-480b790a2a50");