about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAndinus <andinus@nand.sh>2020-08-27 13:32:09 +0530
committerAndinus <andinus@nand.sh>2020-08-27 13:32:09 +0530
commit748a3fb76c324d72ea2c62e1f7aa7da35e066410 (patch)
tree0b233194c97dba474bad0ad470c2da82ce1ff190
parent391977a559a3130885d5c512f25d76207ac67b16 (diff)
downloadleo-748a3fb76c324d72ea2c62e1f7aa7da35e066410.tar.gz
Move archive dispatch table to main
I'm thinking of making leo as my archive program instead of a
meta-program to hold all my scripts. It's simpler to keep them
seperated, meta-program would've been complex.
-rwxr-xr-xleo.pl110
1 files changed, 47 insertions, 63 deletions
diff --git a/leo.pl b/leo.pl
index 3c20e8e..116a9d6 100755
--- a/leo.pl
+++ b/leo.pl
@@ -14,30 +14,61 @@ GetOptions(
     qw{ verbose encrypt sign }
 ) or die "Error in command line arguments\n";
 
+my $gpg_fingerprint = "D9AE4AEEE1F1B3598E81D9DFB67D55D482A799FD";
+my $archive_dir = "/tmp/archive";
+my $ymd = ymd(); # YYYY-MM-DD.
 
-# There will be multiple dispatch tables, to avoid confusion the main
-# one is named %dispatch & others will be named like %archive_dispatch
-# & so on.
+# Dispatch table.
 my %dispatch = (
-    "archive" => \&archive,
+    "documents" => sub {
+        tar_create("$archive_dir/documents_$ymd.tar",
+                   "-C", "$ENV{HOME}/documents", ".");
+    },
+    "journal" => sub {
+        tar_create("$archive_dir/journal_$ymd.tar",
+                   "-C", "$ENV{HOME}/documents",
+                   "andinus.org.gpg", "archive.org.gpg");
+    },
+    "ssh" => sub {
+        tar_create("$archive_dir/ssh_$ymd.tar",
+                   "-C", "$ENV{HOME}/.ssh", ".");
+    },
+    "pass" => sub {
+        tar_create("$archive_dir/pass_$ymd.tar",
+                   "-C", "$ENV{HOME}/.password-store", ".");
+    },
 );
 
-if ( $ARGV[0]
-         and $dispatch{ $ARGV[0] } ) {
+if ( $ARGV[0] and $dispatch{ $ARGV[0] } ) {
+    path($archive_dir)->mkpath; # Create archive directory.
     $dispatch{ $ARGV[0] }->();
 } elsif ( scalar @ARGV == 0 ) {
     HelpMessage();
 } else {
-    say "leo: no such option";
+    die say "leo: no such option\n";
 }
 
 sub HelpMessage {
-    say qq{Usage:
-    archive
-        Create an archive.};
+    say qq{Archive files to $archive_dir.
+
+Usage:
+    documents
+        Archive $ENV{HOME}/documents
+    journal
+        Archive $ENV{HOME}/documents/andinus.org.gpg,
+                $ENV{HOME}/documents/archive.org.gpg
+    ssh
+        Archive $ENV{HOME}/.ssh
+    pass
+        Archive $ENV{HOME}/.password-store
+
+Options:
+    --encrypt
+        Encrypt files with $gpg_fingerprint
+    --sign
+        Sign files with $gpg_fingerprint};
 }
 
-sub rsync { run3 ["openrsync", @_]; }
 
 # User must pass $tar_file first & `-C' optionally.
 sub tar_create {
@@ -73,11 +104,7 @@ sub tar_create {
 }
 sub tar_list { run3 ["/bin/tar", "tvf", @_]; }
 
-# Creating tars of files.
-sub archive {
-    my $gpg_fingerprint = "D9AE4AEEE1F1B3598E81D9DFB67D55D482A799FD";
-    my $archive_dir = "/tmp/archive";
-
+sub ymd {
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
         localtime(time);
 
@@ -88,52 +115,9 @@ sub archive {
     my @months = qw( 01 02 03 04 05 06 07 08 09 10 11 12 );
     my $month = $months[$mon];
 
-    my $ymd = "$year-$month-$mday";
-
-    my %archive_dispatch = (
-        "documents" => sub {
-            tar_create("$archive_dir/documents_$ymd.tar",
-                       "-C", "$ENV{HOME}/documents", ".");
-        },
-        "journal" => sub {
-            tar_create("$archive_dir/journal_$ymd.tar",
-                       "-C", "$ENV{HOME}/documents",
-                       "andinus.org.gpg", "archive.org.gpg");
-        },
-        "ssh" => sub {
-            tar_create("$archive_dir/ssh_$ymd.tar",
-                       "-C", "$ENV{HOME}/.ssh", ".");
-        },
-        "pass" => sub {
-            tar_create("$archive_dir/pass_$ymd.tar",
-                       "-C", "$ENV{HOME}/.password-store", ".");
-        },
-    );
-
-    shift @ARGV; # Drop `archive' from @ARGV.
-    if ( $ARGV[0] and $archive_dispatch{ $ARGV[0] } ) {
-        path($archive_dir)->mkpath; # Create archive directory.
-        $archive_dispatch{ $ARGV[0] }->();
-    } elsif ( scalar @ARGV == 0 ) {
-        say qq{Archive files to $archive_dir.
-
-Usage:
-    documents
-        Archive $ENV{HOME}/documents
-    journal
-        Archive $ENV{HOME}/documents/andinus.org.gpg,
-                $ENV{HOME}/documents/archive.org.gpg
-    ssh
-        Archive $ENV{HOME}/.ssh
-    pass
-        Archive $ENV{HOME}/.password-store
+    return "$year-$month-$mday";
+}
 
-Options:
-    --encrypt
-        Encrypt files with $gpg_fingerprint
-    --sign
-        Sign files with $gpg_fingerprint};
-    } else {
-        say "leo/archive: no such option";
-    }
+# Creating tars of files.
+sub archive {
 }