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>
view release on metacpan or search on metacpan
deps/libgit2/src/libgit2/transports/http.c view on Meta::CPAN
return -1;
}
/* The response must contain a Content-Type header. */
if (!response->content_type) {
git_error_set(GIT_ERROR_HTTP, "no content-type header in response");
return -1;
}
/* The Content-Type header must match our expectation. */
if (strcmp(response->content_type, stream->service->response_type) != 0) {
git_error_set(GIT_ERROR_HTTP, "invalid content-type: '%s'", response->content_type);
return -1;
}
*complete = true;
stream->state = HTTP_STATE_RECEIVING_RESPONSE;
view release on metacpan or search on metacpan
lib/GitLab/API/v4/RESTClient.pm view on Meta::CPAN
$content = undef if ! %$content;
}
if (ref $content) {
$content = $self->json->encode( $content );
$headers->{'content-type'} = 'application/json';
$headers->{'content-length'} = length( $content );
}
$options->{content} = $content if defined $content;
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'; }