fix date log name

diff --git a/printer-callbacks.pl b/printer-callbacks.pl
index 11124fe..38a76f7 100755 (executable)
--- a/printer-callbacks.pl
+++ b/printer-callbacks.pl
@@ -23,7 +23,7 @@ sub iso_datetime {
        return sprintf "%04d-%02d-%02dT%02d:%02d:%02d", $y+1900, $m, $d, $hh, $mm, $ss;
 }
 
        return sprintf "%04d-%02d-%02dT%02d:%02d:%02d", $y+1900, $m, $d, $hh, $mm, $ss;
 }
 

-my $log_path = join('.', $dir, (split(/T/,iso_datetime,2))[0], 'json');
+my $log_path = join('.', $dir . (split(/T/,iso_datetime,2))[0], 'json');

 open(my $log, '>>', $log_path) || die "$log_path: $!";
 
 my $community = 'public';
 open(my $log, '>>', $log_path) || die "$log_path: $!";
 
 my $community = 'public';