cleanup before migration

3 files changed, 16 insertions, 2 deletions

diff --git a/annex_discovery.pl b/annex_discovery.pl
new file mode 100644
index 0000000..b645dc6
--- /dev/null
+++ b/annex_discovery.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature q(say);
+
+open my $fh, "<", "/home/lemon/Documents/find_these_paths.txt" or die "Cannot open file";
+while (<$fh>) {
+    if ($_ =~ q[^/home/lemon/annex/(.*) \(1 copy\)]) {
+        my $path = quotemeta($1);
+        my $out = `git annex whereis $path`;
+        say $out;
+    }
+}
diff --git a/calendar/dayplan_revised.pl b/calendar/dayplan_revised.pl
index 43e74a7..bf72ea7 100755
--- a/calendar/dayplan_revised.pl
+++ b/calendar/dayplan_revised.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Porting dayplan.ksh to Perl
 
 use strict;
diff --git a/calendar/modevent.pl b/calendar/modevent.pl
index 38f1e02..bffb972 100755
--- a/calendar/modevent.pl
+++ b/calendar/modevent.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use warnings;
 use strict;