view luks-headers-backup.pl @ 17:69bf466ff2ae

get proj backup.
author Robert McIntyre <rlm@mit.edu>
date Sun, 19 May 2013 14:55:48 -0400
parents
children
line wrap: on
line source
1 #!/bin/perl
5 sub backup {
6 my $uuid = shift;
7 my @command =
8 ("cryptsetup", "luksHeaderBackup", "--header-backup-file",
9 "./$uuid.luksHeader", "/dev/disk/by-uuid/$uuid");
10 print("@command\n");
11 system(@command);
12 }
14 # TODO -- find all luks drives and do this automatically.
16 &backup("fd14a1d5-ece0-43c4-a3c5-eb93af261cb5");
17 &backup("23d75d33-611b-424b-810a-099aef0bdd57");
18 &backup("8543575b-25cc-4132-88ef-39af98f646ae");
19 &backup("da9b2d38-bb64-459f-b1c8-480b790a2a50");