Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
This repository has been archived on 2024-06-18. You can view files and clone it, but cannot push or open issues/pull-requests.
dnsmanagerv1/lib/rt/userfake.pm

92 lines
1.8 KiB
Perl
Raw Normal View History

package rt::userfake;
use v5.14;
use configuration ':all';
use encryption ':all';
use app;
use utf8;
2016-02-10 11:07:34 +01:00
use open qw/:std :utf8/;
use YAML::XS;
use Exporter 'import';
# what we want to export eventually
our @EXPORT_OK = qw/
rt_user_login_fake
rt_user_del_fake
rt_user_toggleadmin_fake
rt_user_subscribe_fake
rt_user_changepasswd_fake
rt_user_add_fake
rt_user_home_fake
/;
# bundle of exports (tags)
our %EXPORT_TAGS = ( all => [qw/
rt_user_login_fake
rt_user_del_fake
rt_user_toggleadmin_fake
rt_user_subscribe_fake
rt_user_changepasswd_fake
rt_user_add_fake
rt_user_home_fake
/] );
sub rt_user_login_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/admin';
$res
}
sub rt_user_del_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = $$request{referer};
$res
}
sub rt_user_toggleadmin_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = $$request{referer};
$res
}
sub rt_user_subscribe_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/user/home';
$res
}
sub rt_user_changepasswd_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/user/home';
$res
}
sub rt_user_add_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/user/home';
$res
}
sub rt_user_home_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{template} = 'home';
$$res{params} = {
login => "toto"
, admin => 1
, domains => [ {qw/domain toto.netlib.re/} ]
, provideddomains => [ qw/netlib.re. codelib.re./ ]
, domainName => ''
};
$res
}
1;