Add urlencode helper to test lib
This commit is contained in:
parent
ad4a79e9de
commit
4ceb75c970
|
@ -59,6 +59,7 @@ use File::Find;
|
||||||
use LWP::UserAgent;
|
use LWP::UserAgent;
|
||||||
use Time::Fake;
|
use Time::Fake;
|
||||||
use URI::Escape;
|
use URI::Escape;
|
||||||
|
use MIME::Base64;
|
||||||
use Lemonldap::NG::Common::FormEncode;
|
use Lemonldap::NG::Common::FormEncode;
|
||||||
|
|
||||||
#use 5.10.0;
|
#use 5.10.0;
|
||||||
|
@ -569,6 +570,17 @@ sub switch {
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
|
||||||
|
=head4 encodeUrl( $url );
|
||||||
|
|
||||||
|
Encode URL like the handler would, see ::Handler::Main
|
||||||
|
|
||||||
|
=cut
|
||||||
|
|
||||||
|
sub encodeUrl {
|
||||||
|
my ($url) = @_;
|
||||||
|
return uri_escape( encode_base64( $url, '' ) );
|
||||||
|
}
|
||||||
|
|
||||||
=head2 LLNG::Manager::Test Class
|
=head2 LLNG::Manager::Test Class
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
Loading…
Reference in New Issue
Block a user