daniell/pcurse
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Make sure configdir exists before die if we can't write to a file in that dir..

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-08-26 02:20:35 +02:00
parent b63c0f9645
commit 72c47557a9
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pcurse
View File

@@ -7,7 +7,11 @@ use Data::Dumper;
use lib '.'; use lib '.';
use pcurse; use pcurse;
my $logfile = $ENV{'HOME'}.'/.pcurse/lastrun.log'; my $confdir = $ENV{'HOME'}.'/.pcurse/';
#Make sure ~/.pcurse exists
system('mkdir','-p',$confdir) unless(-d $confdir);
my $logfile = $confdir.'lastrun.log';
open my $lf, '>', $logfile or die 'Cannot write to logfile '.$logfile.': '.$!; open my $lf, '>', $logfile or die 'Cannot write to logfile '.$logfile.': '.$!;
select STDOUT; select STDOUT;
$| = 1; $| = 1;
@@ -20,7 +24,7 @@ my @toupd;
my %jobs; my %jobs;
my $workers; my $workers;
my $opts = pcurse::parse_arguments; my $opts = pcurse::parse_arguments;
$opts->{'config'} = $ENV{'HOME'}.'/.pcurse/config.json' unless(defined($opts->{'config'})); $opts->{'config'} = $confdir.'config.json' unless(defined($opts->{'config'}));
my $conf = pcurse::load_config($opts->{'config'}); my $conf = pcurse::load_config($opts->{'config'});
$conf = pcurse::check_config($conf); $conf = pcurse::check_config($conf);
($ret,$msg) = pcurse::save_config($conf->{'config'},$conf); ($ret,$msg) = pcurse::save_config($conf->{'config'},$conf);