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'; }
view release on metacpan or search on metacpan
lib/Google/RestApi/GmailApi1.pm view on Meta::CPAN
To => $p{to},
Subject => $p{subject},
Type => $p{content_type},
Data => encode('UTF-8', $p{body}),
);
$mime->attr('content-type.charset' => 'UTF-8');
$mime->add(Cc => $p{cc}) if $p{cc};
$mime->add(Bcc => $p{bcc}) if $p{bcc};
my $raw = $mime->as_string;
my $encoded = encode_base64($raw, '');
view release on metacpan or search on metacpan
lib/Google/gRPC/Channel.pm view on Meta::CPAN
my @headers = (
':method' => 'POST',
':path' => $path,
':scheme' => 'https',
':authority' => $self->target,
'content-type' => 'application/grpc',
'te' => 'trailers',
);
if ($self->auth_token) {
push @headers, 'authorization', 'Bearer ' . $self->auth_token;
view release on metacpan or search on metacpan
lib/GraphQL/Client/http.pm view on Meta::CPAN
}
else {
my $encoded_data = $self->json->encode($data);
$options->{content} = $encoded_data;
$options->{headers}{'content-length'} = length $encoded_data;
$options->{headers}{'content-type'} = 'application/json;charset=UTF-8';
}
return $self->_handle_response($self->any_ua->request($method, $url, $options));
}
view release on metacpan or search on metacpan
examples/sqlite-blog/public/index.html view on Meta::CPAN
<main id="feed">Loading…</main>
<script>
async function persisted(id, variables = {}) {
const response = await fetch('/graphql', {
method: 'POST', headers: {'content-type': 'application/json'},
body: JSON.stringify({id, variables})
});
const payload = await response.json();
if (!response.ok || payload.errors) throw new Error(JSON.stringify(payload, null, 2));
return payload.data;
view release on metacpan or search on metacpan
ColorPicker.pm view on Meta::CPAN
=cut
#################################################
# send a page to the browser, use mod_perl if available
#
# input: pointer to text, content-type [optional]
# sends: text to server
#
# default content type = text/html
# if not specified
#
view release on metacpan or search on metacpan
examples/yahoo/YahooApp.pl view on Meta::CPAN
use base qw( Gtk2::GladeXML::Simple );
my $header =<<HEADER;
<html>
<meta HTTP-EQUIV="content-type" CONTENT="text/html; charset=UTF-8">
<header><title>Yahoo Gtk2 App</title>
<style type="text/css">
.title {font-family: Georgia; color: blue; font-size: 13px}
.description {padding-left: 3px; font-family: Georgia; font-size:10px}
.url {padding-left: 3px; font-family: Georgia; font-size:10px; color: green}
view release on metacpan or search on metacpan
public/error/maintenance_mode.html view on Meta::CPAN
<!DOCTYPE html>
<head>
<meta http-equiv="content-type" content="text/html;charset=UTF-8"/>
<meta name="description" content="Pittsburgh, PA's finest custom AR-15 and Remington Model 700 builder and customizer."/>
<meta name="keywords" content="pittsburgh, pennsylvania, x86, guns, rifles, pistols, ar15, ar-15, m16, 1911, armalite, yhm, blackout, teppo, jitsu, bryce, porter, arms, suppressor, custom, blackout, 300aac, 6.5grendel 6.5mm, 6.8mm, 6.8 SPC, .300AAC"...
<meta name="author" content="Bryce Porter"/>
<meta name="apple-mobile-web-app-capable" content="yes" />
view release on metacpan or search on metacpan
lib/GunghoX/FollowLinks.pm view on Meta::CPAN
=head2 setup
=head2 follow_links
Parses the given HTTP::Response/Gungho::Response object and dispatches the
appropriate parser from its content-type.
For each URL found, Automatically dispatches the rules given to the parser,
and if the rules match, the URL is sent to Gungho-E<gt>send_request.
Returns the number of matches found.
view release on metacpan or search on metacpan
lib/HBase/JSONRest.pm view on Meta::CPAN
my $rs = $self->{http_tiny}->request('PUT', $uri, {
content => $JSON_Command,
headers => {
'Accept' => 'application/json',
'content-type' => 'application/json'
},
});
return !$self->_handle_error( $uri, $rs );
view release on metacpan or search on metacpan
lib/HON/Http/UrlChecker/Service.pm view on Meta::CPAN
Readonly::Scalar my $MAXREDIRECT => 10;
Readonly::Array my @HEADERFIELDS => qw(
location
server
content-type
title
date
);
Readonly::Array my @RESPONSEFIELDS => qw(
view release on metacpan or search on metacpan
examples/meals.pl view on Meta::CPAN
# output the main 'mealPage' chunk. name information
# is supplied with static text. the 'meals' data element
# is handled by the 'outputMeals' routine.
#
# if this were run as a CGI, you'd need to output a
# content-type header as well.
$engine->output('mealPage', {
firstName => 'Homer',
lastName => 'Simpson',
meals => \&outputMeals
view release on metacpan or search on metacpan
lib/HTML/Copy.pm view on Meta::CPAN
my $in = $self->source_handle;
my $data = do {local $/; <$in>;};
my $p = HTML::HeadParser->new;
$p->utf8_mode(1);
$p->parse($data);
my $content_type = $p->header('content-type');
my $encoding = '';
if ($content_type) {
if ($content_type =~ /charset\s*=(.+)/) {
$encoding = $1;
}
view release on metacpan or search on metacpan
lib/HTML/Defang.pm view on Meta::CPAN
"integer" => qr/^(-|\+)?\d+$/,
"number" => qr/^(-|\+)?[\d.,]+$/,
# language: Not javascript, vbs or vbscript
"language" => qr/^(XML)$/i,
"media" => qr/^((screen|print|projection|braille|speech|all)[,\s]*)+$/i,
"meta:name" => qr/^(author|progid|originator|generator|keywords|description|content-type|pragma|expires)$/i,
# mime-type: Not javascript
"mime-type" => qr/^(cite|text\/(plain|css|html|xml))$/i,
"list-type" => qr/^(none,a,i,upper-alpha,lower-alpha,upper-roman,lower-roman,decimal,disc,square,circle,round)$/i,
# "rel" => qr/^((copyright|author|stylesheet)\s*)+$/i,
"rel" => qr/^((copyright|author)\s*)+$/i, # XXX external stylesheets can contain scripting, so kill them
view release on metacpan or search on metacpan
lib/HTML/Dojo/editions.pm view on Meta::CPAN
}
}
function setHeaders(http,_2b6){
if(_2b6["headers"]){
for(var _2b7 in _2b6["headers"]){
if(_2b7.toLowerCase()=="content-type"&&!_2b6["contentType"]){
_2b6["contentType"]=_2b6["headers"][_2b7];
}else{
http.setRequestHeader(_2b7,_2b6["headers"][_2b7]);
}
}
lib/HTML/Dojo/editions.pm view on Meta::CPAN
}
}
function setHeaders(http,_7f5){
if(_7f5["headers"]){
for(var _7f6 in _7f5["headers"]){
if(_7f6.toLowerCase()=="content-type"&&!_7f5["contentType"]){
_7f5["contentType"]=_7f5["headers"][_7f6];
}else{
http.setRequestHeader(_7f6,_7f5["headers"][_7f6]);
}
}
lib/HTML/Dojo/editions.pm view on Meta::CPAN
}
}
function setHeaders(http,_2b6){
if(_2b6["headers"]){
for(var _2b7 in _2b6["headers"]){
if(_2b7.toLowerCase()=="content-type"&&!_2b6["contentType"]){
_2b6["contentType"]=_2b6["headers"][_2b7];
}else{
http.setRequestHeader(_2b7,_2b6["headers"][_2b7]);
}
}
lib/HTML/Dojo/editions.pm view on Meta::CPAN
}
}
function setHeaders(http,_662){
if(_662["headers"]){
for(var _663 in _662["headers"]){
if(_663.toLowerCase()=="content-type"&&!_662["contentType"]){
_662["contentType"]=_662["headers"][_663];
}else{
http.setRequestHeader(_663,_662["headers"][_663]);
}
}
lib/HTML/Dojo/editions.pm view on Meta::CPAN
}
}
function setHeaders(http,_7f5){
if(_7f5["headers"]){
for(var _7f6 in _7f5["headers"]){
if(_7f6.toLowerCase()=="content-type"&&!_7f5["contentType"]){
_7f5["contentType"]=_7f5["headers"][_7f6];
}else{
http.setRequestHeader(_7f6,_7f5["headers"][_7f6]);
}
}
lib/HTML/Dojo/editions.pm view on Meta::CPAN
}
}
function setHeaders(http,_311){
if(_311["headers"]){
for(var _312 in _311["headers"]){
if(_312.toLowerCase()=="content-type"&&!_311["contentType"]){
_311["contentType"]=_311["headers"][_312];
}else{
http.setRequestHeader(_312,_311["headers"][_312]);
}
}
view release on metacpan or search on metacpan
lib/HTML/EP.pm view on Meta::CPAN
$template =~ s/\$(\w+)\$/$vars->{$1}/g;
if ($r) {
$r->print($self->{'cgi'}->header('-type' => 'text/html'), $template);
} else {
print("content-type: text/html\n\n", $template);
exit 0;
}
}
sub print ($;@) {
view release on metacpan or search on metacpan
Changes.pod view on Meta::CPAN
introduced in mod_perl-1.07_01
- Output of the 'hidden' metacommand is sorted in the same order as the input
from the formfields (sorting order can also be supplied as third argument)
- <meta http-equiv= ... > will override the corresponding http header
(this keeps netscape from asking the user to reload the document
when the content-type differs between the http header and the
meta http-equiv)
This can also be used to set http headers
- Fixed a problem that Embperl magic variables do not work when
the package exists before the first call to Embperl
view release on metacpan or search on metacpan
lib/HTML/Encapsulate.pm view on Meta::CPAN
'index.html'. Other dependencies will be saved with filenames
composed of an index number (1 for the first item saved, 2 for the
second, etc.), plus an extension (taken from the source URL).
By design, this function will dowload but not attempt to process
non-html content (i.e. if the 'content-type' header does not end in
html). Note also that I've been lazy, so it will still save the
content with as C<index.html> as for a HTML page.
The content of the HTML is re-written so that links to dependencies
refer to the downloaded files. External dependencies (anything not
view release on metacpan or search on metacpan
lib/HTML/Encoding.pm view on Meta::CPAN
foreach (grep { $_->[0] eq "meta" } @$meta)
{
my %hash = %{$_->[1]};
next unless defined $hash{'content'};
next unless exists $hash{'http-equiv'};
next unless lc $hash{'http-equiv'} eq "content-type";
my $char = encoding_from_content_type($hash{'content'});
push @resu, $char if defined $char and length $char;
}
return unless @resu;
view release on metacpan or search on metacpan
lib/HTML/GMap/Files.pm view on Meta::CPAN
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">
<head>
<link rel="stylesheet" type="text/css" href="[% gmap_main_css_file_eq %]" />
<meta http-equiv="content-type" content="text/html; charset=utf-8"/>
<title>[% page_title %]</title>
<style type="text/css">
v\:* {
behavior:url(#default#VML);
view release on metacpan or search on metacpan
lib/HTML/GUI/templates/main.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">
<head>
<title>HTML-GUI-Widget</title>
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="Content-Script-Type" content="text/javascript"/>
<TMPL_LOOP NAME=css_path>
<link rel="stylesheet" type="text/css" href="<TMPL_VAR NAME=url>" />
view release on metacpan or search on metacpan
lib/HTML/Gumbo.pm view on Meta::CPAN
UTF-8/UTF-16 BOMs are checked.
=item C<encoding_content_type> argument
Encdoning from rransport layer, charset in content-type header.
$gumbo->parse( $octets, input_is => 'octets', encoding_content_type => 'latin-1' );
=item Prescan
view release on metacpan or search on metacpan
lib/HTML/HTML5/Parser.pm view on Meta::CPAN
my $response = HTML::HTML5::Parser::UA->get($file, $opts->{user_agent});
croak "HTTP response code was not 200 OK. (Set \$opts{ignore_http_response_code} to ignore this error.)"
unless ($response->{success} || $opts->{ignore_http_response_code});
my $content = $response->{decoded_content};
my $c_type = $response->{headers}{'content-type'};
$opts->{'response'} = $response;
if ($c_type =~ /xml/i and not $opts->{'force_html'})
{