28 lines
490 B
Perl
28 lines
490 B
Perl
package cyberman::Helper;
|
|
use base qw(Exporter);
|
|
use Dancer2 appname => "cyberman";
|
|
use Exporter qw(import);
|
|
|
|
our @EXPORT = qw(auth_test);
|
|
|
|
sub auth_test {
|
|
my $id = undef;
|
|
if (@_) {
|
|
$id = shift;
|
|
}
|
|
|
|
if (!vars->{"auth"}) {
|
|
return template 'redir' => {
|
|
"redir" => "/index",
|
|
};
|
|
} elsif ($id && vars->{"auth"} != $id) {
|
|
return template 'redir' => {
|
|
"redir" => "/index",
|
|
};
|
|
} else {
|
|
return 0; # nothing to be returned, route can continue
|
|
}
|
|
}
|
|
|
|
1;
|