package GTSlogger;

our $VERSION = '1.00';

use strict;
use warnings;

use Time::HiRes qw(time);
use DateTime;
use DateTime::Format::Strptime;
use File::Path qw/make_path/;

use initpath;
use lib $CGILIB;
use GTSconfig;

# static method
# (1) - message to log
# (2) - filename or mytrace.log as default
sub mytrace($;$)
{
        my $message = shift;
        my $fname = shift || 'mytrace.log';
        open( MYTRACE, '>>', GTSconfig::EXCHANGE_DIR.$fname ); # <<- FEHLER HIER
        print MYTRACE $message, "\n";
        close MYTRACE;
}