Help for this page
sub debugLogFunctionNameLineNum { #debugLogFunctionNameLineNum((caller(0))[2],(caller(1))[3], @_); ... print $LOGFH "$header $input_msg\n"; $writelog->up(); }
sub logLine { my ($text) = @_; ... $writelog->down(); print $LOGFH "$header $text\n"; $writelog->up();
sub EmailResults { debugLogFunctionNameLineNum((caller(0))[2],(caller(1))[3], @_); ... $smtp->quit; } }
www.com | www.net | www.org
No recent polls found