Chris/ORB
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve logging of actions

Browse Source
This commit is contained in:
Chris 2018-05-22 00:33:52 +01:00
parent 2157250333
commit 5553598324
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
blocks/ORB/Login.pm
View File

@ -84,6 +84,8 @@ sub _signup_email {
my $user = shift; my $user = shift;
my $password = shift; my $password = shift;
$self -> log("login", "Emailing welcome message to $user");
# Build URLs to place in the email. # Build URLs to place in the email.
my $acturl = $self -> build_url("fullurl" => 1, my $acturl = $self -> build_url("fullurl" => 1,
"block" => "login", "block" => "login",
@ -123,6 +125,8 @@ sub _lockout_email {
my $actcode = shift; my $actcode = shift;
my $faillimit = shift; my $faillimit = shift;
$self -> log("login", "Sending lockout email to $user");
# Build URLs to place in the email. # Build URLs to place in the email.
my $acturl = $self -> build_url("fullurl" => 1, my $acturl = $self -> build_url("fullurl" => 1,
"block" => "login", "block" => "login",
@ -158,6 +162,8 @@ sub _resend_act_email {
my $user = shift; my $user = shift;
my $password = shift; my $password = shift;
$self -> log("login", "Sending activation code email to $user");
# Build URLs to place in the email. # Build URLs to place in the email.
my $acturl = $self -> build_url("fullurl" => 1, my $acturl = $self -> build_url("fullurl" => 1,
"block" => "login", "block" => "login",
@ -192,6 +198,8 @@ sub _recover_email {
my $user = shift; my $user = shift;
my $actcode = shift; my $actcode = shift;
$self -> log("login", "Sending recovery email to $user");
# Build URLs to place in the email. # Build URLs to place in the email.
my $reseturl = $self -> build_url("fullurl" => 1, my $reseturl = $self -> build_url("fullurl" => 1,
"block" => "login", "block" => "login",
@ -222,6 +230,8 @@ sub _reset_email {
my $user = shift; my $user = shift;
my $password = shift; my $password = shift;
$self -> log("login", "Sending reset email to $user");
# Build URLs to place in the email. # Build URLs to place in the email.
my $loginform = $self -> build_url("fullurl" => 1, my $loginform = $self -> build_url("fullurl" => 1,
"block" => "login", "block" => "login",