Logging
This commit is contained in:
30
smart.cmake
30
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 );
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user