Linux vps-61133.fhnet.fr 4.9.0-19-amd64 #1 SMP Debian 4.9.320-2 (2022-06-30) x86_64
Apache/2.4.25 (Debian)
Server IP : 93.113.207.21 & Your IP : 216.73.216.119
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
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
2020-08-24 23:47
urn
[ DIR ]
drwxr-xr-x
2020-08-24 23:47
Escape.pm
6.86
KB
-rw-r--r--
2016-01-08 04:15
Heuristic.pm
6.37
KB
-rw-r--r--
2016-01-08 04:15
IRI.pm
820
B
-rw-r--r--
2016-01-08 04:15
QueryParam.pm
4.77
KB
-rw-r--r--
2016-01-08 04:15
Split.pm
2.32
KB
-rw-r--r--
2016-01-08 04:15
URL.pm
5.36
KB
-rw-r--r--
2016-01-08 04:15
WithBase.pm
3.77
KB
-rw-r--r--
2016-01-08 04:15
_foreign.pm
133
B
-rw-r--r--
2016-01-08 04:15
_generic.pm
5.71
KB
-rw-r--r--
2016-01-08 04:15
_idna.pm
2.05
KB
-rw-r--r--
2016-01-08 04:15
_ldap.pm
3.2
KB
-rw-r--r--
2016-01-08 04:15
_login.pm
257
B
-rw-r--r--
2016-01-08 04:15
_punycode.pm
4.54
KB
-rw-r--r--
2016-01-08 04:15
_query.pm
2.5
KB
-rw-r--r--
2016-01-08 04:15
_segment.pm
442
B
-rw-r--r--
2016-01-08 04:15
_server.pm
3.66
KB
-rw-r--r--
2016-01-08 04:15
_userpass.pm
1.04
KB
-rw-r--r--
2016-01-08 04:15
data.pm
3.34
KB
-rw-r--r--
2016-01-08 04:15
file.pm
9.53
KB
-rw-r--r--
2016-01-08 04:15
ftp.pm
1.06
KB
-rw-r--r--
2016-01-08 04:15
gopher.pm
2.4
KB
-rw-r--r--
2016-01-08 04:15
http.pm
451
B
-rw-r--r--
2016-01-08 04:15
https.pm
170
B
-rw-r--r--
2016-01-08 04:15
ldap.pm
2.88
KB
-rw-r--r--
2016-01-08 04:15
ldapi.pm
467
B
-rw-r--r--
2016-01-08 04:15
ldaps.pm
170
B
-rw-r--r--
2016-01-08 04:15
mailto.pm
1.27
KB
-rw-r--r--
2016-01-08 04:15
mms.pm
151
B
-rw-r--r--
2016-01-08 04:15
news.pm
1.45
KB
-rw-r--r--
2016-01-08 04:15
nntp.pm
153
B
-rw-r--r--
2016-01-08 04:15
pop.pm
1.2
KB
-rw-r--r--
2016-01-08 04:15
rlogin.pm
155
B
-rw-r--r--
2016-01-08 04:15
rsync.pm
233
B
-rw-r--r--
2016-01-08 04:15
rtsp.pm
151
B
-rw-r--r--
2016-01-08 04:15
rtspu.pm
152
B
-rw-r--r--
2016-01-08 04:15
sftp.pm
124
B
-rw-r--r--
2016-01-08 04:15
sip.pm
1.69
KB
-rw-r--r--
2016-01-08 04:15
sips.pm
169
B
-rw-r--r--
2016-01-08 04:15
snews.pm
198
B
-rw-r--r--
2016-01-08 04:15
ssh.pm
201
B
-rw-r--r--
2016-01-08 04:15
telnet.pm
154
B
-rw-r--r--
2016-01-08 04:15
tn3270.pm
154
B
-rw-r--r--
2016-01-08 04:15
urn.pm
2.15
KB
-rw-r--r--
2016-01-08 04:15
Save
Rename
package URI::news; # draft-gilman-news-url-01 use strict; use warnings; our $VERSION = '1.71'; $VERSION = eval $VERSION; use parent 'URI::_server'; 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 undef unless $old =~ /\@/; return $old; } 1;