Result:
found more than 732 distributions - search limited to the first 2001 files matching your query
( run in 1.787 )
HTML-EP
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 ($;@) {
HTML-Embperl
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
HTML-Encapsulate
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
HTML-Encoding
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;
HTML-GMap
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);
HTML-GUI
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>" />
HTML-Gumbo
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
HTML-HTML5-Parser
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'})
{
HTML-HiLiter
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"/>);
}
HTML-Highlighter
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
HTML-Inspect
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)
HTML-JQuery
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...
HTML-LinkFilter
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" />
HTML-Lint
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">
HTML-ListScraper
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>
HTML-Mason
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' ); },
],
},
);
}
HTML-Menu-TreeView
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">
HTML-Merge
view release on metacpan or search on metacpan
docs/Merge.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::Merge - Embedded HTML/SQL/Perl system.</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@localhost" />
</head>
<body style="background-color: white">
HTML-Object
view release on metacpan or search on metacpan
lib/HTML/Object/XQuery.pod view on Meta::CPAN
=item * C<contentType>
String. By default C<application/x-www-form-urlencoded; charset=UTF-8>
When sending data to the server, use this content type. Default is C<application/x-www-form-urlencoded; charset=UTF-8>, which is fine for most cases. If you explicitly pass in a content-type to C<ajax>(), then it is always sent to the server (even if...
=item * C<context>
This option is not used.
lib/HTML/Object/XQuery.pod view on Meta::CPAN
=item * C<processData>
The way the data is handled depends on their nature, i.e. whether it is an hash reference, or an array reference or a regular string.
By default, data passed in to the data option as an hash reference or array reference (technically, anything other than a string) will be processed and transformed into a query string, fitting to the default content-type C<application/x-www-form-urle...
=item * C<scriptAttrs>
This option is not used.
HTML-Perlinfo
view release on metacpan or search on metacpan
lib/HTML/Perlinfo.pm view on Meta::CPAN
Displaying detailed server information on the internet is not a good idea and HTML::Perlinfo reveals a lot of information about the local environment. While restricting what system users can publish online is wise, you can also hinder them from using...
=head1 NOTES
1. Print the content-type header first if you are using the module in a CGI setting. (mod_perl handles this for you automatically.) If you do not print the header, you will produce an internal server error. Of course, you can forgo a Web server entir...
2. If the HTML takes too long to load in the browser, then you can try flushing the output buffer. By flushing the buffer, the HTML will start appearing immediately.
INFO_APACHE relies soley on environment variables. If you don't use Apache, there is nothing to worry about. You do not need to turn INFO_APACHE off or anything. The section will simply not appear. Any Web server information will still be in the envi...
INFO_VARIABLES did not work correctly until version 1.52.
INFO_LOADED is the only option whose output cannot be assigned to a scalar.
Since the module outputs HTML, you may want to use it in a CGI script, but you do not have to. Of course, some information, like HTTP headers, would not be available if you use the module at the command-line. If you decide to use this module in a CGI...
use HTML::Perlinfo;
print "Content-type: text/html\n\n";
perlinfo();
HTML-Robot-Scrapper
view release on metacpan or search on metacpan
lib/HTML/Robot/Scrapper/UserAgent/Default.pm view on Meta::CPAN
my $content_types_avail = $self->robot->parser->content_types;
#set headers
$self->headers( $res->{ headers } );
$self->response_headers( $res->{ headers } );
#content type
my $content_type =$res->{headers}->{'content-type'};
$self->content_type( $content_type );
#charset
my $content_charset = $self->charset_from_headers( $res->{ headers } );
$self->charset( $content_charset );
lib/HTML/Robot/Scrapper/UserAgent/Default.pm view on Meta::CPAN
$content_type_found = 1;
}
}
print "**** Content type not set for: " . $content_type . '... please configure it correctly adding a parser for that content type'."\n" if !$content_type_found;
# foreach my $ct ( keys $self->parser_content_type ) {
# if ( $self->response->{ headers }->{'content-type'} =~ m|^$ct|g ) {
# my $parser_method = $self->parser_methods->{ $self->parser_content_type->{ $ct } };
# $self->$parser_method();
# }
# }
# my $reader_method = $item->{method};
# $self->$reader_method; #redirects back to method
}
sub charset_from_headers {
my ( $self, $headers ) = @_;
my $ct = $headers->{'content-type'};
my $charset ;
if ( $ct =~ m/charset=([^;|^ ]+)/ig ) {
$charset = $1;
}
return $charset;
HTML-Seamstress
view release on metacpan or search on metacpan
lib/HTML/Seamstress/Quickstart.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::Seamstress::Quickstart - A gentle introduction to HTML::Seamstress</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:rurban@x-ray.at" />
</head>
<body style="background-color: white">
HTML-StripScripts
view release on metacpan or search on metacpan
examples/tags/tags.pl view on Meta::CPAN
my $html = <<HTML;
<html>
<head>
<title>Test</title>
<meta http-equiv="content-type" content="text/html" />
<link type="text/css" rel="stylesheet" href="/styles.css" />
</head>
<body>
Some text
</body>
HTML-Summary
view release on metacpan or search on metacpan
etc/euc.html view on Meta::CPAN
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=x-sjis">
<title>O'Reilly Japan Home Page</title>
</head>
<body background="graphics/back_tile.gif" bgcolor="white">
<table border="0" width="690">
HTML-TableTiler
view release on metacpan or search on metacpan
Examples.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>HTML::TableTiler - Examples</title>
</head>
<body bgcolor="#ffffff">
<h1>HTML::TableTiler - Examples</h1>
<p>The examples below show you some possibilities of <b>HTML::TableTiler</b> module.</p>
HTML-TagParser
view release on metacpan or search on metacpan
t/sample/index-e.html view on Meta::CPAN
<li><a href="http://www.kawa.net/works/ajax/rss/rss-box-e.html">
RSS BOX in your website </a><br />
How to put a RSS BOX in your website.
</li>
<li><a href="http://www.kawa.net/works/ajax/tips/mimetype/content-type-e.html">
Content-Type: availablity on XMLHttpRequest </a><br />
Some of content-types are only available on many browsers' XMLHttpRequest.
</li>
<li><a href="http://www.kawa.net/works/ajax/tips/dump/dom-tree.html">
Expanding DOM tree (cross browser DOM inspector)</a><br />
I found a bug in XML parsing engines of
HTML-TagTree
view release on metacpan or search on metacpan
lib/HTML/TagTree.pm view on Meta::CPAN
}
}
);
sub get_default_head_meta_attributes{
my $attributes = 'http-equiv="content-type" content="text/html; charset=UTF-8"';
return $attributes;
}
sub get_http_header {
HTML-Tidy-libXML
view release on metacpan or search on metacpan
lib/HTML/Tidy/libXML.pm view on Meta::CPAN
my $lx = XML::LibXML->new;
$lx->recover_silently(1);
my $dom = $lx->parse_html_string($string);
Except one major difference. L<HTML::Tidy::LibXML> does not trust
C<< <meta http-equiv="content-type" content="text/html; charset="foo"> >>
while L<XML::LibXML> tries to use one. Consider this;
my $dom = $lx->parse_html_string('http://example.com');
This B<kinda> works since L<XML::LibXML> is capable of fetching
HTML-Valid
view release on metacpan or search on metacpan
tidy-html5.c view on Meta::CPAN
TY_(InsertNodeAtStart)(head, currentNode);
}
continue;
}
/*
2. <meta http-equiv="content-type" content="text/html; charset=UTF-8">
expected for HTML4. This is normally ok - but can clash.
*/
if (httpEquivAttr && !charsetAttr)
{
contentAttr = TY_(AttrGetById)(currentNode, TidyAttr_CONTENT);
tidy-html5.c view on Meta::CPAN
TY_(DiscardElement)(doc, currentNode);
currentNode = prevNode;
continue;
}
/* httpEquivAttrValue = TY_(tmbstrtolower)(httpEquivAttr->value); */
if (TY_(tmbstrcasecmp)(httpEquivAttr->value, (tmbstr) "content-type") != 0)
continue; /* is not 'content-type' */
if (!contentAttr->value)
{
continue; /* has no 'content' attribute has NO VALUE! */
}
/* check encoding matches
HTML5-DOM
view release on metacpan or search on metacpan
Returns encoding id, if success. And returns HTML5::DOM::Encoding->NOT_DETERMINED if fail.
See for more info: L<https://html.spec.whatwg.org/multipage/syntax.html#prescan-a-byte-stream-to-determine-its-encoding>
my $encoding_id = HTML5::DOM::Encoding::detectByPrescanStream('
<meta http-equiv="content-type" content="text/html; charset=windows-1251">
');
my $encoding = HTML5::DOM::Encoding::id2name($encoding_id);
print $encoding; # WINDOWS-1251
=head3 detectByCharset
And returns HTML5::DOM::Encoding->NOT_DETERMINED if fail.
See for more info: L<https://html.spec.whatwg.org/multipage/infrastructure.html#algorithm-for-extracting-a-character-encoding-from-a-meta-element>
my $encoding_id = HTML5::DOM::Encoding::detectByPrescanStream('
<meta http-equiv="content-type" content="text/html; charset=windows-1251">
');
my $encoding = HTML5::DOM::Encoding::id2name($encoding_id);
print $encoding; # WINDOWS-1251
=head3 detectBomAndCut
( run in 1.787 second using v1.01-cache-2.11-cpan-524268b4103 )