view release on metacpan or search on metacpan
lib/Froody/DocServer.pm view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<!-- this document is auto-generated. Do not edit. -->
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Froody Server Documentation</title>
<style>
body {
font-family: Verdana, Arial, Helvetica, sans-serif;
background-color: #FFFFFF;
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>Fsdb - a flat-text database for shell scripting</title>
<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
lib/Furl/S3.pm view on Meta::CPAN
my( $self, $method, $resource, $headers ) = @_;
$headers ||= {};
my %headers_to_sign;
while (my($k, $v) = each %{$headers}) {
my $key = lc $k;
if ( $key =~ /^(content-md5|content-type|date|expires)$/ or
$key =~ /^x-amz-/ ) {
$headers_to_sign{$key} = _trim($v);
}
}
my $str = "$method\n";
$str .= $headers_to_sign{'content-md5'} || '';
$str .= "\n";
$str .= $headers_to_sign{'content-type'} || '';
$str .= "\n";
$str .= $headers_to_sign{'expires'} || $headers_to_sign{'date'} || '';
$str .= "\n";
for my $key( sort grep { /^x-amz-/ } keys %headers_to_sign ) {
$str .= "$key:$headers_to_sign{$key}\n";
lib/Furl/S3.pm view on Meta::CPAN
$headers ||= +{};
$furl_options ||= +{};
my %h;
while (my($key, $val) = each %{$headers}) {
$key =~ s/_/-/g; # content_type => content-type
$h{lc($key)} = $val
}
if ( !$h{'expires'} && !$h{'date'} ) {
$h{'date'} = time2str(time);
}
lib/Furl/S3.pm view on Meta::CPAN
{ type => HASHREF, optional => 1 } );
$headers ||= {};
my $has_ct = 0;
for my $key( keys %{$headers} ) {
if (lc($key) =~ qr/^(content_type|content-type)$/) {
$has_ct = 1;
last ;
}
}
unless ( $has_ct ) {
lib/Furl/S3.pm view on Meta::CPAN
if ( my $etag = $res{'etag'} ) {
$res{etag} = _remove_quote( $etag );
}
# make aliases
$res{content_length} = $res{'content-length'};
$res{content_type} = $res{'content-type'};
$res{last_modified} = $res{'last-modified'};
unless ( $is_head ) {
$res{content} = $res->{body};
}
return \%res;
view release on metacpan or search on metacpan
t/400_components/01_headers.t view on Meta::CPAN
my $h = Furl::Headers->new(
[
'expires' => '1111',
'last-modified' => '2222',
'if-modified-since' => '3333',
'content-type' => 'text/html',
'content-length' => '4444',
]
);
is $h->expires, '1111';
is $h->last_modified, '2222';
view release on metacpan or search on metacpan
resources/hpux/getMPInfo.cgi/hpux2 view on Meta::CPAN
content-type: text/html
parent.frames.CHPAppletFrame.chpMiscData.RIBName = "Embedded iLO";
parent.frames.CHPAppletFrame.chpMiscData.RIBLink = "https://10.0.14.60";
view release on metacpan or search on metacpan
htdocs/tutorial/tutorial.html view on Meta::CPAN
This column describes the feature type. Although, you can choose anything
you like to describe the feature type, you are strongly encouraged to use
well-recognized sequence ontology (SO) terms such as "gene", "repeat_region", "exon",
and "CDS." You can find a list of the recognized SO terms at
<a
href="http://song.cvs.sourceforge.net/song/ontology/sofa.ontology?rev=HEAD&content-type=text/vnd.viewcvs-markup">the Sequence Ontology Project web site</a>. For
lack of a better name, the features in the volvox example are of
type "remark." Another </li><br>
<li><b>start position</b><br>
The position that the feature starts at, relative to the
reference sequence. The first base of the reference sequence
view release on metacpan or search on metacpan
The content type
=item <opttype>
The option type for the content-type (charset, file name...)
=item C<opt>
The option value
view release on metacpan or search on metacpan
lib/GRNOC/WebService/Client.pm view on Meta::CPAN
if ($content =~ /<form action=\".*cosign-bin\/cosign\.cgi/mi){
return $self->_do_cosign_login($request, $content, $result);
}
#--- We're at Shib ECP
elsif (defined($result->header('content-type')) && $result->header('content-type') eq CONTENT_PAOS) {
return $self->_do_ecp_login($request, $content);
}
#--- We're not at cosign or doing ECP login, this must be the final result.
else {
if ($self->{"timing"}) {
$self->_do_timing("Success");
}
$self->{'content_type'} = $result->header('content-type');
$self->{'headers'} = $self->_parse_headers($result);
return $content;
}
}
lib/GRNOC/WebService/Client.pm view on Meta::CPAN
$self->_set_error( "Error: Authorization failed for: " . $request->uri());
return undef;
}
#--- Otherwise we're good, return content
$self->{'content_type'} = $result2->header('content-type');
$self->{'headers'} = $self->_parse_headers($result2);
return $content2;
}
else {
lib/GRNOC/WebService/Client.pm view on Meta::CPAN
#--- Got another 200 back
if ($spres->is_success && !defined($spres->header('x-died'))){
my $spcontent = $spres->content;
$self->{'content_type'} = $spres->header('content-type');
$self->{'headers'} = $self->_parse_headers($spres);
return $spcontent;
}
else {
view release on metacpan or search on metacpan
if ($headers->{Status} != 200) {
$pexeso->quit("Failed to download $url: $headers->{Reason} (Status: $headers->{Status})");
return;
}
my ($mime) = split(/\s*;/, $headers->{'content-type'}, 1);
if ($mime !~ m,^(image/\S+),) {
$pexeso->quit("Document $url is not an image (Mime: $mime)");
return;
}
view release on metacpan or search on metacpan
share/docs/guide/ch01.html view on Meta::CPAN
<!doctype html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<style type="text/css">
td, th { border: 1px solid #c3c3c3; padding: 0 3px 0 3px; }
table { border-collapse: collapse; }
img { max-width: 100%; }
</style>
view release on metacpan or search on metacpan
<?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:zach@zach-foo.(none)" />
</head>
<body style="background-color: white">
view release on metacpan or search on metacpan
<?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>Games::Sudoku::Kubedoku - Sudoku Solver for any NxN puzzles</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@midas.slackware.lan" />
</head>
<body style="background-color: white">
view release on metacpan or search on metacpan
lib/Gantry.pm view on Meta::CPAN
$self->post_max( $self->fish_config( 'post_max' ) || '20000000' );
# set user varible
$self->user( $self->fish_user() );
# set default content-type
$self->content_type( $self->fish_config( 'content_type' ) || 'text/html' );
# set template variables
$self->template( $self->fish_config( 'template' ) );
$self->template_default( $self->fish_config( 'template_default' ) );
lib/Gantry.pm view on Meta::CPAN
=item content_type
$type = $self->content_type;
$self->content_type( 'text/html' );
Set/get for reponse content-type
=item content_length
$type = $self->content_length;
$self->content_length( $length );
view release on metacpan or search on metacpan
modules/nobinaries.al view on Meta::CPAN
# Check the transfer encoding.
return 'base64 encoded'
if (lc $article->header ('content-transfer-encoding') eq 'base64');
# Check the content type in the main article headers.
my $type = $article->header ('content-type');
return 'Invalid content type'
if ($type =~ /(application|audio|image|video)/i);
# Now, scan the body line by line, counting possibly encoded lines, and
# reject the message if they exceed the above parameters or if we
view release on metacpan or search on metacpan
lib/Geo/Distance/Google.pm view on Meta::CPAN
Carp::croak("Google Maps API returned error: " . $res->status_line);
}
if ( $res->headers->content_type !~ /json/ ) {
my $ct = $res->headers->content_type;
croak "Invalid content-type '$ct' returned from webserver";
}
my $json = JSON->new->utf8;
my $data = $json->decode($res->content);
view release on metacpan or search on metacpan
t/js_reference/test.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Interactive Polyline Encoder Utility - Google Maps API - Google Code</title>
<link href="http://code.google.com/css/codesite.pack.04102009.css" type="text/css" rel="stylesheet" />
<script src="http://code.google.com/js/codesite_head.pack.04102009.js" type="text/javascript"></script>
<link rel="search" type="application/opensearchdescription+xml" title="Google Code" href="/osd.xml" />
<link href="http://code.google.com/apis/maps/documentation/local_extensions.css" rel="stylesheet" type="text/css" />
view release on metacpan or search on metacpan
lib/Geo/OGC/Service.pm view on Meta::CPAN
Allow-Origin
Allow-Credentials
Expose-Headers
Max-Age 60*60*24
Allow-Methods GET,POST
Allow-Headers origin,x-requested-with,content-type
=cut
sub CORS {
my $self = shift;
lib/Geo/OGC/Service.pm view on Meta::CPAN
'Allow-Origin' => '',
'Allow-Credentials' => '',
'Expose-Headers' => '',
'Max-Age' => 60*60*24,
'Allow-Methods' => 'GET,POST',
'Allow-Headers' => 'origin,x-requested-with,content-type'
);
# where CORS is in the configuration
my $config = $self->{config}{Common}{CORS} // $self->{config}{CORS};
my @cors;
if (ref $config eq 'HASH') {
view release on metacpan or search on metacpan
MailBot/UUEncode.pm view on Meta::CPAN
}
defined($nread) or return undef; # check for error
my $string = pack('u',$string);
# jfj note filename and content-type
$string = "\nYour file has been uuencoded:\n\n" .
"begin 644 myfile\n" . $string . " \nend\n";
$out->print($string);
view release on metacpan or search on metacpan
lib/Ginger/Reference/Request/IO/Mongrel2.pm view on Meta::CPAN
my $queryhash = 0;
if( $hash && defined $hash->{'QUERY'} ) {
$queryhash = url2hash( $hash->{'QUERY'} );
}
my $content_type = $hash->{'content-type'};
if( $content_type && $content_type =~ m|^multipart/form-data; boundary=(.+)$| ) {
my $bound = "--$1";#\r\n
if( $hash->{'x-mongrel2-upload-start'} ) {
if( ! $hash->{'x-mongrel2-upload-done'} ) {
view release on metacpan or search on metacpan
example/ls_sha1.pl_output.html view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
<title>Source file</title>
</head>
<body>
<pre style="font-family:Courier New;font-size:10pt;"> <span style="color:#00f000;">ebd00</span> tidy<span style="color:#0000ff;"> -> 8158f</span>
<span style="color:#00f000;">8158f</span> Prefix with a * if its a merge<span style="color:#0000ff;"> -> eddef</span>
view release on metacpan or search on metacpan
deps/libgit2/src/libgit2/transports/http.c view on Meta::CPAN
return -1;
}
/* The response must contain a Content-Type header. */
if (!response->content_type) {
git_error_set(GIT_ERROR_HTTP, "no content-type header in response");
return -1;
}
/* The Content-Type header must match our expectation. */
if (strcmp(response->content_type, stream->service->response_type) != 0) {
git_error_set(GIT_ERROR_HTTP, "invalid content-type: '%s'", response->content_type);
return -1;
}
*complete = true;
stream->state = HTTP_STATE_RECEIVING_RESPONSE;
view release on metacpan or search on metacpan
lib/GitLab/API/v4/RESTClient.pm view on Meta::CPAN
$content = undef if ! %$content;
}
if (ref $content) {
$content = $self->json->encode( $content );
$headers->{'content-type'} = 'application/json';
$headers->{'content-length'} = length( $content );
}
$options->{content} = $content if defined $content;
view release on metacpan or search on metacpan
0.003005 2011-07-13
- Provide option to disable gravatars.
- Tweaks to make Gitalist fit for debian (Jonas Genannt).
- Fixes to enable Gitalist to run on Win32 (Christian Walde).
- Fix content-type of core.css handler (Christian Walde).
0.003004 2011-06-07
- Fix dependency typo in Makefile.PL.
0.003003 2011-06-06
view release on metacpan or search on metacpan
lib/Github/Hooks/Receiver.pm view on Meta::CPAN
return [400, [], ['BAD REQUEST']];
}
# Parse JSON payload
my $payload_json;
if (lc $req->header('content-type') eq 'application/json') {
$payload_json = $req->content;
} elsif (lc $req->header('content-type') eq 'application/x-www-form-urlencoded') {
$payload_json = $req->param('payload');
}
my $payload = eval { decode_json $payload_json }
or return [400, [], ['BAD REQUEST']];
view release on metacpan or search on metacpan
lib/DBI/Gofer/Transport/mod_perl.pm view on Meta::CPAN
eval {
$executor = $self->executor_for_apache_request($r);
my $request_content_length = $headers_in->{'Content-Length'};
# XXX get content-type by response_content_type() meth call on serializer?
# (need to think-through content-type, transfer-encoding, disposition etc etc
my $response_content_type = 'application/x-perl-gofer-response-binary';
# XXX should probably contol flow via method: GET vs POST
my $of = "";
if (!$request_content_length) { # assume GET request
my $args = $r->args || '';
view release on metacpan or search on metacpan
lib/Google/API/Method.pm view on Meta::CPAN
$self->_die_with_error($response);
}
if ($response->code == 204) {
return 1;
}
return $response->header('content-type') =~ m!^application/json!
? $self->{json_parser}->decode(decode_utf8($response->content))
: $response->content
;
}
sub _die_with_error {
my ($self, $response) = @_;
my $err_str = $response->status_line;
if ($response->content
&& $response->header('content-type') =~ m!^application/json!) {
my $content = $self->{json_parser}->decode(decode_utf8($response->content));
$err_str = "$err_str: $content->{error}{message}";
}
die $err_str;
}
view release on metacpan or search on metacpan
t/testdata/logger_tests.json view on Meta::CPAN
},
"response": {
"code": 200,
"message": "OK",
"headers": [
"content-type",
"application/json; charset=UTF-8",
"client-date",
"Wed, 29 May 2019 07:08:39 GMT",
"date",
"Wed, 29 May 2019 07:08:39 GMT",
t/testdata/logger_tests.json view on Meta::CPAN
},
"response": {
"code": 400,
"message": "Bad Request",
"headers": [
"content-type",
"application/json; charset=UTF-8",
"client-date",
"Wed, 29 May 2019 07:08:39 GMT",
"date",
"Wed, 29 May 2019 07:08:39 GMT",
t/testdata/logger_tests.json view on Meta::CPAN
},
"response": {
"code": 200,
"message": "OK",
"headers": [
"content-type",
"application/json; charset=UTF-8",
"client-date",
"Mon, 19 Oct 2020 13:26:46 GMT",
"date",
"Mon, 19 Oct 2020 13:26:46 GMT",
view release on metacpan or search on metacpan
t/02-request.t view on Meta::CPAN
my $chi = CHI->new(driver => 'Memory', global => 0);
$Mock_furl->mock(
request => sub {
return Furl::Response->new(1, 200, 'OK', {'content-type' => 'application/json'}, '{}');
}
);
$Mock_furl_res->mock(
content_type => sub { return 'application/json'; }
view release on metacpan or search on metacpan
t/Google-OAuth.t view on Meta::CPAN
my $request = $token->request( POST => $tqis, $event ) ;
my @headers = %{ $request->headers } ;
my %headers = map { $_ => 1 } (
'content-type',
'application/x-www-form-urlencoded',
'content-length',
'319',
'authorization',
'Bearer ya29.Et6DoQjLzjpioHPGbMyDeGfUS00SuTlIrIsZE_FIDzXtU0IJ1-AnAg'
view release on metacpan or search on metacpan
t/02-user-consent.t view on Meta::CPAN
use Google::OAuth2::Client::Simple;
$Mock_furl->mock(
request => sub {
return Furl::Response->new(1, 200, 'OK', {'content-type' => 'text/html'}, 'sign in with your google account');
}
);
$Mock_furl_res->mock(
decoded_content => sub { return 'sign in with your google account'; }