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}";
|
2020-11-12 13:43:41 +01:00
|
|
|
}
|
|
|
|
|
2016-02-28 12:51:35 +01:00
|
|
|
1;
|