chdir to script directory and create log file

diff --git a/zc-mqtt b/zc-mqtt
index cb75957..365dc94 100755 (executable)
--- a/zc-mqtt
+++ b/zc-mqtt
@@ -20,13 +20,21 @@ use DBD::Pg;
 use Data::Dump qw(dump);
 use autodie;
 
+BEGIN {
+       my $cwd = $0;
+       $cwd =~ s{/[^/]+$}{};
+       chdir $cwd;
+
+       open(my $log, '>', 'log.'.strftime("%Y-%m-%dT%H:%M:%S",localtime()));
+       select($log);
+       $|=1;
+}
+
 use lib '.';
 use Protocol;
 
 my $queue = "queue";
 
-$|=1; # flush STDOUT
-
 my $dbh = DBI->connect("dbi:Pg:dbname=zc", "dpavlin", "", { RaiseError => 1 });
 my @columns = split(/\n/, <<__COLUMNS__);
 0x01   PN