| Server IP : 104.21.30.238 / Your IP : 216.73.216.145 Web Server : LiteSpeed System : Linux premium151.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64 User : tempvsty ( 647) PHP Version : 8.0.30 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /././././proc/thread-self/root/proc/self/root/usr/share/perl5/URI/ |
Upload File : |
package URI::_userpass;
use strict;
use warnings;
use URI::Escape qw(uri_unescape);
our $VERSION = '1.73';
$VERSION = eval $VERSION;
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 undef 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 undef unless defined $info;
return undef unless $info =~ s/^[^:]*://;
uri_unescape($info);
}
1;