level up lockout log names to error

diff --git a/site/cgi-bin/modules/BSE/Util/Lockouts.pm b/site/cgi-bin/modules/BSE/Util/Lockouts.pm
index d5a3898980d6807a9c691be43e91dabe48eae777..98d7ac17f62656a47fc2cea055380268a124499f 100644 (file)
--- a/site/cgi-bin/modules/BSE/Util/Lockouts.pm
+++ b/site/cgi-bin/modules/BSE/Util/Lockouts.pm
@@ -5,7 +5,7 @@ use BSE::TB::AuditLog;
 use Scalar::Util qw(blessed);
 use POSIX qw(strftime);
 
-our $VERSION = "1.002";
+our $VERSION = "1.003";
 
 sub check_lockouts {
   my ($class, %opts) = @_;
@@ -57,7 +57,7 @@ sub check_lockouts {
         component => $component,
         module => $module,
         function => "lockout",
-        level => "warning",
+        level => "error",
         actor => "S",
         msg => "Account locked out until $end",
         ip_address => $req->ip_address,
@@ -110,7 +110,7 @@ sub check_lockouts {
         component => $component,
         module => $module,
         function => "lockout",
-        level => "warning",
+        level => "error",
         actor => "S",
         msg => "IP address " . $req->ip_address . " ${lock}locked out until $end",
         object => $user,