package other.pm

use common;

sub import {
	shift;
	$LOGFH = ${$_[0]};
	$writelog = ${$_[1]};
}

logLine("TEST");

sub logLine {
	my ($text) =@_;
	chomp($text);
	my ($package, $filename, $line) = caller;
	my $FunctionName = (caller(1))[3];
	if ($FunctionName =~ m/::(.+)/) {
		$FunctionName = $1;
	}
	my $time = localtime time;

	#do sprintf left align truncate until sprintf supports
	if ($files{log}{fileNameLen} =~ m/-\d+\.(\d+)/) {
		$filename = substr($filename, 0, $1);
	}
	if ($files{log}{funNameLen} =~ m/-\d+\.(\d+)/) {
		$FunctionName = substr($FunctionName, 0, $1);
	}

	my $header = sprintf("%*s, %*s, %*s, %*s:", $files{log}{timeLen}, $time, $files{log}{fileNameLen}, $filename, $files{log}{funNameLen}, $FunctionName, $files{log}{lineNumLen}, $line);
	print "$header $text\n"; #only for testing
	if (defined $writelog and defined $LOGFH) {
		$writelog->down();
		print $LOGFH "$header $text\n";
		$writelog->up();
	}
}