X7ROOT File Manager
Current Path:
/usr/share/perl5/URI
usr
/
share
/
perl5
/
URI
/
📁
..
📄
Escape.pm
(6.9 KB)
📄
Heuristic.pm
(6.37 KB)
📄
IRI.pm
(820 B)
📄
QueryParam.pm
(4.77 KB)
📄
Split.pm
(2.32 KB)
📄
URL.pm
(5.36 KB)
📄
WithBase.pm
(3.77 KB)
📄
_foreign.pm
(133 B)
📄
_generic.pm
(5.71 KB)
📄
_idna.pm
(2.06 KB)
📄
_ldap.pm
(3.2 KB)
📄
_login.pm
(257 B)
📄
_punycode.pm
(5.52 KB)
📄
_query.pm
(2.5 KB)
📄
_segment.pm
(442 B)
📄
_server.pm
(3.66 KB)
📄
_userpass.pm
(1.04 KB)
📄
data.pm
(3.34 KB)
📁
file
📄
file.pm
(9.53 KB)
📄
ftp.pm
(1.06 KB)
📄
gopher.pm
(2.4 KB)
📄
http.pm
(451 B)
📄
https.pm
(170 B)
📄
ldap.pm
(2.88 KB)
📄
ldapi.pm
(467 B)
📄
ldaps.pm
(170 B)
📄
mailto.pm
(1.27 KB)
📄
mms.pm
(151 B)
📄
news.pm
(1.45 KB)
📄
nntp.pm
(153 B)
📄
pop.pm
(1.2 KB)
📄
rlogin.pm
(155 B)
📄
rsync.pm
(233 B)
📄
rtsp.pm
(151 B)
📄
rtspu.pm
(152 B)
📄
sftp.pm
(124 B)
📄
sip.pm
(1.69 KB)
📄
sips.pm
(169 B)
📄
snews.pm
(198 B)
📄
ssh.pm
(201 B)
📄
telnet.pm
(154 B)
📄
tn3270.pm
(154 B)
📁
urn
📄
urn.pm
(2.15 KB)
Editing: mailto.pm
package URI::mailto; # RFC 2368 use strict; use warnings; our $VERSION = '1.73'; $VERSION = eval $VERSION; 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;
Upload File
Create Folder