sub recordStatus {
    if($m_bUseLog and $iLogLevel <= $m_iLogLevel) {
        my $format = shift;
        my $string = sprintf $format, @_;
        return length $string if(print $m_sSourceFile $string);
        return -1;
    }
}