OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
URI
Server IP: 2a02:4780:11:1594:0:ef5:22d7:a
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
05/14/2024 03:38:06 PM
rwxr-xr-x
📄
Escape.pm
6.9 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
Heuristic.pm
6.37 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
IRI.pm
794 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
QueryParam.pm
4.75 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
Split.pm
2.3 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
URL.pm
5.36 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
WithBase.pm
3.77 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_foreign.pm
107 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
_generic.pm
5.69 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_idna.pm
2.03 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_ldap.pm
3.17 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_login.pm
231 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
_punycode.pm
5.49 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_query.pm
2.47 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_segment.pm
416 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
_server.pm
3.64 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_userpass.pm
1.01 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
data.pm
3.31 KB
03/03/2021 03:16:52 PM
rw-r--r--
📁
file
-
05/14/2024 12:06:27 PM
rwxr-xr-x
📄
file.pm
9.53 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
ftp.pm
1.03 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
gopher.pm
2.37 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
http.pm
425 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
https.pm
144 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
ldap.pm
2.86 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
ldapi.pm
440 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
ldaps.pm
144 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
mailto.pm
1.25 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
mms.pm
125 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
news.pm
1.42 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
nntp.pm
127 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
nntps.pm
144 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
pop.pm
1.18 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
rlogin.pm
129 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
rsync.pm
207 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
rtsp.pm
125 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
rtspu.pm
126 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
sftp.pm
98 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
sip.pm
1.66 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
sips.pm
143 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
snews.pm
172 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
ssh.pm
175 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
telnet.pm
128 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
tn3270.pm
128 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📁
urn
-
05/14/2024 12:06:27 PM
rwxr-xr-x
📄
urn.pm
2.12 KB
03/03/2021 03:16:52 PM
rw-r--r--
Editing: news.pm
Close
package URI::news; # draft-gilman-news-url-01 use strict; use warnings; our $VERSION = '5.09'; 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;