view release on metacpan or search on metacpan
lib/HTTP/Tiny/FileProtocol.pm view on Meta::CPAN
success => $success,
status => $status,
( !$success ? (reason => $reason) : () ),
content => $content // '',
headers => {
'content-type' => $content_type,
'content-length' => $bytes // 0,
},
};
return $response;
view release on metacpan or search on metacpan
lib/HTTP/Tiny/Multipart.pm view on Meta::CPAN
}
# Add boundary to Content-Type header
my $before = 'multipart/form-data';
my $after = '';
if( defined $headers->{'content-type'} ) {
if( $headers->{'content-type'} =~ m!^(.*multipart/[^;]+)(.*)$! ) {
$before = $1;
$after = $2;
}
}
$headers->{'content-type'} = "$before; boundary=$boundary$after";
return "--$boundary\x0d\x0a";
}
sub _build_content {
view release on metacpan or search on metacpan
lib/HTTP/Tinyish/Base.pm view on Meta::CPAN
sub internal_error {
my($self, $url, $message) = @_;
return {
content => $message,
headers => { "content-length" => length($message), "content-type" => "text/plain" },
reason => "Internal Exception",
status => 599,
success => "",
url => $url,
};
view release on metacpan or search on metacpan
lib/HTTP/WebTest/Plugin/SetRequest.pm view on Meta::CPAN
# set request method (with default GET)
if(defined $method) {
if($method =~ /^POST$/i) {
$request->method('POST');
# ensure correct default value for content-type header
$request->header(Content_Type =>
'application/x-www-form-urlencoded');
} else {
$request->method('GET');
}
view release on metacpan or search on metacpan
lib/HTTP/XSHeaders.pm view on Meta::CPAN
HTTP::Date::str2time($old);
}
sub content_type {
my $self = shift;
my $ct = $self->header('content-type');
$self->header('content-type', shift) if @_;
$ct = $ct->[0] if ref($ct) eq 'ARRAY';
return '' unless defined($ct) && length($ct);
my @ct = split( /;\s*/, $ct, 2 );
for ( $ct[0] ) {
s/\s+//g;
lib/HTTP/XSHeaders.pm view on Meta::CPAN
return @res;
}
sub content_type_charset {
my $self = shift;
my $h = $self->header('content-type');
$h = $h->[0] if ref($h);
$h = "" unless defined $h;
my @v = _split_header_words($h);
if (@v) {
my($ct, undef, %ct_param) = @{$v[0]};
view release on metacpan or search on metacpan
lib/Haineko/SMTPD/Relay/AmazonSES.pm view on Meta::CPAN
'timeout' => $self->{'timeout'},
'ssl_opts' => { 'SSL_verify_mode' => 0 },
'headers' => [
'date' => $datestring,
'host' => SES_ENDPOINT,
'content-type' => 'application/x-www-form-urlencoded',
'if-ssl-cert-subject' => sprintf( "/CN=%s", SES_ENDPOINT ),
'x-amzn-authorization' => sprintf( "AWS3-HTTPS %s", $authheader ),
],
};
my $httpclient = Furl->new( %$methodargv );
view release on metacpan or search on metacpan
t/jekyll_test_source/_layouts/default.html view on Meta::CPAN
<!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" xml:lang="en" lang="en-us">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>{{ page.title }}</title>
<meta name="author" content="<%= @page.author %>" />
<!-- CodeRay syntax highlighting CSS -->
<link rel="stylesheet" href="/css/coderay.css" type="text/css" />
view release on metacpan or search on metacpan
share/root/wrapper.tt view on Meta::CPAN
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>hopkins HMI[% IF page.title %] - [% page.title %][% END %]</title>
<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
<meta name="description" content="hopkins HMI" />
<meta name="robots" content="index, follow, noarchive" />
<meta name="googlebot" content="noarchive" />
[% IF 0 && page.refresh %]
<meta http-equiv="refresh" content="[% page.refresh %];url=[% c.req.uri %]" />
view release on metacpan or search on metacpan
lib/Horris/Connection/Plugin/PeekURL.pm view on Meta::CPAN
channel => $msg->channel,
message => "Request failed: $headers->{Reason} ($headers->{Status})",
});
return;
}
@ct = split(/\s*,\s*/, $headers->{'content-type'});
if (grep { /^image\/.+$/i } @ct) {
$ct = 1;
} elsif ( grep { !/^text\/.+$/i } @ct) {
# otherwise it's something we don't know about.
# don't spend the time and memory to load this guy
view release on metacpan or search on metacpan
0.1.9 Mon Jul 21 13:42:23 2014 KST
- update dzil profile
- added jira web hook event listner
- updated readme
- added <3 script
- using content-type application/json
0.1.8 Fri Feb 14 01:46:35 2014 KST
- [bugzilla] speak quicksearch url
- [githubissue] added
- perltidy all scripts
view release on metacpan or search on metacpan
lib/Hubot/Scripts/shorten.pm view on Meta::CPAN
)->get(
sub {
my ( $body, $hdr ) = @_;
return if ( !$body || !$hdr->{Status} =~ /^2/ );
## content-type
my @ct = split( /\s*,\s*/, $hdr->{'content-type'} );
if ( grep {/^image\/.+$/i} @ct || grep { !/text/i } @ct ) {
return $msg->send("[$ct[0]] - $bitly");
}
### charset
view release on metacpan or search on metacpan
lib/Hyper/Developer/Server.pm view on Meta::CPAN
eval {
my $svg = Hyper::Developer::Model::Viewer->new({
for_class => $class,
})->create_graph()->as_svg();
print <<"EOT";
content-type:image/svg+xml
<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg xmlns="http://www.w3.org/2000/svg"
xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:ev="http://www.w3.org/2001/xml-events"
lib/Hyper/Developer/Server.pm view on Meta::CPAN
my $namespace = $config->get_namespace();
my $base_path = $config->get_base_path();
eval {
# Child
print "content-type:text/html; charset=utf-8\n\n";
my @flow_controls;
my @container_controls;
find(
sub {
m{.ini\Z} or return;
view release on metacpan or search on metacpan
lib/Hypersonic/Protocol/HTTP2.pm view on Meta::CPAN
->line(' snprintf(status_buf, sizeof(status_buf), "%d", status);')
->line(' ')
->line(' /* Submit HTTP/2 response headers */')
->line(' nghttp2_nv hdrs[] = {')
->line(' { (uint8_t*)":status", (uint8_t*)status_buf, 7, strlen(status_buf), NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-type", (uint8_t*)ct, 12, strlen(ct), NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-length", (uint8_t*)cl_buf, 14, strlen(cl_buf), NGHTTP2_NV_FLAG_NONE },')
->line(' };')
->line(' ')
->line(' /* Create data provider for body */')
->line(' nghttp2_data_provider data_prd;')
lib/Hypersonic/Protocol/HTTP2.pm view on Meta::CPAN
->line('static void h2_send_404(nghttp2_session* session, int32_t stream_id) {')
->line(' static const char* body = "Not Found";')
->line(' ')
->line(' nghttp2_nv hdrs[] = {')
->line(' { (uint8_t*)":status", (uint8_t*)"404", 7, 3, NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-type", (uint8_t*)"text/plain", 12, 10, NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-length", (uint8_t*)"9", 14, 1, NGHTTP2_NV_FLAG_NONE },')
->line(' };')
->line(' ')
->line(' nghttp2_data_provider data_prd;')
->line(' data_prd.source.ptr = (void*)body;')
lib/Hypersonic/Protocol/HTTP2.pm view on Meta::CPAN
->line(' char status_str[4];')
->line(' snprintf(status_str, sizeof(status_str), "%d", status);')
->line(' ')
->line(' nghttp2_nv hdrs[] = {')
->line(' { (uint8_t*)":status", (uint8_t*)status_str, 7, strlen(status_str), NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-type", (uint8_t*)content_type, 12, strlen(content_type), NGHTTP2_NV_FLAG_NONE },')
->line(' };')
->line(' ')
->line(' /* Submit headers WITHOUT END_STREAM - more DATA frames to come */')
->line(' int rv = nghttp2_submit_headers(session, NGHTTP2_FLAG_END_HEADERS,')
->line(' stream_id, NULL, hdrs, 2, NULL);')
view release on metacpan or search on metacpan
lib/Hypothesis/API.pm view on Meta::CPAN
}
my $data = $json->encode($payload_out);
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
'X-Annotator-Auth-Token' => $self->token,
);
$self->ua->default_headers( $h );
my $url = URI->new( "${\$self->api_url}/annotations" );
lib/Hypothesis/API.pm view on Meta::CPAN
warn "No id given to delete.\n";
return 0;
}
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
'X-Annotator-Auth-Token' => $self->token,
);
$self->ua->default_headers( $h );
my $url = URI->new( "${\$self->api_url}/annotations/$id" );
lib/Hypothesis/API.pm view on Meta::CPAN
return -1;
}
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
);
$self->ua->default_headers( $h );
my $payload = {
username => $self->username,
lib/Hypothesis/API.pm view on Meta::CPAN
sub search {
my ($self, $query, $page_size) = @_;
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
);
if (not defined $query) {
$query = {};
}
lib/Hypothesis/API.pm view on Meta::CPAN
#
my ($self, $query, $page_size) = @_;
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
);
if (not defined $query) {
$query = {};
}
lib/Hypothesis/API.pm view on Meta::CPAN
die "Can only call update if given an id.";
}
my $data = $json->encode($payload);
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
'X-Annotator-Auth-Token' => $self->token,
);
$self->ua->default_headers( $h );
my $url = URI->new( "${\$self->api_url}/annotations/$id" );
view release on metacpan or search on metacpan
lib/IDS/DataSource/HTTP.pm view on Meta::CPAN
# 14.12 Content-Language; simple and already handled by key+value
'content-length' => 'IDS::DataSource::HTTP::Int', # 14.13
# 14.14 Content-Location likely to be server->client
'content-md5' => 'IDS::DataSource::HTTP::MD5', # 14.15
# 14.16 Content-Range is server->client
'content-type' => 'IDS::DataSource::HTTP::Accept', # 14.17
'date' => 'IDS::DataSource::HTTP::Date', # 14.18
'etag' => 'IDS::DataSource::HTTP::ETag', # 14.19
'expect' => 'IDS::DataSource::HTTP::Expectation', # 14.20
'expires' => 'IDS::DataSource::HTTP::Date', # 14.21
'from' => 'IDS::DataSource::HTTP::EmailAddr', # 14.22
view release on metacpan or search on metacpan
t/09annotations.t view on Meta::CPAN
use IMAP::Client;
my $client = IMAP::Client->new;
my @getannotation_response = ('* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/lastupdate" ("value.shared" "19-Sep-2006 12:51:07 -0400" "content-type.shared" "text/plain" "size.shared" "26")'."\r\n",
'* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/size" ("value.shared" "4424" "content-type.shared" "text/plain" "size.shared" "4")'."\r\n",
'* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/partition" ("value.shared" "default" "content-type.shared" "text/plain" "size.shared" "7")'."\r\n",
'* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/server" ("value.shared" "imapbackend.server1.com" "content-type.shared" "text/plain" "size.shared" "23")'."\r\n",
'. OK Completed'."\r\n",);
my %resp = IMAP::Client::parse_annotation(\@getannotation_response ,'user.emailj',$client);
is (scalar (keys %resp), 1);
view release on metacpan or search on metacpan
lib/IO/HTML.pm view on Meta::CPAN
} # Skip comment
elsif (m!\G<meta(?=[\x09\x0A\x0C\x0D /])!gic) {
my ($got_pragma, $need_pragma, $charset);
while (my ($name, $value) = &_get_attribute) {
if ($name eq 'http-equiv' and $value eq 'content-type') {
$got_pragma = 1;
} elsif ($name eq 'content' and not defined $charset) {
$need_pragma = $expect_pragma
if defined($charset = _get_charset_from_meta($value));
} elsif ($name eq 'charset') {
view release on metacpan or search on metacpan
lib/IO/HyCon.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></title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:support@citrusperl.org" />
</head>
<body>
view release on metacpan or search on metacpan
html/lib/IO/Moose.html view on Meta::CPAN
<!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>IO::Moose - Reimplementation of IO::* with improvements</title>
<link rel="stylesheet" href="../../../Active.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:support@ActiveState.com" />
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="3">
view release on metacpan or search on metacpan
lib/IO/Socket/SSL.pm view on Meta::CPAN
# the info given when the version is zero is not that useful for us
$ssl_ver >>= 8; # check the upper 8 bits only below */
# SSLv2 doesn't seem to have TLS record-type headers, so OpenSSL
# always pass-up content-type as 0. But the interesting message-type
# is at 'buf[0]'.
my $tls_rt_name = ($ssl_ver == $trace_constants{SSL3_VERSION_MAJOR} && $content_type)
? $tc_type2s{$content_type} || "TLS Unknown (type=$content_type)"
: "";
view release on metacpan or search on metacpan
examples/chart_users_cron.pl view on Meta::CPAN
## You'll get a HTTP::Response object.
if ($response->is_success) {
my $zipped = $response->content;
## Should've gotten gzipped JSON back.
die "Unknown content-type: ".$response->content_type
unless $response->content_type eq 'application/x-gzip';
my $json = memGunzip($zipped);
my $netinfo = decode_json($json);
my $user_count = $netinfo->{GlobalUsers} // 0;
view release on metacpan or search on metacpan
lib/Image/ExifTool/HTML.pm view on Meta::CPAN
'content-disposition' => { Name => 'ContentDisposition' },
'content-language' => { Name => 'ContentLanguage' },
'content-script-type' => { Name => 'ContentScriptType' },
'content-style-type' => { Name => 'ContentStyleType' },
# note: setting the HTMLCharset like this will miss any tags which come earlier
'content-type' => { Name => 'ContentType', RawConv => \&SetHTMLCharset },
'default-style' => { Name => 'DefaultStyle' },
expires => { },
'ext-cache' => { Name => 'ExtCache' },
imagetoolbar => { Name => 'ImageToolbar' },
lotus => { },
view release on metacpan or search on metacpan
Tileset.html view on Meta::CPAN
<!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>Image::Tileset - A tileset loader.</title>
<link rel="stylesheet" href="pod.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@localhost" />
</head>
<body>
view release on metacpan or search on metacpan
examples/basic_example.pl view on Meta::CPAN
$h->meta({
'http-equiv' => 'expires',
'content' => '-1',
}),
$h->meta({
'http-equiv' => 'content-type',
'content' => 'text/html; charset=UTF-8',
}),
$h->title('Image::VisualConfirmation CAPTCHA integration demo'),
]),
$h->body([
view release on metacpan or search on metacpan
lib/Imager/Files.pod view on Meta::CPAN
set STDOUT to autoflush
=item 2.
output a content-type header, and optionally a content-length header
=item 3.
put STDOUT into binmode
view release on metacpan or search on metacpan
lib/Installer/cpanm.pm view on Meta::CPAN
$fatpacked{"File/pushd.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.009';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub {...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.056';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers http_proxy https_proxy keep_alive local_address max_redirect max_size proxy no_proxy timeout SSL_options verif...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
view release on metacpan or search on metacpan
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'application/json',
Content => $json->encode($url_list),
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'application/json',
Content => $json->encode({'text1' => $text1, 'text2' => $text2}),
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->get(
$uri_obj,
'content-type' => 'application/json',
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'multipart/form-data',
Content => [path($file)->basename => [$file,] ],
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'multipart/form-data',
Content => [ path($file1)->basename =>[$file1],
path($file2)->basename =>[$file2] ],
)
);
}
view release on metacpan or search on metacpan
lib/JMAP/Tester.pm view on Meta::CPAN
#pod my $result = $tester->upload(\%arg);
#pod
#pod Required arguments are:
#pod
#pod accountId - the account for which we're uploading (no default)
#pod type - the content-type we want to provide to the server
#pod blob - the data to upload. Must be a reference to a string
#pod
#pod This uploads the given blob.
#pod
#pod The return value will either be a L<failure
lib/JMAP/Tester.pm view on Meta::CPAN
#pod
#pod The first hashref provides values that go into the download URI:
#pod
#pod blobId - the blob to download (no default)
#pod accountId - the account for which we're downloading (no default)
#pod type - the content-type we want the server to provide back (no default)
#pod name - the name we want the server to provide back (default: "download")
#pod
#pod If the download URI template has a C<blobId>, C<accountId>, or C<type>
#pod placeholder but no argument for that is given to C<download>, an exception
#pod will be thrown.
lib/JMAP/Tester.pm view on Meta::CPAN
my $result = $tester->upload(\%arg);
Required arguments are:
accountId - the account for which we're uploading (no default)
type - the content-type we want to provide to the server
blob - the data to upload. Must be a reference to a string
This uploads the given blob.
The return value will either be a L<failure
lib/JMAP/Tester.pm view on Meta::CPAN
The first hashref provides values that go into the download URI:
blobId - the blob to download (no default)
accountId - the account for which we're downloading (no default)
type - the content-type we want the server to provide back (no default)
name - the name we want the server to provide back (default: "download")
If the download URI template has a C<blobId>, C<accountId>, or C<type>
placeholder but no argument for that is given to C<download>, an exception
will be thrown.
view release on metacpan or search on metacpan
lib/JQuery/jquery_js/jquery/jquery-latest.js view on Meta::CPAN
} catch(e){}
return false;
},
/* Get the data out of an XMLHttpRequest.
* Return parsed XML if content-type header is "xml" and type is "xml" or omitted,
* otherwise return plain text.
* (String) data - The type of data that you're expecting back,
* (e.g. "xml", "html", "script")
*/
httpData: function( r, type ) {
var ct = r.getResponseHeader("content-type");
var data = !type && ct && ct.indexOf("xml") >= 0;
data = type == "xml" || data ? r.responseXML : r.responseText;
// If the type is "script", eval it in global context
if ( type == "script" )
view release on metacpan or search on metacpan
JRPC/Client.pm view on Meta::CPAN
Factory method to instantiate and prepare a new JSON-RPC request to a URL. Options in %opts:
=over 4
=item * 'mime' - Mime content-type for request (default: 'application/json')
=item * 'debug' - Dump Request after instantiation (to STDERR).
=back