level up log names
authorAdrian Oldham <adriann@visualthought.com.au>
Sat, 16 Mar 2013 00:02:22 +0000 (11:02 +1100)
committerTony Cook <tony@develop-help.com>
Sat, 16 Mar 2013 00:50:43 +0000 (11:50 +1100)
site/cgi-bin/modules/BSE/AdminSiteUsers.pm
site/cgi-bin/modules/BSE/UserReg.pm
site/cgi-bin/modules/BSE/Util/Lockouts.pm
site/cgi-bin/modules/SiteUser.pm

index 81d3158..84effa5 100644 (file)
@@ -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 ]);
index d9c616f..e9956dc 100644 (file)
@@ -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);
index 3d91e3c..d5a3898 100644 (file)
@@ -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,
     );
index 9253455..6fbf33a 100644 (file)
@@ -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,
       );