view release on metacpan or search on metacpan
subtest 'POST request' => sub {
my $request = $bitpay->prepare_request('invoice', $data);
is $request->method, 'POST', 'method';
is $request->uri, "https://$api_key:\@bitpay.com/api/invoice", 'uri';
is $request->header('content-type'), 'application/json', 'content type';
is $request->header('X-BitPay-Plugin-Info'),
'perl' . $Business::Bitpay::VERSION, 'plugin info header';
is_deeply decode_json($request->content), $data, 'data';
};
view release on metacpan or search on metacpan
t/03notifications.t view on Meta::CPAN
$POSTED++;
HTTP::Response->new(
200,
'OK',
[
'content-type' => 'application/x-www-form-urlencoded',
'host' => 'localhost'
],
$IS_SUCCESS ? 'VERIFIED' : 'INVALID'
)
}
view release on metacpan or search on metacpan
lib/Business/Fixflo/Client.pm view on Meta::CPAN
};
if ( $res->is_success ) {
my $data = $res->content;
if ( $res->headers->header( 'content-type' ) =~ m!application/json! ) {
$data = JSON->new->decode( $data );
}
return $data;
}
view release on metacpan or search on metacpan
t/business/gocardless/pro.t view on Meta::CPAN
"response_headers": {
"date": "Tue, 30 Jan 2024 00:07:35 GMT",
"pragma": "no-cache",
"server": "Mojolicious (Perl)",
"connection": "close",
"content-type": "application/json;charset=UTF-8",
"cache-control": "no-store",
"x-frame-options": "SAMEORIGIN",
"strict-transport-security": "max-age=31536000; includeSubdomains; preload"
},
"response_headers_content_truncated": false,
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/BitPay/Client.pm view on Meta::CPAN
my $public = $opts{"public"};
my $uri = $self->{apiUri} or croak "no api_uri exists for object";
$uri = $uri . "/" . $path;
my $request = HTTP::Request->new(GET => $uri);
$request->content($jsonc);
$request->header('content-type' => 'application/json');
$request->header('X-BitPay-Plugin-Info' => 'PerlLib');
$request->header('User-Agent' => 'perl-bitpay-client');
unless($public){
my $signature = Business::OnlinePayment::BitPay::KeyUtils::bpSignMessageWithPem($self->{pem}, $uri);
my $pubkey = Business::OnlinePayment::BitPay::KeyUtils::bpGetPublicKeyFromPem($self->{pem});
lib/Business/OnlinePayment/BitPay/Client.pm view on Meta::CPAN
my $request = HTTP::Request->new(POST => $uri);
my $ua = LWP::UserAgent->new;
$ua->ssl_opts( verify_hostname=> 0, SSL_ca_file => Mozilla::CA::SSL_ca_file(), SSL_Version => 'TLSv2', SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE);
my $jsonc = encode_json \%content;
$request->content($jsonc);
$request->header('content-type' => 'application/json');
$request->header('X-BitPay-Plugin-Info' => 'PerlLib');
$request->header('User-Agent' => 'perl-bitpay-client');
if ($content{"token"}){
my $signature = Business::OnlinePayment::BitPay::KeyUtils::bpSignMessageWithPem($self->{pem}, $uri . $jsonc);
my $pubkey = Business::OnlinePayment::BitPay::KeyUtils::bpGetPublicKeyFromPem($self->{pem});
view release on metacpan or search on metacpan
sub test_can_connect_to_bitpay_api {
my $uri = "https://bitpay.com/tokens";
my $pem = Business::OnlinePayment::BitPay::KeyUtils::bpGeneratePem();
my $sin = Business::OnlinePayment::BitPay::KeyUtils::bpGenerateSinFromPem($pem);
my $request = HTTP::Request->new(POST => $uri);
$request->header('content-type' => 'application/json');
my %content = ('id'=>$sin);
my $jsonc = encode_json \%content;
$request->content($jsonc);
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);
view release on metacpan or search on metacpan
lib/Business/Shipping/UPS_XML.pm view on Meta::CPAN
my ($page, $response, %reply_headers) = post_https('www.ups.com', '443', '/ups.app/xml/Rate',
make_headers(
'content-type' => 'application/x-www-form-urlencoded',
),
$xml
);
view release on metacpan or search on metacpan
lib/Business/Shipping/RateRequest/Online.pm view on Meta::CPAN
my $request_xml = $self->_gen_request_xml();
#trace( $request_xml );
info("gen_url = " . $self->_gen_url());
my $request = HTTP::Request->new('POST', $self->_gen_url());
$request->header('content-type' => 'application/x-www-form-urlencoded');
$request->header('content-length' => length($request_xml));
$request->content($request_xml);
return ($request);
}
view release on metacpan or search on metacpan
t/04-reply.t view on Meta::CPAN
$webhook->process();
ok( $handled, 'callback ran' );
my $output = capture_reply($webhook);
ok( $output =~ /\AContent-type: application\/json\n\n/s, 'reply includes content-type header' );
my (undef, $body) = split(/\n\n/, $output, 2);
my $data = decode_json($body);
is( $data->{'status'}, 'noaction', 'default status is noaction' );
t/04-reply.t view on Meta::CPAN
);
$webhook_nohandler->process();
my $output_nohandler = capture_reply($webhook_nohandler);
ok( $output_nohandler =~ /\AContent-type: application\/json\n\n/s, 'reply includes content-type header without args' );
my (undef, $body_nohandler) = split(/\n\n/, $output_nohandler, 2);
my $data_nohandler = decode_json($body_nohandler);
is( $data_nohandler->{'status'}, 'noaction', 'default status is noaction' );
view release on metacpan or search on metacpan
examples/web/Scripts/jquery-1.4.4.min.js view on Meta::CPAN
b.contentType);if(b.ifModified){c.lastModified[b.url]&&w.setRequestHeader("If-Modified-Since",c.lastModified[b.url]);c.etag[b.url]&&w.setRequestHeader("If-None-Match",c.etag[b.url])}o||w.setRequestHeader("X-Requested-With","XMLHttpRequest");w.setRequ...
c.triggerGlobal(b,"ajaxSend",[w,b]);var L=w.onreadystatechange=function(m){if(!w||w.readyState===0||m==="abort"){J||c.handleComplete(b,w,e,f);J=true;if(w)w.onreadystatechange=c.noop}else if(!J&&w&&(w.readyState===4||m==="timeout")){J=true;w.onreadyst...
c.handleSuccess(b,w,e,f);else c.handleError(b,w,e,p);d||c.handleComplete(b,w,e,f);m==="timeout"&&w.abort();if(b.async)w=null}};try{var g=w.abort;w.abort=function(){w&&Function.prototype.call.call(g,w);L("abort")}}catch(i){}b.async&&b.timeout>0&&setTi...
encodeURIComponent(h)+"="+encodeURIComponent(l)};if(b===B)b=c.ajaxSettings.traditional;if(c.isArray(a)||a.jquery)c.each(a,function(){e(this.name,this.value)});else for(var f in a)da(f,a[f],b,e);return d.join("&").replace(tb,"+")}});c.extend({active:0...
[b,a])},handleComplete:function(a,b,d){a.complete&&a.complete.call(a.context,b,d);a.global&&c.triggerGlobal(a,"ajaxComplete",[b,a]);a.global&&c.active--===1&&c.event.trigger("ajaxStop")},triggerGlobal:function(a,b,d){(a.context&&a.context.url==null?c...
e=a.getResponseHeader("Etag");if(d)c.lastModified[b]=d;if(e)c.etag[b]=e;return a.status===304},httpData:function(a,b,d){var e=a.getResponseHeader("content-type")||"",f=b==="xml"||!b&&e.indexOf("xml")>=0;a=f?a.responseXML:a.responseText;f&&a.documentE...
if(E.ActiveXObject)c.ajaxSettings.xhr=function(){if(E.location.protocol!=="file:")try{return new E.XMLHttpRequest}catch(a){}try{return new E.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}};c.support.ajax=!!c.ajaxSettings.xhr();var ea={},vb=/^(?:toggle...
3),a,b,d);else{d=0;for(var e=this.length;d<e;d++){a=this[d];b=a.style.display;if(!c.data(a,"olddisplay")&&b==="none")b=a.style.display="";b===""&&c.css(a,"display")==="none"&&c.data(a,"olddisplay",qa(a.nodeName))}for(d=0;d<e;d++){a=this[d];b=a.style....
d)}for(a=0;a<b;a++)this[a].style.display="none";return this}},_toggle:c.fn.toggle,toggle:function(a,b,d){var e=typeof a==="boolean";if(c.isFunction(a)&&c.isFunction(b))this._toggle.apply(this,arguments);else a==null||e?this.each(function(){var f=e?a:...
d,e);if(c.isEmptyObject(a))return this.each(f.complete);return this[f.queue===false?"each":"queue"](function(){var h=c.extend({},f),l,k=this.nodeType===1,o=k&&c(this).is(":hidden"),x=this;for(l in a){var r=c.camelCase(l);if(l!==r){a[r]=a[l];delete a[...
"inline")this.style.display="inline-block";else{this.style.display="inline";this.style.zoom=1}else this.style.display="inline-block"}if(c.isArray(a[l])){(h.specialEasing=h.specialEasing||{})[l]=a[l][1];a[l]=a[l][0]}}if(h.overflow!=null)this.style.ove...
view release on metacpan or search on metacpan
share/www/static/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;
share/www/static/jquery.js view on Meta::CPAN
}
});
/* Handles responses to an ajax request:
* - sets all responseXXX fields accordingly
* - 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,
share/www/static/jquery.js view on Meta::CPAN
if ( type in responses ) {
jqXHR[ responseFields[type] ] = responses[ type ];
}
}
// 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;
view release on metacpan or search on metacpan
CAM-PDFTaxforms.htm 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>CAM::PDFTaxforms - CAM::PDF wrapper to also allow editing of checkboxes (ie. for IRS Tax forms).</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/CAM/SOAPApp.pm view on Meta::CPAN
# " It has not been tested with other SOAP::Lite versions.\n".
# " To silence this warning set\n".
# " $CAM::SOAPApp::NO_SOAP_LITE_WARNING = 1;\n");
#}
## Hack to repair content-type for clients who send the wrong
## value or no value (notably the Apple Sherlock 3 interface
## and Flash)
# This doesn't actually work for servers, but we'll include
#it in case SOAP::Lite ever gets fixed.
view release on metacpan or search on metacpan
This version is to extract out the app methods from CGI::Getopt class.
It was too much for CGI::Getopt to include the start_app, end_app,
build_html_header, and disp_form methods.
0.11 Rewrote start_app method so that content-type can be changed.
0.12 Moved disp_form to CGI::AppBuilder::Form,
moved build_html_header to CGI::AppBuilder::Header, and
imported all the methods in sub-classes into this class.
=item * Version 1.0001
view release on metacpan or search on metacpan
AppBuilder.pm view on Meta::CPAN
This version is to extract out the app methods from CGI::Getopt class.
It was too much for CGI::Getopt to include the start_app, end_app,
build_html_header, and disp_form methods.
0.11 Rewrote start_app method so that content-type can be changed.
0.12 Moved disp_form to CGI::AppBuilder::Form,
moved build_html_header to CGI::AppBuilder::Header, and
imported all the methods in sub-classes into this class.
=item * Version 1.0001
view release on metacpan or search on metacpan
client => sub {
my $cb = shift;
my $req = HTTP::Request->new(GET => 'http://localhost/');
my $res = $cb->($req);
is $res->code, 200, 'status code is 200';
is $res->content_type, 'application/x-hello-world', 'content-type';
is $res->content, 'hello world', 'body';
};
done_testing;
view release on metacpan or search on metacpan
caf_htdoc/index.html view on Meta::CPAN
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<title>CGI::Application::Framework</title>
<link rel="stylesheet" href="!!- url_example_css -!!" type="text/css" />
</head>
<body>
view release on metacpan or search on metacpan
examples/PodViewer.pm 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 xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>CGI::Application::Plugin::HTMLPrototype - PodViewer Example</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
[% c.prototype.define_javascript_functions %]
<link rel="stylesheet" href="http://search.cpan.org/s/style.css" type="text/css">
<style>
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/Header.pm view on Meta::CPAN
Behaves like L<CGI::Application>'s C<header_props> method,
but the return format is modified. C<keys> of C<%header_props>
are lowercased and start with a dash. The following aliases are used:
'-content-type' -> '-type'
'-cookie' -> '-cookies'
It's guaranteed that the keys are unique.
=item $cgiapp->header_add( $k1 => $v1, $k2 => $v2, ... )
lib/CGI/Application/Plugin/Header.pm view on Meta::CPAN
use parent 'CGI::Header';
sub _build_alias {
+{
'cookies' => 'cookie',
'content-type' => 'type',
};
}
sub cookies {
my $self = shift;
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/JSON.pm view on Meta::CPAN
$self->json_callback('alert', { foo => 'Lorem ipsum', bar => [ 0, 2, 3 ] } );
=head1 DESCRIPTION
When communicating with client-side JavaScript, it is common to send
data in C<X-JSON> HTTP headers or through the document body as content-type
C<application/json>.
This plugin adds a couple of convenience methods to make that just a
little bit easier.
lib/CGI/Application/Plugin/JSON.pm view on Meta::CPAN
=head1 BODY METHODS
=head2 json_body
This method will take the given Perl structure, turn it
into JSON, set the appropriate content-type, and then
return the JSON.
return $self->json_body({ foo => 'stuff', bar => [0,1,2,3]} );
=cut
lib/CGI/Application/Plugin/JSON.pm view on Meta::CPAN
}
=head2 json_callback
This method will take the given Perl structure, turn it
into JSON, set the appropriate content-type, and then
return a Javascript snippet where the given callback
is called with the resulting JSON.
return $self->json_callback('alert', { foo => 'stuff', bar => [0,1,2,3]} );
view release on metacpan or search on metacpan
share/examples/compare/Nes/index.nhtml view on Meta::CPAN
{: NES 1.0 ('index.cgi') :}
<html>
<html>
<head>
<title>Test Nes CGI::Application</title>
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<style type="text/css">
#caja {
padding: 15px 15px 15px 15px;
border: 1px solid #dedede;
background: #eee;
view release on metacpan or search on metacpan
filename => 'members.csv',
stream => 1,
});
This method generates a csv file that is sent directly to the user's
web browser. It sets the content-type header to 'application/x-csv' and sets
the content-disposition header to 'attachment'.
It should be invoked through a
L<CGI::Application|CGI::Application(3)> subclass object.
view release on metacpan or search on metacpan
lib/CGI/Application/Magic.pm view on Meta::CPAN
An auto-magically used template (it contains the 'ENV_table block', and the 'app_name' and 'Time' labels)
<html>
<head>
<meta http-equiv=content-type content="text/html;charset=iso-8859-1">
<title>ENVIRONMENT</title>
<style media=screen type=text/css><!--
td { font-size: 9pt; font-family: Arial }
--></style>
</head>
view release on metacpan or search on metacpan
lib/CGI/Buffer.pm view on Meta::CPAN
{
my $headers = shift;
foreach my $header (split(/\r?\n/, $headers)) {
my ($header_name, $header_value) = split /\:\s*/, $header, 2;
if (lc($header_name) eq 'content-type') {
@content_type = split /\//, $header_value, 2;
last;
}
}
}
view release on metacpan or search on metacpan
t/tm/ENV_RM.html view on Meta::CPAN
<html>
<head>
<meta http-equiv=content-type content="text/html;charset=iso-8859-1">
<title>ENVIRONMENT</title>
<style media=screen type=text/css><!--
td { font-size: 9pt; font-family: Arial }
--></style>
</head>
view release on metacpan or search on metacpan
lib/CGI/Builder/Magic.pm view on Meta::CPAN
An auto-magically used template (it contains the 'ENV_table block', and the 'app_name' and 'Time' labels)
<html>
<head>
<meta http-equiv=content-type content="text/html;charset=iso-8859-1">
<title>ENVIRONMENT</title>
<style media=screen type=text/css><!--
td { font-size: 9pt; font-family: Arial }
--></style>
</head>
view release on metacpan or search on metacpan
lib/CGI/Builder/TT2.pm view on Meta::CPAN
Here's the template:
<html>
<head>
<meta http-equiv=content-type content="text/html;charset=iso-8859-1">
<title>A random example :)</title>
</head>
<body>
<table>
[% FOREACH k IN environment.keys %]
view release on metacpan or search on metacpan
CBF_examples/02_SimpleApp/SimpleApp.pm view on Meta::CPAN
; my $Time = $s->Time()
; $s->page_content = << "EOS"
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Index Page</title>
</head>
<body bgcolor="#ffffff">
<p>This page is the index (default) page of the application. </p>
CBF_examples/02_SimpleApp/SimpleApp.pm view on Meta::CPAN
; $err = $s->page_error
; $s->page_content = << "EOS"
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Password Page</title>
</head>
<body bgcolor="#ffffff">
<p>This page is a sort of simplified login page. By filling the 'password' field with the correct password you can go to the 'env_page', while you will have this page displayed again if the password is wrong.</p>
CBF_examples/02_SimpleApp/SimpleApp.pm view on Meta::CPAN
; my $Time = $s->Time()
; $s->page_content = << 'EOSTART'
<html>
<head>
<meta http-equiv=content-type content="text/html;charset=iso-8859-1">
<title>ENVIRONMENT</title>
<style media=screen type=text/css><!--
td { font-size: 9pt; font-family: Arial }
tr { vertical-align: top }
--></style>
CBF_examples/02_SimpleApp/SimpleApp.pm view on Meta::CPAN
{ my $s = shift
; $s->page_content = << "EOS"
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Unknown page!</title>
</head>
<body bgcolor="#ffffff">
<h1>Unknown page!</h1>
view release on metacpan or search on metacpan
lib/CGI/Compress/Gzip.pm view on Meta::CPAN
$content_type ||= 'text/html';
if (!$self->isCompressibleType($content_type))
{
# Not compressible media
return (0, 'incompatible content-type ' . $content_type);
}
# Check that IO::Zlib is available
if (!defined $global_can_compress)
{
view release on metacpan or search on metacpan
last METHOD;
}
# Process XForms postings. We know that we have XForms in the
# following cases:
# method eq 'POST' && content-type eq 'application/xml'
# method eq 'POST' && content-type =~ /multipart\/related.+start=/
# There are more cases, actually, but for now, we don't support other
# methods for XForm posts.
# In a XForm POST, the QUERY_STRING is parsed normally.
# If the content-type is 'application/xml', we just set the param
# XForms:Model (referring to the xml syntax) param containing the
# unparsed XML data.
# In the case of multipart/related we set XForms:Model as above, but
# the other parts are available as uploads with the Content-ID as the
# the key.