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/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
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'})
{
view release on metacpan or search on metacpan
lib/HTML/HiLiter.pm view on Meta::CPAN
if ( lc($tag) eq 'meta' ) {
if ( exists $attr->{'http-equiv'} or exists $attr->{'HTTP-EQUIV'} ) {
if ( exists $attr->{content} or exists $attr->{CONTENT} ) {
my $name = $attr->{'http-equiv'} || $attr->{'HTTP-EQUIV'};
my $content = $attr->{content} || $attr->{CONTENT};
if ( lc($name) eq 'content-type'
&& lc($content) !~ m/ascii|utf-8/i )
{
$$text
= qq(<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>);
}
view release on metacpan or search on metacpan
0.05 Mar 08, 2011
- properly escape regexps
0.04 Oct 13, 2010
- handle empty content-type header
0.03 Oct 08, 2010
- handle all response types by using response_cb
0.02 Jul 28, 2010
view release on metacpan or search on metacpan
lib/HTML/Inspect.pod view on Meta::CPAN
are listed on F<https://www.w3schools.com/tags/tag_meta.asp>. People defined far too
many names to be useful for everyone.
example:
{ 'http-equiv' => { 'content-type' => 'text/plain' },
charset => 'UTF-8',
name => { author => 'John Smith' , description => 'The John Smith\'s page.'},
}
=item $obj-E<gt>B<collectMetaNames>(%options)
view release on metacpan or search on metacpan
lib/auto/HTML/JQuery/static/js/jquery.min.js view on Meta::CPAN
false&&n==="GET"){var r=J(),u=e.url.replace(wb,"$1_="+r+"$2");e.url=u+(u===e.url?(ka.test(e.url)?"&":"?")+"_="+r:"")}if(e.data&&n==="GET")e.url+=(ka.test(e.url)?"&":"?")+e.data;e.global&&!c.active++&&c.event.trigger("ajaxStart");r=(r=xb.exec(e.url))&...
false;C.onload=C.onreadystatechange=function(){if(!B&&(!this.readyState||this.readyState==="loaded"||this.readyState==="complete")){B=true;b();d();C.onload=C.onreadystatechange=null;z&&C.parentNode&&z.removeChild(C)}}}z.insertBefore(C,z.firstChild);r...
c.lastModified[e.url]);c.etag[e.url]&&x.setRequestHeader("If-None-Match",c.etag[e.url])}r||x.setRequestHeader("X-Requested-With","XMLHttpRequest");x.setRequestHeader("Accept",e.dataType&&e.accepts[e.dataType]?e.accepts[e.dataType]+", */*":e.accepts._...
d();E=true;if(x)x.onreadystatechange=c.noop}else if(!E&&x&&(x.readyState===4||q==="timeout")){E=true;x.onreadystatechange=c.noop;i=q==="timeout"?"timeout":!c.httpSuccess(x)?"error":e.ifModified&&c.httpNotModified(x,e.url)?"notmodified":"success";var ...
g("abort")}}catch(l){}e.async&&e.timeout>0&&setTimeout(function(){x&&!E&&g("timeout")},e.timeout);try{x.send(n==="POST"||n==="PUT"||n==="DELETE"?e.data:null)}catch(m){c.handleError(e,x,null,m);d()}e.async||g();return x}},handleError:function(a,b,d,f)...
1223||a.status===0}catch(b){}return false},httpNotModified:function(a,b){var d=a.getResponseHeader("Last-Modified"),f=a.getResponseHeader("Etag");if(d)c.lastModified[b]=d;if(f)c.etag[b]=f;return a.status===304||a.status===0},httpData:function(a,b,d){...
"json"||!b&&f.indexOf("json")>=0)a=c.parseJSON(a);else if(b==="script"||!b&&f.indexOf("javascript")>=0)c.globalEval(a);return a},param:function(a,b){function d(i,o){if(c.isArray(o))c.each(o,function(k,n){b||/\[\]$/.test(i)?f(i,n):d(i+"["+(typeof n===...
if(c.isArray(a)||a.jquery)c.each(a,function(){f(this.name,this.value)});else for(var j in a)d(j,a[j]);return e.join("&").replace(yb,"+")}});var la={},Ab=/toggle|show|hide/,Bb=/^([+-]=)?([\d+-.]+)(.*)$/,W,va=[["height","marginTop","marginBottom","padd...
this[a].style.display=d||"";if(c.css(this[a],"display")==="none"){d=this[a].nodeName;var f;if(la[d])f=la[d];else{var e=c("<"+d+" />").appendTo("body");f=e.css("display");if(f==="none")f="block";e.remove();la[d]=f}c.data(this[a],"olddisplay",f)}}a=0;f...
"olddisplay",c.css(this[a],"display"))}a=0;for(b=this.length;a<b;a++)this[a].style.display="none";return this}},_toggle:c.fn.toggle,toggle:function(a,b){var d=typeof a==="boolean";if(c.isFunction(a)&&c.isFunction(b))this._toggle.apply(this,arguments)...
animate:function(a,b,d,f){var e=c.speed(b,d,f);if(c.isEmptyObject(a))return this.each(e.complete);return this[e.queue===false?"each":"queue"](function(){var j=c.extend({},e),i,o=this.nodeType===1&&c(this).is(":hidden"),k=this;for(i in a){var n=i.repl...
view release on metacpan or search on metacpan
xt/forkn.jp.01-index.t view on Meta::CPAN
__DATA__
@@ wish.html
<!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" />
<meta http-equiv="Content-Script-Type" content="text/javascript" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<link href="http://foo.forkn.jp/js/jquery-ui/css/eggplant/jquery-ui-1.8.12.custom.css" rel="stylesheet" type="text/css" />
<link href="http://foo.forkn.jp/css/styles.css" media="screen" rel="stylesheet" type="text/css" />
<link href="http://foo.forkn.jp/css/main.css" media="screen" rel="stylesheet" type="text/css" />
xt/forkn.jp.01-index.t view on Meta::CPAN
@@ index.html
<!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" />
<meta http-equiv="Content-Script-Type" content="text/javascript" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<link href="/js/jquery-ui/css/eggplant/jquery-ui-1.8.12.custom.css" rel="stylesheet" type="text/css" />
<link href="/css/styles.css" rel="stylesheet" type="text/css" media="screen" />
<link href="/css/main.css" rel="stylesheet" type="text/css" media="screen" />
view release on metacpan or search on metacpan
t/embed-extensions.t view on Meta::CPAN
<?php show_parallel_page() ?>
<html>
<head>
<meta name="description" content="Follett Library Resources supplies books, eBooks, and audiovisual materials to more K-12 schools than any other wholesaler or publisher. We understand the needs of today's K-12 students and educators and cont...
<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
<title>Welcome to Follett Library Resources</title>
</head>
<body bgcolor="#ffffff" link=white vlink=white leftmargin=1 topmargin=1 marginheight=1 marginwidth=1>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="white" height="122" HSPACE="1">
view release on metacpan or search on metacpan
testdata/atlas.html view on Meta::CPAN
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Atlas.cz | HledánÃ</title>
<link rel="stylesheet" type="text/css" href="design/search.css" media="all" />
<link rel="Search" type="application/opensearchdescription+xml" title="Atlas hledánÃ" href="http://www.atlas.cz/opensearch.xml" />
<link rel="shortcut icon" href="http://img.atlas.cz/favicon.ico">
<script type="text/javascript" src="../js/scripts.js?9e7c"></script>
view release on metacpan or search on metacpan
t/lib/Mason/ApacheTest.pm view on Meta::CPAN
is( $response->headers()->header('Content-Type'),
'text/html; charset=i-made-this-up',
'Content type set by handler is preserved by Mason' ); },
sub { my $response = shift;
unlike( $response->content(), qr/Content-Type:/i,
'response body does not contain a content-type header' ); },
],
},
{ path => '/comps/with_dhandler_no_ct/',
extra =>
[ sub { my $response = shift;
is( $response->headers()->header('Content-Type'),
'text/html; charset=i-made-this-up',
'Content type set by handler is preserved by Mason with directory request' ); },
sub { my $response = shift;
unlike( $response->content(), qr/Content-Type:/i,
'response body does not contain a content-type header with directory request' ); },
],
},
);
}
view release on metacpan or search on metacpan
examples/html/html-menu-treeview.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>HTML-Menu-TreeView</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:feedback@suse.de" />
</head>
<body style="background-color: white">