level up log names

diff --git a/site/cgi-bin/modules/BSE/AdminSiteUsers.pm b/site/cgi-bin/modules/BSE/AdminSiteUsers.pm
index 81d31587c3984a10878dea77066758aebe2c08b5..84effa553cd2594584878aee07f51d25f91757c1 100644 (file)
--- a/site/cgi-bin/modules/BSE/AdminSiteUsers.pm
+++ b/site/cgi-bin/modules/BSE/AdminSiteUsers.pm
@@ -13,7 +13,7 @@ use constant SITEUSER_GROUP_SECT => 'BSE Siteuser groups validation';
 use BSE::Template;
 use DevHelp::Date qw(dh_parse_date_sql dh_parse_time_sql);
 
-our $VERSION = "1.010";
+our $VERSION = "1.011";
 
 my %actions =
   (
@@ -572,7 +572,7 @@ sub req_delete {
     (
      component => "members::delete",
      object => $user,
-     level => "info",
+     level => "notice",
      msg => "Member " . $user->userId . " (" . $user->id . ") deleted",
     );
 
@@ -759,7 +759,7 @@ sub req_add {
        object => $user,
        component => "members::add",
        msg => "New user created",
-       level => "info",
+       level => "notice",
       );
 
     $req->flash("msg:bse/admin/siteusers/usercreated", [ $user ]);

diff --git a/site/cgi-bin/modules/BSE/UserReg.pm b/site/cgi-bin/modules/BSE/UserReg.pm
index d9c616f74c1f1877840212e721be92beec992762..e9956dcf644bd70c7c359d376f8cf2750cd5bf71 100644 (file)
--- a/site/cgi-bin/modules/BSE/UserReg.pm
+++ b/site/cgi-bin/modules/BSE/UserReg.pm
@@ -18,7 +18,7 @@ use BSE::Util::Iterate;
 use base 'BSE::UI::UserCommon';
 use Carp qw(confess);
 
-our $VERSION = "1.026";
+our $VERSION = "1.027";
 
 use constant MAX_UNACKED_CONF_MSGS => 3;
 use constant MIN_UNACKED_CONF_GAP => 2 * 24 * 60 * 60;
@@ -247,7 +247,7 @@ sub req_logon {
             object => $user,
             component => "siteuser:logon:invalid",
             actor => "S",
-            level => "notice",
+            level => "warning",
             msg => "Invalid username or password",
            );
          SiteUser->check_lockouts
@@ -306,7 +306,7 @@ sub req_logon {
      object => $user,
      component => "siteuser:logon:success",
      actor => "S",
-     level => "info",
+     level => "warning",
      msg => "Invalid username or password",
     );
 
@@ -756,7 +756,7 @@ sub req_register {
        object => $user,
        component => "member:register:created",
        msg => "New user created",
-       level => "info",
+       level => "notice",
       );
 
     $self->_send_user_cookie($user);

diff --git a/site/cgi-bin/modules/BSE/Util/Lockouts.pm b/site/cgi-bin/modules/BSE/Util/Lockouts.pm
index 3d91e3c9da54b1e6929fc7b2cf1fbec67d2e097b..d5a3898980d6807a9c691be43e91dabe48eae777 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.001";
+our $VERSION = "1.002";
 
 sub check_lockouts {
   my ($class, %opts) = @_;
@@ -138,7 +138,7 @@ sub unlock_user {
      component => $component,
      module => $module,
      function => "unlock",
-     level => "info",
+     level => "notice",
      msg => "Account unlocked",
      ip_address => $req->ip_address,
     );
@@ -175,7 +175,7 @@ sub unlock_ip_address {
      component => $component,
      module => $module,
      function => "unlock",
-     level => "info",
+     level => "notice",
      msg => "IP Address '$address' unlocked for $types{$type} by ".$req->ip_address,
      ip_address => $address,
     );

diff --git a/site/cgi-bin/modules/SiteUser.pm b/site/cgi-bin/modules/SiteUser.pm
index 925345580edf16c89bd0db06155d3c4f620db048..6fbf33a07d86c8e83e56a7d05d305ad4be25b1fd 100644 (file)
--- a/site/cgi-bin/modules/SiteUser.pm
+++ b/site/cgi-bin/modules/SiteUser.pm
@@ -18,7 +18,7 @@ SiteUser - represent a site user (or member)
 
 =cut
 
-our $VERSION = "1.009";
+our $VERSION = "1.010";
 
 use constant MAX_UNACKED_CONF_MSGS => 3;
 use constant MIN_UNACKED_CONF_GAP => 2 * 24 * 60 * 60;
@@ -859,7 +859,7 @@ sub changepw {
        component => "siteusers::changepw",
        object => $self,
        actor => $who,
-       level => "info",
+       level => "notice",
        msg => "Change password",
        %log,
       );