fix redirects for relocation
This commit is contained in:
@@ -24,7 +24,8 @@ post '/login' => sub {
|
|||||||
my $sum = Digest::MD5::md5_hex(param('password'));
|
my $sum = Digest::MD5::md5_hex(param('password'));
|
||||||
if ($sum and $sum eq $user->password) {
|
if ($sum and $sum eq $user->password) {
|
||||||
session(user => $user->username);
|
session(user => $user->username);
|
||||||
redirect param('path') || '/';
|
# redirect param('path') || '/'; FIXME requested_path?
|
||||||
|
redirect uri_for('/');
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -34,7 +35,7 @@ post '/login' => sub {
|
|||||||
|
|
||||||
get '/logout' => sub {
|
get '/logout' => sub {
|
||||||
session->destroy;
|
session->destroy;
|
||||||
redirect '/?logout=1';
|
redirect uri_for('/', {logout => 1});
|
||||||
};
|
};
|
||||||
|
|
||||||
true;
|
true;
|
||||||
|
|||||||
@@ -122,13 +122,13 @@ ajax '/ajax/content/device/details' => sub {
|
|||||||
get '/device' => sub {
|
get '/device' => sub {
|
||||||
my $ip = NetAddr::IP::Lite->new(param('ip'));
|
my $ip = NetAddr::IP::Lite->new(param('ip'));
|
||||||
if (! $ip) {
|
if (! $ip) {
|
||||||
redirect '/?nosuchdevice=1';
|
redirect uri_for('/', {nosuchdevice => 1});
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $device = schema('netdisco')->resultset('Device')->find($ip->addr);
|
my $device = schema('netdisco')->resultset('Device')->find($ip->addr);
|
||||||
if (! $device) {
|
if (! $device) {
|
||||||
redirect '/?nosuchdevice=1';
|
redirect uri_for('/', {nosuchdevice => 1});
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user