lemonldap-ng/e2e-tests/custom.pm

24 lines
453 B
Perl
Raw Normal View History

2016-02-28 12:51:35 +01:00
package My;
sub hello {
return 'Hello';
}
sub get_additional_arg {
2017-03-29 12:01:11 +02:00
return $_[0];
2016-02-28 12:51:35 +01:00
}
2020-11-12 13:43:41 +01:00
sub accessToTrace {
2020-11-16 17:51:01 +01:00
my $hash = shift;
my $custom = $hash->{custom};
my $req = $hash->{req};
my $vhost = $hash->{vhost};
my $custom = $hash->{custom};
my $params = $hash->{params};
my $session = $hash->{session};
return "$custom alias $params->[0]_$params->[1]:$session->{groups} ($session->{$params->[2]})";
2020-11-12 13:43:41 +01:00
}
2016-02-28 12:51:35 +01:00
1;