| Server IP : 66.29.132.122 / Your IP : 18.117.232.38 Web Server : LiteSpeed System : Linux business142.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64 User : admazpex ( 531) PHP Version : 7.2.34 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/proc/self/root/proc/thread-self/root/proc/thread-self/root/proc/self/root/proc/thread-self/root/proc/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;