view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin.pm view on Meta::CPAN
unless(ref $I->provider);
}
$r=Apache2::Request->new($r);
$r->content_type('text/html; charset=UTF-8');
my $a=$r->param('a');
if( $a eq '' ) {
return $I->xindex($r);
} elsif( $a eq 'fetch' ) {
view release on metacpan or search on metacpan
examples/embedded.cgi view on Meta::CPAN
my $id = Digest::MD5::md5_hex( time() . {} . rand() . $$ );
my $q = CGI->new( sub { Time::HiRes::sleep(0.250) } ); # will give us a nice slowdown
print $q->header(
-charset => 'UTF-8',
),
$q->start_html(
-title => 'Apache2::UploadProgress Embedded Example',
-encoding => 'UTF-8',
-script => [ { -src => '/UploadProgress/progress.js' },
view release on metacpan or search on metacpan
lib/App/Alice/HTTPD.pm view on Meta::CPAN
sub send_index {
my ($self, $req) = @_;
return sub {
my $respond = shift;
my $writer = $respond->([200, ["Content-type" => "text/html; charset=utf-8"]]);
my @windows = $self->app->sorted_windows;
@windows > 1 ? $windows[1]->{active} = 1 : $windows[0]->{active} = 1;
$writer->write(encode_utf8 $self->app->render('index_head', @windows));
$self->send_windows($writer, sub {
$writer->write(encode_utf8 $self->app->render('index_footer', @windows));
view release on metacpan or search on metacpan
lib/App/ArchiveDevelCover.pm view on Meta::CPAN
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">
<!-- This file was generated by $class version $version -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>Test Coverage Archive for $name</title>
</head>
<body>
view release on metacpan or search on metacpan
lib/App/AutoCRUD/View/Json.pm view on Meta::CPAN
# encode output
my $json_maker = JSON::MaybeXS->new(%{$self->{json_args}});
my $output = $json_maker->encode($data);
return [200, ['Content-type' => 'application/json; charset=UTF-8'],
[$output] ];
}
1;
view release on metacpan or search on metacpan
lib/App/BarnesNoble/WishListMinder.pm view on Meta::CPAN
header => [
To => $address,
From => qq'"Barnes & Noble Wishlist" <$address>',
Subject => "Price Drop Alert: $subject",
'MIME-Version' => '1.0',
'Content-Type' => 'text/plain; charset=UTF-8',
'Content-Transfer-Encoding' => '8bit',
],
body => Encode::encode('utf8', join("\n", @body)),
);
view release on metacpan or search on metacpan
<meta name="Author" content="%AUTHOR%" />
<meta name="Copyright" content="%COPYRIGHT%" />
<meta name="summary" content="%SUMMARY%" />
<meta name="keywords" content="%KEYWORDS%" />
<meta name="revision" content="%REVISION%" />
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<style type='text/css'>
\@page {
size: %PAGE_SIZE% %ORIENTATION% ;
margin: 90pt 30pt 40pt 30pt ;
view release on metacpan or search on metacpan
# The default layout to use for your application (located in
# views/layouts/main.tt)
layout: "main"
# when the charset is set to UTF-8 Dancer will handle for you
# all the magic of encoding and decoding. You should not care
# about unicode within your app when this setting is set (recommended).
charset: "UTF-8"
# template engine
# simple: default and very basic template engine
# template_toolkit: TT
view release on metacpan or search on metacpan
lib/App/Bernard/Filetype/TextXGettextTranslation.pm view on Meta::CPAN
if ($item->{'type'} eq 'header') {
$item->{'headers'}->{'language-team'} =
'Shavian <ubuntu-l10n-en-shaw@launchpad.net>';
$item->{'headers'}->{'content-type'} =
'text/plain; charset=UTF-8';
$item->{'headers'}->{'plural-forms'} =
'nplurals=2; plural=n!=1;';
$settings->{'defines'} = {
%{$settings->{'defines'}},
view release on metacpan or search on metacpan
share/wordcx.dis view on Meta::CPAN
#
# Useful for convertion from or to the charset used to simulate
# braille patterns on screen in Word CX / CX for Word. The table is 6
# dot only. The character mapping is derived from the publication
# HÃ¥ndbok i punktskrift, Offentlig utvalg for punktskrift, see
# http://liblouis.io/braille-specs/norwegian/#h%C3%A5ndbok-i-litter%C3%A6r-punktskrift
#
view release on metacpan or search on metacpan
t/App-CPAN-Get-MetaCPAN/04-search.t view on Meta::CPAN
"checksum_md5" : "798a40ee72e0078a8f960186d94eb4b4"
}
END
$user_agent->map_response(
qr(https://fastapi\.metacpan\.org/v1/download_url/App::CPAN::Search),
HTTP::Response->new('200', 'OK', ['Content-Type' => 'application/json; charset=utf-8'], $content),
);
my $obj = App::CPAN::Get::MetaCPAN->new(
'lwp_user_agent' => $user_agent,
);
my $ret_hr = $obj->search({
t/App-CPAN-Get-MetaCPAN/04-search.t view on Meta::CPAN
"checksum_md5" : "2cbadf113bd23e93e64dcdac3962e123"
}
END
$user_agent->map_response(
qr(https://fastapi\.metacpan\.org/v1/download_url/App::CPAN::Search),
HTTP::Response->new('200', 'OK', ['Content-Type' => 'application/json; charset=utf-8'], $content),
);
$obj = App::CPAN::Get::MetaCPAN->new(
'lwp_user_agent' => $user_agent,
);
$ret_hr = $obj->search({
view release on metacpan or search on metacpan
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
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>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="/latest/collection.css"></link>
<title>404</title>
</head>
<body>
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
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>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="/latest/collection.css"></link>
<title>404</title>
</head>
<body>
view release on metacpan or search on metacpan
lib/App/CPANIDX.pm view on Meta::CPAN
exists.
curl -i http://name.of.website/cpanidx/yaml/mod/LWP
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:34:07 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
distribution if it exists.
curl -i http://name.of.website/cpanidx/yaml/dist/CPANPLUS-Dist-Build
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Mon, 06 Sep 2010 14:02:23 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
author if they exist.
curl -i http://name.of.website/cpanidx/yaml/auth/BINGOS
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:36:13 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
CPAN.
curl -i http://name.of.website/cpanidx/yaml/dists/BINGOS
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:39:14 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
C<c> for C<co-maint>.
curl -i http://name.of.website/cpanidx/yaml/perms/POE::Component::SmokeBox::Dists
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:39:14 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
and when the packages file that was used was last updated. Both values are in epoch time.
curl -i http://name.of.website/cpanidx/yaml/timestamp
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Wed, 09 Jun 2010 10:16:15 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
most accurate, try L<http://thegestalt.org/simon/perl/wholecpan.html> for a more accurate leaderboard.
curl -i http://name.of.website/cpanidx/yaml/topten
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:44:44 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
Does not take a search term. Returns a list of CPAN mirror sites as listed in the C<MIRRORED.BY> file.
curl -i http://name.of.website/cpanidx/yaml/mirrors
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Mon, 19 Apr 2010 14:52:52 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
with perl core.
curl -i http://name.of.website/cpanidx/yaml/corelist/Class::ISA
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 06 May 2010 09:31:25 GMT
Server: lighttpd/1.4.25
---
view release on metacpan or search on metacpan
share/tt_lib/page.tt view on Meta::CPAN
<head>
[% IF base -%]
<base href="[% base %]">
[% END -%]
<!-- Required meta tags -->
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="">
<meta name="author" content="Mark Otto, Jacob Thornton, and Bootstrap contributors">
<meta name="generator" content="Hugo 0.80.0">
<meta name="theme-color" content="#7952b3">
view release on metacpan or search on metacpan
lib/App/CSVUtils.pm view on Meta::CPAN
last;
}
}
sub _randext {
state $charset = [0..9, "A".."Z","a".."z"];
my $len = shift;
my $ext = "";
for (1..$len) { $ext .= $charset->[rand @$charset] }
$ext;
}
$SPEC{gen_csv_util} = {
v => 1.1,
view release on metacpan or search on metacpan
t/sample/sample.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 xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Expires" content="-1">
<title>[MP4/1.09GB]DV-1194 Ãô¸ÐÉíówÖ±¶ßà ÖÐÎ÷Àï²Ë(ÖÐÎÄ×ÖÄ») ²ÝÁñÉç…^ - powered by phpwind.net</title>
<style>
body{font-size:12px;background:#F9F9EC;}
*{font-family:Tahoma;padding:0;margin:0}
t/sample/sample.html view on Meta::CPAN
</td>
<td width="20%">
</td></tr></table></div></form>
</div>
<script>
var charset='gbk';
var imgpath='images';
var stylepath='wind';
var cnt = 0;
function Addtoie(value,title){
window.external.AddFavorite(value,title);
t/sample/sample.html view on Meta::CPAN
}
}</script>
<center><TABLE width="700" class="tiptop"><TR><TD></TD></TR></TABLE><br />
<SCRIPT LANGUAGE="JavaScript">spinit();</SCRIPT>
<small><font color="#999999">Powered by <b>PHPWind</b> <b>v5.3</b> Code © 2003-07 <br />
This is html template view this page faster<br /><script src="http://s103.cnzz.com/stat.php?id=950900&web_id=950900&online=2" language="JavaScript" charset="gb2312"></script>
</center><br />
</body></html>
view release on metacpan or search on metacpan
devel/weblinks-samples.pl view on Meta::CPAN
print <<'HERE';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>
HERE
view release on metacpan or search on metacpan
lib/Chronicle/Plugin/Generate/LowerCase.pm view on Meta::CPAN
__DATA__
<!DOCTYPE html>
<html lang="en">
<head>
<title>Blog Post Moved</title>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="refresh" content="0; url=<!-- tmpl_var name='top' --><!-- tmpl_var name='target' -->">
<link rel="canonical" href="<!-- tmpl_var name='top' --><!-- tmpl_var name='target' -->">
</head>
<body>
view release on metacpan or search on metacpan
docs/App-Cmdline-Options-Basic.html view on Meta::CPAN
<html><head><title>App::Cmdline::Options::Basic</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
<style type="text/css">
<!--/*--><![CDATA[/*><!--*/
BODY {
background: white;
view release on metacpan or search on metacpan
lib/App/DBBrowser/DB.pm view on Meta::CPAN
sub read_attributes {
my ( $sf ) = @_;
return [
{ name => 'ib_dialect', },
{ name => 'ib_role', },
{ name => 'ib_charset', default => 'UTF8' },
];
}
The information returned by the method C<read_attributes> is used to build the menu entry I<Read Attributes> in
L<db-browser/OPTIONS>.
view release on metacpan or search on metacpan
lib/App/Dapper.pm view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>{{ page.title }}</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
</head>
<body>
{{ page.content }}
lib/App/Dapper.pm view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Welcome</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>Hello world.</p>
view release on metacpan or search on metacpan
$Id: README 27 2019-07-23 11:26:37Z abalama $
App::DistSync v1.04 and later
This document written in Windows-1251 charset
=============================================
КОРОТКО О ПРОЕКТЕ
-----------------
view release on metacpan or search on metacpan
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
if ($self->{style}) {
$self->_output(q{ }, style($self->{style}), "\n");
}
$self->_output(
q{ },
'<meta http-equiv="content-type" content="text/html; charset=utf-8"',
" />\n",
);
if ($self->{sitemap}) {
if (defined($self->{output}) && defined($self->{out_path})) {
my $page = $self->{out_path}->relative($self->{output});
view release on metacpan or search on metacpan
config/Component_Config.pm view on Meta::CPAN
</%class>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Dochazka Site Param</title>
</head>
<body>
<pre>
$site_param_name = '<% $.param %>';
config/Component_Config.pm view on Meta::CPAN
</%class>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Dochazka Monthly Report</title>
</head>
<body>
<pre>
<% Data::Dumper->Dump( [ $.employee ], [ 'employee' ] ) %>
view release on metacpan or search on metacpan
lib/App/Dochazka/WWW/Dispatch.pm view on Meta::CPAN
$expurgated_status = $CELL->status_err(
$body->{'code'},
payload => { code => $hr->code, message => $body->{'text'} },
)->expurgate;
}
$self->response->header('Content-Type' => 'application/json; charset=UTF-8' );
$self->response->header('Content-Encoding' => 'UTF-8' );
$self->response->body( JSON->new->encode( $expurgated_status ) );
return 1;
}
view release on metacpan or search on metacpan
lib/App/DubiousHTTP/Tests.pm view on Meta::CPAN
}
sub _auto_static_html { return <<'HTML'; }
<!doctype html>
<meta charset="utf-8">
<style>
body { font-family: Verdana, sans-serif; }
#title { padding: 1em; margin: 1em; border: 1px; border-style: solid; color: #000; background: #eee; }
#title h1 { font-size: 190%; }
#vendor_notice { padding: 2em; margin: 1em; background: #000000; color: #ff0000; font-size: 150%; display: none; }
lib/App/DubiousHTTP/Tests.pm view on Meta::CPAN
}
if (!req) {
return null;
}
try {
try { req.overrideMimeType('text/plain; charset=x-user-defined'); }
catch(e) { _log("no support for overrideMimeType"); }
if (callback) {
var done = 0;
req.ontimeout = function() {
if (!done) {
view release on metacpan or search on metacpan
lib/App/DuckPAN/WebPublisher.pm view on Meta::CPAN
if (defined $site->fullpath_files->{$file}) {
$self->app->emit_info('Request '.$request->path_info.' uses '.$file.' from DDG::Publisher...');
$body = $site->fullpath_files->{$file}->uncached_content;
$response->code("200");
$response->content_type('text/html; charset=utf-8');
}
else {
my $res = $self->app->http->request(HTTP::Request->new(GET => $url.$request->request_uri));
if ($res->is_success) {
$body = $res->decoded_content;
view release on metacpan or search on metacpan
lib/App/Eduard.pm view on Meta::CPAN
$tt->process('keys', {keys => \@keys}, \$keys) if @keys;
$tt->process($tmpl, \%params, \$result);
my $email = MIME::Entity->build(
From => $ENV{EDUARD_FROM},
To => $in->get('From'),
Type => 'text/plain; charset=UTF-8',
Encoding=> '-SUGGEST',
Subject => 'Re: ' . $in->get('Subject'),
Data => $keys.$result);
my $email_unencrypted = $email->dup;
view release on metacpan or search on metacpan
share/status/app/index.html view on Meta::CPAN
<!doctype html>
<html lang="en" ng-app="myApp">
<head>
<meta charset="utf-8">
<title>AV Status</title>
<link rel="stylesheet" href="css/bootstrap.css"/>
<link rel="stylesheet" href="css/app.css"/>
</head>
<body>