Logging

apply.pl

@@ -271,6 +271,7 @@ EOF
 		}
 		
 		redirect( '/settings/users' );
+		return( 1 );
 	}
 	elsif( $c[1] eq 'groups' )
 	{
@@ -324,6 +325,7 @@ EOF
 		}
 		
 		redirect( '/settings/groups' );
+		return( 1 );
 	}
 	elsif( $c[1] eq 'queues' )
 	{
@@ -393,6 +395,7 @@ EOF
 		}
 		
 		redirect( '/settings/queues' );
+		return( 1 );
 	}
 
 	elsif( $c[1] eq 'advanced' )

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 );
 	}
 }