view release on metacpan or search on metacpan
lib/Ceph/RadosGW/Admin/HTTPRequest.pm view on Meta::CPAN
my ( $self, $method, $path, $headers, $expires ) = @_;
my %interesting_headers = ();
while ( my ( $key, $value ) = each %$headers ) {
my $lk = lc $key;
if ( $lk eq 'content-md5'
or $lk eq 'content-type'
or $lk eq 'date'
or $lk =~ /^$AMAZON_HEADER_PREFIX/ )
{
$interesting_headers{$lk} = $self->_trim($value);
}
view release on metacpan or search on metacpan
examples/flickr.pl view on Meta::CPAN
warn "$headers->{Status} $headers->{Reason}";
return;
}
# Load the image with a Pixbuf Loader
my ($mime) = split(/\s*;/, $headers->{'content-type'}, 1);
my $loader = Gtk2::Gdk::PixbufLoader->new_with_mime_type($mime);
$loader->write($content);
$loader->close;
my $pixbuf = $loader->get_pixbuf;
view release on metacpan or search on metacpan
agent/skills/chorus-import-project.md view on Meta::CPAN
def probe_claude(api_key):
payload = {"model": "claude-haiku-4-5", "max_tokens": 1,
"messages": [{"role": "user", "content": "ping"}]}
headers = {"x-api-key": api_key, "anthropic-version": "2023-06-01",
"content-type": "application/json"}
try:
req = urllib.request.Request("https://api.anthropic.com/v1/messages",
data=json.dumps(payload).encode(), headers=headers, method="POST")
urllib.request.urlopen(req, timeout=10)
return True
agent/skills/chorus-import-project.md view on Meta::CPAN
{"type": "text", "text": f"[Page {page_num}, Figure {fig_idx}]\n\n{FIGURE_PROMPT}"},
{"type": "image", "source": {"type": "base64", "media_type": "image/png", "data": b64}},
]}]
}
headers = {"x-api-key": api_key, "anthropic-version": "2023-06-01",
"content-type": "application/json"}
for attempt in range(4):
r = _req.Request("https://api.anthropic.com/v1/messages",
data=_json.dumps(payload).encode(), headers=headers, method="POST")
try:
with _req.urlopen(r, timeout=120) as resp:
view release on metacpan or search on metacpan
examples/site/01 Linux at Home/10_Snapshots_Save.shtml view on Meta::CPAN
<head>
<!-- ======================================================= -->
<!-- Created by AbiWord, a free, Open Source wordprocessor. -->
<!-- For more information visit http://www.abisource.com. -->
<!-- ======================================================= -->
<meta http-equiv="content-type" content="text/html;charset=UTF-8" />
<title>Snapshots Save</title>
<meta name="Author" content="jo" />
<link href="10_Snapshots_Save.shtml/styles.css" rel="stylesheet" type="text/css" />
</head>
<body>
view release on metacpan or search on metacpan
=item * $object->Content_Noheader
# Assign object to another object with no Content Type header
# Can be used to view an object without the header
# This should not be sent to the phone since the phone needs a content-type
$myobject = $object->Content_Noheader;
=back
view release on metacpan or search on metacpan
lib/Class/DBI/Factory/Mailer.pm view on Meta::CPAN
sub send_message {
my ( $self, $instructions ) = @_;
$self = $self->new unless ref $self;
return unless $instructions->{subject} && $instructions->{to};
$instructions->{from} ||= $self->config->get('mail_from');
$instructions->{'content-type'} ||= ($instructions->{as_html}) ? 'text/html; charset="iso-8859-1"' : 'text/plain';
my $message;
my $header = join("\n", map("$_: " . $instructions->{lc($_)}, qw(To From Subject Content-Type)));
$header .= "\n\n";
view release on metacpan or search on metacpan
README.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>ClearCase::Argv README</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">
view release on metacpan or search on metacpan
SYNCTREE.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>synctree - Normalize a tree of flat files with a tree of ClearCase elements</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">
view release on metacpan or search on metacpan
lib/ClearPress/controller.pm view on Meta::CPAN
my $charset = $viewobject->charset();
$charset = ($charset && !exists $ENV{REDIRECT_STATUS}) ? qq[;charset=$charset] : q[];
my $content_type = sprintf q[%s%s], $viewobject->content_type(), $charset;
#########
# update the content-type/charset with whatever the view determined was right for the response
#
$headers->header('Content-Type', $content_type);
if($decor) {
# if($content_type =~ /text/smx && $charset =~ /utf-?8/smix) {
view release on metacpan or search on metacpan
eg/etl_dbi.pl view on Meta::CPAN
my $writer = sub {
my $body = shift;
my $resp = $http->post($url, {
content => $body,
headers => { 'content-type' => 'application/octet-stream' },
});
die "insert failed (status $resp->{status}): $resp->{content}\n"
unless $resp->{success};
};
view release on metacpan or search on metacpan
examples/jquery-1.6.2.min.js view on Meta::CPAN
* Copyright 2011, The Dojo Foundation
* Released under the MIT, BSD, and GPL Licenses.
*
* Date: Thu Jun 30 14:16:56 2011 -0400
*/
(function(a,b){function cv(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cs(a){if(!cg[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){ch||(ch=c.createElement("ifram...
shift(),i.sort());if(!!e&&!f.event.customEvent[h]||!!f.event.global[h]){c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.exclusive=j,c.namespace=i.join("."),c.namespace_re=new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\...
)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d=a.cloneNode(!0),e,g,h;if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bi(a,d),e=bj(a),g=bj(d);for(h=0;e[h];++...
view release on metacpan or search on metacpan
lib/CljPerl/quoi/default_template.clp view on Meta::CPAN
(defmacro default-template [title xml]
`(fn [S]
#[html
^{:xmlns "http://www.w3.org/1999/xhtml"}
#[head
#[meta ^{:http-equiv "content-type" :content "text/html; charset=UTF-8"}]
#[meta ^{:name "description" :content ""}]
#[meta ^{:name "keywords" :content ""}]
#[title ~title]
#[script ^{:id "jquery"
:src "/javascripts/jquery-1.9.1.min.js"
view release on metacpan or search on metacpan
lib/Clustericious/Client.pm view on Meta::CPAN
}
if ($res->is_success) {
TRACE "Got response : ".$res->to_string;
my $content_type = $res->headers->content_type || do {
WARN "No content-type from "._sanitize_url($url);
"text/plain";
};
return $method =~ /HEAD|DELETE/ ? 1
: $content_type =~ qr[application/json] ? decode_json($res->body)
: $res->body;
view release on metacpan or search on metacpan
share/js/jquery-1.11.3.js view on Meta::CPAN
return target;
}
/* Handles responses to an ajax request:
* - finds the right dataType (mediates between content-type and expected dataType)
* - returns the corresponding response
*/
function ajaxHandleResponses( s, jqXHR, responses ) {
var firstDataType, ct, finalDataType, type,
contents = s.contents,
dataTypes = s.dataTypes;
// Remove auto dataType and get content-type in the process
while ( dataTypes[ 0 ] === "*" ) {
dataTypes.shift();
if ( ct === undefined ) {
ct = s.mimeType || jqXHR.getResponseHeader("Content-Type");
}
}
// Check if we're dealing with a known content-type
if ( ct ) {
for ( type in contents ) {
if ( contents[ type ] && contents[ type ].test( ct ) ) {
dataTypes.unshift( type );
break;
share/js/jquery-1.11.3.js view on Meta::CPAN
requestHeaders[ name ] = value;
}
return this;
},
// Overrides response content-type header
overrideMimeType: function( type ) {
if ( !state ) {
s.mimeType = type;
}
return this;
view release on metacpan or search on metacpan
share/web/templates/_elements/header view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<meta name="robots" content="all" />
<title><% _($title) %></title>
<% Jifty->web->include_css %>
view release on metacpan or search on metacpan
t/app/Plack/App/Directory.t view on Meta::CPAN
},
branch { '=',
left => leaf '$dir_page',
right => leaf '<html><head>
<title>%s</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<style type=\'text/css\'>
table { width:100%%; }
.name { text-align:left; }
.size, .mtime { text-align:right; }
.type { width:11em; }
t/app/Plack/App/Directory.t view on Meta::CPAN
# Stolen from rack/directory.rb
my $dir_file = "<tr><td class='name'><a href='%s'>%s</a></td><td class='size'>%s</td><td class='type'>%s</td><td class='mtime'>%s</td></tr>";
my $dir_page = <<PAGE;
<html><head>
<title>%s</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<style type='text/css'>
table { width:100%%; }
.name { text-align:left; }
.size, .mtime { text-align:right; }
.type { width:11em; }
view release on metacpan or search on metacpan
ext/zstd/contrib/largeNbDicts/README.md view on Meta::CPAN
--nbDicts=# : create # dictionaries for bench (default: one per block)
-h : help (this text)
Advanced Options (see zstd.h for documentation) :
--dedicated-dict-search
--dict-content-type=#
--dict-attach-pref=#
```
view release on metacpan or search on metacpan
examples/fatpacked.plackup view on Meta::CPAN
# Stolen from rack/directory.rb
my $dir_file = "<tr><td class='name'><a href='%s'>%s</a></td><td class='size'>%s</td><td class='type'>%s</td><td class='mtime'>%s</td></tr>";
my $dir_page = <<PAGE;
<html><head>
<title>%s</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<style type='text/css'>
table { width:100%%; }
.name { text-align:left; }
.size, .mtime { text-align:right; }
.type { width:11em; }
examples/fatpacked.plackup view on Meta::CPAN
my $hdrs = ($status >= 200 && $status < 300)
? $r->headers_out : $r->err_headers_out;
Plack::Util::header_iter($headers, sub {
my($h, $v) = @_;
if (lc $h eq 'content-type') {
$r->content_type($v);
} else {
$hdrs->add($h => $v);
}
});
examples/fatpacked.plackup view on Meta::CPAN
my $hdrs = ($status >= 200 && $status < 300)
? $r->headers_out : $r->err_headers_out;
Plack::Util::header_iter($headers, sub {
my($h, $v) = @_;
if (lc $h eq 'content-type') {
$r->content_type($v);
} elsif (lc $h eq 'content-length') {
$r->set_content_length($v);
} else {
$hdrs->add($h => $v);
examples/fatpacked.plackup view on Meta::CPAN
Utility functions to manipulate PSGI response headers array
reference. The methods that read existent header value handles header
name as case insensitive.
my $hdrs = [ 'Content-Type' => 'text/plain' ];
my $v = Plack::Util::header_get($hdrs, 'content-type'); # 'text/plain'
=item headers
my $headers = [ 'Content-Type' => 'text/plain' ];
view release on metacpan or search on metacpan
lib/Contenticious.pm view on Meta::CPAN
<!doctype html>
<html>
<head>
% my $t = join ' - ' => grep { $_ } stash('title'), config('name');
<title><%= $t || 'contenticious!' %></title>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<link rel="stylesheet" type="text/css" href="<%= rel_url_for 'styles.css' %>">
</head>
<body>
<div id="top">
<div id="inner">
view release on metacpan or search on metacpan
lib/Continuity/Adapt/HttpDaemon.pm view on Meta::CPAN
return "$docroot$path";
}
=head2 C<< $adapter->send_static($request) >>
Sends a static file off of the filesystem. The content-type is guessed by
HTTP::Daemon, plus we specifically tell it how to do png, css, and js.
This may be obvious, but you can't send binary data as part of the same request
that you've already sent text or HTML on, MIME aside. Thus either this is
called OR we invoke a continuation, but not both.
lib/Continuity/Adapt/HttpDaemon.pm view on Meta::CPAN
XXX todo: understands GET parameters and POST in
application/x-www-form-urlencoded format, but not POST data in
multipart/form-data format. Use the AsCGI thing if you actually really need
that (it's used for file uploads).
# XXX check request content-type, if it isn't x-form-data then throw an error
# XXX pass in multiple param names, get back multiple param values
Delegates requests off to the request object it was initialized from.
In other words: Continuity::Adapt::HttpDaemon is the ongoing running HttpDaemon
view release on metacpan or search on metacpan
lib/Convert/BinHex.pm view on Meta::CPAN
=item creator [VALUE]
I<Instance method.>
Get/set the creator of the file. This is a four-character
string (though I don't know if it's guaranteed to be printable ASCII!)
that serves as part of the Macintosh's version of a MIME "content-type".
For example, a document created by "Canvas" might have
creator C<"CNVS">.
=cut
lib/Convert/BinHex.pm view on Meta::CPAN
=item type [VALUE]
I<Instance method.>
Get/set the type of the file. This is a four-character
string (though I don't know if it's guaranteed to be printable ASCII!)
that serves as part of the Macintosh's version of a MIME "content-type".
For example, a GIF89a file might have type C<"GF89">.
=cut
view release on metacpan or search on metacpan
lib/Convert/BulkDecoder.pm view on Meta::CPAN
$self->{_md5}->add($t) if $self->{md5};
next;
}
# Check for MIME.
if ( m;^content-type:.*(image/|multipart);i ) {
return 'M'; # MIME
}
if ( m/^=ybegin\s+.*\s+name=(.+)/i ) {
return "Y$1"; # yEnc
view release on metacpan or search on metacpan
lib/Convos/public/js/jquery.js view on Meta::CPAN
return target;
}
/* Handles responses to an ajax request:
* - finds the right dataType (mediates between content-type and expected dataType)
* - returns the corresponding response
*/
function ajaxHandleResponses( s, jqXHR, responses ) {
var firstDataType, ct, finalDataType, type,
contents = s.contents,
dataTypes = s.dataTypes;
// Remove auto dataType and get content-type in the process
while ( dataTypes[ 0 ] === "*" ) {
dataTypes.shift();
if ( ct === undefined ) {
ct = s.mimeType || jqXHR.getResponseHeader("Content-Type");
}
}
// Check if we're dealing with a known content-type
if ( ct ) {
for ( type in contents ) {
if ( contents[ type ] && contents[ type ].test( ct ) ) {
dataTypes.unshift( type );
break;
lib/Convos/public/js/jquery.js view on Meta::CPAN
requestHeaders[ name ] = value;
}
return this;
},
// Overrides response content-type header
overrideMimeType: function( type ) {
if ( !state ) {
s.mimeType = type;
}
return this;
view release on metacpan or search on metacpan
lib/Couch/DB/Document.pod view on Meta::CPAN
[CouchDB API "GET /{db}/{docid}/{attname}", UNTESTED]
Load the data of the attachment into this Document.
If the content-type of the attachment is C<application/octet-stream>,
then you can use the C<Accept-Ranges> header (option C<_header>) to
select bytes inside the attachement.
=item $obj-E<gt>B<attSave>($name, $data, %options)
view release on metacpan or search on metacpan
lib/Courriel/Headers.pm view on Meta::CPAN
my $class = shift;
my $name = shift;
my $value = shift;
my ( $header_class, $method )
= lc $name eq 'content-type'
? ( 'Courriel::Header::ContentType', 'new_from_value' )
: lc $name eq 'content-disposition'
? ( 'Courriel::Header::Disposition', 'new_from_value' )
: ( 'Courriel::Header', 'new' );
view release on metacpan or search on metacpan
lib/CrawlerCommons/RobotRulesParser.pm view on Meta::CPAN
The text content of the robots.txt file to be parsed.
=item * C<$content_type>
The content-type of the robots.txt content to be parsed. Assumes text/plain by
default. If type is text/html, the parser will attempt to strip-out html tags
from the content.
=item * C<$robot_name>
view release on metacpan or search on metacpan
lib/Crypt/LE.pm view on Meta::CPAN
$resp = defined $payload ? $self->{ua}->post($url, { headers => $headers, content => $self->_jws($payload, $url, $opts) }) :
$self->{ua}->post($url, { headers => $headers });
} else {
$resp = $self->{ua}->$method($url);
}
my $slurp = ($resp->{headers}->{'content-type'} and $resp->{headers}->{'content-type'}=~/^application\/(?:problem\+)?json/) ? 0 : 1;
$self->_debug($slurp ? $resp->{headers} : $resp);
$self->{nonce} = $resp->{headers}->{'replay-nonce'} if $resp->{headers}->{'replay-nonce'};
my ($status, $rv) = ($resp->{status}, $resp->{content});
unless ($slurp) {
eval {
view release on metacpan or search on metacpan
ppmhtml/site/lib/Crypt/MatrixSSL.html view on Meta::CPAN
<script language="JavaScript" src="../../../tocParas.js"></script>
<script language="JavaScript" src="../../../tocTab.js"></script>
<link rel="stylesheet" type="text/css" href="../../../scineplex.css">
<title>Crypt::MatrixSSL - Perl extension for SSL and TLS using MatrixSSL.org</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:" />
</head>
<body>
view release on metacpan or search on metacpan
lib/Curl/Impersonate.pm view on Meta::CPAN
use Curl::Impersonate;
# synchronous
my $c = Curl::Impersonate->new(impersonate => 'chrome131', timeout => 20);
my $res = $c->get('https://example.com/');
# $res = { status => 200, headers => { 'content-type' => '...' }, body => '...' }
my $post = $c->request(
method => 'POST',
url => 'https://example.com/api',
headers => { 'content-type' => 'application/json' },
body => '{"hello":"world"}',
);
# which browsers can I be?
my @targets = Curl::Impersonate->targets;