Result:
found more than 754 distributions - search limited to the first 2001 files matching your query
( run in 0.619 )
EBook-Ishmael
view release on metacpan or search on metacpan
lib/EBook/Ishmael/EBook/FictionBook2.pm view on Meta::CPAN
push @{ $self->{Metadata}->$k }, $v;
}
}
@{ $self->{_images} } = grep {
($_->getAttribute('content-type') // '') =~ /^image\//
} $xpc->findnodes('/FictionBook:FictionBook/FictionBook:binary');
my ($covmeta) = $xpc->findnodes('./FictionBook:coverpage', $title);
# Put if code inside own block so we can easily last out of it.
EBook-Tools
view release on metacpan or search on metacpan
lib/EBook/Tools.pm view on Meta::CPAN
}
$output = $xmeta->first_child('output');
if($output) {
my $encoding = $mobiencodings{$output->att('encoding')};
my $contenttype = $mobicontenttypes{$output->att('content-type')};
if($contenttype) {
$output->set_att('encoding','utf-8') if(!$encoding);
debug(2,"DEBUG: setting encoding only and returning");
return 1;
lib/EBook/Tools.pm view on Meta::CPAN
# At this stage, we definitely have <output> in the right place.
# Set the attributes and return.
$output->set_att('encoding' => 'utf-8',
'content-type' => 'text/x-oeb1-document');
debug(2,"DEBUG[/",$subname,"]");
return 1;
}
EPublisher-Source-Plugin-MetaCPAN
view release on metacpan or search on metacpan
lib/EPublisher/Source/Plugin/MetaCPAN.pm view on Meta::CPAN
my $result;
eval {
$result = $mcpan->pod(
module => $release_name_metacpan,
'content-type' => 'text/x-pod',
);
1;
} or do {
$self->publisher->debug(
"103: Can't retrieve pod for $release_name_metacpan"
lib/EPublisher/Source/Plugin/MetaCPAN.pm view on Meta::CPAN
eval {
$pod_src = $mcpan->pod(
author => $module_result->{author},
release => $module_result->{name},
path => $file,
'content-type' => 'text/x-pod',
);
1;
} or do{ $self->publisher->debug( $@ ); next; };
EVDB-API
view release on metacpan or search on metacpan
lib/EVDB/API.pm view on Meta::CPAN
push @{$args}, $k, $self->{$k};
}
}
# If one of the arguments is a file, set up the Common-friendly
# file indicator field and set the content-type.
my $content_type = '';
foreach my $this_field (keys %{$arg_present})
{
# Any argument with a name that ends in "_file" is a file.
if ($this_field =~ /_file$/)
EdgeExpressDB
view release on metacpan or search on metacpan
www/edgeexpress/jscript/SpryAssets/SpryData.js view on Meta::CPAN
}
else if (!resp)
{
// The server said it sent us data, but for some reason we don't have
// an XML DOM document. Some browsers won't auto-create an XML DOM
// unless the server used a content-type of "text/xml" or "application/xml".
// Try to manually parse the XML string, just in case the server
// gave us an unexpected Content-Type.
manualParseRequired = true;
}
EekBoek
view release on metacpan or search on metacpan
lib/EB/Shell/DeLuxe.pm view on Meta::CPAN
warn("?"._T("Vervolgregel ontbreekt in de invoer.")."\n") if $pre;
return;
}
if ( $line =~ /^\# \s*
content-type: \s*
text (?: \s* \/ \s* plain)? \s* ; \s*
charset \s* = \s* (\S+) \s* $/ix ) {
my $charset = lc($1);
if ( $charset =~ /^(?:utf-?8)$/i ) {
Email-ARF
view release on metacpan or search on metacpan
lib/Email/ARF/Report.pm view on Meta::CPAN
use warnings;
package Email::ARF::Report 0.012;
# ABSTRACT: interpret Abuse Reporting Format (ARF) messages
use Carp ();
use Email::MIME 1.929 (); # content-type attributes
use Email::MIME::ContentType 1.016 (); # type/subtype
use Scalar::Util ();
use Params::Util qw(_INSTANCE);
#pod =begin :prelude
Email-Abstract
view release on metacpan or search on metacpan
t/multipart.msg view on Meta::CPAN
Tue, 30 Jul 2013 05:55:51 -0700 (PDT)
Received: from smtp.pobox.com (unknown [127.0.0.1]) by
b-sasl-quonix.pobox.com (Postfix) with ESMTP id 5656333B7B for
<rjbs@cpan.org>; Tue, 30 Jul 2013 12:55:50 +0000 (UTC)
DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=pobox.com; h=from
:content-type:subject:message-id:date:to:mime-version; s=sasl;
bh=8y5A5fJ5PreQxsLHjgB27fxj+Og=; b=hOKuPVvtMKC87qv6ziDC3DNULjHh
RP0aLBHXUYxJ2YNksTe11d6pJmj/dB1XRR60c/8C48siLnQrBMwX+BjH+aFSi6bE
ZYkZtWxqPZBcSdfVlArkR5UMgh3ERSnlWx/YpeWtMsmqJ3r1rO1hoC44n9rM/VHx
+cW2KqR+tgB3ouk=
Received: from b-pb-sasl-quonix.pobox.com (unknown [127.0.0.1]) by
Email-Assets
view release on metacpan or search on metacpan
lib/Email/Assets/File.pm view on Meta::CPAN
Object accessor method, returns full filename and path (which may not exist if the asset was created from data instead of a file).
=head2 mime_type
Object accessor method, returns MIME type / content-type of the asset
=head2 BUILD
moose method called by constructor, handles validating path to file
Email-Blaster
view release on metacpan or search on metacpan
lib/Email/Blaster/MailSender.pm view on Meta::CPAN
To => $to,
From => '"' . $args{transmission}->from_name . '" <' . $args{transmission}->from_address . '>',
'reply-to' => $args{transmission}->reply_to,
Subject => $args{subject},
Message => encode_base64( $args{content} ),
'content-type' => $args{transmission}->content_type,
'content-transfer-encoding' => 'base64',
);
my ($queued_as) = $Mail::Sendmail::log =~ m/\s+queued as\s+(.*)/;
return $queued_as;
Email-Forward-Dispatch
view release on metacpan or search on metacpan
t/sample_mail.txt view on Meta::CPAN
dmarc=pass (p=NONE dis=NONE) header.from=gmail.com
Received: by mail-pd0-x22e.google.com with SMTP id y13so162130pdi.19
for <hirobanex@gmail.com>; Mon, 18 Nov 2013 01:35:14 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=gmail.com; s=20120113;
h=subject:from:content-type:message-id:date:to
:content-transfer-encoding:mime-version;
bh=v0LuvceDL6/cXu8rW4gasYfzT9chQzmx4uDpwJS7fc8=;
b=reW9/hH+wcQ9+cTr0BKVJ0q9bMxjSeDFvk6hieiTEsJN+wgfj4ofHLrb7Ibv/hCctA
B3SDGh+YZ3myWPDmV1SniAsgCo8hPMKvY1C9OsRQ8IDeGfHIsqRIdl16sq2uN/FeMpfi
QBKx6KI9iPHyHC+RGRBOLm9U2nCaj4w8Bm2xH6IdrAh4rDkpmBMFgU7BHszVu7sVAfBj
Email-MIME-Attachment-Stripper
view release on metacpan or search on metacpan
1.314 2007-10-02
bug fix: bump up prereq on Email::MIME::Modifier
(fixes a scalar deref issue, reported by JESSE)
1.313 2006-11-25
resolve bug 19988, make content-type check for inline text case-insens
packaging improvements
1.311 2006-08-01
no code changes
update Makefile.PL to be more mine-able
Email-MIME-ContentType
view release on metacpan or search on metacpan
lib/Email/MIME/ContentType.pm view on Meta::CPAN
#pod Content-Disposition header. Non-ASCII or too long attributes are handled in
#pod the same way like in L<build_content_type function|/build_content_type>.
#pod
#pod =head1 WARNINGS
#pod
#pod This is not a valid content-type header, according to both RFC 1521 and RFC
#pod 2045:
#pod
#pod Content-Type: type/subtype;
#pod
#pod If a semicolon appears, a parameter must. C<parse_content_type> will carp if
lib/Email/MIME/ContentType.pm view on Meta::CPAN
Content-Disposition header. Non-ASCII or too long attributes are handled in
the same way like in L<build_content_type function|/build_content_type>.
=head1 WARNINGS
This is not a valid content-type header, according to both RFC 1521 and RFC
2045:
Content-Type: type/subtype;
If a semicolon appears, a parameter must. C<parse_content_type> will carp if
Email-MIME-CreateHTML
view release on metacpan or search on metacpan
lib/Email/MIME/CreateHTML.pm view on Meta::CPAN
A scalar value holding the HTML message body.
=item body_attributes =E<gt> I<hash reference>
This is passed as the attributes parameter to the C<create> method (supplied by C<Email::MIME::Creator>) that creates the html part of the mail.
The body content-type will be set to C<text/html> unless it is overidden here.
=item embed =E<gt> I<boolean>
Attach relative images and other media to the message. This is enabled by default.
The module will attempt to embed objects defined by C<embed_elements>.
Email-MIME-MobileJP
view release on metacpan or search on metacpan
lib/Email/MIME/MobileJP/Parser.pm view on Meta::CPAN
}
}
sub get_parts {
my ($self, $content_type) = @_;
Carp::croak("missing content-type") unless defined $content_type;
my @parts;
$self->mail->walk_parts(sub {
my $part = shift;
return if $part->parts > 1; # multipart
Email-MIME-XMTP
view release on metacpan or search on metacpan
- fixed bug when Content-Type is not specified; and default to text/plain
(and do not base64-encode body text)
0.38 Mon Jul 4 19:22:27 CEST 2005
- fixed bug in _XMLbodyEncode() to make content-type checking
case insensistive
- added POD patches as reported by Mike Castel <dalgoda@ix.netcom.com>
0.37 Tue May 24 01:42:29 CEST 2005
Email-MIME
view release on metacpan or search on metacpan
1.949 2020-05-24 10:25:36-04:00 America/New_York
- no changes since trial release
1.948 2020-05-09 14:57:17-04:00 America/New_York (TRIAL RELEASE)
- fixes to handling of content-type parameters (thanks, dlucredativ and
Pali Rohár)
1.947 2020-05-09 14:30:06-04:00 America/New_York (TRIAL RELEASE)
- add $Email::MIME::MAX_DEPTH and refuse to parse deeper than that many
parts; current default: 10
1.934 2015-08-01 20:33:57-04:00 America/New_York
- fix debug_structure for multipart mail with only one subpart
1.933 2015-07-25 09:30:56-04:00 America/New_York
- correct Email::Simple prereq
- skip omitting content-type attributes with undef value
1.932 2015-07-24 22:24:06-04:00 America/New_York
- stable release of previous trial releases
- see v1.930 and v1.931, below
1.930 2015-03-25 22:58:42-04:00 America/New_York (TRIAL RELEASE)
- rely on the new header_raw methods in new Email::Simple
1.929 2015-02-17 09:31:35-05:00 America/New_York
- try not to lose unrecognized content-type parameters
- avoid copying the body content when not needed during construction
1.928 2014-12-15 21:47:49-05:00 America/New_York
- when converting from single part to multipart, drop
Content-Transfer-Encoding and Content-Type's charset property
Email-Outlook-Message
view release on metacpan or search on metacpan
t/full_structure.t view on Meta::CPAN
my $m = shift;
my @names = sort grep(!/^content-id$/, map {lc $_} $m->header_names);
my @arr = map {
my @h = map { $_ =~ s/\s\s*/ /sg; $_ } sort $m->header($_);
@h = map { sanitize_content_type($_) } @h if lc $_ eq 'content-type';
@h = map { sanitize_content_disposition($_) } @h if lc $_ eq 'content-disposition';
$_ . ": " . join "\n", @h;
} @names;
return \@arr;
}
Email-Reply
view release on metacpan or search on metacpan
]);
is($complex->parts, 2, "one reply part, one original part");
like(
($complex->parts)[1]->header('content-type'),
qr{^message/rfc822},
'the second part is the original, rfc822-style',
);
like $complex->header('from'), qr/human\@earth\.sol/, "correct from";
Email-Send-Netease
view release on metacpan or search on metacpan
lib/Email/Send/Netease.pm view on Meta::CPAN
Type => 'text/html',
Data => $html_body,
Encoding => 'base64',
) or croak "create container failed: $!";
$msg->attr('content-type.charset' => 'UTF-8');
$msg->send( 'smtp',
$smtpsvr,
AuthUser=>$user,
AuthPass=>$self->{passwd},
Debug=>$self->{debug}
Email-Send-YYClouds
view release on metacpan or search on metacpan
lib/Email/Send/YYClouds.pm view on Meta::CPAN
Subject => encode( 'MIME-Header', $subject ),
Data => encode_utf8($body),
Encoding => 'quoted-printable',
) or die "create container failed: $!";
$msg->attr('content-type.charset' => 'UTF-8');
$msg->send( 'smtp',
$smtprelay,
Debug => $self->{debug}
);
Email-Send-Zoho
view release on metacpan or search on metacpan
lib/Email/Send/Zoho.pm view on Meta::CPAN
Type => 'text/html',
Data => $html_body,
Encoding => 'base64',
) or croak "create container failed: $!";
$msg->attr('content-type.charset' => 'UTF-8');
$msg->send('smtp',
'smtp.zoho.com',
Port => 465,
AuthUser => $from_address,
AuthPass => $self->{passwd},
Email-SendGrid-V3
view release on metacpan or search on metacpan
my $request = { headers => {} };
# https://github.com/chansen/p5-http-tiny/blob/ce7583b7ea85abf69282f89746248c3a5e1e961a/lib/HTTP/Tiny.pm#L815
if ( defined $args->{content} ) {
if (ref $args->{content} eq 'CODE') {
$request->{headers}{'content-type'} ||= "application/octet-stream";
$request->{headers}{'transfer-encoding'} = 'chunked'
unless $request->{headers}{'content-length'}
|| $request->{headers}{'transfer-encoding'};
$request->{cb} = $args->{content};
}
my $content = $args->{content};
if ( $] ge '5.008' ) {
utf8::downgrade($content, 1)
or die(qq/Wide character in request message body\n/);
}
$request->{headers}{'content-type'} ||= "application/octet-stream";
$request->{headers}{'content-length'} = length $content
unless $request->{headers}{'content-length'}
|| $request->{headers}{'transfer-encoding'};
$request->{cb} = sub { substr $content, 0, length $content, '' };
}
Email-Sender-Transport-Mailgun
view release on metacpan or search on metacpan
t/success.t view on Meta::CPAN
is($result->id, $id, 'Return id correct');
my $req = shift @requests;
is($req->{method}, 'POST', 'POST method');
is($req->{uri}, "$proto://api:$api_key\@$host/$domain/messages.mime", 'URI ok');
like($req->{data}->{headers}->{'content-type'}, qr{^multipart/form-data},
'Used multipart/form-data');
sub body {
return (@_ > 1) ? [ map { body($_) } @_ ] : { body => $_[0] };
}
Email-Simple
view release on metacpan or search on metacpan
t/preserve-linefeed.t view on Meta::CPAN
use_ok( 'Email::Simple' );
my $original = <<'EOM';
subject:
=?utf-8?B?ZGVsLmljaW8udXMvbmV0d29yay9qb2VlIC0gW2Zyb20gbWlqaXRdIEJMQiBFY2MgMw==?=
content-type: text/plain
empty body
EOM
my $mail = Email::Simple->new( $original );
EmbedIT-WebIT
view release on metacpan or search on metacpan
webdemo/test_site/pod.html view on Meta::CPAN
<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>WebIT</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@localhost" />
</head>
<body style="background-color: white">
Embedix-DB
view release on metacpan or search on metacpan
htdocs/index.html view on Meta::CPAN
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link {text-decoration:none}
a:visited {text-decoration:none}
a:active {text-decoration:none}
Embperl
view release on metacpan or search on metacpan
Embperl/Syntax/Mail.pm view on Meta::CPAN
{
my ($self) = @_ ;
$self -> AddTagBlock ('mail:send', ['from', 'to', 'cc', 'bcc', 'subject', 'reply-to',
'mailhost', 'mailhelo', 'maildebug', 'content-type'],
undef, undef,
{
removenode => 106,
compiletimeperlcode => q{
$_ep_mail_opt_save = $Embperl::req->component->config->options ;
Embperl/Syntax/Mail.pm view on Meta::CPAN
'subject' => %&'subject%,
'reply-to' => %&'reply-to%,
'mailhost' => %&'mailhost%,
'mailhelo' => %&'mailhelo%,
'maildebug' => %&'maildebug%,
'mailheaders' => [ (( %&'content-type% ) ? ('Content-Type: '.%&'content-type%) : ()) ],
}) ;
print STDERR join ('; ', @errors) if (@errors) ;
}
},
stackname => 'mail_send',
Embperl/Syntax/Mail.pm view on Meta::CPAN
=item mailhelo
=item maildebug
=item content-type
=back
On success it sets C<$?> to zero, otherwise to a value other then zero.
Erlang-Parser
view release on metacpan or search on metacpan
[{"Set-Cookie", "foo"}, {"Set-Cookie", "bar"}] = ?MODULE:to_list(H3),
"foo, bar" = ?MODULE:get_value("set-cookie", H3),
{value, {"Set-Cookie", "foo, bar"}} = ?MODULE:lookup("set-cookie", H3),
undefined = ?MODULE:get_value("shibby", H3),
none = ?MODULE:lookup("shibby", H3),
H4 = ?MODULE:insert("content-type",
"application/x-www-form-urlencoded; charset=utf8",
H3),
"application/x-www-form-urlencoded" = ?MODULE:get_primary_value(
"content-type", H4),
H4 = ?MODULE:delete_any("nonexistent-header", H4),
H3 = ?MODULE:delete_any("content-type", H4),
HB = <<"Content-Length: 47\r\nContent-Type: text/plain\r\n\r\n">>,
H_HB = ?MODULE:from_binary(HB),
H_HB = ?MODULE:from_binary(binary_to_list(HB)),
"47" = ?MODULE:get_value("Content-Length", H_HB),
"text/plain" = ?MODULE:get_value("Content-Type", H_HB),
undefined ->
fun (Next) ->
parse_form_value(Next, {Name, []}, FileHandler, State)
end;
_ ->
ContentType = proplists:get_value("content-type", H),
Handler = FileHandler(Filename, ContentType),
fun (Next) ->
parse_form_file(Next, {Name, Handler}, FileHandler, State)
end
end.
parse_multipart_request(Req, Callback) ->
%% TODO: Support chunked?
Length = list_to_integer(Req:get_header_value("content-length")),
Boundary = iolist_to_binary(
get_boundary(Req:get_header_value("content-type"))),
Prefix = <<"\r\n--", Boundary/binary>>,
BS = byte_size(Boundary),
Chunk = read_chunk(Req, Length),
Length1 = Length - byte_size(Chunk),
<<"--", Boundary:BS/binary, "\r\n", Rest/binary>> = Chunk,
mochiweb_request:new(Socket,
'POST',
"/multipart",
{1,1},
mochiweb_headers:make(
[{"content-type", ContentType},
{"content-length", Length}])).
test_callback({body, <<>>}, Rest=[body_end | _]) ->
%% When expecting the body_end we might get an empty binary
fun (Next) -> test_callback(Next, Rest) end;
{body, <<"multipart message">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "file"}, {"filename", "test_file.txt"}]}},
{"content-type", {"text/plain", []}}]},
{body, <<"Woo multiline text file\n\nLa la la">>},
body_end,
eof],
TestCallback = fun (Next) -> test_callback(Next, Expect) end,
ServerFun = fun (Socket) ->
{body, <<"multipart message">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "file"}, {"filename", ""}]}},
{"content-type", {"application/octet-stream", []}}]},
{body, <<>>},
body_end,
eof],
TestCallback = fun (Next) -> test_callback(Next, Expect) end,
ServerFun = fun (Socket) ->
{body, <<"Larry">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "files"}, {"filename", "file1.txt"}]}},
{"content-type", {"text/plain", []}}]},
{body, <<"... contents of file1.txt ...">>},
body_end,
eof],
TestCallback = fun (Next) -> test_callback(Next, Expect) end,
ServerFun = fun (Socket) ->
{body, <<"Larry">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "files"}, {"filename", "file1.txt"}]}},
{"content-type", {"text/plain", []}}
]},
{body, <<"... contents of file1.txt ...">>},
body_end,
eof],
TestCallback = fun (Next) -> test_callback(Next, Expect) end,
{body, <<"Larry">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "files"}, {"filename", "file1.txt"}]}},
{"content-type", {"text/plain", []}},
{"x-large-header", {string:copies("%", 4096), []}}
]},
{body, <<"... contents of file1.txt ...">>},
body_end,
eof],
{body, <<"201">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "file"}, {"filename", "hello.txt"}]}},
{"content-type", {"application/octet-stream", []}}]},
{body, <<"hello\n">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "Upload"}]}}]},
{body, <<"201">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "file"}, {"filename", "hello.txt"}]}},
{"content-type", {"application/octet-stream", []}}]},
{body, Chunk},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "Upload"}]}}]},
{body, <<"201">>},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "file"}, {"filename", "hello.txt"}]}},
{"content-type", {"application/octet-stream", []}}]},
{body, Chunk},
body_end,
{headers,
[{"content-disposition",
{"form-data", [{"name", "Upload"}]}}]},
undefined ->
Parsed = case recv_body() of
undefined ->
[];
Binary ->
case get_primary_header_value("content-type") of
"application/x-www-form-urlencoded" ++ _ ->
mochiweb_util:parse_qs(Binary);
_ ->
[]
end
Eve
view release on metacpan or search on metacpan
lib/Eve/HttpResource/Template.pm view on Meta::CPAN
(optional) if a user is not authenticated, throw a
C<Eve::Exception::Http::401Unauthorized>,
=item C<content_type>
(optional) response content-type, defaults to C<text/html>,
=item C<charset>
(optional) response character set, defaults to C<UTF-8>.
( run in 0.619 second using v1.01-cache-2.11-cpan-0d8aa00de5b )