view release on metacpan or search on metacpan
t/03.PDU-common-fields.t
t/04.basic-rules.t
t/05.length.t
t/06.parameter-values.t
t/07.parameter.t
t/08.content-type.t
t/09.multipart.t
t/20.immediates.t
t/21.straight.t
t/pod-coverage.t
t/pod.t
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MP3/M3U/Parser/Export.pm view on Meta::CPAN
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>MP3::M3U::Parser Generated PlayList</title>
<meta name="Generator" content="MP3::M3U::Parser">
<meta http-equiv="content-type"
content="text/html; charset=<%$HTML{ENCODING}%>">
<style type="text/css">
<!--
body { background : #000040;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MPMinus/REST.pm view on Meta::CPAN
my $meth = uc($r->method() || 'GET');
my $is_get = $meth =~ /GET|HEAD/ ? 1 : 0;
my $headers = $r->headers_in(); # APR::Table object
# If content-type is predefined! Nothing to do
my $content_type = $self->get_attr("content_type");
if ($content_type) {
$self->set_svar(format => _ctlookup($content_type) || FORMAT);
$r->content_type($content_type);
return Apache2::Const::OK;
}
# Content-Type Values from headers
my $req_content_type = $headers->get("content-type") // '';
my $req_accept = $headers->get("accept") // '';
# Try get format from request header first and from the Accept header
my $format = _ctlookup($req_content_type) || _ctlookup($req_accept);
my $default_format = $format || FORMAT;
view all matches for this distribution
view release on metacpan or search on metacpan
Changes.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>Changes.src</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:perlcore@ms.com" />
</head>
<body style="background-color: white">
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MT/Import/Mbox.pm view on Meta::CPAN
event that no attachments are found it returns the body of the orginal message
as a 'part', or attachment.
If only one attachment exists it is used to generate the body of the entry.
If the first attachment content-type is determined to be either plain-text
or HTML it is used to generate the body of the entry.
All other attachments are written to disk. Attachments are written to disk as :
/your/static/weblog/attachments/$YYYY/$MM/$DD/$MSG_ID/$FNAME
lib/MT/Import/Mbox.pm view on Meta::CPAN
$MSG_ID is an MD5 digest of a normalized form of the message's Message-ID
header.
$FNAME is an MD5 digest of the attachment's body. If it is possible to
determine the attachment's content-type then a suitable extension is
appended to $FNAME.
A messsage's headers are stored as a separate attachment in :
/your/static/weblog/attachments/$YYYY/$MM/$DD/$MSG_ID/headers.txt
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MVC/Neaf.pm view on Meta::CPAN
The B<Model> is assumed to be just a regular Perl module,
no restrictions are imposed on it.
The B<View> is an object with one method, C<render>, receiving a hashref
and returning rendered content as string plus optional content-type header.
The B<Controller> is a prefix tree of subroutines called I<handlers>.
Each such handler receives a L<MVC::Neaf::Request> object
containing I<all> it needs to know about the outside world,
and returns a simple C<\%hashref> which is forwarded to View.
lib/MVC/Neaf.pm view on Meta::CPAN
=item * C<view> - default View object for this Controller.
Must be a name of preloaded view,
an object with a C<render> method, or a CODEREF
receiving hashref and returning a list of two scalars
(content and content-type).
B<[DEPRECATED]> Use C<-view> instead, meaning is exactly the same.
=item * C<cache_ttl> - if set, set Expires: HTTP header accordingly.
lib/MVC/Neaf.pm view on Meta::CPAN
will have non-absolute paths calculated relative to the file where
static() was called, not to the current directory.
=item * if coderef is given, use it as a C<render> method.
The coderef must take 1 argument - the hash returned from application -
and return a string + optional content-type.
=back
Returns the view object, NOT the calling Neaf object.
lib/MVC/Neaf.pm view on Meta::CPAN
=item * header = \%hash - override some headers
This gets overridden by type, cookie etc. in case of conflict
=item * body = 'DATA' - force body in request
=item * type - content-type of body
=item * uploads - a hash of L<MVC::Neaf::Upload> objects.
=item * secure = 0|1 - C<http> vs C<https>
view all matches for this distribution
view release on metacpan or search on metacpan
Bulkmail.pm view on Meta::CPAN
But it was just too hard for most people. So I added this flag.
Here's the order:
Check and see if ->header("Content-type") is set, if so then send it.
Otherwise, check and see if ->HTML is true, if so, then send a content-type of text/html
i.e., an HTML message
Otherwise, send a content-type of text/plain
i.e., a plaintext message
$bulk->HTML(1);
print $bulk->HTML();
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/DKIM/Iterator.pm view on Meta::CPAN
use warnings;
use Crypt::OpenSSL::RSA;
use Scalar::Util 'dualvar';
# critical header fields which should be well protected
my @critical_headers = qw(from subject content-type content-transfer-encoding);
my $critical_headers_rx = do {
my $rx = join("|",@critical_headers);
qr{$rx}i;
};
# all header fields which should be included in the signature
lib/Mail/DKIM/Iterator.pm view on Meta::CPAN
C<Mail::DKIM::Iterator> will warn if it detects insufficent protection inside
the DKIM signature, i.e. if critical headers are not signed or if the body has
non-white-space data not covered by the body hash. Check the C<warning> function
on the result to get these warnings.
As critical are considered from, subject, content-type and
content-transfer-encoding since changes to these can significantly change the
interpretation of the mail by the MUA or user.
When signing C<Mail::DKIM::Iterator> will also protect all critical headers
against modification and adding extra fields as described in RFC 6376 section
view all matches for this distribution
view release on metacpan or search on metacpan
t/corpus/dk_headers_1.txt view on Meta::CPAN
for <test@dktest.jason.long.name>; Tue, 10 Oct 2006 15:27:14 -0400 (EDT)
Received: by ug-out-1314.google.com with SMTP id 29so952130ugc
for <test@dktest.jason.long.name>; Tue, 10 Oct 2006 12:27:13 -0700 (PDT)
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
s=beta; d=gmail.com;
h=received:message-id:date:from:to:subject:mime-version:content-type;
b=JOYJLw6miPAjUXx+gIQm3NsWuFInq05TuJppyoxqTopYPe3bSKzRBPLw5X+OMO36re/FDEfZnOjJ4cNYvVPuld6JEikNjk2RK98unQvcdkgBPZODuE7g/vXgLZo005nQkwvfd+4dbpHiINsOTT/0ASxQ+65OcgBu0CRR/DO7z/M=
Received: by 10.66.240.12 with SMTP id n12mr8614290ugh;
Tue, 10 Oct 2006 12:27:12 -0700 (PDT)
Received: by 10.67.96.17 with HTTP; Tue, 10 Oct 2006 12:27:12 -0700 (PDT)
Date: Tue, 10 Oct 2006 15:27:12 -0400
view all matches for this distribution
view release on metacpan or search on metacpan
bin/dmarc_http_client view on Meta::CPAN
my $url = "http://$host:$port/dmarc/json/validate";
my $response = HTTP::Tiny->new->post(
$url,
{ content => $data,
headers => { 'content-type' => 'application/json' },
}
)->{content};
#print Dumper($response); # raw JSON response
my $result;
view all matches for this distribution
view release on metacpan or search on metacpan
examples/mbox view on Meta::CPAN
X-Gnus-Article-Number: 17837 Tue, 02 Sep 2008 15:17:24 +0200
<html>
<head>
<meta http-equiv=3D"content-type" content=3D"text/html;charset=3Diso-88=
59-1">
<meta name=3D"generator" content=3D"Adobe GoLive">
<title>Page sans titre</title>
</head>
view all matches for this distribution
view release on metacpan or search on metacpan
# evil hack to compensate for MIME::Lite's shortcomings
if( $headers{ "Content-Type" } !~ /boundary/ ) {
$headers{ "Content-Type" } =
$headers{ "Content-Type" } .
qq{; boundary="} .
$msg->{ SubAttrs }->{ "content-type" }->{ boundary } .
qq{"};
}
return \%headers, $msg->body_as_string;
}
text => 'This is an <b>HTML</b> email.'
);
This will create two attachments, the first one as plain text
(generated by HTML::Text to the best of its abilities), followed by
the specified HTML message marked as content-type C<text/html>.
Non-HTML mail readers will pick up the first one, and Outlook-using
marketroids get fancy HTML. Everyone wins.
=head2 Test Mode
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/DeliveryStatus/BounceParser.pm view on Meta::CPAN
my $orig_message_mime = MIME::Entity->build(Type => "multipart/transitory");
$orig_message_mime->add_part($self->{parser}->parse_data($orig_message));
$orig_message_mime->head->mime_attr("content-type" => "message/rfc822");
$newmessage->add_part($orig_message_mime);
$self->log("created new plain-report message.");
return $newmessage;
lib/Mail/DeliveryStatus/BounceParser.pm view on Meta::CPAN
my $orig_message_mime
= MIME::Entity->build(Type => "multipart/transitory", Top => 0);
$orig_message_mime->add_part($self->{parser}->parse_data($orig_message));
$orig_message_mime->head->mime_attr("content-type" => "message/rfc822");
$newmessage->add_part($orig_message_mime);
$self->log("created new multipart-report message.");
return $newmessage;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/Exchange/PidTagDefs.pm view on Meta::CPAN
0x3709 => { type => 0x0102, name => "PidTagAttachRendering" }, # Contains a Windows Metafile, as specified in [MS-WMF], for the Attachment object.
0x370a => { type => 0x0102, name => "PidTagAttachTag" }, # Contains the identifier information for the application that supplied the Attachment object data.
0x370b => { type => 0x0003, name => "PidTagRenderingPosition" }, # Represents an offset, in rendered characters, to use when rendering an attachment within the main message text.
0x370c => { type => 0x001f, name => "PidTagAttachTransportName" }, # Contains the name of an attachment file, modified so that it can be correlated with TNEF messages.
0x370d => { type => 0x001f, name => "PidTagAttachLongPathname" }, # Contains the fully-qualified path and file name with extension.
0x370e => { type => 0x001f, name => "PidTagAttachMimeTag" }, # Contains a content-type MIME header.
0x370f => { type => 0x0102, name => "PidTagAttachAdditionalInformation" }, # Contains attachment encoding information.
0x3711 => { type => 0x001f, name => "PidTagAttachContentBase" }, # Contains the base of a relative URI.
0x3712 => { type => 0x001f, name => "PidTagAttachContentId" }, # Contains a content identifier unique to the Message object that matches a corresponding "cid:" URI schema reference in the HTML body of the Message object.
0x3713 => { type => 0x001f, name => "PidTagAttachContentLocation" }, # Contains a relative or full URI that matches a corresponding reference in the HTML body of a Message object.
0x3714 => { type => 0x0003, name => "PidTagAttachFlags" }, # Indicates which body formats might reference this attachment when rendering data.
0x3719 => { type => 0x001f, name => "PidTagAttachPayloadProviderGuidString" }, # Contains the GUID of the software component that can display the contents of the message.
0x371a => { type => 0x001f, name => "PidTagAttachPayloadClass" }, # Contains the class name of an object that can display the contents of the message.
0x371b => { type => 0x001f, name => "PidTagTextAttachmentCharset" }, # Specifies the character set of an attachment received via MIME with the content-type of text.
0x3900 => { type => 0x0003, name => "PidTagDisplayType" }, # Contains an integer value that indicates how to display an Address Book object in a table or as an addressee on a message.
0x3902 => { type => 0x0102, name => "PidTagTemplateid" }, #
0x3905 => { type => 0x0003, name => "PidTagDisplayTypeEx" }, # Contains an integer value that indicates how to display an Address Book object in a table or as a recipient (1) on a message.
0x39fe => { type => 0x001f, name => "PidTagSmtpAddress" }, # Contains the SMTP address of the Message object.
0x39ff => { type => 0x001f, name => "PidTagAddressBookDisplayNamePrintable" }, # Contains the printable string version of the display name.
view all matches for this distribution
view release on metacpan or search on metacpan
t/msg/multipart-signed-qp.eml view on Meta::CPAN
Received: by yx-out-2324.google.com with SMTP id 8so1539394yxb.51
for <chalpin@cs.wisc.edu>; Sun, 17 May 2009 20:34:25 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=gmail.com; s=gamma;
h=domainkey-signature:received:received:sender:from:to:subject:date
:user-agent:mime-version:content-type:content-transfer-encoding
:message-id;
bh=mrCnj+peIRZyFKKUom45vtHHHalEHjngUu8ydLdXIQI=;
b=Nos28h4Ki/p8AmLuXUIXnY08sJVz5cZfP7iobo92FgBcAaISCSmb+j/226Ei+CM1cN
E/379QNgPRWBM0YC7x6zP5U4BfI7HBYnZEjm5LVOrQZuMYavm62xesV8Yq/wMeRSmNiO
wlhgPUBIWpJa25vLEGPFSAY+xeYhS45LTQj94=
DomainKey-Signature: a=rsa-sha1; c=nofws;
d=gmail.com; s=gamma;
h=sender:from:to:subject:date:user-agent:mime-version:content-type
:content-transfer-encoding:message-id;
b=G74tCLyIQKXgrQXPzZF94Mu3MBiPsEAYsLOz8YvF6tSVpv1DmfnBPJHznKvXtXt+vR
vPizFC34icWwnEdzfLZ8q9qh3QWjpGRpfJnv7sa5bFOKMCnRH37Ev9zGWrphhgiOKvuv
igizNl84V7Lb5mNiQc8hgdqbMPLIyVYRdli20=
Received: by 10.90.86.10 with SMTP id j10mr5493898agb.59.1242617665125;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/IMAPTalk.pm view on Meta::CPAN
my $Result = $IMAP->getannotation('user.joe.blah', '/*' '*') || die "IMAP error: $@";
$Result = {
'user.joe.blah' => {
'/vendor/cmu/cyrus-imapd/size' => {
'size.shared' => '5',
'content-type.shared' => 'text/plain',
'value.shared' => '19261'
},
'/vendor/cmu/cyrus-imapd/lastupdate' => {
'size.shared' => '26',
'content-type.shared' => 'text/plain',
'value.shared' => '26-Mar-2004 13:31:56 -0800'
},
'/vendor/cmu/cyrus-imapd/partition' => {
'size.shared' => '7',
'content-type.shared' => 'text/plain',
'value.shared' => 'default'
}
}
};
view all matches for this distribution
view release on metacpan or search on metacpan
* SECURITY FIX: mimedefang.c: Tempfail message if RESULTS file
doesn't terminate with 'F' line. (Detects disk-full condition.)
* mimedefang.pl.in (rebuild_entity): Add a Content-Type: header
if MIME part lacks one. Some marginal e-mail software chokes on
a part with a missing content-type header.
* mimedefang.pl.in: flatten_mime removed. Support for
$Stupidity{"flatten"} removed. *** NOTE INCOMPATIBILITY ***
* action_add_part revamped completely; we try to preserve original
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/Make/Headers.pm view on Meta::CPAN
'in-reply-to' => 'In-Reply-To',
'references' => 'References',
'return-path' => 'Return-Path',
'received' => 'Received',
'mime-version' => 'MIME-Version',
'content-type' => 'Content-Type',
'content-transfer-encoding' => 'Content-Transfer-Encoding',
'content-disposition' => 'Content-Disposition',
'content-id' => 'Content-ID',
'content-description' => 'Content-Description',
};
lib/Mail/Make/Headers.pm view on Meta::CPAN
'message-id' => 100,
'in-reply-to' => 110,
'references' => 120,
'subject' => 130,
'mime-version' => 200,
'content-type' => 210,
'content-transfer-encoding' => 220,
'content-disposition' => 230,
'content-id' => 240,
'content-description' => 250,
};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/Mbox/MessageParser/Grep.pm view on Meta::CPAN
my $endline = $self->{'endline'};
if (substr($self->{'READ_BUFFER'},$self->{'START_OF_EMAIL'},
$self->{'START_OF_BODY'}-$self->{'START_OF_EMAIL'}) =~
/^(content-type: *multipart[^\n\r]*$endline( [^\n\r]*$endline)*)/im)
{
my $content_type_header = $1;
$content_type_header =~ s/$endline//g;
if ($content_type_header =~ /boundary *= *"([^"]*)"/i ||
view all matches for this distribution
view release on metacpan or search on metacpan
MboxParser/Mail.pm view on Meta::CPAN
# particular entity desired?
# we need to read the header of this entity then :-(
if (defined $num) {
my $ent = $self->get_entities($num);
if ($bound = $ent->head->get('content-type')) {
$bound =~ /boundary="(.*)"/; $bound = $1;
}
return Mail::MboxParser::Mail::Body->new($ent, $bound, $self->{ARGS});
}
# else
if ($bound = $self->header->{'content-type'}) {
$bound =~ /boundary="(.*)"/; $bound = $1;
}
return ref $self->{TOP_ENTITY} eq 'MIME::Entity'
? Mail::MboxParser::Mail::Body->new($self->{TOP_ENTITY}, $bound, $self->{ARGS})
: Mail::MboxParser::Mail::Body->new(scalar $self->get_entities(0), $bound, $self->{ARGS});
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/Message/Construct/Build.pm view on Meta::CPAN
while(@_)
{ my $key = shift;
if(blessed $key && $key->isa('Mail::Message::Field'))
{ my $name = $key->name;
if($name eq 'content-type') { $type = $key }
elsif($name eq 'content-transfer-encoding') { $transfenc = $key }
elsif($name eq 'content-disposition') { $dispose = $key }
elsif($name eq 'content-description') { $descr = $key }
elsif($name eq 'content-language') { $lang = $key }
elsif($name eq 'content-id') { $cid = $key }
view all matches for this distribution
view release on metacpan or search on metacpan
t/data/example/google_apps_bad.eml view on Meta::CPAN
Return-Path: <marc@marcbradshaw.net>
Received: by mail-we0-f171.google.com with SMTP id k11so1456187wes.2
for <marc@fastmail.com>; Sat, 24 Jan 2015 19:35:19 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=marcbradshaw.net; s=google;
h=mime-version:date:message-id:subject:from:to:content-type;
bh=7gvdmshMrcJRxJis+zHrBpu6zyqotJf8vROJvE5OcmA=;
b=DU/QdEi3GUUK1jz9pbH4A5UaeGhbsPzrPPTDAbqrn4EABY8kSBqxOVhl8xyIC08Chh
44rMiMlO8RigLW9cBoQybRnKSzviGwP+QuS4xTdVzemM/1Pdat9FteJPsz8MpbHlRrQ7
EpwcaQdYRJRlnrGaQhn9dkPU7xcfN0w+nsabU=
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=1e100.net; s=20130820;
h=x-gm-message-state:mime-version:date:message-id:subject:from:to
:content-type;
bh=7gvdmshMrcJRxJis+zHrBpu6zyqotJf8vROJvE5OcmA=;
b=aIL04w54Mcpr7cMQUdQrqpI4aUs4gV0Ww5+iyWnf0nMNUlsITzqPY2+5TBL2/l/ob1
nYRBLo+B01xb6HGTx1vATg/O/hrMPqK2pxICsTlIDvMBRpFsSDJbQpu0hQWpJXxF4cuQ
9QRyp3vYB0EWbn8Dxs9gm9V8G+b7nqRVG+X9YGFolXq00PPDRTIIB7adXmwDnHIdPx+u
Gb0MegXHP92U3iGZeZsEO1Gq9P6P44tp/v+09h9usq4OhBunjXojilYiB461BoBBYkGx
view all matches for this distribution