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

Changes  view on Meta::CPAN

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">

 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">

 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.

 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();

 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;

 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">

 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>

 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">

 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>

 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 

 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 {

 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

 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

 view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN

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

README.pod  view on Meta::CPAN

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

 view release on metacpan or  search on metacpan

HTMLTMPL.pm  view on Meta::CPAN

sub bailout()
{
	my $mess = splice @_;

	my($retVal) =<<HTML10;
content-type: text/html

<html><head></head>
<body bgcolor=red>
<p>
<font color=white>

 view release on metacpan or  search on metacpan

lib/HTTP/API/Client.pm  view on Meta::CPAN

C<application/x-www-form-urlencoded> and every other method defaults to
C<application/json; charset=$charset>.

=item charset

Used to build the default JSON content-type header and to decide whether
UTF-8 byte-encoding is applied to the request body. Default C<utf8>, from
C<HTTP_CHARSET>. Must be a real L<JSON::XS> charset method name (C<utf8>,
C<latin1>, C<ascii>, ...) - an invalid value dies immediately and clearly,
naming the bad value, the next time C<kvp2json()> is called, whether or
not C<json> has already been built.

lib/HTTP/API/Client.pm  view on Meta::CPAN

there is no generic way to serialize arbitrary data into an arbitrary
content type.

=head2 prepare_request(%options)

Builds the bare L<HTTP::Request> (method, URL, content-type header) and
applies authentication: C<username>/C<password> take priority and are sent
as HTTP Basic auth via C<basic_authenticator()>; C<auth_token> is used only
if neither is set, and is sent as a raw C<Authorization> header value
verbatim (no C<Bearer> prefix is added for you - include it in the token
itself if the API expects one). C<auth_token> only supplies a I<default>

 view release on metacpan or  search on metacpan

examples/HTTP/API/Core/Example/Stripe.pm  view on Meta::CPAN

    my $idempotency_key = delete $args{idempotency_key};
    my $content = form_urlencode(\%args);

    return $self->{api}->post(
        '/customers',
        headers => { 'content-type' => 'application/x-www-form-urlencoded' },
        content => $content,
        (defined($idempotency_key) ? (
            idempotency => {
                key => $idempotency_key,
                header => 'Idempotency-Key',

 view release on metacpan or  search on metacpan

lib/HTTP/AnyUA.pm  view on Meta::CPAN

    return $self->request(POST => $url, {
        %$args,
        content => HTTP::AnyUA::Util::www_form_urlencode($data),
        headers => {
            %$headers,
            'content-type' => 'application/x-www-form-urlencoded',
        },
    });
}

 view release on metacpan or  search on metacpan

lib/HTTP/Body.pm  view on Meta::CPAN

    return shift->{content_length};
}

=item content_type

Returns the content-type of the body data.

=cut

sub content_type {
    return shift->{content_type};

 view release on metacpan or  search on metacpan

doc/html/Changes.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>Changes</title>
<link rel="stylesheet" href="perldav.css" type="text/css" />
<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/HTTP/Easy.pm  view on Meta::CPAN

    my $hash = HTTP::Easy::Headers->decode($h);

    $hash->{connection};     # 'close'
    $hash->{expect};         # 'continue-100'
    $hash->{'content-type'}; # 'text/html'
    
    my $hdr = HTTP::Easy::Headers->encode($hash);
    
    use HTTP::Easy::Cookie;
    

 view release on metacpan or  search on metacpan

lib/HTTP/Engine/Interface/ModPerl.pm  view on Meta::CPAN

            $r->status( $res->status );
            my $content_type;
            $res->headers->scan(
                sub {
                    my ($key, $val) = @_;
                    $content_type = $val if lc $key eq 'content-type';
                    $r->headers_out->add($key => $val);
                }
            );
            $r->content_type($content_type) if $content_type;
        },