Mercurial > backup
annotate 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 |
| 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"); |