Linux web-conference.aiou.edu.pk 5.4.0-205-generic #225-Ubuntu SMP Fri Jan 10 22:23:35 UTC 2025 x86_64
Apache/2.4.41 (Ubuntu)
: 172.16.50.247 | : 3.146.34.104
Cant Read [ /etc/named.conf ]
7.4.3-4ubuntu2.28
root
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
CREATE WP USER
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.9
KB
-rw-r--r--
Heuristic.pm
6.37
KB
-rw-r--r--
IRI.pm
794
B
-rw-r--r--
QueryParam.pm
4.75
KB
-rw-r--r--
Split.pm
2.3
KB
-rw-r--r--
URL.pm
5.36
KB
-rw-r--r--
WithBase.pm
3.77
KB
-rw-r--r--
_foreign.pm
107
B
-rw-r--r--
_generic.pm
5.69
KB
-rw-r--r--
_idna.pm
2.03
KB
-rw-r--r--
_ldap.pm
3.17
KB
-rw-r--r--
_login.pm
231
B
-rw-r--r--
_punycode.pm
5.49
KB
-rw-r--r--
_query.pm
2.47
KB
-rw-r--r--
_segment.pm
416
B
-rw-r--r--
_server.pm
3.64
KB
-rw-r--r--
_userpass.pm
1.01
KB
-rw-r--r--
data.pm
3.31
KB
-rw-r--r--
file.pm
9.53
KB
-rw-r--r--
ftp.pm
1.03
KB
-rw-r--r--
gopher.pm
2.37
KB
-rw-r--r--
http.pm
425
B
-rw-r--r--
https.pm
144
B
-rw-r--r--
ldap.pm
2.86
KB
-rw-r--r--
ldapi.pm
441
B
-rw-r--r--
ldaps.pm
144
B
-rw-r--r--
mailto.pm
1.25
KB
-rw-r--r--
mms.pm
125
B
-rw-r--r--
news.pm
1.42
KB
-rw-r--r--
nntp.pm
127
B
-rw-r--r--
pop.pm
1.18
KB
-rw-r--r--
rlogin.pm
129
B
-rw-r--r--
rsync.pm
207
B
-rw-r--r--
rtsp.pm
125
B
-rw-r--r--
rtspu.pm
126
B
-rw-r--r--
sftp.pm
98
B
-rw-r--r--
sip.pm
1.67
KB
-rw-r--r--
sips.pm
143
B
-rw-r--r--
snews.pm
172
B
-rw-r--r--
ssh.pm
175
B
-rw-r--r--
telnet.pm
128
B
-rw-r--r--
tn3270.pm
128
B
-rw-r--r--
urn.pm
2.12
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : urn.pm
package URI::urn; # RFC 2141 use strict; use warnings; our $VERSION = '1.76'; use parent 'URI'; use Carp qw(carp); my %implementor; my %require_attempted; 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"}) { if (not exists $require_attempted{$impclass}) { # Try to load it my $_old_error = $@; eval "require $impclass"; die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; $@ = $_old_error; } $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
