Linux ubuntu 6.8.0-90-generic #91-Ubuntu SMP PREEMPT_DYNAMIC Tue Nov 18 14:14:30 UTC 2025 x86_64
nginx/1.24.0
: 67.217.245.49 | : 216.73.216.153
Cant Read [ /etc/named.conf ]
8.3.6
www-data
Bypass.pw
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
Backdoor Scanner
Backdoor Create
Alfa Webshell
CPANEL RESET
CREATE WP USER
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
7.73
KB
-rw-r--r--
Heuristic.pm
6.37
KB
-rw-r--r--
IRI.pm
794
B
-rw-r--r--
QueryParam.pm
655
B
-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
6.66
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.5
KB
-rw-r--r--
_query.pm
4.52
KB
-rw-r--r--
_segment.pm
416
B
-rw-r--r--
_server.pm
3.79
KB
-rw-r--r--
_userpass.pm
1.01
KB
-rw-r--r--
data.pm
3.31
KB
-rw-r--r--
file.pm
9.46
KB
-rw-r--r--
ftp.pm
1.03
KB
-rw-r--r--
geo.pm
10.5
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--
icap.pm
1.46
KB
-rw-r--r--
icaps.pm
1.41
KB
-rw-r--r--
ldap.pm
2.86
KB
-rw-r--r--
ldapi.pm
440
B
-rw-r--r--
ldaps.pm
144
B
-rw-r--r--
mailto.pm
1.62
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--
nntps.pm
144
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.63
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.03
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mailto.pm
package URI::mailto; # RFC 2368 use strict; use warnings; our $VERSION = '5.27'; use parent qw(URI URI::_query); sub to { my $self = shift; my @old = $self->headers; if (@_) { my @new = @old; # get rid of any other to: fields for (my $i = 0; $i < @new; $i += 2) { if (lc($new[$i] || '') eq "to") { splice(@new, $i, 2); redo; } } my $to = shift; $to = "" unless defined $to; unshift(@new, "to" => $to); $self->headers(@new); } return unless defined wantarray; my @to; while (@old) { my $h = shift @old; my $v = shift @old; push(@to, $v) if lc($h) eq "to"; } join(",", @to); } sub headers { my $self = shift; # The trick is to just treat everything as the query string... my $opaque = "to=" . $self->opaque; $opaque =~ s/\?/&/; if (@_) { my @new = @_; # strip out any "to" fields my @to; for (my $i=0; $i < @new; $i += 2) { if (lc($new[$i] || '') eq "to") { push(@to, (splice(@new, $i, 2))[1]); # remove header redo; } } my $new = join(",",@to); $new =~ s/%/%25/g; $new =~ s/\?/%3F/g; $self->opaque($new); $self->query_form(@new) if @new; } return unless defined wantarray; # I am lazy today... URI->new("mailto:?$opaque")->query_form; } # https://datatracker.ietf.org/doc/html/rfc6068#section-5 requires # plus signs (+) not to be turned into spaces sub query_form { my $self = shift; my @fields = $self->SUPER::query_form(@_); for ( my $i = 0 ; $i < @fields ; $i += 2 ) { if ( $fields[0] eq 'to' ) { $fields[1] =~ s/ /+/g; last; } } return @fields; } 1;
Close
