From 88d6d56531d37a9b8e12bab9d64842297a38b73d Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Wed, 2 Sep 2020 21:05:04 +0530
Subject: Create profiles on the fly

---
 leo.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'leo.pl')

diff --git a/leo.pl b/leo.pl
index 96bc921..c2cbff5 100755
--- a/leo.pl
+++ b/leo.pl
@@ -49,8 +49,13 @@ foreach my $arg ( @ARGV ) {
         backup("$backup_dir/${arg}.tar", $profile{$arg}->@*);
 
         $options{encrypt} = $tmp if $prof eq "journal";
+    } elsif ( -e $ENV{HOME}/$arg ) {
+        # If the file/directory exist then create a new profile & run
+        # backup.
+        say "++++++++********++++++++";
+        backup("$backup_dir/${arg}.tar", $arg);
     } else {
-        warn "[WARN] leo: no such option :: $arg \n";
+        warn "[WARN] leo: no such profile :: `$arg' \n";
     }
 }
 
-- 
cgit 1.4.1-2-gfad0