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;
}