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 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 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 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 release on metacpan or  search on metacpan

bin/dmarc_receive  view on Meta::CPAN

 * the message is marked as read/seen
 * move message to [imap][a_done] folder (if defined)

=head3 IMAP Forensic report

IMAP forensic reports are detected by the presence of the content-types message/feedback-report and text/rfc822-headers. When a forensic report is detected it is moved to the [imap][f_done] IMAP folder.

=head2 File as message

Accepts the filename of a file containing a mail message. The message is parsed and stored.

 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 release on metacpan or  search on metacpan

DWIM.pm  view on Meta::CPAN

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

DWIM.pm  view on Meta::CPAN

      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 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 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 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 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 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 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 release on metacpan or  search on metacpan

lib/Mail/Message/Construct/Build.pm  view on Meta::CPAN

    my ($type, $transfenc, $dispose, $descr, $cid, $lang);
    while(@_)
    {   my $key = shift;
        if(ref $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 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 release on metacpan or  search on metacpan

lib/Mail/Milter/Module/HeaderValidateMIME.pm  view on Meta::CPAN

	shift; # $this
	my $ctx = shift;
	my $hname = lc(shift);
	my $priv = $ctx->getpriv();

	if ($hname eq 'content-type' || $hname eq 'mime-version') {
		$priv->{$hname} = 1;
	}

	SMFIS_CONTINUE;
}

lib/Mail/Milter/Module/HeaderValidateMIME.pm  view on Meta::CPAN

sub eoh_callback {
	shift; # $this
	my $ctx = shift;
	my $priv = $ctx->getpriv();

	if (defined($priv->{'content-type'}) xor defined($priv->{'mime-version'})) {
		$ctx->setreply("554", "5.6.0", "Message is corrupt -- RFC2047: MIME-Version and Content-Type must be used together, or not at all");
		return SMFIS_REJECT;
	}

	SMFIS_ACCEPT;

 view release on metacpan or  search on metacpan

t/dkim_getsiglist.t  view on Meta::CPAN

	ok($d->dkim_header({ header => $hdr, len => length($hdr) }) == DKIM_STAT_OK);

	$hdr = "To: Tester <dktest\@blackops.org>\r\n";
	ok($d->dkim_header({ header => $hdr, len => length($hdr) }) == DKIM_STAT_OK);

	$hdr = "DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=in00.m1e.net; h=from:subject:to:list-help:list-unsubscribe:list-owner:list-post:message-id:mime-version:content-type; s=in00; bh=T0tjLwBYqqUn0OdBLCGYyrP8YqM=; b=Rkwp7cqXCgxIj1csV1SdnALAQZ3gwcGzxa...
	ok($d->dkim_header({ header => $hdr, len => length($hdr) }) == DKIM_STAT_OK);

	my $args = {
		sigs => undef,
		nsigs => undef

 view release on metacpan or  search on metacpan

t/03_procmailrc.t  view on Meta::CPAN

ws = '[	 ]*($[	 ]+)*'
dq = '"'

## generic exe attachment
:0H
#* 1^0 $ ^content-type:${ws}(multipart/(mixed|application|signed|encrypted))|(application/)
* 4^0 $ ^content-disposition:${ws}attachment;${ws}.*name${ws}=${ws}${dq}?.*\.${ext}(\..*)?${dq}?${ws}$
{
  :0:
  * $ $=^0
  * -1^0 B ?? $ ^content-type:${ws}text/plain
  * -1^0 B ?? $ ^content-type:${ws}text/html
  *  1^0 B ?? $ ^content-transfer-encoding:${ws}base64
  /var/log/quarantine
}
_RCFILE_

 view release on metacpan or  search on metacpan

qmailrem/hfield.c  view on Meta::CPAN

, "apparently-to"
, "received"
, "return-path"
, "delivered-to"
, "content-length"
, "content-type"
, "content-transfer-encoding"
, "notice-requested-upon-delivery-to"
, "mail-followup-to"
, 0
};

 view release on metacpan or  search on metacpan

lib/Mail/Salsa/Action/Post.pm  view on Meta::CPAN

	my $attachfile = shift;
	my $from_addr = shift;

	$_[0] .= <<ENDCODE;
for my \$part (keys(\%{\$self->{'headers'}})) {
	\$mime_type = \$self->{'headers'}->{\$part}->{'content-type'}->{'value'};
	local \$_ = \$mime_type;
	next if(index(\$_, \"multipart\/\") > -1);
ENDCODE
	my $subscriber = 0;
	open(ATTACHMENT, "<", $attachfile) or return("$!");

lib/Mail/Salsa/Action/Post.pm  view on Meta::CPAN

	}
	if($self->{'config'}->{'footer'} eq "y") {
		$footerfile = file_path($self->{'list'}, $self->{'list_dir'}, "footer.txt");
		(-e $footerfile && -s $footerfile) or $footerfile = "";
	}
	my $boundary = exists($self->{'headers'}->{'0.0'}->{'content-type'}->{'boundary'}) ? $self->{'headers'}->{'0.0'}->{'content-type'}->{'boundary'} : "";
	my ($tree, $count) = $boundary ? ("0.0.0", 0) : ("0.0", 1);

	if($headerfile || $footerfile) {
		if(exists($self->{'headers'}->{$tree}->{'content-type'}->{'value'}) &&
				$self->{'headers'}->{$tree}->{'content-type'}->{'value'} eq "text/plain") {
			if(exists($self->{'headers'}->{$tree}->{'content-transfer-encoding'}->{'value'})) {
				$encoding = $self->{'headers'}->{$tree}->{'content-transfer-encoding'}->{'value'};
				$encoding = $footerfile = $headerfile = "" unless(&check_encoding($encoding));
			}
		} else { $footerfile = $headerfile = ""; }

 view release on metacpan or  search on metacpan

lib/Mail/Sender.pm  view on Meta::CPAN

Sends a file as a separate part of the mail message. Only in multi-part mode.

=head2 Body

    # set parameters in an ordered list
    # -- charset, encoding, content-type
    $sender = $sender->Body('US-ASCII', '7BIT', 'text/plain');
    # OR use a hashref
    $sender = $sender->Body({
        charset => 'US-ASCII', # default
        encoding => '7BIT', # default

 view release on metacpan or  search on metacpan

doc/index.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>Mail::SpamAssassin::Contrib::Plugin::IPFilter - Blocks bad MTA behavior using IPTables and Redis/MySQL.</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<style type="text/css">
body{font-size:1.1em;}
hr {color:#999;margin-top:20px;}
h1{margin: 20px 0 10px 0;}
pre {

 view release on metacpan or  search on metacpan

lib/Mail/SpamAssassin/Plugin/AttachmentPresent.pm  view on Meta::CPAN

    # we ignore all parts which are part of the text body
    
    # For zipfiles, find out whats in them
    # Content-Type: application/zip;
    # Content-Transfer-Encoding: base64
    my $ctt = $part->get_header('content-type') || '';
    # Mail::SpamAssassin::Message::Node has _decode_header() method, but it doesnt decode 
    # Content-* headers and thus the filename in the Content-Type header is not decoded :(
    $ctt=Encode::decode('MIME-Header', $ctt);
    # $ctt might contain wide characters now

    my $cte = lc($part->get_header('content-transfer-encoding') || '');
    
    l('_build_attachment_tree->part: content-type: '.$ctt);
    
    # consider the attachment a file if it has a name
    my $attachment_filename='';
    if($ctt =~ m/name\s*=\s*"?([^";]*)"?/is){
      $attachment_filename=$1;

 view release on metacpan or  search on metacpan

lib/Mail/SpamAssassin/Message.pm  view on Meta::CPAN

    }
  }

  # Figure out the boundary
  my ($boundary);
  ($self->{'type'}, $boundary) = Mail::SpamAssassin::Util::parse_content_type($self->header('content-type'));
  dbg("message: main message type: ".$self->{'type'});

#  dbg("message: \$message[0]: \"" . $message[0] . "\"");

  # bug 6845: if main message type is multipart and the message body does not begin with

lib/Mail/SpamAssassin/Message.pm  view on Meta::CPAN

Used to search the tree for specific MIME parts.  See
I<Mail::SpamAssassin::Message::Node> for more details.

=cut

# Used to find any MIME parts whose simple content-type matches a given regexp
# Searches it's own and any children parts.  Returns an array of MIME
# objects which match.
#
sub find_parts {
  my $self = shift;

lib/Mail/SpamAssassin/Message.pm  view on Meta::CPAN

	# in that case.
        $part_array = [];
      }

      ($part_msg->{'type'}, my $p_boundary, undef, undef, my $ct_was_missing) =
          Mail::SpamAssassin::Util::parse_content_type($part_msg->header('content-type'));

      # bug 5741: if ct was missing and parent == multipart/digest, then
      # type should be set as message/rfc822
      if ($ct_was_missing) {
        if ($msg->{'type'} eq 'multipart/digest') {

lib/Mail/SpamAssassin/Message.pm  view on Meta::CPAN

      }
      else {
        if ($header) {
          my ( $key, $value ) = split ( /:\s*/, $header, 2 );
          $part_msg->header( $key, $value );
          if (defined $boundary && lc $key eq 'content-type') {
	    my (undef, $nested_bound) = Mail::SpamAssassin::Util::parse_content_type($part_msg->header('content-type'));
            if (defined $nested_bound && $nested_bound eq $boundary) {
       	      $nested_boundary = 1;
            }
          }
        }

lib/Mail/SpamAssassin/Message.pm  view on Meta::CPAN

  my ($msg, $boundary, $body) = @{$toparse};

  dbg("message: parsing normal part");

  # 0: content-type, 1: boundary, 2: charset, 3: filename 4: ct_missing
  my @ct = Mail::SpamAssassin::Util::parse_content_type($msg->header('content-type'));

  # multipart sections are required to have a boundary set ...  If this
  # one doesn't, assume it's malformed and revert to text/plain
  # bug 5741: don't overwrite the default type assigned by _parse_multipart()
  if (!$ct[4]) {

 view release on metacpan or  search on metacpan

t/data/email.eml  view on Meta::CPAN

    NYDKGeQSf+QGDbi6MsJZQyG5hsGC2QI1g1EWDcS1iksWr8kt6bsbI1JG6by/wjIz
    K3ajP8coGzmRz/CyOHn3NqtjwHOh2U3jvf5kpZL+BjG/otf6qnOt7YriMETuTyJp
    U8zUsCig/bWrms5706fSrcIcvp9N3EK1ej4w==
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=
    messagingengine.com; h=mime-version:date:message-id:subject:from
    :to:content-type; s=fm2; t=1583231081; bh=F5ENAj8ENPKQchrYB3O08n
    5DMjCTbaMYq78SLUP9EhQ=; b=1vm06cKEQaiO1nEOlLEMKkSnBQJxFgVKONhCbp
    842Amd0FTAFIc39iNL3GvXC0AwXlM0z1VOQv5nMp4tLqexfbmtEKqiSKoeCctRm1
    xIDaa/INzeIaItngb78aPR97vbEUFGadaDOqSozLdQeofLNeC4a27gc7Jhgv11Hg
    LIiZfyhK74kBxD65gUEE4O1xfaZpOheH2gxT25ANmppDv41qRYtvy+PFsJJad/bk
    6eQK43UXGeIjpENEe04/iozVl4K8IxhNtXLTzHvcPiNwHn4QFVA4RdV47R4NYhXX

 view release on metacpan or  search on metacpan

contrib/swaks  view on Meta::CPAN

=item --body [body-specification]

Specify the body of the email.  The default is "This is a test mailing".  If no argument to --body is given, prompt to supply one interactively.  If '-' is supplied, the body will be read from standard input.  If any other text is provided and the te...

If the message is forced to MIME format (see --attach) the argument to this option will be included unencoded as the first MIME part.  Its content-type will always be text/plain.

=item --attach [attachment-specification]

When one or more --attach option is supplied, the message is changed into a multipart/mixed MIME message.  The arguments to --attach are processed the same as --body with regard to stdin, file contents, etc.  --attach can be supplied multiple times t...

 view release on metacpan or  search on metacpan

lib/Mail/Webmail/Gmail.pm  view on Meta::CPAN

This is included so you can get an idea of what the underlying HTML looks like for
Gmail.  It is also included to somewhat document what the current interface needs to
manipulate to extract data from Gmail.

    <html><head><meta content="text/html; charset=UTF-8" http-equiv="content-type"></head>
    <script>D=(top.js&&top.js.init)?function(d){top.js.P(window,d)}:function(){};
    if(window==top){top.location='/gmail?search=inbox&view=tl&start=0&init=1&zx=VERSION + RANDOM 9 DIGIT NUMBER&fs=1';}
    </script><script><!--
    D(["v","fc5985703d8fe4f8"]
    );

 view release on metacpan or  search on metacpan

MessageParser.pm  view on Meta::CPAN

		if ($self->{_debug}) { print "sdd 070a; ($ct)\n" }
		if ($ct) {
			if ($ct =~ m{multipart/alternative;?\s*(?:boundary=)"?([^"]*)"?}i) { #"
				$style = 'both';
				$boundary = $1;
				$style_src = 'content-type (multipart/alternative)';
			} elsif ($ct =~ m:text/(\w+):i) {
				$style = lc $1;
				$style_src = "content-type (text/$style)";
			} elsif ($ct =~ m{multipart/mixed;?\s*(?:boundary=)"?([^"]*)"?}i) { #"
				$style = ''; # Figure out later what content type to use.
				$boundary = $1;
			}
		}

 view release on metacpan or  search on metacpan

lib/Manta/Client.pm  view on Meta::CPAN

sub put {
	my $self = shift;
	croak "Illegal parameter list has odd number of values" if @_ % 2;
	my %params = @_;
	croak "Required parameter 'path' not passed to put method put" unless defined $params{path};
	return $self->_request(path => $params{path}, method => "PUT", content => $params{content}, headers => {"content-type" => $params{"content-type"}});
}

sub rm {
	my ($self, $path) = @_;
	my $response = $self->_request(path => $path, method => "DELETE");
	return $response;
}

sub mkdir {
	my ($self, $path) = @_;
	return $self->put(path => $path, "content-type" => "application/json; type=directory");
}

sub ls {
	# FIXME - limited to 256 objects
	my ($self, $path) = @_;

lib/Manta/Client.pm  view on Meta::CPAN

	return undef;
}

sub ln {
	my ($self, $src, $dst) = @_;
	return $self->_request(path => $dst, method => "PUT", headers => {Location => $src, "content-type" => "application/json; type=link"});
}

1;

__END__

lib/Manta/Client.pm  view on Meta::CPAN

    url => "https://us-east.manta.joyent.com",
    key_file => "/root/.ssh/id_rsa");
  my $object = $manta->get("/$username/stor/file.txt");
  $manta->put(path => "/$username/stor/file.txt",
    content => $content,
    "content-type" => "text/plain");
  $manta->rm("$username/stor/file.txt");
  $manta->mkdir("/$username/stor/new_directory");
  my $files = $manta->ls("$username/stor");

=head1 DESCRIPTION

lib/Manta/Client.pm  view on Meta::CPAN

Gets an object. It requires a single argument, the Manta path of the object to retrieve. It returns the contents of the object, or undef on failure.

=head2 put

Put an object. It requires a hash argument containing: C<path> - destination Manta path; C<content> - contents of the object to be uploaded; and C<content-type> (optional) - the MIME type of the object (defaults to application/octet-stream)

It returns true on success and false on failure.

=head2 rm

 view release on metacpan or  search on metacpan

lib/Maplat/Helpers/MailLogger.pm  view on Meta::CPAN

                Subject         => $subject,
                Message         => $message,
                Server          => $self->{server},
                Port            => $self->{port},
                'X-Mailer'      => "Maplat Mail-Logger",
                'content-type'  => "multipart/mixed; boundary=\"$boundary\"",
                
                
                );

    if(!sendmail(%mail)) {