view release on metacpan or search on metacpan
lib/NewsSpider/Terra.pm view on Meta::CPAN
package NewsSpider::Terra; #has charset iso-8859-1
use Moose;
with qw/Jungle::Spider/;
has startpage => (
is => 'rw',
view release on metacpan or search on metacpan
1.20 2014/03/21
Added \r with a score of 0. Since in unix return is \n and in
windows it is \n and \r combined, the \n score is sufficent.
Moved to interger only math to improve speed
Added a full charset test
1.19 2014/03/19
Converted to Math::BigInt for cross-system compatibility
Only returning the integer CM distance
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
cgi_starapi
cgms
cgn_config
cgn_stat
chargen
charsetmgr
checkmk_agent
checkoutdb
checkpoint_rtm
checksum
chevinservices
view release on metacpan or search on metacpan
devdata/article.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" lang="id-ID">
<head profile="http://gmpg.org/xfn/11">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>TOP 1000 Nama Populer Indonesia | Namafb.com</title>
<link rel="stylesheet" href="https://s0.wp.com/wp-content/themes/pub/inove/style.css" type="text/css" media="screen" />
<script type="text/javascript" src="https://s0.wp.com/wp-content/themes/pub/inove/js/base.js"></script>
devdata/article.html view on Meta::CPAN
<a class="bsub" href="javascript:void(0)"><span id='bsub-text'>Ikuti</span></a>
<div id="bitsubscribe">
<h3><label for="loggedout-follow-field">Ikuti “Namafb.comâ€</label></h3>
<form action="https://subscribe.wordpress.com" method="post" accept-charset="utf-8" id="loggedout-follow">
<p>Kirimkan setiap pos baru ke Kotak Masuk Anda.</p>
<p id="loggedout-follow-error" style="display: none;"></p>
<p class="bit-follow-count">Bergabunglah dengan 420 pengikut lainnya</p>
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
printdevice
printencoding
printexpr
printfont
printheader
printmbcharset
printmbfont
printoptions
pumheight
quoteescape
readonly
view release on metacpan or search on metacpan
Acme-PIA-Export-0.019.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>Module Acme::PIA::Export</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:" />
</head>
<body style="background-color: white">
view release on metacpan or search on metacpan
share/locale/Acme__Padre__PlayCode-ar.po view on Meta::CPAN
"POT-Creation-Date: 2009-05-18 23:02+0800\n"
"PO-Revision-Date: \n"
"Last-Translator: Ahmad M. Zawawi <ahmad.zawawi@gmail.com>\n"
"Language-Team: Ahmad M. Zawawi <ahmad.zawawi@gmail.com>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Poedit-Language: Arabic\n"
#: lib/Padre/Plugin/AcmePlayCode.pm:19
msgid "Averything"
view release on metacpan or search on metacpan
inc/MyCheckVersionIncremented.pm view on Meta::CPAN
my $res = HTTP::Tiny->new->get($url);
$self->log('could not query the index?'), return undef if not $res->{success};
my $data = $res->{content};
if (my $charset = HTTP::Headers->new(%{ $res->{headers} })->content_type_charset)
{
$data = Encode::decode($charset, $data, Encode::FB_CROAK);
}
$self->log_debug([ 'got response: %s', $data ]);
my $payload = YAML::Tiny->read_string($data);
view release on metacpan or search on metacpan
README.html view on Meta::CPAN
<html><head><title>Acme::Prereq::BigDistro</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
</head>
<body class='pod'>
<!--
generated by Pod::Simple::HTML v3.20,
using Pod::Simple::PullParser v3.20,
view release on metacpan or search on metacpan
lib/Acme/ReturnValue/MakeSite.pm view on Meta::CPAN
my $self = shift;
return <<"EOHTMLHEAD";
<html>
<head><title>Acme::ReturnValue findings</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<script src="jquery-1.3.2.min.js" type="text/javascript"></script>
<link href="acme_returnvalue.css" rel="stylesheet" type="text/css">
</head>
view release on metacpan or search on metacpan
lib/Acme/SaBalTongMun.pm view on Meta::CPAN
has 'font_size' => ( isa => 'Int', is => 'rw', required => 1 );
has 'font_charset' => ( isa => 'Str', is => 'rw', default => 'Unicode' );
has 'color' => ( isa => 'Str', is => 'rw', required => 1 );
lib/Acme/SaBalTongMun.pm view on Meta::CPAN
$string_angle, # rotation angle
$dest_x, # X coordinates
$dest_y, # Y coordinates
$string,
{
charmap => $self->font_charset,
},
);
$dest_angle += $angle;
}
lib/Acme/SaBalTongMun.pm view on Meta::CPAN
=head2 font_size
This attribute stores the size of the font.
=head2 font_charset
This attribute stores the charset of the font.
This is optional and the default value is "Unicode".
=head2 color
This attribute stores the color of the font.
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Platform/VMS.pm view on Meta::CPAN
# Need to look up the EFS character set mode. This may become a dynamic
# mode in the future.
sub _efs {
my $efs;
if ($use_feature) {
$efs = VMS::Feature::current("efs_charset");
} else {
my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
$efs = $env_efs =~ /^[ET1]/i;
}
return $efs;
view release on metacpan or search on metacpan
DateLocales.pm view on Meta::CPAN
date-specific locale operations. Some of the questions to answer:
=over
=item Can we rely on the fact that the locale implementation will
return "bytes" in the given charset (encoding)?
=item Is the %OB extension of L<POSIX/strftime> supported?
=back
DateLocales.pm view on Meta::CPAN
* Solaris 10:
* does not understand %OB
* %B seems to return the genitive form
* the "short" locale names seem to link to the non-utf8 forms (iso-8859-1 or so)
* encoding seems to match the locale charset
* all Serbian variants are cyrillic
* FreeBSD 6.2, 7.0, 7.2:
* understands %OB, which is usually the nominative form of month names
* %B has the genitive form (modulo bugs, see the Croatian locale)
* encoding matches the locale charset
* the ISO8859-2 variant of Serbian is latin, all others are cyrillic
* it seems that all of locales are installed by default
* Linux (debian lenny):
* does not understand %OB
* encoding seems to match the locale charset
* Linux (debian etch):
* does not understand %OB
* %B returns the nominative form (at least for Croatian)
* encoding seems to match the locale charset
* the "short" locale names seem to link to the non-utf8 forms (iso-8859-1 or so)
* Linux (s390x-linux):
* does not understand %OB
* %B returns the nominative form (at least for Bosnian and Czech)
* the @euro form seems to be the same like the "short" locale (that is, iso-8859-15 or so)
DateLocales.pm view on Meta::CPAN
* does not seem to have the "locales -a" command, so only the default locale was tested
* understands %OB, contents (genitive vs. nominative) unclear
* Darwin 8:
* understands %OB, and seems to have the same bugs as the FreeBSD version
(Croatian locale)
* encoding matches the locale charset
* the ISO8859-2 variant of Serbian is latin, all others are cyrillic
* it seems that all of locales are installed by default
* MSWin32:
* does not understand %OB
* cygwin:
view release on metacpan or search on metacpan
eg/ukrop.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=koi8-r">
<META NAME="LANGUAGE" CONTENT="ru-ru">
<head>
<title>ðÒÏ ÓÅÍÁÎÔÉËÕ É ÐÒÏ ÕËÒÏÐ</title>
</head>
view release on metacpan or search on metacpan
README.html view on Meta::CPAN
<html><head><title>Acme::Web::PodDisplay</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
</head>
<body class='pod'>
<!--
generated by Pod::Simple::HTML v3.20,
using Pod::Simple::PullParser v3.20,
view release on metacpan or search on metacpan
share/apache2/conf/httpd.conf.tt view on Meta::CPAN
# [in case no accepted languages matched the available variants]
#
ForceLanguagePriority Prefer Fallback
#
# Specify a default charset for all content served; this enables
# interpretation of all content as UTF-8 by default. To use the
# default browser choice (ISO-8859-1), or to allow the META tags
# in HTML content to override this choice, comment out this
# directive:
#
view release on metacpan or search on metacpan
lib/Activiti/Rest/Response.pm view on Meta::CPAN
# { "errorMessage": "<errorMessage>", "statusCode": "statusCode" }
#from version 5.17
# { "message": "<http message>", "exception": "<former errorMessage>" }
my $content_hash = JSON::decode_json($res->content);
my $exception = $content_hash->{exception} || $content_hash->{errorMessage};
#can return multiple values (e.g. 'application/json','charset=utf-8')
my $ct = $res->content_type;
my $args = {
status_code => $res->code,
message => $res->message,
content => $res->content,
view release on metacpan or search on metacpan
examples/phonelist.cgi view on Meta::CPAN
use AddressBook;
use CGI;
$query = CGI::new();
print $query->header(-charset=>'UTF-8');
print "<html><head>\n";
print "<style type=\"text/css\">\n";
print "td {font-size: 8pt; vertical-align: top}\n";
print "</style>\n";
print "<title>Phone List</title></head><body>\n";
view release on metacpan or search on metacpan
lib/Ado/Command/version.pm view on Meta::CPAN
#the only action this command implements
sub version {
my $self = shift;
my $msg = "$/ADO:$/ "
. Mojo::Util::encode(Mojo::Message->new->default_charset,
$Ado::VERSION . ' - ' . $Ado::CODENAME);
my $latest = $self->latest;
if ($latest) {
$msg .= "$/ This version is up to date, have fun!$/"
if $latest == $Ado::VERSION;
view release on metacpan or search on metacpan
dyncall/doc/manual/manual_tex4ht.cfg view on Meta::CPAN
% Set html output type and how the pages will be organized; index=a,b,c means a
% column index, b depth partitioning per page, and if c is present and 'next',
% that next-links recurses.
% Use b=1 for outputting one big html page. b=2 would partition by sections, b=3
% by sections and subsections, and so on...
\Preamble{html,info,index=2,1,pic-tabular,pic-align,charset="utf-8",p-width}
% For manual partitioning we use b=1 above, then \CutAt
%\CutAt{subsubsection,subsection,likesubsection,section,likesection,part}
\CutAt{section}
%% Don't want TOC to be on own page.
dyncall/doc/manual/manual_tex4ht.cfg view on Meta::CPAN
% Clear default header, define our custom one. Using @HEAD will make this be used on all pages generated.
% @@@Ideally, this wouldn't be a copy&paste of the website's header, here. Such
% thing should be done in the website build, and this here a generic header
% (however, style is kinda needed).
\Configure{@HEAD}{}
\Configure{@HEAD}{\HCode{<meta http-equiv="content-type" content="text/html; charset=utf-8"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="resource-type" content="document"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="keywords" content="C, function, dynamic, call, calling, convention, VM, abstraction, closure"/>\Hnewline}}
\Configure{@HEAD}{\HCode{<meta name="distribution" content="global"/>\Hnewline}}
% should this really rely on online content (dyncall's .css) even for an offline build? @@@ also, we need a relative path here, so this complicates things further
\Configure{@HEAD}{\HCode{<link rel="stylesheet" href="/data/main.css" type="text/css" media="all"/>\Hnewline}}
view release on metacpan or search on metacpan
lib/Aion/Surf.pm view on Meta::CPAN
my $json = delete $set{json};
$json = $data, undef $data if not defined $json and ref $data eq "HASH";
if(defined $json) {
$validate_data->();
$request->header('Content-Type' => 'application/json; charset=utf-8');
$data = Aion::Format::Json::to_json $json;
utf8::encode($data) if utf8::is_utf8($data);
$request->content($data);
}
lib/Aion/Surf.pm view on Meta::CPAN
=over
=item * C<query> - add query params to C<$url>.
=item * C<json> - body request set in json format. Add header C<Content-Type: application/json; charset=utf-8>.
=item * C<form> - body request set in url params format. Add header C<Content-Type: application/x-www-form-urlencoded>.
=item * C<headers> - add headers. If C<header> is array ref, then add in the order specified. If C<header> is hash ref, then add in the alphabet order.
view release on metacpan or search on metacpan
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||Viu
get_regex_charset_name|5.031004||Vniu
getservbyname|5.005000||Viu
GETSERVBYNAME_R_HAS_BUFFER|5.008000||Viu
GETSERVBYNAME_R_HAS_PTR|5.008000||Viu
GETSERVBYNAME_R_PROTO|5.008000|5.008000|Vn
getservbyport|5.005000||Viu
view release on metacpan or search on metacpan
html/index.html view on Meta::CPAN
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>CouponCode Test Page</title>
<script type="text/javascript" src="https://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>
<script type="text/javascript" src="jquery.couponcode.js"></script>
<link rel="stylesheet" type="text/css" href="jquery.couponcode.css">
<link rel="stylesheet" type="text/css" href="style.css">
view release on metacpan or search on metacpan
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
get_regclass_nonbitmap_data|5.031011||Viu
get_regex_charset_name|5.031004||Vniu
getservbyname|5.005000||Viu
GETSERVBYNAME_R_HAS_BUFFER|5.008000||Viu
GETSERVBYNAME_R_HAS_PTR|5.008000||Viu
GETSERVBYNAME_R_PROTO|5.008000|5.008000|Vn
getservbyport|5.005000||Viu
view release on metacpan or search on metacpan
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
get_regclass_nonbitmap_data|5.031011||Viu
get_regex_charset_name|5.031004||Vniu
getservbyname|5.005000||Viu
GETSERVBYNAME_R_HAS_BUFFER|5.008000||Viu
GETSERVBYNAME_R_HAS_PTR|5.008000||Viu
GETSERVBYNAME_R_PROTO|5.008000|5.008000|Vn
getservbyport|5.005000||Viu
view release on metacpan or search on metacpan
lib/Alice/HTTP/Server.pm view on Meta::CPAN
$res->redirect($dest);
}
else {
$req->env->{"psgix.session"}{is_logged_in} = 0;
$req->env->{"psgix.session.options"}{expire} = 1;
$res->content_type("text/html; charset=utf-8");
$res->body($self->render("login", $dest, "bad username or password"));
}
$res->send;
});
}
# render the login page
else {
$res->content_type("text/html; charset=utf-8");
$res->body($self->render("login", $dest));
$res->send;
}
}
lib/Alice/HTTP/Server.pm view on Meta::CPAN
sub send_index {
my ($self, $req, $res) = @_;
my $options = $self->merged_options($req);
my $app = $self->app;
$res->headers(["Content-type" => "text/html; charset=utf-8"]);
my $writer = $res->writer;
my @windows = $app->sorted_windows;
my @queue;
lib/Alice/HTTP/Server.pm view on Meta::CPAN
return $self->app->render(@_);
}
sub export_config {
my ($self, $req, $res) = @_;
$res->content_type("text/plain; charset=utf-8");
{
$res->body(to_json($self->app->config->serialized,
{utf8 => 1, pretty => 1}));
}
$res->send;
view release on metacpan or search on metacpan
lib/Alien/Build/Plugin/Fetch/LWP.pm view on Meta::CPAN
my($protocol) = $url =~ /^([a-z]+):/;
die "error fetching $url: @{[ $res->status_line ]}"
unless $res->is_success;
my($type, $charset) = $res->content_type_charset;
my $base = $res->base;
my $filename = $res->filename;
if($type eq 'text/html')
{
return {
type => 'html',
charset => $charset,
base => "$base",
content => $res->decoded_content || $res->content,
protocol => $protocol,
};
}