better logging info (#134)

src/incidents/incidents.pl

@@ -8,7 +8,7 @@
 use File::Spec;
 
 
-use ParCzech::PipeLine::FileManager;
+use ParCzech::PipeLine::FileManager "incidents";
 use ParCzech::NoteClassifier;
 
 my $scriptname = $0;

src/lib/ParCzech/NER/CNEC.pm

@@ -2,7 +2,7 @@ package ParCzech::NER::CNEC;
 
 use warnings;
 use strict;
-use ParCzech::PipeLine::FileManager;
+use ParCzech::PipeLine::FileManager __PACKAGE__;
 
 my $namedEntities = {
   valuesname => 'class',

src/lib/ParCzech/PipeLine/FileManager.pm

@@ -5,6 +5,9 @@ use strict;
 use open qw(:std :utf8);
 use utf8;
 use File::Spec;
+use ParCzech::PipeLine::Logger;
+
+our $logger;
 
 my ($lock_result,$input_file,$output_file,$filelist);
 my $input_dir = './';
@@ -13,6 +16,12 @@ my $output_dir = './';
 
 my @files;
 
+
+sub import {
+  my ($package, $msg) = @_;
+  $logger  = ParCzech::PipeLine::Logger->new(prefix => $msg // __PACKAGE__);
+}
+
 sub opts {(
     'lock-result' => \$lock_result,
   # single file input
@@ -381,6 +390,7 @@ sub open_xml {
   my %vars = @_;
   my $xml;
   local $/;
+  $ParCzech::PipeLine::FileManager::logger->log_line('opening',$file);
   open FILE, $file;
   binmode ( FILE, ":utf8" );
   my $rawxml = <FILE>;
@@ -449,6 +459,7 @@ sub save_to_file {
   evaluate_vars(\$raw,$log,%vars);
   print FILE $raw;
   close FILE;
+  $ParCzech::PipeLine::FileManager::logger->log_line('saved to',$filename);
   return [map {[$filename,@$_]} @$log];
 }
 

src/lib/ParCzech/PipeLine/Logger.pm

@@ -0,0 +1,35 @@
+package ParCzech::PipeLine::Logger;
+
+use warnings;
+use strict;
+use open qw(:std :utf8);
+use utf8;
+use DateTime;
+
+
+sub new {
+  my $this  = shift;
+  my $class = ref($this) || $this;
+  my %opts = @_;
+  my $self  = {};
+  bless $self, $class;
+  $self->{prefix} = $opts{prefix} if defined $opts{prefix};
+  $self->{tz} = DateTime::TimeZone->new( name => 'local' ) // DateTime::TimeZone->new( name => 'floating' ) // DateTime::TimeZone->new( name => 'UTC' );
+  return $self
+}
+
+
+sub log_line {
+  my $self = shift;
+  my $date =   DateTime->now(time_zone => $self->{tz})->strftime('%Y-%m-%d %T');
+  print STDERR "$date\t",$self->get_prefix,join(' ',@_),"\n";
+}
+
+sub get_prefix {
+  my $self = shift;
+  return '' unless defined $self->{prefix};
+  return "($self->{prefix}) ";
+}
+
+
+1;

src/lib/ParCzech/XMLmerge.pm

@@ -7,7 +7,7 @@ use utf8;
 use File::Spec;
 use File::Copy;
 use XML::LibXML qw(:libxml);
-use ParCzech::PipeLine::FileManager;
+use ParCzech::PipeLine::FileManager __PACKAGE__;
 use ParCzech::XMLmerge::teiCorpus;
 use sort 'stable';          # guarantee stability
 

src/metadater/metadater.pl

@@ -8,7 +8,7 @@
 use File::Spec;
 
 
-use ParCzech::PipeLine::FileManager;
+use ParCzech::PipeLine::FileManager "metadater";
 
 my $scriptname = $0;
 my $dirname = dirname($scriptname);

src/nametag2/nametag2.pl

@@ -9,7 +9,7 @@
 use LWP::UserAgent;
 use JSON;
 
-use ParCzech::PipeLine::FileManager;
+use ParCzech::PipeLine::FileManager "nametag";
 
 my $scriptname = $0;
 

src/psp-db/pspdb-generate-xml.pl

@@ -5,7 +5,7 @@
 use Getopt::Long;
 use File::Spec;
 use DateTime::Format::Strptime;
-use ParCzech::PipeLine::FileManager;
+use ParCzech::PipeLine::FileManager "psp-db";
 use ParCzech::Translation;
 use DBI;
 use Unicode::Diacritic::Strip;

src/udpipe2/udpipe2.pl

@@ -12,7 +12,7 @@
 use File::Spec;
 
 
-use ParCzech::PipeLine::FileManager;
+use ParCzech::PipeLine::FileManager "udpipe";
 
 my $scriptname = $0;
 my $dirname = dirname($scriptname);