view release on metacpan or search on metacpan
examples/table1.cgi view on Meta::CPAN
#use lib '../blib/lib/';
#use lib '../lib/';
use Data::Tabular;
print "content-type: text/html\n\n";
our ($t1);
print q(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
view release on metacpan or search on metacpan
docs/Common.html view on Meta::CPAN
<!DOCTYPE html> <html> <head> <title>Common.pm</title> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <link rel="stylesheet" media="all" href="docco.css" /> </head> <body> <div id="container"> <div id="background"></...
<span class="k">use</span> <span class="mf">5.8.0</span><span class="p">;</span>
<span class="k">use</span> <span class="nn">Any::</span><span class="n">Moose</span><span class="p">;</span>
<span class="k">use</span> <span class="nn">Data::Validate::</span><span class="n">Domain</span> <span class="sx">qw//</span><span class="p">;</span>
view release on metacpan or search on metacpan
lib/DataTables.pm view on Meta::CPAN
$dt->print_json();
I recommend using this method to display the information
back to the browser once you've set up the DataTables object.
It not only prints the json out, but also takes care of printing
the content-type header back to the browser.
=head2 json
my $json = $dt->json();
print "Content-type: application/json\n\n";
view release on metacpan or search on metacpan
lib/Date/Calc/Endpoints.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></title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@osx300.apple.com" />
</head>
<body style="background-color: white">
view release on metacpan or search on metacpan
WeekOfYear.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>Date::WeekOfYear - Simple routine to return the ISO 8601 week of the year (as well as the ISO week year)</title>
<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
# HTML header
print <<"EOT";
<html>
<head><title>$labels{calendar}</title>
<meta http-equiv='content-type' content='Text/html; charset=utf-8' />
</head>
<body>
EOT
print qq(<p align='center'><img src='$pict'>\n) if $pict;
# Column headers for the first six months
view release on metacpan or search on metacpan
examples/web/jquery-1.5.2.js view on Meta::CPAN
match = responseHeaders[ key.toLowerCase() ];
}
return match === undefined ? null : match;
},
// Overrides response content-type header
overrideMimeType: function( type ) {
if ( !state ) {
s.mimeType = type;
}
return this;
examples/web/jquery-1.5.2.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 contents = s.contents,
examples/web/jquery-1.5.2.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
lib/Deplide/RFID/EPCISSubmitter.pm view on Meta::CPAN
my $self = shift;
my $message = shift;
my $request = HTTP::Request::Common::POST($self->{_url});
$request->content($message);
$request->header('content-type' => 'application/xml');
$request->header('content-length' => length($message));
$request->authorization_basic($self->{_user}, $self->{_password});
my $response = $self->{_ua}->request($request);
return $response;
view release on metacpan or search on metacpan
lib/Devel/SizeMe/Graph/static/jquery-1.8.1-min.js view on Meta::CPAN
/*! jQuery v@1.8.1 jquery.com | jquery.org/license */
(function(a,b){function G(a){var b=F[a]={};return p.each(a.split(s),function(a,c){b[c]=!0}),b}function J(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(I,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d=...
view release on metacpan or search on metacpan
t/rf_connection.sample 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">
<head>
<title>DOCSIS3.0 Cable Modem</title>
<meta http-equiv="content-type" content="application/xhtml+xml"; charset="utf-8" />
<link rel="stylesheet" type="text/css" href="../css/web.css"/>
<!--[if IE 6]>
<link rel="stylesheet" type="text/css" href="../css/ie6.css"/>
<script type="text/javascript" language="Javascript" src="../js/hover.js"></script>
view release on metacpan or search on metacpan
presentation/scripts/jquery.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
lib/Device/WebIO/Dancer.pm view on Meta::CPAN
my $bitrate = params->{bitrate};
$webio->vid_set_kbps( $name, $channel, $bitrate );
return '';
};
get '/devices/:name/video/:channel/allowed-content-types' => sub {
my $name = params->{name};
my $channel = params->{channel};
my $allowed = $webio->vid_allowed_content_types( $name, $channel );
return join( "\n", @$allowed );
};
lib/Device/WebIO/Dancer.pm view on Meta::CPAN
$webio->img_set_width( $name, $pin, $width );
$webio->img_set_height( $name, $pin, $height );
return 1;
};
get '/devices/:name/image/:pin/allowed-content-types' => sub {
my $name = params->{name};
my $pin = params->{pin};
my $types = $webio->img_allowed_content_types( $name, $pin );
return join( "\n", @$types );
};
view release on metacpan or search on metacpan
lib/Dezi/Aggregator/Spider.pm view on Meta::CPAN
}
if ( $response->ct ) {
$self->debug and $self->write_log(
uri => $uri,
msg => 'content-type: ' . $response->ct,
);
}
# add its links to the queue.
# If the resource looks like an XML feed of some kind,
view release on metacpan or search on metacpan
lib/Dezi/Client.pm view on Meta::CPAN
}
return $self;
}
=head2 index( I<doc> [, I<uri>, I<content-type>, I<GET_params>] )
Add or update a document. I<doc> should be one of:
=over
lib/Dezi/Client.pm view on Meta::CPAN
A Dezi::Doc object.
=back
I<uri> and I<content-type> are optional, except in the
I<scalar_ref> case, where I<uri> is required. If specified,
the values are passed explicitly in the HTTP headers to the Dezi
server. If not specified, they are (hopefully intelligently) guessed at.
Returns a L<HTTP::Response> object which can be interrogated to
view release on metacpan or search on metacpan
html/JHash.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">
<head>
<title>JHash.pm</title>
<link rel="stylesheet" href="./html/docs.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:" />
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="3">
view release on metacpan or search on metacpan
t/lib/Local/HTTP/Tiny/Mock.pm view on Meta::CPAN
',
'protocol' => 'HTTP/1.1',
'headers' => {
'server' => 'nginx/1.6.3',
'cache-control' => 'max-age=1800',
'content-type' => 'text/yaml',
'x-timer' => 'S1506018172.065497,VS0,VE2',
'x-cache-hits' => '1, 1',
'content-length' => '12653',
'date' => 'Thu, 21 Sep 2017 18:22:52 GMT',
'connection' => 'keep-alive',
t/lib/Local/HTTP/Tiny/Mock.pm view on Meta::CPAN
'headers' => {
'accept-ranges' => 'bytes',
'x-cache' => 'MISS, MISS',
'date' => 'Thu, 21 Sep 2017 19:16:05 GMT',
'server' => 'nginx/1.6.3',
'content-type' => 'text/plain',
'via' => [
'1.1 varnish',
'1.1 varnish'
],
'fastly-debug-digest' => 'abe8f8abc3c33a054b261732aa0cb98d62f1ca227a5aafd2fa53981ccd3d1f62',
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Bitbucket/Create.pm view on Meta::CPAN
# construct the HTTP request!
my $http = HTTP::Tiny->new;
my ($login, $pass) = $self->_get_credentials(0);
$headers->{'authorization'} = "Basic " . MIME::Base64::encode_base64("$login:$pass", '');
$headers->{'content-type'} = "application/json";
# We use the v2.0 API to create
my $url = 'https://api.bitbucket.org/2.0/repositories/' . $login . '/' . $repo_name; # TODO encode the repo_name and login?
$self->log([ "Creating new Bitbucket repository '%s'", $repo_name ]);
my $response = $http->request( 'POST', $url, {
view release on metacpan or search on metacpan
Revision history for Dist-Zilla-Plugin-Github-UploadRelease
0.002 2016-05-01
- Spit out File::LibMagic and hardcode content-type
- Add dependency for Git::Tag plugin
0.001 2016-05-01
- Inital release
view release on metacpan or search on metacpan
t/05-check-dual-life-versions.t view on Meta::CPAN
status => '200',
reason => 'OK',
protocol => 'HTTP/1.1',
url => $url,
headers => {
'content-type' => 'text/x-yaml',
},
content =>
$module eq 'feature' ? '---
distfile: R/RJ/RJBS/perl-5.20.0.tar.gz
version: 1.36
view release on metacpan or search on metacpan
t/lib/NoNetworkHits.pm view on Meta::CPAN
status => '200',
reason => 'OK',
protocol => 'HTTP/1.1',
url => $url,
headers => {
'content-type' => 'text/x-yaml',
},
content => exists $::modules_and_responses{$module} ? $::modules_and_responses{$module}
: die "should not be checking for $module",
};
die 'should not be checking for ' . $module;
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/GitLab/Create.pm view on Meta::CPAN
]
);
my $url = $self->api . '/projects';
$content = encode_json($params);
$headers->{'content-type'} = 'application/json';
$self->log_debug("Sending POST $url");
my $response = $http->request(
'POST', $url,
{
view release on metacpan or search on metacpan
bin/html2ps view on Meta::CPAN
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic(@_) if(@_);
$ua->agent($spoof) if($spoof);
my $res = $ua->request($req);
$code=$res->code;
$contyp=$res->header('content-type');
$cont=$res->content;
} else {
require "www.pl";
@opts=@_?("authorization=$_[0]:$_[1]"):();
push(@opts,"quiet") if(!$opt_d);
view release on metacpan or search on metacpan
cmp_ok($result->name, 'eq', 'test2-registry');
cmp_ok($result->tags->[0], 'eq', 'version1');
}
{
$io->set_content('<HTML><HEAD><meta http-equiv="content-type" content="text/html;charset=utf-8">
<TITLE>302 Moved</TITLE></HEAD><BODY>
<H1>302 Moved</H1>
The document has moved
<A HREF="https://console.cloud.google.com/m/gcr/images/redirect?project=infraestructura-global&location=EU&repo_name=v2/_catalog">here</A>.
</BODY></HTML>');
view release on metacpan or search on metacpan
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
use utf8;
package Document::OOXML::ContentTypes;
use Moose;
use namespace::autoclean;
# ABSTRACT: Part to content-type mapping for OOXML
use XML::LibXML;
my $CONTENT_TYPES_NS = 'http://schemas.openxmlformats.org/package/2006/content-types';
has defaults => (
is => 'ro',
isa => 'ArrayRef[HashRef]'
);
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
Document::OOXML::ContentTypes - Part to content-type mapping for OOXML
=head1 VERSION
version 0.181410
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
say "The content type of /word/document.xml is " . $ct->get_content_type_for_part('/word/document.xml');
=head1 DESCRIPTION
OOXML files contain a file named '[Content_Types].xml' that describes the
content-types of all the other files in the package.
This class implements a way to look up the content-type for a file name,
given the contents of that file.
=head1 METHODS
=head2 new_from_xml($xml_data)
lib/Document/OOXML/ContentTypes.pm view on Meta::CPAN
Creates a new L<Document::OOXML::ContentTypes> instance from the contents
of the C</[Content-Types].xml> file from an OOXML file.
=head2 get_content_type_for_part($part_name)
Returns the content-type of the part with the specified name.
=head1 SEE ALSO
=over
view release on metacpan or search on metacpan
lib/Drogo/Guts.pm view on Meta::CPAN
my ($self, $key, $value) = @_;
$request_data{headers}{$key} = $value;
}
=head3 $self->header('content-type')
Set content type.
=cut
view release on metacpan or search on metacpan
lib/Dwimmer/Feed/Sendmail.pm view on Meta::CPAN
my $att = MIME::Lite->new(
Type => 'text',
Data => $content->{$t},
Encoding => 'quoted-printable',
);
$att->attr("content-type" => "$type{$t}; charset=UTF-8");
$att->replace("X-Mailer" => "");
$att->attr('mime-version' => '');
$att->attr('Content-Disposition' => '');
$msg->attach($att);
view release on metacpan or search on metacpan
dyncall/doc/manual/manual_tex4ht.cfg view on Meta::CPAN
% Clear default header, define our custom one. Using @HEAD will make this be used on all pages generated.
% @@@Ideally, this wouldn't be a copy&paste of the website's header, here. Such
% thing should be done in the website build, and this here a generic header
% (however, style is kinda needed).
\Configure{@HEAD}{}
\Configure{@HEAD}{\HCode{<meta http-equiv="content-type" content="text/html; charset=utf-8"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="resource-type" content="document"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="keywords" content="C, function, dynamic, call, calling, convention, VM, abstraction, closure"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="distribution" content="global"/>\Hnewline}}
% should this really rely on online content (dyncall's .css) even for an offline build? @@@ also, we need a relative path here, so this complicates things further
\Configure{@HEAD}{\HCode{<link rel="stylesheet" href="/data/main.css" type="text/css" media="all"/>\Hnewline}}
view release on metacpan or search on metacpan
lib/E/Mail/Acme.pm view on Meta::CPAN
use overload '""' => sub {
my ($self) = @_;
if (@{$self->[ @$self ]}) {
unless (($self->{'content-type'}->[0]||'') =~ qr{^multipart/}) {
warn "content-type set, but not multipart on multipart message"
if $self->{'content-type'};
delete $self->{'content-type'};
$self->{'content-type'} = qq{multipart/mixed};
}
unless ($self->{'content-type'}->[0] =~ qr{boundary="(?:[^"]+)"}) {
$self->{'content-type'}->[0] .= qq{; boundary="$self->[@$self+1]"};
}
}
join(
$CRLF,
lib/E/Mail/Acme.pm view on Meta::CPAN
Any lines in a multi-part e-mail message form the preamble, and an arrayref of
subparts is always available at the end of the e-mail -- that is, like this:
my $subparts = $e_mail->[ scalar @$e_mail ];
Nested multipart messages are handled just fine. A multipart content-type will
be added, if none has been supplied. If a multipart content-type is set, but
the boundary is not, it will be added. Do not set your own boundary unless you
know what you are doing! You will probably produce a corrupt message!
=head1 SENDING MAIL
view release on metacpan or search on metacpan
lib/EBook/FB2/Binary.pm view on Meta::CPAN
my @nodes = $node->findnodes('@id');
if (@nodes) {
$self->id($nodes[0]->getValue());
}
@nodes = $node->findnodes('@content-type');
if (@nodes) {
$self->content_type($nodes[0]->getValue());
}
# XXX: eval this, it might fail with invalid data
lib/EBook/FB2/Binary.pm view on Meta::CPAN
Returns content of binary element (base64-decoded)
=item content_type()
Returns content-type of binary element
=back
=head1 AUTHOR