#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / perl5 / URI /

216.73.216.49

Home

File data.pm

package URI::data;  # RFC 2397

use strict;
use warnings;

use parent 'URI';

our $VERSION = '1.73';
$VERSION = eval $VERSION;

use MIME::Base64 qw(encode_base64 decode_base64);
use URI::Escape  qw(uri_unescape);

sub media_type
{
    my $self = shift;
    my $opaque = $self->opaque;
    $opaque =~ /^([^,]*),?/ or die;
    my $old = $1;
    my $base64;
    $base64 = $1 if $old =~ s/(;base64)$//i;
    if (@_) {
	my $new = shift;
	$new = "" unless defined $new;
	$new =~ s/%/%25/g;
	$new =~ s/,/%2C/g;
	$base64 = "" unless defined $base64;
	$opaque =~ s/^[^,]*,?/$new$base64,/;
	$self->opaque($opaque);
    }
    return uri_unescape($old) if $old;  # media_type can't really be "0"
    "text/plain;charset=US-ASCII";      # default type
}

sub data
{
    my $self = shift;
    my($enc, $data) = split(",", $self->opaque, 2);
    unless (defined $data) {
	$data = "";
	$enc  = "" unless defined $enc;
    }
    my $base64 = ($enc =~ /;base64$/i);
    if (@_) {
	$enc =~ s/;base64$//i if $base64;
	my $new = shift;
	$new = "" unless defined $new;
	my $uric_count = _uric_count($new);
	my $urienc_len = $uric_count + (length($new) - $uric_count) * 3;
	my $base64_len = int((length($new)+2) / 3) * 4;
	$base64_len += 7;  # because of ";base64" marker
	if ($base64_len < $urienc_len || $_[0]) {
	    $enc .= ";base64";
	    $new = encode_base64($new, "");
	} else {
	    $new =~ s/%/%25/g;
	}
	$self->opaque("$enc,$new");
    }
    return unless defined wantarray;
    $data = uri_unescape($data);
    return $base64 ? decode_base64($data) : $data;
}

# I could not find a better way to interpolate the tr/// chars from
# a variable.
my $ENC = $URI::uric;
$ENC =~ s/%//;

eval <<EOT; die $@ if $@;
sub _uric_count
{
    \$_[0] =~ tr/$ENC//;
}
EOT

__END__

=head1 NAME

URI::data - URI that contains immediate data

=head1 SYNOPSIS

use URI;

$u = URI->new("data:");
 $u->media_type("image/gif");
 $u->data(scalar(`cat camel.gif`));
 print "$u\n";
 open(XV, "|xv -") and print XV $u->data;

=head1 DESCRIPTION

The C<URI::data> class supports C<URI> objects belonging to the I<data>
URI scheme.  The I<data> URI scheme is specified in RFC 2397.  It
allows inclusion of small data items as "immediate" data, as if it had
been included externally.  Examples:

data:,Perl%20is%20good

data:image/gif;base64,R0lGODdhIAAgAIAAAAAAAPj8+CwAAAAAI
    AAgAAAClYyPqcu9AJyCjtIKc5w5xP14xgeO2tlY3nWcajmZZdeJcG
    Kxrmimms1KMTa1Wg8UROx4MNUq1HrycMjHT9b6xKxaFLM6VRKzI+p
    KS9XtXpcbdun6uWVxJXA8pNPkdkkxhxc21LZHFOgD2KMoQXa2KMWI
    JtnE2KizVUkYJVZZ1nczBxXlFopZBtoJ2diXGdNUymmJdFMAADs=

C<URI> objects belonging to the data scheme support the common methods
(described in L<URI>) and the following two scheme-specific methods:

=over 4

=item $uri->media_type( [$new_media_type] )

Can be used to get or set the media type specified in the
URI.  If no media type is specified, then the default
C<"text/plain;charset=US-ASCII"> is returned.

=item $uri->data( [$new_data] )

Can be used to get or set the data contained in the URI.
The data is passed unescaped (in binary form).  The decision about
whether to base64 encode the data in the URI is taken automatically,
based on the encoding that produces the shorter URI string.

=back

=head1 SEE ALSO

L<URI>

=head1 COPYRIGHT

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2024-03-13 04:36:40
..	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
file	DIR	-	drwxr-xr-x	2024-03-13 04:36:40
urn	DIR	-	drwxr-xr-x	2024-03-13 04:36:40
Escape.pm	text/plain	6.9 KB	-rw-r--r--	2018-01-09 06:42:55
Heuristic.pm	text/plain	6.37 KB	-rw-r--r--	2018-01-09 06:42:55
IRI.pm	text/plain	820 B	-rw-r--r--	2018-01-09 06:42:55
QueryParam.pm	text/plain	4.77 KB	-rw-r--r--	2018-01-09 06:42:55
Split.pm	text/plain	2.32 KB	-rw-r--r--	2018-01-09 06:42:55
URL.pm	text/plain	5.36 KB	-rw-r--r--	2018-01-09 06:42:55
WithBase.pm	text/plain	3.77 KB	-rw-r--r--	2018-01-09 06:42:55
_foreign.pm	text/plain	133 B	-rw-r--r--	2018-01-09 06:42:55
_generic.pm	text/plain	5.71 KB	-rw-r--r--	2018-01-09 06:42:55
_idna.pm	text/plain	2.06 KB	-rw-r--r--	2018-01-09 06:42:55
_ldap.pm	text/plain	3.2 KB	-rw-r--r--	2018-01-09 06:42:55
_login.pm	text/plain	257 B	-rw-r--r--	2018-01-09 06:42:55
_punycode.pm	text/plain	5.52 KB	-rw-r--r--	2018-01-09 06:42:55
_query.pm	text/plain	2.5 KB	-rw-r--r--	2018-01-09 06:42:55
_segment.pm	text/plain	442 B	-rw-r--r--	2018-01-09 06:42:55
_server.pm	text/plain	3.66 KB	-rw-r--r--	2018-01-09 06:42:55
_userpass.pm	text/plain	1.04 KB	-rw-r--r--	2018-01-09 06:42:55
data.pm	text/plain	3.34 KB	-rw-r--r--	2018-01-09 06:42:55
file.pm	text/plain	9.53 KB	-rw-r--r--	2018-01-09 06:42:55
ftp.pm	text/plain	1.06 KB	-rw-r--r--	2018-01-09 06:42:55
gopher.pm	text/plain	2.4 KB	-rw-r--r--	2018-01-09 06:42:55
http.pm	text/plain	451 B	-rw-r--r--	2018-01-09 06:42:55
https.pm	text/plain	170 B	-rw-r--r--	2018-01-09 06:42:55
ldap.pm	text/plain	2.88 KB	-rw-r--r--	2018-01-09 06:42:55
ldapi.pm	text/plain	467 B	-rw-r--r--	2018-01-09 06:42:55
ldaps.pm	text/plain	170 B	-rw-r--r--	2018-01-09 06:42:55
mailto.pm	text/plain	1.27 KB	-rw-r--r--	2018-01-09 06:42:55
mms.pm	text/plain	151 B	-rw-r--r--	2018-01-09 06:42:55
news.pm	text/plain	1.45 KB	-rw-r--r--	2018-01-09 06:42:55
nntp.pm	text/plain	153 B	-rw-r--r--	2018-01-09 06:42:55
pop.pm	text/plain	1.2 KB	-rw-r--r--	2018-01-09 06:42:55
rlogin.pm	text/plain	155 B	-rw-r--r--	2018-01-09 06:42:55
rsync.pm	text/plain	233 B	-rw-r--r--	2018-01-09 06:42:55
rtsp.pm	text/plain	151 B	-rw-r--r--	2018-01-09 06:42:55
rtspu.pm	text/plain	152 B	-rw-r--r--	2018-01-09 06:42:55
sftp.pm	text/plain	124 B	-rw-r--r--	2018-01-09 06:42:55
sip.pm	text/plain	1.69 KB	-rw-r--r--	2018-01-09 06:42:55
sips.pm	text/plain	169 B	-rw-r--r--	2018-01-09 06:42:55
snews.pm	text/plain	198 B	-rw-r--r--	2018-01-09 06:42:55
ssh.pm	text/plain	201 B	-rw-r--r--	2018-01-09 06:42:55
telnet.pm	text/plain	154 B	-rw-r--r--	2018-01-09 06:42:55
tn3270.pm	text/plain	154 B	-rw-r--r--	2018-01-09 06:42:55
urn.pm	text/plain	2.15 KB	-rw-r--r--	2018-01-09 06:42:55

~ ACUPOFTEA - mail.ontime-ae.com