rlm@17: #!/bin/perl
rlm@17: 
rlm@17: 
rlm@17: 
rlm@17: sub backup {
rlm@17:     my $uuid = shift;
rlm@17:     my @command = 
rlm@17: 	("cryptsetup", "luksHeaderBackup", "--header-backup-file", 
rlm@17: 	 "./$uuid.luksHeader", "/dev/disk/by-uuid/$uuid");
rlm@17:     print("@command\n");
rlm@17:     system(@command);
rlm@17: }
rlm@17: 
rlm@17: # TODO -- find all luks drives and do this automatically.
rlm@17: 
rlm@17: &backup("fd14a1d5-ece0-43c4-a3c5-eb93af261cb5");
rlm@17: &backup("23d75d33-611b-424b-810a-099aef0bdd57");
rlm@17: &backup("8543575b-25cc-4132-88ef-39af98f646ae");
rlm@17: &backup("da9b2d38-bb64-459f-b1c8-480b790a2a50");