Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

more log level changes from Adrian

  • Loading branch information...
commit a70f8d4acbcf937e5e6ea5de4b9f3216b701e34c 2 parents 38c81e5 + 5705b60
@tonycoz authored
View
4 site/cgi-bin/modules/BSE/AdminLogon.pm
@@ -4,7 +4,7 @@ use BSE::Util::Tags qw(tag_error_img);
use BSE::Util::HTML;
use BSE::CfgInfo 'admin_base_url';
-our $VERSION = "1.005";
+our $VERSION = "1.006";
my %actions =
(
@@ -144,7 +144,7 @@ sub req_logon {
$req->audit
(
component => "adminlogon:logon:invalid",
- level => "error",
+ level => "warning",
msg => "Failed logon attempt",
actor => "U",
object => $user,
View
4 site/cgi-bin/modules/BSE/ChangePW.pm
@@ -4,7 +4,7 @@ use BSE::Util::Tags qw(tag_error_img);
use BSE::Util::HTML;
use base 'BSE::UI::AdminDispatch';
-our $VERSION = "1.004";
+our $VERSION = "1.005";
my %actions =
(
@@ -104,7 +104,7 @@ sub req_change {
msg => "User '".$user->logon."' successfully changed their password",
object => $user,
actor => $user,
- level => "info",
+ level => "notice",
);
$user->changepw($newpw);
View
4 site/cgi-bin/modules/BSE/TB/Order.pm
@@ -7,7 +7,7 @@ use vars qw/@ISA/;
use Carp 'confess';
use BSE::Shop::PaymentTypes;
-our $VERSION = "1.016";
+our $VERSION = "1.017";
sub columns {
return qw/id
@@ -638,7 +638,7 @@ sub new_stage {
component => "shopadmin:orders:saveorder",
object => $self,
msg => $msg,
- level => "info",
+ level => "notice",
actor => $who || "U"
);
View
10 site/cgi-bin/modules/BSE/UI/AdminShop.pm
@@ -19,7 +19,7 @@ use BSE::Arrows;
use BSE::Shop::Util qw(:payment order_item_opts nice_options payment_types);
use BSE::CfgInfo qw(cfg_dist_image_uri);
-our $VERSION = "1.017";
+our $VERSION = "1.018";
my %actions =
(
@@ -951,7 +951,7 @@ sub _set_order_paid {
$req->audit
(
component => "shopadmin:order:paid",
- level => "info",
+ level => "notice",
object => $order,
msg => "Order " . $order->id . " marked paid",
);
@@ -960,7 +960,7 @@ sub _set_order_paid {
$req->audit
(
component => "shopadmin:order:unpaid",
- level => "info",
+ level => "notice",
object => $order,
msg => "Order " . $order->id . " marked unpaid",
);
@@ -1097,7 +1097,7 @@ sub req_order_save {
component => "shopadmin:orders:saveorder",
object => $order,
msg => "New freight tracking code set: '" . $order->freight_tracking . "'",
- level => "info",
+ level => "notice",
);
}
if ($new_shipping_name) {
@@ -1106,7 +1106,7 @@ sub req_order_save {
component => "shopadmin:orders:saveorder",
object => $order,
msg => "New shippping method set: '" . $order->shipping_name . "/" . $order->shipping_method . "'",
- level => "info",
+ level => "notice",
);
}
if ($new_stage) {
View
6 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,
Please sign in to comment.
Something went wrong with that request. Please try again.