view release on metacpan or search on metacpan
lib/Finance/GDAX/Lite.pm view on Meta::CPAN
$res->{content} =~ s/\R/ /g;
$res->{reason} .= ": $res->{content}";
undef $res->{content};
}
if ($res->{headers}{'content-type'} =~ m!application/json!) {
$res->{content} = $self->{_json}->decode($res->{content});
log_trace("API response [%s]: JSON: %s", $time, $res->{content});
} else {
log_trace("API response [%s]: non-JSON: %s", $time, $res->{content});
}
view release on metacpan or search on metacpan
lib/Finance/Quote/ASX.pm view on Meta::CPAN
$error = "Unable to fetch data from the ASX server '$url'. Status: " . $response->status_line;
### ASX.pm Error: $error
return $status, $error, undef;
}
if ($response->header('content-type') !~ m|application/json|i) {
$status = 0;
$error = "Invalid content-type from ASX server '$url'. Expected: application/json, received: " . $response->header('content-type');
### ASX.pm Error: $error
return $status, $error, undef;
}
$json = $response->content;
view release on metacpan or search on metacpan
FirstGoodURL.pm view on Meta::CPAN
sub import { $ua ||= LWP::UserAgent->new }
sub with {
my $class = shift;
carp "no content-type or status given" if not @_;
$status = { 200 => 1 };
$ctype = {};
(/\D/ ? $ctype->{$_} : $status->{$_}) = $_ for @_;
view release on metacpan or search on metacpan
doc/code.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type"
content="text/html; charset=ISO-8859-1">
<title>FLAP - Flash Remoting in Perl</title>
<style>
body {
scrollbar-3d-light-color: #000000;
view release on metacpan or search on metacpan
lib/Flea.pm view on Meta::CPAN
your app, because it will still behave if you mount your app somewhere other
than C</>.
=head2 json($str)
Returns a full C<200 OK>, C<content-type application/json; charset=UTF-8>
response. Pass it something that JSON::encode_json can turn into a string.
=head2 text($str)
text/plain; charset=UTF-8.
view release on metacpan or search on metacpan
lib/Flickr/API/Request.pm view on Meta::CPAN
=head1 DESCRIPTION
This object encapsulates a request to the Flickr API.
C<Flickr::API::Request> is a subclass of L<HTTP::Request>, so you can access
any of the request parameters and tweak them yourself. The content, content-type
header and content-length header are all built from the 'args' list by the
C<Flickr::API::execute_request()> method.
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Flickr/API2/Request.pm view on Meta::CPAN
=head1 DESCRIPTION
This object encapsulates a request to the Flickr API.
C<Flickr::API2::Request> is a subclass of C<HTTP::Request>, so you can access
any of the request parameters and tweak them yourself. The content, content-type
header and content-length header are all built from the 'args' list by the
C<Flickr::API2::execute_request()> method.
=head1 METHODS
view release on metacpan or search on metacpan
public/assets/js/jquery.js view on Meta::CPAN
}},active:0,httpSuccess:function(xhr){try{return !xhr.status&&location.protocol=="file:"||(xhr.status>=200&&xhr.status<300)||xhr.status==304||xhr.status==1223
}catch(e){}return false
},httpNotModified:function(xhr,url){try{var xhrRes=xhr.getResponseHeader("Last-Modified");
return xhr.status==304||xhrRes==jQuery.lastModified[url]
}catch(e){}return false
},httpData:function(xhr,type,s){var ct=xhr.getResponseHeader("content-type"),xml=type=="xml"||!type&&ct&&ct.indexOf("xml")>=0,data=xml?xhr.responseXML:xhr.responseText;
if(xml&&data.documentElement.tagName=="parsererror"){throw"parsererror"
}if(s&&s.dataFilter){data=s.dataFilter(data,type)
}if(typeof data==="string"){if(type=="script"){jQuery.globalEval(data)
}if(type=="json"){data=window["eval"]("("+data+")")
}}return data
view release on metacpan or search on metacpan
lib/FormValidator/Lite/Constraint/File.pm view on Meta::CPAN
$valiator->check(
'file' => [['FILE_MIME', 'text/plain']],
);
Check the file content-type.
=item FILE_SIZE
$valiator->check(
'file' => [['FILE_SIZE', 1_000_000, 100]],
view release on metacpan or search on metacpan
URLs during scan_page operation.
2002-04-16 Alan E. Derhaag <aderhaa@n2h2.com>
* /cvsroot/lib/LWP/UserAgent/FramesReady.pm:
Optimize immediate return if content-type is not HTML.
2002-04-11 Alan E. Derhaag <aderhaa@n2h2.com>
* /cvsroot/lib/LWP/UserAgent/FramesReady.pm:
Correct to not attempt reclassing and populating any
2002-04-01 Alan E. Derhaag <aderhaa@n2h2.com>
* /cvsroot/lib/LWP/UserAgent/FramesReady.pm:
Switch from TreeBuilder to TokeParser for ease of tag search
and manipulation. Corrected for the non-populate of a content-type
header for FTP, GOPHER and other protocols the module may encounter.
Correct to not try to track frames on an error page. Added addendum
to copyright notice for possible CPAN release.
2002-03-27 Alan E. Derhaag <aderhaa@n2h2.com>
values and not just as an array.
2002-03-15 Alan E. Derhaag <aderhaa@n2h2.com>
* /cvsroot/lib/LWP/UserAgent/FramesReady.pm:
Added check of each/every content-type header for test/html
content for without it multiple content-types would not pass the test.
2002-03-11 Alan E. Derhaag <aderhaa@n2h2.com>
* /cvsroot/lib/LWP/UserAgent/FramesReady.pm:
Added check for early return of HTTP::Response to request if
RobotUA::simple_request.
2002-03-03 Alan E. Derhaag <aderhaa@n2h2.com>
* /cvsroot/lib/LWP/UserAgent/FramesReady.pm:
Modified request() to return earily if the content-type is
not text/[s]html.
2002-03-02 Alan E. Derhaag <aderhaa@n2h2.com>
* /cvsroot/lib/LWP/UserAgent/FramesReady.pm:
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>