Logging
This commit is contained in:
30
smart.cmake
30
smart.cmake
@@ -186,14 +186,42 @@ exit;
|
|||||||
##### END OF MAIN PROCEDURES FOLLOW #####
|
##### 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( $ )
|
sub smart_auth_log( $ )
|
||||||
{
|
{
|
||||||
my $msg = $_[0];
|
my $msg = $_[0];
|
||||||
$msg = '' unless defined $msg;
|
$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 ) )
|
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 );
|
close( $fh );
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user