view release on metacpan or search on metacpan
Revision history for Dist-Zilla-Plugin-Github-UploadRelease
0.002 2016-05-01
- Spit out File::LibMagic and hardcode content-type
- Add dependency for Git::Tag plugin
0.001 2016-05-01
- Inital release
view release on metacpan or search on metacpan
t/05-check-dual-life-versions.t view on Meta::CPAN
status => '200',
reason => 'OK',
protocol => 'HTTP/1.1',
url => $url,
headers => {
'content-type' => 'text/x-yaml',
},
content =>
$module eq 'feature' ? '---
distfile: R/RJ/RJBS/perl-5.20.0.tar.gz
version: 1.36
view release on metacpan or search on metacpan
t/lib/NoNetworkHits.pm view on Meta::CPAN
status => '200',
reason => 'OK',
protocol => 'HTTP/1.1',
url => $url,
headers => {
'content-type' => 'text/x-yaml',
},
content => exists $::modules_and_responses{$module} ? $::modules_and_responses{$module}
: die "should not be checking for $module",
};
die 'should not be checking for ' . $module;
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Codeberg/Create.pm view on Meta::CPAN
]
);
my $url = $self->api . '/repos';
$content = encode_json($params);
$headers->{'content-type'} = 'application/json';
$self->log_debug("Sending POST $url");
my $response = $http->request(
'POST', $url,
{
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/GitLab/Create.pm view on Meta::CPAN
]
);
my $url = $self->api . '/projects';
$content = encode_json($params);
$headers->{'content-type'} = 'application/json';
$self->log_debug("Sending POST $url");
my $response = $http->request(
'POST', $url,
{
view release on metacpan or search on metacpan
bin/html2ps view on Meta::CPAN
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic(@_) if(@_);
$ua->agent($spoof) if($spoof);
my $res = $ua->request($req);
$code=$res->code;
$contyp=$res->header('content-type');
$cont=$res->content;
} else {
require "www.pl";
@opts=@_?("authorization=$_[0]:$_[1]"):();
push(@opts,"quiet") if(!$opt_d);
view release on metacpan or search on metacpan
cmp_ok($result->name, 'eq', 'test2-registry');
cmp_ok($result->tags->[0], 'eq', 'version1');
}
{
$io->set_content('<HTML><HEAD><meta http-equiv="content-type" content="text/html;charset=utf-8">
<TITLE>302 Moved</TITLE></HEAD><BODY>
<H1>302 Moved</H1>
The document has moved
<A HREF="https://console.cloud.google.com/m/gcr/images/redirect?project=infraestructura-global&location=EU&repo_name=v2/_catalog">here</A>.
</BODY></HTML>');
view release on metacpan or search on metacpan
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
use utf8;
package Document::OOXML::ContentTypes;
use Moose;
use namespace::autoclean;
# ABSTRACT: Part to content-type mapping for OOXML
use XML::LibXML;
my $CONTENT_TYPES_NS = 'http://schemas.openxmlformats.org/package/2006/content-types';
has defaults => (
is => 'ro',
isa => 'ArrayRef[HashRef]'
);
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
Document::OOXML::ContentTypes - Part to content-type mapping for OOXML
=head1 VERSION
version 0.181410
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
say "The content type of /word/document.xml is " . $ct->get_content_type_for_part('/word/document.xml');
=head1 DESCRIPTION
OOXML files contain a file named '[Content_Types].xml' that describes the
content-types of all the other files in the package.
This class implements a way to look up the content-type for a file name,
given the contents of that file.
=head1 METHODS
=head2 new_from_xml($xml_data)
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
Creates a new L<Document::OOXML::ContentTypes> instance from the contents
of the C</[Content-Types].xml> file from an OOXML file.
=head2 get_content_type_for_part($part_name)
Returns the content-type of the part with the specified name.
=head1 SEE ALSO
=over
view release on metacpan or search on metacpan
lib/Drogo/Guts.pm view on Meta::CPAN
my ($self, $key, $value) = @_;
$request_data{headers}{$key} = $value;
}
=head3 $self->header('content-type')
Set content type.
=cut
view release on metacpan or search on metacpan
lib/Dwimmer/Feed/Sendmail.pm view on Meta::CPAN
my $att = MIME::Lite->new(
Type => 'text',
Data => $content->{$t},
Encoding => 'quoted-printable',
);
$att->attr("content-type" => "$type{$t}; charset=UTF-8");
$att->replace("X-Mailer" => "");
$att->attr('mime-version' => '');
$att->attr('Content-Disposition' => '');
$msg->attach($att);
view release on metacpan or search on metacpan
dyncall/doc/manual/manual_tex4ht.cfg view on Meta::CPAN
% Clear default header, define our custom one. Using @HEAD will make this be used on all pages generated.
% @@@Ideally, this wouldn't be a copy&paste of the website's header, here. Such
% thing should be done in the website build, and this here a generic header
% (however, style is kinda needed).
\Configure{@HEAD}{}
\Configure{@HEAD}{\HCode{<meta http-equiv="content-type" content="text/html; charset=utf-8"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="resource-type" content="document"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="keywords" content="C, function, dynamic, call, calling, convention, VM, abstraction, closure"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="distribution" content="global"/>\Hnewline}}
% should this really rely on online content (dyncall's .css) even for an offline build? @@@ also, we need a relative path here, so this complicates things further
\Configure{@HEAD}{\HCode{<link rel="stylesheet" href="/data/main.css" type="text/css" media="all"/>\Hnewline}}
view release on metacpan or search on metacpan
lib/E/Mail/Acme.pm view on Meta::CPAN
use overload '""' => sub {
my ($self) = @_;
if (@{$self->[ @$self ]}) {
unless (($self->{'content-type'}->[0]||'') =~ qr{^multipart/}) {
warn "content-type set, but not multipart on multipart message"
if $self->{'content-type'};
delete $self->{'content-type'};
$self->{'content-type'} = qq{multipart/mixed};
}
unless ($self->{'content-type'}->[0] =~ qr{boundary="(?:[^"]+)"}) {
$self->{'content-type'}->[0] .= qq{; boundary="$self->[@$self+1]"};
}
}
join(
$CRLF,
lib/E/Mail/Acme.pm view on Meta::CPAN
Any lines in a multi-part e-mail message form the preamble, and an arrayref of
subparts is always available at the end of the e-mail -- that is, like this:
my $subparts = $e_mail->[ scalar @$e_mail ];
Nested multipart messages are handled just fine. A multipart content-type will
be added, if none has been supplied. If a multipart content-type is set, but
the boundary is not, it will be added. Do not set your own boundary unless you
know what you are doing! You will probably produce a corrupt message!
=head1 SENDING MAIL
view release on metacpan or search on metacpan
lib/EBook/FB2/Binary.pm view on Meta::CPAN
my @nodes = $node->findnodes('@id');
if (@nodes) {
$self->id($nodes[0]->getValue());
}
@nodes = $node->findnodes('@content-type');
if (@nodes) {
$self->content_type($nodes[0]->getValue());
}
# XXX: eval this, it might fail with invalid data
lib/EBook/FB2/Binary.pm view on Meta::CPAN
Returns content of binary element (base64-decoded)
=item content_type()
Returns content-type of binary element
=back
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/EBook/Ishmael/EBook/FictionBook2.pm view on Meta::CPAN
}
}
}
for my $n ($xpc->findnodes('/FictionBook:FictionBook/FictionBook:binary')) {
my $mime = $n->getAttribute('content-type');
next if not defined $mime;
my $format = mimetype_id($mime);
next if not defined $format;
push @{ $self->{_images} }, [ $n, $format ];
}
lib/EBook/Ishmael/EBook/FictionBook2.pm view on Meta::CPAN
my $href = $img->getAttribute('l:href') or last;
$href =~ s/^#//;
my ($binary) = $xpc->findnodes(
"/FictionBook:FictionBook/FictionBook:binary[\@id=\"$href\"]"
) or last;
my $mime = $binary->getAttribute('content-type');
last if not defined $mime;
my $format = mimetype_id($mime);
last if not defined $format;
$self->{_cover} = [ $binary, $format ];
}}
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;
}
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; };
view release on metacpan or search on metacpan
eg/produce_headers.pl view on Meta::CPAN
$kafka->connect(sub {
$kafka->produce('test-topic', 'event-key', '{"action":"click","page":"/home"}',
{
headers => {
'content-type' => 'application/json',
'trace-id' => 'abc-123-def',
'source' => 'web-frontend',
},
},
sub {
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$/)
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;
}
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 ) {
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
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
view release on metacpan or search on metacpan
lib/Email/Abuse/Investigator.pm view on Meta::CPAN
map { $_->{value} }
grep { $_->{name} eq 'received' } @headers
];
# Determine content type and transfer encoding from top-level headers
my ($ct_h) = grep { $_->{name} eq 'content-type' } @headers;
my ($cte_h) = grep { $_->{name} eq 'content-transfer-encoding' } @headers;
my $ct = defined $ct_h ? $ct_h->{value} : '';
my $cte = defined $cte_h ? $cte_h->{value} : '';
# Decode multipart or single-part body as appropriate
lib/Email/Abuse/Investigator.pm view on Meta::CPAN
my %phdr;
for my $line (split /\r?\n/, $phdr_block) {
$phdr{ lc($1) } = $2 if $line =~ /^([\w-]+)\s*:\s*(.*)/;
}
my $pct = $phdr{'content-type'} // '';
my $pcte = $phdr{'content-transfer-encoding'} // '';
# Nested multipart/* must be recursed into; without this URLs in
# multipart/alternative inside multipart/mixed would be missed.
if ($pct =~ /multipart/i) {
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
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;
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
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
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
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