From 68b9da84a84c33778e5fbb9d49d898e7ca5b388f Mon Sep 17 00:00:00 2001
From: pnixon <pnixon>
Date: Thu, 24 Mar 2005 11:41:00 +0000
Subject: [PATCH] Add a verbose logging option

---
 bin/log_badlogins | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/bin/log_badlogins b/bin/log_badlogins
index 80bb090..f0d3130 100755
--- a/bin/log_badlogins
+++ b/bin/log_badlogins
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # Log failed logins in the sql database
-# Works with mysql and postgresql
+# Works with mysql, postgresql and Oracle
 # It will read the sql parameters from the admin.conf file
 #
 # Usage:
@@ -31,6 +31,7 @@ $all_file=shift||'no';
 #$regexp = 'from client localhost port 135|from client blabla ';
 $tmpfile='/var/tmp/sql.input';
 #
+$verbose = 0;
 #
 
 open CONF, "<$conf"
@@ -113,10 +114,12 @@ unshift @servers, $sql_server;
 
 open LOG, "<$file"
 	or die "Could not open file $file\n";
+if ($verbose > 1) { print STDOUT "DEBUG: Opened $file\n" }
 
 seek LOG, 0, 2 if ($all_file eq 'no');
 for(;;){
 	while(<LOG>){
+		if ($verbose > 1) { print STDOUT "DEBUG: Reading $file\n" }
 		$do=0;	
 		chomp;
 		next if ($regexp ne '' && !/$regexp/);
@@ -125,8 +128,10 @@ for(;;){
 			if (/Login incorrect/){
 				if (/Login incorrect \((.+?)\):/){
 					$cause = "Login-Incorrect ($1)";
+					if ($verbose > 1) { print STDOUT "DEBUG: Login-Incorrect ($1)\n" }
 				}else{
 					$cause='Login-Incorrect';
+					if ($verbose > 1) { print STDOUT "DEBUG: Login-Incorrect\n" }
 				}
 				$do=1;
 			}
@@ -201,11 +206,13 @@ for(;;){
 					$command = "$sqlcmd  -U $sql_username -f $tmpfile.$server $sql_database" if ($sql_type eq 'pg');
 					$command = "$sqlcmd  $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle');
 					$command = "$sqlcmd '$server' '$sql_port' '' '$sql_username' '$sql_pass' <$tmpfile.$server" if ($sql_type eq 'sqlrelay');
+					if ($verbose > 1) { print STDOUT "DEBUG: Sending datafile $tmpfile.$server to \"$sql_type\" database\n" }
 					`$command`;
+					if ($verbose > 1) { print STDOUT "DEBUG: Sent data to \"$sql_type\" database\n" }
 
 					$exit = $? >> 8;
 					$delete{$server} = ($exit == 0) ? 1 : 0;
-					print "ERROR: SQL query failed for host $server\n" if ($exit != 0);
+					print STDERR "ERROR: SQL query failed for host $server\n" if ($exit != 0);
 				}
 			}
 		}
-- 
2.39.5