view release on metacpan or search on metacpan
lib/App/TimeClock/Daily/HtmlPrinter.pm view on Meta::CPAN
my $title = "Daily Report " . localtime();
$self->_print(<< "EOD");
<!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><meta http-equiv='Content-Type' content='text/html;charset=utf-8'/><title>$title</title>
<style type='text/css'>
html, body { margin: 0; padding: 0; border: 0; }
body { background:#fff; color:#000; margin: 1em 0 0 1em; }
table { border-collapse: collapse; width: 80ex; }
th, td { margin:0; border:1px solid #000;padding:0.2em; }
view release on metacpan or search on metacpan
lib/App/Twimap/Tweet.pm view on Meta::CPAN
my @parts = (
Email::MIME->create(
attributes => {
content_type => "text/plain",
disposition => "inline",
charset => "utf-8",
},
header_str => [ Date => $date ],
body => $body_text,
),
Email::MIME->create(
attributes => {
content_type => "text/html",
disposition => "inline",
charset => "utf-8",
},
header_str => [ Date => $date ],
body => $body_html,
),
lib/App/Twimap/Tweet.pm view on Meta::CPAN
my $email = Email::MIME->create(
attributes => {
boundary => '1317546824.2C8b2BC51.4794',
content_type => "multipart/alternative",
charset => "utf-8",
},
header_str => \@headers,
parts => [@parts],
);
view release on metacpan or search on metacpan
lib/App/WRT.pm view on Meta::CPAN
Here's a short example:
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>${title_prefix} - ${title}</title>
</head>
<body>
${content}
view release on metacpan or search on metacpan
lib/App/Web/VPKBuilder.pm view on Meta::CPAN
push @zip_files, catfile $dir, "pkg.$self->{cfg}{vpk_extension}"
} else {
find sub { push @zip_files, $File::Find::name if -f }, $dest;
}
zip \@zip_files, catfile($dir, 'pkg.zip'), FilterName => sub { $_ = abs2rel $_, $dir }, -Level => 1;
open my $fh, '<', catfile $dir, 'pkg.zip' or return [500, ['Content-Type' => 'text/plain;charset=utf-8'], ['Error opening pkg.zip']]; ## no critic (RequireBriefOpen)
remove_tree $dir;
[200, ['Content-Type' => 'application/zip', 'Content-Disposition' => 'attachment; filename=pkg.zip'], $fh]
}
sub makelist {
lib/App/Web/VPKBuilder.pm view on Meta::CPAN
}
my $html = HTML::TreeBuilder->new_from_file('index.html');
$self->makelist(scalar $html->look_down(id => 'list'), $tree, 1);
my $ret = $html->as_HTML('', ' ');
utf8::encode($ret);
[200, ['Content-Type' => 'text/html;charset=utf-8'], [$ret]]
}
sub call{
my ($self, $env) = @_;
my $req = Plack::Request->new($env);
view release on metacpan or search on metacpan
lib/App/Widget.pm view on Meta::CPAN
}
# URL-encode data
sub url_escape {
my $self = shift;
my ($toencode,$charset) = @_;
if ($charset) {
$toencode=~s/($charset)/uc sprintf("%%%02x",ord($1))/eg;
}
else {
$toencode=~s/([^a-zA-Z0-9_\-. ])/uc sprintf("%%%02x",ord($1))/eg;
$toencode =~ tr/ /+/; # spaces become pluses
}
view release on metacpan or search on metacpan
lib/App/Zapzi/Articles.pm view on Meta::CPAN
my $id = shift;
my $rs = get_article($id);
return unless $rs;
my $html = sprintf("<html><head><meta charset=\"utf-8\">\n" .
"<title>%s</title></head><body>%s</body></html>\n",
$rs->title, $rs->article_text->text);
return $html;
}
view release on metacpan or search on metacpan
script/chinese-zodiac-of view on Meta::CPAN
#our $ROW_SEPARATOR = '-';
#our $CORNER_MARKER = '+';
#our $HEADER_ROW_SEPARATOR = '=';
#our $HEADER_CORNER_MARKER = 'O';
#
#my %charsets = (
# classic => { TLC => '+', TT => '+', TRC => '+', HR => '-', VR => '|', FHR => '=', LT => '+', RT => '+', FLT => 'O', FRT => 'O', HC => '+', FHC => 'O', BLC => '+', BT => '+', BRC => '+' },
# boxrule => { TLC => '┌', TT => '┬', TRC => 'â”Â', HR => '─', VR => '│', FHR => 'â•Â', LT => '├', RT => '┤', FLT => '╞', FRT => '╡', HC => '┼', FHC => '╪', BLC => '└', BT => '┴', B...
# norule => { TLC => ' ', TT => ' ', TRC => ' ', HR => ' ', VR => ' ', FHR => ' ', LT => ' ', RT => ' ', FLT => ' ', FRT => ' ', HC => ' ', FHC => ' ', BLC => ' ', BT => ' ', BRC => ' ' },
#);
#
script/chinese-zodiac-of view on Meta::CPAN
#
# $param{indent} //= '';
# $param{indent} = ' ' x $param{indent} if $param{indent} =~ /^[0-9]+$/;
#
# my $style = $param{style};
# croak "unknown style '$style'" if not exists($charsets{ $style });
# my $char = $charsets{$style};
#
# if ($style eq 'classic') {
# $char->{TLC} = $char->{TRC} = $char->{TT} = $char->{LT} = $char->{RT} = $char->{HC} = $char->{BLC} = $char->{BT} = $char->{BRC} = $CORNER_MARKER;
# $char->{HR} = $ROW_SEPARATOR;
# $char->{VR} = $COLUMN_SEPARATOR;
view release on metacpan or search on metacpan
lib/App/ZofCMS/Output.pm view on Meta::CPAN
my $self = shift;
my $query = $self->config->query;
if ( $query->{dir} eq '/' and $query->{page} eq '404' ) {
return $self->config->cgi->header('text/html','404 Not Found');
}
return $self->config->cgi->header( -type => 'text/html', -charset => 'utf-8' );
}
sub output {
my $self = shift;
view release on metacpan or search on metacpan
print "-> html_header\n" if $opt_v > 2;
return
'<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="GENERATOR" content="cloc http://github.com/AlDanial/cloc">
' .
"
<!-- Created by $script v$VERSION -->
<title>$title</title>
view release on metacpan or search on metacpan
docs/App-combinesheets.html view on Meta::CPAN
<html><head><title>App::combinesheets</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
t/data/build.fresh.log view on Meta::CPAN
t/headers-etag.t ........ ok
t/headers-auth.t ........ ok
t/common-req.t .......... ok
t/headers.t ............. ok
t/http-config.t ......... ok
t/message-charset.t ..... ok
t/message-decode-xml.t .. ok
t/message-old.t ......... ok
t/message-parts.t ....... ok
t/status-old.t .......... ok
t/status.t .............. ok
view release on metacpan or search on metacpan
bin/devmode view on Meta::CPAN
#termcapinfo xterm 'hs:ts=\E]2;:fs=\007:ds=\E]2;screen\007'
#terminfo xterm 'vb=\E[?5h$<200/>\E[?5l'
termcapinfo xterm 'vi=\E[?25l:ve=\E[34h\E[?25h:vs=\E[34l'
# emulate part of the 'K' charset
termcapinfo xterm 'XC=K%,%\E(B,[\304,\\\\\326,]\334,{\344,|\366,}\374,~\337'
# xterm-52 tweaks:
# - uses background color for delete operations
termcapinfo xterm ut
view release on metacpan or search on metacpan
lib/App/docsisious/public/icons/flaticon.html view on Meta::CPAN
<html>
<head>
<title>Flaticon WebFont</title>
<link rel="stylesheet" type="text/css" href="flaticon.css">
<meta charset="UTF-8">
<style>
body {
font-family: sans-serif;
line-height: 1.5;
font-size: 16px;
view release on metacpan or search on metacpan
share/testpdljs.pl view on Meta::CPAN
__DATA__
<!DOCTYPE HTML>
<html lang="en">
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="copyright" content="App::financeta Authors">
<meta name="author" content="Vikas N Kumar <vikas@cpan.org>">
<meta name="description" content="App::financeta">
<link rel="icon" href="chart-line-solid.png" type="image/png">
view release on metacpan or search on metacpan
script/genpw-ind view on Meta::CPAN
# style => "styling of table, one of classic, boxrule, or norule",
# indent => "indent every row of the table a certain number of spaces",
# compact => "narrow columns (no space either side of content)",
#);
#
#my %charsets = (
# classic => { TLC => '+', TT => '+', TRC => '+', HR => '-', VR => '|', FHR => '=', LT => '+', RT => '+', FLT => 'O', FRT => 'O', HC => '+', FHC => 'O', BLC => '+', BT => '+', BRC => '+' },
# boxrule => { TLC => '┌', TT => '┬', TRC => 'â”Â', HR => '─', VR => '│', FHR => 'â•Â', LT => '├', RT => '┤', FLT => '╞', FRT => '╡', HC => '┼', FHC => '╪', BLC => '└', BT => '┴', B...
# norule => { TLC => ' ', TT => ' ', TRC => ' ', HR => ' ', VR => ' ', FHR => ' ', LT => ' ', RT => ' ', FLT => ' ', FRT => ' ', HC => ' ', FHC => ' ', BLC => ' ', BT => ' ', BRC => ' ' },
#);
#
script/genpw-ind view on Meta::CPAN
#
# $param{indent} //= '';
# $param{indent} = ' ' x $param{indent} if $param{indent} =~ /^[0-9]+$/;
#
# my $style = $param{style};
# croak "unknown style '$style'" if not exists($charsets{ $style });
# my $char = $charsets{$style};
#
# if ($style eq 'classic') {
# $char->{TLC} = $char->{TRC} = $char->{TT} = $char->{LT} = $char->{RT} = $char->{HC} = $char->{BLC} = $char->{BT} = $char->{BRC} = $CORNER_MARKER;
# $char->{HR} = $ROW_SEPARATOR;
# $char->{VR} = $COLUMN_SEPARATOR;
view release on metacpan or search on metacpan
lib/FlashVideo/Mechanize.pm view on Meta::CPAN
}
sub update_html {
my($self, $html) = @_;
my $charset = _parse_charset($self->response->header("Content-type"));
# If we have no character set in the header (therefore it is worth looking
# for a http-equiv in the body) or the content hasn't been decoded (older
# versions of Mech).
if($LWP::UserAgent::VERSION < 5.827
&& (!$charset || !Encode::is_utf8($html))) {
# HTTP::Message helpfully decodes to iso-8859-1 by default. Therefore we
# do the inverse. This is fucking frail and will probably break.
$html = Encode::encode("iso-8859-1", $html) if Encode::is_utf8($html);
lib/FlashVideo/Mechanize.pm view on Meta::CPAN
if(!FlashVideo::Downloader->check_magic($html)) {
my $p = HTML::TokeParser->new(\$html);
while(my $token = $p->get_tag("meta")) {
my($tag, $attr) = @$token;
if($tag eq 'meta' && $attr->{"http-equiv"} =~ /Content-type/i) {
$charset ||= _parse_charset($attr->{content});
}
}
if($charset) {
eval { $html = Encode::decode($charset, $html) };
FlashVideo::Utils::error("Failed decoding as $charset: $@") if $@;
}
}
}
return $self->SUPER::update_html($html);
}
sub _parse_charset {
my($field) = @_;
return(($field =~ /;\s*charset=([-_.:a-z0-9]+)/i)[0]);
}
sub get_socks_proxy {
my $self = shift;
my $proxy = $self->proxy("http");
view release on metacpan or search on metacpan
lib/App/ggdrv/update.pm view on Meta::CPAN
'Content-Type' => 'multipart/form-data',
Authorization => "Bearer $atoken" ,
Content => [
metadata => [
undef, undef, # undef => undef ã¨æ›¸ãã“ã¨ã¯å‡ºæ¥ã‚‹ã ã‚ã†ã‹?
'Content-Type' => 'application/json;charset=UTF-8',
'Content' => encode_json( {} ) #name=>'temp.txt', mimeType=>'text/plain', parents => ['10_33chars_in_total'], id => $target_fileid},
],
file => [ $_[0] ] #["./anotherName.txt"],
],
);
view release on metacpan or search on metacpan
lib/App/htidx.pm view on Meta::CPAN
$fh->say('<!doctype html>');
$fh->say(sprintf('<!-- %s -->', he(SIGNATURE)));
$fh->say($H->open('html', {lang => 'en'}));
$fh->say($H->head([
$H->meta({charset => 'UTF-8'}),
$H->title(he($title)),
$H->meta({name => 'generator', content => sprintf('%s v%s', __PACKAGE__, $VERSION)}),
$H->meta({name => 'viewport', content => 'width=device-width'}),
$H->style(he($CSS)),
]));
view release on metacpan or search on metacpan
lib/App/htmlcat.pm view on Meta::CPAN
my $remote_addr = $env->{REMOTE_ADDR};
my $writer = $respond->([
200, [
'Content-Type' => 'text/event-stream; charset=utf-8',
'Cache-Control' => 'no-cache'
]
]);
my $io = $env->{'psgix.io'};
lib/App/htmlcat.pm view on Meta::CPAN
} elsif ($env->{PATH_INFO} eq '/css') {
return [ 200, [ 'Content-Type' => 'text/css' ], [ $self->{ansi}->css ] ];
} elsif ($env->{PATH_INFO} eq '/js') {
return [ 200, [ 'Content-Type' => 'text/javascript' ], [ get_data_section('js') ] ];
} elsif ($env->{PATH_INFO} eq '/') {
return [ 200, [ 'Content-Type' => 'text/html; charset=utf-8' ], [ get_data_section('html') ] ];
} else {
return [ 404, [], [] ];
}
};
}
view release on metacpan or search on metacpan
share/template.html view on Meta::CPAN
% my ($globals, $feeds, $entries) = @_;
<!DOCTYPE html>
<html>
<head profile="http://www.w3.org/2005/10/profile">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="shortcut icon" href="jupiter.png" type="image/png"/>
<link rel="icon" href="jupiter.png" type="image/png"/>
<link rel="stylesheet" href="default.css" type="text/css"/>
<title>Planet</title>
<meta name="robots" content="noindex,nofollow">
view release on metacpan or search on metacpan
longer served as text/gemini, you need to use .gmi, or some other
file extension File::MimeInfo doesn't know about)
- new dependency: File::MimeInfo
- use --text_encoding=euc-jp to override UTF-8 charset for all text
files (all "text" types)
1.04
- Should work for more than one file, now! 😅
view release on metacpan or search on metacpan
script/metasyn view on Meta::CPAN
# style => "styling of table, one of classic, boxrule, or norule",
# indent => "indent every row of the table a certain number of spaces",
# compact => "narrow columns (no space either side of content)",
#);
#
#my %charsets = (
# classic => { TLC => '+', TT => '+', TRC => '+', HR => '-', VR => '|', FHR => '=', LT => '+', RT => '+', FLT => 'O', FRT => 'O', HC => '+', FHC => 'O', BLC => '+', BT => '+', BRC => '+' },
# boxrule => { TLC => '┌', TT => '┬', TRC => 'â”Â', HR => '─', VR => '│', FHR => 'â•Â', LT => '├', RT => '┤', FLT => '╞', FRT => '╡', HC => '┼', FHC => '╪', BLC => '└', BT => '┴', B...
# norule => { TLC => ' ', TT => ' ', TRC => ' ', HR => ' ', VR => ' ', FHR => ' ', LT => ' ', RT => ' ', FLT => ' ', FRT => ' ', HC => ' ', FHC => ' ', BLC => ' ', BT => ' ', BRC => ' ' },
#);
#
script/metasyn view on Meta::CPAN
#
# $param{indent} //= '';
# $param{indent} = ' ' x $param{indent} if $param{indent} =~ /^[0-9]+$/;
#
# my $style = $param{style};
# croak "unknown style '$style'" if not exists($charsets{ $style });
# my $char = $charsets{$style};
#
# if ($style eq 'classic') {
# $char->{TLC} = $char->{TRC} = $char->{TT} = $char->{LT} = $char->{RT} = $char->{HC} = $char->{BLC} = $char->{BT} = $char->{BRC} = $CORNER_MARKER;
# $char->{HR} = $ROW_SEPARATOR;
# $char->{VR} = $COLUMN_SEPARATOR;
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"Module/Build/Platform/Unix.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_UNIX';
package Module::Build::Platform::Unix;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);sub is_executable {my ($self,$file)=@_;return +(stat$file)[2]& 0100}sub _startperl {"#! "...
MODULE_BUILD_PLATFORM_UNIX
$fatpacked{"Module/Build/Platform/VMS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_VMS';
package Module::Build::Platform::VMS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;use Config;our@ISA=qw(Module::Build::Base);sub _set_defaults {my$self=shift;$self->SUPER::_set_defaults(@_);$self->{proper...
MODULE_BUILD_PLATFORM_VMS
$fatpacked{"Module/Build/Platform/VOS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_VOS';
package Module::Build::Platform::VOS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);1;
MODULE_BUILD_PLATFORM_VOS
view release on metacpan or search on metacpan
script/mojopaste view on Meta::CPAN
my $paste = shift;
if (!$paste) {
$c->no_such_paste('Could not find paste');
}
elsif ($c->param('raw') or $format eq 'txt') {
$c->res->headers->content_type('text/plain; charset=utf-8');
$c->render(text => $paste);
}
else {
$c->set_title(substr($paste, 0, 80));
$c->res->headers->header('X-Plain-Text-URL' => $c->url_for(format => 'txt')->userinfo(undef)->to_abs);
view release on metacpan or search on metacpan
lib/App/mookview.pm view on Meta::CPAN
filename => $self->{file_path}->basename,
length => $length
});
$html = encode_utf8($html);
return [200, [
'Content-Type' => 'text/html; charset=utf8',
'Content-Length' => length $html,
], [ $html ] ];
}
sub filter_markdown {
view release on metacpan or search on metacpan
t/samples/percona-compiled.txt view on Meta::CPAN
block-encryption-mode aes-128-ecb
bulk-insert-buffer-size 8388608
character-set-client-handshake TRUE
character-set-filesystem binary
character-set-server latin1
character-sets-dir /usr/share/mysql/charsets/
check-proxy-users FALSE
chroot (No default value)
collation-server latin1_swedish_ci
completion-type NO_CHAIN
concurrent-insert AUTO
view release on metacpan or search on metacpan
script/news view on Meta::CPAN
my $references = [split(/\s+/, decode("MIME-Header", $headers->header("references")) || "")];
my $body = join("", @$article);
$body =~ s/\s*<\S*?@\S*?>//g; # remove email addresses
$body =~ s/\s*"\S*?@\S*?"//g; # remove email addresses
if ($headers->header('content-type')) {
my ($charset) = $headers->header('content-type') =~ /charset=['"]?([^;'"]*)/;
$body = decode($charset, $body) if $charset;
}
my $value = {
id => $id,
group => $group,
from => $from,
script/news view on Meta::CPAN
push(@$article, "Subject: $subject\r\n");
push(@$article, "Newsgroups: $group\r\n");
push(@$article, "References: $references\r\n") if $references;
push(@$article, "Supersedes: $supersedes\r\n") if $supersedes;
push(@$article, "MIME-Version: 1.0\r\n");
push(@$article, "Content-Type: text/plain; charset=UTF-8\r\n");
push(@$article, "Content-Transfer-Encoding: 8bit\r\n");
push(@$article, "\r\n");
push(@$article, map { "$_\r\n" } split(/\r?\n/, encode('UTF-8', $body)));
app->log->debug(join("", @$article));
my $ok = $nntp->post($article);
view release on metacpan or search on metacpan
. " 2>&1 >>$logdir/yuml.log";
$format =~ /^plantuml$/ and
$cmd = "plantuml"
. " -tsvg "
. " -charset UTF-8"
. " $imgdir/image-$fileno.$format"
. " 2>&1 >>$logdir/plantuml.log";
### $cmd
system($cmd);
view release on metacpan or search on metacpan
bin/perldolicious view on Meta::CPAN
@@ layouts/index.html.ep
<!doctype html>
<html>
<head>
<meta charset="utf-8" />
<title><%= title %> - <%= ucfirst(app->moniker) %></title>
<link rel="stylesheet" href="<%= url_for( '/css/main.css' ) %>" />
</head>
<body>
<%= content %>
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
my $stream = shift;
my $url = shift;
my $hosts = host_regex();
my $port = port($stream);
if ($url =~ m!^gemini://($hosts):$port/do/test$!) {
success($stream, 'text/plain; charset=UTF-8');
$stream->write("Test\n");
return 1;
}
return;
}
lib/App/Phoebe.pm view on Meta::CPAN
}
sub success {
my $stream = shift;
my $type = shift || 'text/gemini; charset=UTF-8';
my $lang = shift;
if ($lang) {
result($stream, "20", "$type; lang=$lang");
} else {
result($stream, "20", "$type");
lib/App/Phoebe.pm view on Meta::CPAN
my $host = shift;
my $space = shift;
my $id = shift;
my $revision = shift;
$log->info("Serving raw $id");
success($stream, 'text/plain; charset=UTF-8');
$stream->write(encode_utf8 text($stream, $host, $space, $id, $revision));
}
sub serve_diff {
my $stream = shift;
lib/App/Phoebe.pm view on Meta::CPAN
my $id = shift;
my $revision = shift;
$stream->write("<!DOCTYPE html>\n");
$stream->write("<html>\n");
$stream->write("<head>\n");
$stream->write("<meta charset=\"utf-8\">\n");
$stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n");
$stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n");
$stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n");
$stream->write("</head>\n");
$stream->write("<body>\n");