OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
URI
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:33 AM
rwxr-xr-x
📄
Escape.pm
6.9 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
Heuristic.pm
6.37 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
IRI.pm
820 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
QueryParam.pm
4.77 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
Split.pm
2.32 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
URL.pm
5.36 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
WithBase.pm
3.77 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_foreign.pm
133 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_generic.pm
5.71 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_idna.pm
2.06 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_ldap.pm
3.2 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_login.pm
257 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_punycode.pm
5.52 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_query.pm
2.5 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_segment.pm
442 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_server.pm
3.66 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_userpass.pm
1.04 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
data.pm
3.34 KB
01/09/2018 06:42:55 AM
rw-r--r--
📁
file
-
02/11/2020 08:10:06 AM
rwxr-xr-x
📄
file.pm
9.53 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
ftp.pm
1.06 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
gopher.pm
2.4 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
http.pm
451 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
https.pm
170 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldap.pm
2.88 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldapi.pm
467 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldaps.pm
170 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
mailto.pm
1.27 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
mms.pm
151 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
news.pm
1.45 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
nntp.pm
153 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
pop.pm
1.2 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
rlogin.pm
155 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rsync.pm
233 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rtsp.pm
151 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rtspu.pm
152 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
sftp.pm
124 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
sip.pm
1.69 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
sips.pm
169 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
snews.pm
198 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ssh.pm
201 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
telnet.pm
154 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
tn3270.pm
154 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📁
urn
-
02/11/2020 08:10:06 AM
rwxr-xr-x
📄
urn.pm
2.15 KB
01/09/2018 06:42:55 AM
rw-r--r--
Editing: _query.pm
Close
package URI::_query; use strict; use warnings; use URI (); use URI::Escape qw(uri_unescape); our $VERSION = '1.73'; $VERSION = eval $VERSION; sub query { my $self = shift; $$self =~ m,^([^?\#]*)(?:\?([^\#]*))?(.*)$,s or die; if (@_) { my $q = shift; $$self = $1; if (defined $q) { $q =~ s/([^$URI::uric])/ URI::Escape::escape_char($1)/ego; utf8::downgrade($q); $$self .= "?$q"; } $$self .= $3; } $2; } # Handle ...?foo=bar&bar=foo type of query sub query_form { my $self = shift; my $old = $self->query; if (@_) { # Try to set query string my $delim; my $r = $_[0]; if (ref($r) eq "ARRAY") { $delim = $_[1]; @_ = @$r; } elsif (ref($r) eq "HASH") { $delim = $_[1]; @_ = map { $_ => $r->{$_} } sort keys %$r; } $delim = pop if @_ % 2; my @query; while (my($key,$vals) = splice(@_, 0, 2)) { $key = '' unless defined $key; $key =~ s/([;\/?:@&=+,\$\[\]%])/ URI::Escape::escape_char($1)/eg; $key =~ s/ /+/g; $vals = [ref($vals) eq "ARRAY" ? @$vals : $vals]; for my $val (@$vals) { $val = '' unless defined $val; $val =~ s/([;\/?:@&=+,\$\[\]%])/ URI::Escape::escape_char($1)/eg; $val =~ s/ /+/g; push(@query, "$key=$val"); } } if (@query) { unless ($delim) { $delim = $1 if $old && $old =~ /([&;])/; $delim ||= $URI::DEFAULT_QUERY_FORM_DELIMITER || "&"; } $self->query(join($delim, @query)); } else { $self->query(undef); } } return if !defined($old) || !length($old) || !defined(wantarray); return unless $old =~ /=/; # not a form map { s/\+/ /g; uri_unescape($_) } map { /=/ ? split(/=/, $_, 2) : ($_ => '')} split(/[&;]/, $old); } # Handle ...?dog+bones type of query sub query_keywords { my $self = shift; my $old = $self->query; if (@_) { # Try to set query string my @copy = @_; @copy = @{$copy[0]} if @copy == 1 && ref($copy[0]) eq "ARRAY"; for (@copy) { s/([;\/?:@&=+,\$\[\]%])/ URI::Escape::escape_char($1)/eg; } $self->query(@copy ? join('+', @copy) : undef); } return if !defined($old) || !defined(wantarray); return if $old =~ /=/; # not keywords, but a form map { uri_unescape($_) } split(/\+/, $old, -1); } # Some URI::URL compatibility stuff sub equery { goto &query } 1;