File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5/URI

usr / share / perl5 / URI /

ðŸ“ ..
ðŸ“„ Escape.pm(6.9 KB)
ðŸ“„ Heuristic.pm(6.37 KB)
ðŸ“„ IRI.pm(820 B)
ðŸ“„ QueryParam.pm(4.77 KB)
ðŸ“„ Split.pm(2.32 KB)
ðŸ“„ URL.pm(5.36 KB)
ðŸ“„ WithBase.pm(3.77 KB)
ðŸ“„ _foreign.pm(133 B)
ðŸ“„ _generic.pm(5.71 KB)
ðŸ“„ _idna.pm(2.06 KB)
ðŸ“„ _ldap.pm(3.2 KB)
ðŸ“„ _login.pm(257 B)
ðŸ“„ _punycode.pm(5.52 KB)
ðŸ“„ _query.pm(2.5 KB)
ðŸ“„ _segment.pm(442 B)
ðŸ“„ _server.pm(3.66 KB)
ðŸ“„ _userpass.pm(1.04 KB)
ðŸ“„ data.pm(3.34 KB)
ðŸ“ file
ðŸ“„ file.pm(9.53 KB)
ðŸ“„ ftp.pm(1.06 KB)
ðŸ“„ gopher.pm(2.4 KB)
ðŸ“„ http.pm(451 B)
ðŸ“„ https.pm(170 B)
ðŸ“„ ldap.pm(2.88 KB)
ðŸ“„ ldapi.pm(467 B)
ðŸ“„ ldaps.pm(170 B)
ðŸ“„ mailto.pm(1.27 KB)
ðŸ“„ mms.pm(151 B)
ðŸ“„ news.pm(1.45 KB)
ðŸ“„ nntp.pm(153 B)
ðŸ“„ pop.pm(1.2 KB)
ðŸ“„ rlogin.pm(155 B)
ðŸ“„ rsync.pm(233 B)
ðŸ“„ rtsp.pm(151 B)
ðŸ“„ rtspu.pm(152 B)
ðŸ“„ sftp.pm(124 B)
ðŸ“„ sip.pm(1.69 KB)
ðŸ“„ sips.pm(169 B)
ðŸ“„ snews.pm(198 B)
ðŸ“„ ssh.pm(201 B)
ðŸ“„ telnet.pm(154 B)
ðŸ“„ tn3270.pm(154 B)
ðŸ“ urn
ðŸ“„ urn.pm(2.15 KB)

Editing: _userpass.pm

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);
}

X7ROOT File Manager

Editing: _userpass.pm

Upload File

Create Folder