diff options
author | Yorhel <git@yorhel.nl> | 2014-10-21 09:53:53 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2014-10-21 09:53:53 +0200 |
commit | 20805809f42d8fa152aca46d0b737e90b308092a (patch) | |
tree | 6ef0b87fc96b26f6f1678501a9cb2e390808b4f8 /lib/VNDB/Handler/Users.pm | |
parent | 57022acc845a1502e4e42a322d48567b9afe7f02 (diff) |
Use TUWF's reqBaseURI() instead of $self->{uri} on site links
TUWF properly detects HTTPS and includes this in the returned URL, so
this change ensures that all URLs adopt properly to HTTP and HTTPS.
Diffstat (limited to 'lib/VNDB/Handler/Users.pm')
-rw-r--r-- | lib/VNDB/Handler/Users.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/VNDB/Handler/Users.pm b/lib/VNDB/Handler/Users.pm index 804b9467..09be3d34 100644 --- a/lib/VNDB/Handler/Users.pm +++ b/lib/VNDB/Handler/Users.pm @@ -162,7 +162,8 @@ sub login { { post => 'usrpass', required => 1, minlength => 4, maxlength => 64, template => 'asciiprint' }, ); - (my $ref = $self->reqHeader('Referer')||'/') =~ s/^\Q$self->{url}//; + my $b = $self->reqBaseURI(); + (my $ref = $self->reqHeader('Referer')||'/') =~ s/^\Q$b//; $ref = '/' if $ref =~ /^\/u\//; if(!$frm->{_err}) { return if $self->authLogin($frm->{usrname}, $frm->{usrpass}, $ref); @@ -210,7 +211,7 @@ sub newpass { my $token; ($token, $o{passwd}) = $self->authPrepareReset(); $self->dbUserEdit($u->{id}, %o); - $self->mail(mt('_newpass_mail_body', $u->{username}, "$self->{url}/u$u->{id}/setpass?t=$token"), + $self->mail(mt('_newpass_mail_body', $u->{username}, $self->reqBaseURI()."/u$u->{id}/setpass?t=$token"), To => $frm->{mail}, From => 'VNDB <noreply@vndb.org>', Subject => mt('_newpass_mail_subject', $u->{username}), @@ -309,7 +310,7 @@ sub register { if(!$frm->{_err}) { my($token, $pass) = $self->authPrepareReset(); my $uid = $self->dbUserAdd($frm->{usrname}, $pass, $frm->{mail}); - $self->mail(mt('_register_mail_body', $frm->{usrname}, "$self->{url}/u$uid/setpass?t=$token"), + $self->mail(mt('_register_mail_body', $frm->{usrname}, $self->reqBaseURI()."/u$uid/setpass?t=$token"), To => $frm->{mail}, From => 'VNDB <noreply@vndb.org>', Subject => mt('_register_mail_subject', $frm->{usrname}), |