diff --git a/smart.cmake b/smart.cmake index fb071ab..a80f840 100644 --- a/smart.cmake +++ b/smart.cmake @@ -186,14 +186,42 @@ exit; ##### END OF MAIN PROCEDURES FOLLOW ##### ########################################## +sub smart_log_line( $$$ ) +{ + my( $level, $file, $msg ) = @_; + + $level = 'INFO' unless defined( $level ) && $level ne ''; + $file = 'smart' unless defined( $file ) && $file ne ''; + $msg = '' unless defined( $msg ); + + my( $sec, $min, $hour, $mday, $mon, $year ) = localtime( time() ); + my $ts = sprintf( "%04d-%02d-%02d %02d:%02d:%02d", + $year + 1900, $mon + 1, $mday, $hour, $min, $sec ); + + my $version = defined( $smart_version ) && $smart_version ne '' ? $smart_version : '0.99.pl28'; + + if( open( my $fh, '>>', $smart_log_path ) ) + { + print( $fh '[' . $ts . '] [' . $level . '] [SMArT ' . $version . '] [' . $file . '] ' . $msg . "\n" ); + close( $fh ); + } +} + + sub smart_auth_log( $ ) { my $msg = $_[0]; $msg = '' unless defined $msg; + my( $sec, $min, $hour, $mday, $mon, $year ) = localtime( time() ); + my $ts = sprintf( "%04d-%02d-%02d %02d:%02d:%02d", + $year + 1900, $mon + 1, $mday, $hour, $min, $sec ); + + my $version = defined( $smart_version ) && $smart_version ne '' ? $smart_version : '0.99.pl28'; + if( open( my $fh, '>>', $smart_log_path ) ) { - print( $fh scalar( localtime() ) . " [AUTH] " . $msg . "\n" ); + print( $fh '[' . $ts . '] [INFO] [SMArT ' . $version . '] [smart] ' . $msg . "\n" ); close( $fh ); } }