sub recordStatus {
    my $self = shift;
    if($self->{UseLog} and $iLogLevel <= $self->{LogLevel}) {
        my $format = shift;
        my $fh = $self->{SourceFile};
        my $string = sprintf $format, @_;
        return length $string if(print $fh $string);
        return -1;
    }
}