pricecharts

track prices of consumer electronics
Log | Files | Refs | README

commit a5a0d5cafb69a477041d5efe0112595eb4e84dc4
parent dd835abdd4b2135f90bd529020ee6d155aa5475a
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Thu, 19 Mar 2015 17:55:57 -0600

PriceChart: use xmkdir

Diffstat:
MPriceChart.pm | 9++++-----
1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/PriceChart.pm b/PriceChart.pm @@ -55,7 +55,7 @@ sub get_dbh my $db_dir = shift || $cfg->{"chroot"} . $cfg->{"db_dir"}; my $verbose = shift || undef; - mkdir $db_dir; + xmkdir($db_dir, $verbose); print "info: get_dbh: opening $db_dir/pricechart.db\n" if ($verbose); my $dbh = DBI->connect( "dbi:SQLite:dbname=$db_dir/pricechart.db", @@ -111,10 +111,9 @@ sub get_log my $log_path = shift || return undef; my $verbose = shift || 0; - unless (-d substr($log_path, 0, rindex($log_path, '/'))) { - mkdir $log_path or die "couldn't mkdir $log_path: $!" ; - } - print "info: get_log: opening $log_path\n" if ($args{v}); + # if $log_path has a / in it, make sure the path to it is made + xmkdir(substr($log_path, 0, rindex($log_path, '/'))); + print "info: get_log: open'ing $log_path in append mode\n" if ($args{v}); open my $log, ">>", $log_path or die "can't open $log_path: $!"; if ($verbose) {