# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1368989748 14400
# Node ID 69bf466ff2ae137925881acc15c7c7a3fac50de9
# Parent  cfb8a8c044b416cf433c8714e6769bb4980e6b74
get proj backup.

diff -r cfb8a8c044b4 -r 69bf466ff2ae backup-proj.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/backup-proj.sh	Sun May 19 14:55:48 2013 -0400
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+rsync -avz /home/r/proj /mnt/backup/proj-backup-$(date +"%F-%H:%M")
\ No newline at end of file
diff -r cfb8a8c044b4 -r 69bf466ff2ae luks-headers-backup.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/luks-headers-backup.pl	Sun May 19 14:55:48 2013 -0400
@@ -0,0 +1,19 @@
+#!/bin/perl
+
+
+
+sub backup {
+    my $uuid = shift;
+    my @command = 
+	("cryptsetup", "luksHeaderBackup", "--header-backup-file", 
+	 "./$uuid.luksHeader", "/dev/disk/by-uuid/$uuid");
+    print("@command\n");
+    system(@command);
+}
+
+# TODO -- find all luks drives and do this automatically.
+
+&backup("fd14a1d5-ece0-43c4-a3c5-eb93af261cb5");
+&backup("23d75d33-611b-424b-810a-099aef0bdd57");
+&backup("8543575b-25cc-4132-88ef-39af98f646ae");
+&backup("da9b2d38-bb64-459f-b1c8-480b790a2a50");