Linux newlinux5.pouyasazan.org 3.10.0-962.3.2.lve1.5.60.el7.x86_64 #1 SMP Fri Jul 23 07:07:00 EDT 2021 x86_64
LiteSpeed
Server IP : 88.99.66.243 & Your IP : 216.73.216.178
Domains :
Cant Read [ /etc/named.conf ]
User : wdbbsgxf
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
URI /
Delete
Unzip
Name
Size
Permission
Date
Action
file
[ DIR ]
drwxr-xr-x
2021-08-24 17:00
urn
[ DIR ]
drwxr-xr-x
2021-08-24 17:00
Escape.pm
6.49
KB
-rw-r--r--
2012-02-11 18:18
Heuristic.pm
6.41
KB
-rw-r--r--
2012-02-11 18:18
IRI.pm
769
B
-rw-r--r--
2012-02-11 18:18
QueryParam.pm
4.47
KB
-rw-r--r--
2012-03-11 18:05
Split.pm
2.3
KB
-rw-r--r--
2012-02-11 18:18
URL.pm
5.4
KB
-rw-r--r--
2012-02-11 18:18
WithBase.pm
3.74
KB
-rw-r--r--
2012-02-11 18:18
_foreign.pm
75
B
-rw-r--r--
2012-02-11 18:18
_generic.pm
5.63
KB
-rw-r--r--
2012-02-11 18:18
_idna.pm
1.99
KB
-rw-r--r--
2012-03-11 15:33
_ldap.pm
3.17
KB
-rw-r--r--
2012-02-11 18:18
_login.pm
222
B
-rw-r--r--
2012-02-11 18:18
_punycode.pm
4.52
KB
-rw-r--r--
2012-02-11 18:18
_query.pm
2.39
KB
-rw-r--r--
2012-03-26 01:14
_segment.pm
377
B
-rw-r--r--
2012-02-11 18:18
_server.pm
3.62
KB
-rw-r--r--
2012-02-11 18:18
_userpass.pm
977
B
-rw-r--r--
2012-02-11 18:18
data.pm
3.28
KB
-rw-r--r--
2012-02-11 18:18
file.pm
9.58
KB
-rw-r--r--
2012-02-11 18:18
ftp.pm
1.03
KB
-rw-r--r--
2012-02-11 18:18
gopher.pm
2.34
KB
-rw-r--r--
2012-02-11 18:18
http.pm
405
B
-rw-r--r--
2012-02-11 18:18
https.pm
107
B
-rw-r--r--
2012-02-11 18:18
ldap.pm
2.9
KB
-rw-r--r--
2012-02-11 18:18
ldapi.pm
460
B
-rw-r--r--
2012-02-11 18:18
ldaps.pm
107
B
-rw-r--r--
2012-02-11 18:18
mailto.pm
1.24
KB
-rw-r--r--
2012-02-11 18:18
mms.pm
89
B
-rw-r--r--
2012-02-11 18:18
news.pm
1.39
KB
-rw-r--r--
2012-02-11 18:18
nntp.pm
91
B
-rw-r--r--
2012-02-11 18:18
pop.pm
1.15
KB
-rw-r--r--
2012-02-11 18:18
rlogin.pm
96
B
-rw-r--r--
2012-02-11 18:18
rsync.pm
197
B
-rw-r--r--
2012-02-11 18:18
rtsp.pm
89
B
-rw-r--r--
2012-02-11 18:18
rtspu.pm
90
B
-rw-r--r--
2012-02-11 18:18
sip.pm
1.72
KB
-rw-r--r--
2012-02-11 18:18
sips.pm
105
B
-rw-r--r--
2012-02-11 18:18
snews.pm
136
B
-rw-r--r--
2012-02-11 18:18
ssh.pm
140
B
-rw-r--r--
2012-02-11 18:18
telnet.pm
95
B
-rw-r--r--
2012-02-11 18:18
tn3270.pm
95
B
-rw-r--r--
2012-02-11 18:18
urn.pm
1.91
KB
-rw-r--r--
2012-02-11 18:18
Save
Rename
package URI::news; # draft-gilman-news-url-01 require URI::_server; @ISA=qw(URI::_server); use strict; use URI::Escape qw(uri_unescape); use Carp (); sub default_port { 119 } # newsURL = scheme ":" [ news-server ] [ refbygroup | message ] # scheme = "news" | "snews" | "nntp" # news-server = "//" server "/" # refbygroup = group [ "/" messageno [ "-" messageno ] ] # message = local-part "@" domain sub _group { my $self = shift; my $old = $self->path; if (@_) { my($group,$from,$to) = @_; if ($group =~ /\@/) { $group =~ s/^<(.*)>$/$1/; # "<" and ">" should not be part of it } $group =~ s,%,%25,g; $group =~ s,/,%2F,g; my $path = $group; if (defined $from) { $path .= "/$from"; $path .= "-$to" if defined $to; } $self->path($path); } $old =~ s,^/,,; if ($old !~ /\@/ && $old =~ s,/(.*),, && wantarray) { my $extra = $1; return (uri_unescape($old), split(/-/, $extra)); } uri_unescape($old); } sub group { my $self = shift; if (@_) { Carp::croak("Group name can't contain '\@'") if $_[0] =~ /\@/; } my @old = $self->_group(@_); return if $old[0] =~ /\@/; wantarray ? @old : $old[0]; } sub message { my $self = shift; if (@_) { Carp::croak("Message must contain '\@'") unless $_[0] =~ /\@/; } my $old = $self->_group(@_); return unless $old =~ /\@/; return $old; } 1;