File Manager

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;
}

X7ROOT File Manager

Editing: mailto.pm

Upload File

Create Folder