From 69f17fe584d24a34b6d826780343819bdbcc3ccc Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Thu, 8 Oct 2020 00:37:01 +0530
Subject: Get $backup_dir from config, format $mday with 2 leading zeros

This will not work with previous configs. But that's fine because I'm
the only one using this.
---
 leo.pl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'leo.pl')

diff --git a/leo.pl b/leo.pl
index fcf3bef..dcb8447 100755
--- a/leo.pl
+++ b/leo.pl
@@ -19,18 +19,20 @@ GetOptions(
     qw{ verbose encrypt sign delete help }
 ) or die "Error in command line arguments\n";
 
-my $ymd = ymd(); # YYYY-MM-DD.
-my $backup_dir = "/tmp/backups/$ymd";
-
-path($backup_dir)->mkpath; # Create backup directory.
-my $prof;
-
 # Config file for leo.
 my $config_file = $ENV{XDG_CONFIG_HOME} || "$ENV{HOME}/.config";
 $config_file .= "/leo.pl";
 
 require "$config_file";
 
+my $ymd = ymd(); # YYYY-MM-DD.
+my $backup_dir = get_backup_dir() || "/tmp/backups";
+$backup_dir .= "/$ymd";
+
+path($backup_dir)->mkpath; # Create backup directory.
+my $prof;
+
+
 my %profile = get_profile();
 my $gpg_fingerprint = get_gpg_fingerprint();
 my $gpg_bin = get_gpg_bin();
@@ -145,5 +147,6 @@ sub ymd {
     my @months = qw( 01 02 03 04 05 06 07 08 09 10 11 12 );
     my $month = $months[$mon];
 
+    $mday = sprintf "%02d", $mday;
     return "$year-$month-$mday";
 }
-- 
cgit 1.4.1-2-gfad0