Create profiles on the fly

1 files changed, 6 insertions, 1 deletions

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