Mercurial > backup

view luks-headers-backup.pl @ 23:9fd4948b4303

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
s.
author Robert McIntyre <rlm@mit.edu>
date Thu, 29 Jan 2015 20:47:48 -0800
parents 69bf466ff2ae
children
line wrap: on
line source
     1 #!/bin/perl



     2 



     3 



     4 



     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 }



    13 



    14 # TODO -- find all luks drives and do this automatically.



    15 



    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");