You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.0 KiB
51 lines
1.0 KiB
package URI::_userpass;
|
|
|
|
use strict;
|
|
use URI::Escape qw(uri_unescape);
|
|
|
|
sub user
|
|
{
|
|
my $self = shift;
|
|
my $info = $self->userinfo;
|
|
if (@_) {
|
|
my $new = shift;
|
|
my $pass = defined($info) ? $info : "";
|
|
$pass =~ s/^[^:]*//;
|
|
|
|
if (!defined($new) && !length($pass)) {
|
|
$self->userinfo(undef);
|
|
} else {
|
|
$new = "" unless defined($new);
|
|
$new =~ s/%/%25/g;
|
|
$new =~ s/:/%3A/g;
|
|
$self->userinfo("$new$pass");
|
|
}
|
|
}
|
|
return unless defined $info;
|
|
$info =~ s/:.*//;
|
|
uri_unescape($info);
|
|
}
|
|
|
|
sub password
|
|
{
|
|
my $self = shift;
|
|
my $info = $self->userinfo;
|
|
if (@_) {
|
|
my $new = shift;
|
|
my $user = defined($info) ? $info : "";
|
|
$user =~ s/:.*//;
|
|
|
|
if (!defined($new) && !length($user)) {
|
|
$self->userinfo(undef);
|
|
} else {
|
|
$new = "" unless defined($new);
|
|
$new =~ s/%/%25/g;
|
|
$self->userinfo("$user:$new");
|
|
}
|
|
}
|
|
return unless defined $info;
|
|
return unless $info =~ s/^[^:]*://;
|
|
uri_unescape($info);
|
|
}
|
|
|
|
1;
|