view release on metacpan or search on metacpan
lib/App/OpenMbox/Client.pm view on Meta::CPAN
Data => $body,
Path => $path,
Encoding => 'base64',
) or die "create container failed: $!";
$msg->attr('content-type.charset' => 'UTF-8');
$msg->send( 'smtp',
$host,
Port => $port,
AuthUser => $user,
AuthPass => $pass,
view release on metacpan or search on metacpan
lib/App/PAIA/Tester.pm view on Meta::CPAN
$PSGI_RESPONSE = $DEFAULT_PSGI;
$PSGI_RESPONSE->[0] = $_[0] =~ /^\d+/ ? shift : 200;
$PSGI_RESPONSE->[1] = shift if ref $_[0] and reftype $_[0] eq 'ARRAY' and @_ > 1;
my $content = shift;
if (reftype $content eq 'HASH') {
push @{$PSGI_RESPONSE->[1]}, 'Content-type', 'application/json; charset=UTF-8';
$PSGI_RESPONSE->[2] = [ encode_json($content) ];
} elsif (reftype $_[1] eq 'ARRAY') {
$PSGI_RESPONSE->[2] = $content;
} else {
$PSGI_RESPONSE->[2] = [$content];
view release on metacpan or search on metacpan
bin/pft-make view on Meta::CPAN
way, that is by making use of the C<[% site.encoding %]> key in the HTML
header:
<head>
<meta http-equiv="content-type"
content="text/html; charset=[% site.encoding %]">
...
</head>
The result of a build is a collection of HTML pages. Since C<a href> links
are relative, the generated site will work fine even if moved or copied
view release on metacpan or search on metacpan
% package2plantumlclassdiagram PATH_TO_MODULES > a.plantuml
Then, render a.plantuml with PlantUML.
% GRAPHVIZ_DOT=$(which dot) plantuml -charset UTF-8 -tpng a.plantuml
% open a.png
# PLOT ALL MODULES I YOUR PROJECT
Like this.
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");
view release on metacpan or search on metacpan
configuration/configuration_template/frame.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>Plog</title>
<link rel="stylesheet" href="sco.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
</head>
<body>
view release on metacpan or search on metacpan
lib/App/Pod2Epub.pm view on Meta::CPAN
. qq{\n}
. qq{<html xmlns="http://www.w3.org/1999/xhtml">\n}
. qq{<head>\n}
. qq{<title></title>\n}
. qq{<meta http-equiv="Content-Type" }
. qq{content="text/html; charset=iso-8859-1"/>\n}
. qq{<link rel="stylesheet" href="../styles/style.css" }
. qq{type="text/css"/>\n}
. qq{</head>\n}
. qq{\n}
. qq{<body>\n}
view release on metacpan or search on metacpan
lib/App/Pods2Site/AbstractSiteBuilder.pm view on Meta::CPAN
{
my $sbCssFile = slashify("$sitedir/$sbName.css");
writeUTF8File($sbCssFile, $sbCssContent);
my $systemCSSContent = <<SYSCSS;
\@charset "UTF-8";
\@import url($sbName.css);
SYSCSS
my $inUserCSSFile = $args->getCSS();
if ($inUserCSSFile)
view release on metacpan or search on metacpan
'x-timer' => 'S1528402525.672062,VS0,VE96',
'content-security-policy' => 'default-src \'none\'; style-src \'unsafe-inline\'; sandbox',
'x-cache' => 'MISS',
'x-fastly-request-id' => 'a46d6b434a76506ced7a5caf7ef0ff54e70b6569',
'via' => '1.1 varnish',
'content-type' => 'text/plain; charset=utf-8',
'x-cache-hits' => '0',
'etag' => '"b82620b2b61a7275fc1d0ad1bc9a405a00dba9c1"',
'x-content-type-options' => 'nosniff',
},
};
view release on metacpan or search on metacpan
lib/App/SCM/Digest.pm view on Meta::CPAN
use constant PATTERN => '%FT%T';
use constant EMAIL_ATTRIBUTES => (
content_type => 'text/plain',
disposition => 'attachment',
charset => 'UTF-8',
encoding => 'quoted-printable',
);
our $VERSION = '0.14';
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
share/html/html5/___name___.html.tt view on Meta::CPAN
<!DOCTYPE html>
<html>
<head>
<title>[% title %]</title>
<meta http-equiv="Content-type" content="text/html;charset=UTF-8" />
</head>
<body>
</body>
</html>
view release on metacpan or search on metacpan
lib/App/SilverSplash/Apache2.pm view on Meta::CPAN
cp_mac => URI::Escape::uri_escape( $class->wan_mac ),
provider_href => $Config->sl_account_website,
provider_logo => $Config->sl_account_logo,
);
$r->content_type('text/html; charset=UTF-8');
$r->no_cache(1);
$r->rflush;
my $output;
$Template->process( 'splash.tmpl', \%tmpl, \$output )
lib/App/SilverSplash/Apache2.pm view on Meta::CPAN
);
my $output;
$Template->process( 'free.tmpl', \%tmpl, \$output )
|| die $Template->error;
$r->content_type('text/html; charset=UTF-8');
$r->no_cache(1);
$r->rflush;
$r->print($output);
return Apache2::Const::OK;
lib/App/SilverSplash/Apache2.pm view on Meta::CPAN
);
my $output;
$Template->process( 'paid.tmpl', \%tmpl, \$output )
|| die $Template->error;
$r->content_type('text/html; charset=UTF-8');
$r->no_cache(1);
$r->rflush;
$r->print($output);
return Apache2::Const::OK;
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
share/template.xhtml view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title><TMPL_VAR title></title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
<style type="text/css">
html {
font-family: Sans-Serif;
text-align: center;
}
view release on metacpan or search on metacpan
share/page_template.html view on Meta::CPAN
<!DOCTYPE html>
<html>
<head>
<title>Example</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<link rel="stylesheet" type="text/css" href="slides.css" />
<link rel="stylesheet" type="text/css" href="slides-ui.css" />
<link rel="stylesheet" type="text/css" href="highlight/a11y-dark.min.css" />
<script src="jquery-3.3.1.min.js"></script>
<script src="highlight/highlight.min.js"></script>
view release on metacpan or search on metacpan
t/attached.msg view on Meta::CPAN
X-Planet: Planet of the Apes
User-Agent: Mutt/1.5.17 (2007-11-01)
--a8Wt8u1KmwUX3Y2C
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
This is a *Markdown*-like text message with [links](http://rjbs.manxome.org/)
and so on.
view release on metacpan or search on metacpan
socialcalc/simpleedit14.pl view on Meta::CPAN
}
if ($uri =~ /\/([a-z\-0-9]+)\.(gif|js|css)$/) { # ok request
$uri = "$1.$2";
$uri = "images/$uri" if $2 eq "gif";
# if ($2 eq "js") {
# $res->content_type("text/html; charset=UTF-8");
# }
$c->send_file_response($uri);
next;
}
socialcalc/simpleedit14.pl view on Meta::CPAN
else {
my $q = new CGI($r->uri->query());
$resp = process_request($q)
}
my $res = new HTTP::Response(200);
$res->content_type("text/html; charset=UTF-8");
$res->expires("-1d");
$res->content($resp);
$c->send_response($res);
}
socialcalc/simpleedit14.pl view on Meta::CPAN
$response = <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Simple Page Editor With Spreadsheets $versionstr</title>
<script type="text/javascript" src="${jsdir}socialcalcconstants.js"></script>
<script type="text/javascript" src="${jsdir}socialcalc-3.js"></script>
<script type="text/javascript" src="${jsdir}socialcalctableeditor.js"></script>
<script type="text/javascript" src="${jsdir}formatnumber2.js"></script>
socialcalc/simpleedit14.pl view on Meta::CPAN
$response = <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Simple Page Editor With Spreadsheets $versionstr</title>
<style>
body, td, input, texarea
{font-family:verdana,helvetica,sans-serif;font-size:small;}
</style>
socialcalc/simpleedit14.pl view on Meta::CPAN
$response = <<"EOF"; # output page with edit JS code
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Simple Page Editor With Spreadsheets $versionstr</title>
<script type="text/javascript" src="${jsdir}socialcalcconstants.js"></script>
<script type="text/javascript" src="${jsdir}socialcalc-3.js"></script>
<script type="text/javascript" src="${jsdir}socialcalctableeditor.js"></script>
<script type="text/javascript" src="${jsdir}formatnumber2.js"></script>
socialcalc/simpleedit14.pl view on Meta::CPAN
$response = <<"EOF"; # output page with edit JS code
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Simple Page Editor With Spreadsheets $versionstr</title>
<script type="text/javascript" src="${jsdir}socialcalc-3.js"></script>
<script type="text/javascript" src="${jsdir}drawlib3.js"></script>
<style>
body, td, input, texarea
view release on metacpan or search on metacpan
lib/App/SpamcupNG.pm view on Meta::CPAN
) unless ( defined($form) );
my $spam_header_info = find_header_info($response_ref);
$summary->set_mailer( $spam_header_info->{mailer} );
$summary->set_content_type( $spam_header_info->{content_type} );
$summary->set_charset( $spam_header_info->{charset} );
if ( $logger->is_info ) {
$logger->info( 'X-Mailer: ' . $summary->to_text('mailer') );
$logger->info( 'Content-Type: ' . $summary->to_text('content_type') );
view release on metacpan or search on metacpan
examples/html/myapp.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></title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:" />
</head>
<body>
view release on metacpan or search on metacpan
lib/App/SpreadRevolutionaryDate/Target/Freenode.pm view on Meta::CPAN
alt_nicks => ['RevolutionaryCalendar', 'RevolutionaryDate'],
name => 'Revolutionary Date bot',
flood => 1,
useipv6 => 1,
ssl => $ssl,
charset => 'utf-8',
channels => $args->{channels},
freenode_nickname => $args->{nickname},
freenode_password => $args->{password},
msg => '',
no_run => 1,
view release on metacpan or search on metacpan
lib/App/Sqitch/Engine/firebird.pm view on Meta::CPAN
sub _def_user { $ENV{ISC_USER} }
sub _def_pass { $ENV{ISC_PASSWORD} }
sub _dsn {
my $uri = shift->registry_uri;
return $uri->dbi_dsn . ';ib_dialect=3;ib_charset=UTF8';
}
has dbh => (
is => 'rw',
isa => DBH,
lib/App/Sqitch/Engine/firebird.pm view on Meta::CPAN
push @ret => (
'-quiet',
'-bail',
'-sqldialect' => '3',
'-pagelength' => '16384',
'-charset' => 'UTF8',
$self->connection_string($uri),
);
return \@ret;
},
view release on metacpan or search on metacpan
share/res/js/jquery-2.0.1.min.js view on Meta::CPAN
/*! jQuery v2.0.1 | (c) 2005, 2013 jQuery Foundation, Inc. | jquery.org/license
//@ sourceMappingURL=jquery-2.0.1.min.map
*/
(function(e,undefined){var t,n,r=typeof undefined,i=e.location,o=e.document,s=o.documentElement,a=e.jQuery,u=e.$,l={},c=[],f="2.0.1",p=c.concat,h=c.push,d=c.slice,g=c.indexOf,m=l.toString,y=l.hasOwnProperty,v=f.trim,x=function(e,n){return new x.fn.in...
},_queueHooks:function(e,t){var n=t+"queueHooks";return H.get(e,n)||H.access(e,n,{empty:x.Callbacks("once memory").add(function(){H.remove(e,[t+"queue",n])})})}}),x.fn.extend({queue:function(e,t){var n=2;return"string"!=typeof e&&(t=e,e="fx",n--),n>a...
}});var Xt,Ut,Yt=x.now(),Vt=/\?/,Gt=/#.*$/,Jt=/([?&])_=[^&]*/,Qt=/^(.*?):[ \t]*([^\r\n]*)$/gm,Kt=/^(?:about|app|app-storage|.+-extension|file|res|widget):$/,Zt=/^(?:GET|HEAD)$/,en=/^\/\//,tn=/^([\w.+-]+:)(?:\/\/([^\/?#:]*)(?::(\d+)|)|)/,nn=x.fn.load,...
view release on metacpan or search on metacpan
},
'' => sub {
my ($httpd, $req) = @_;
my $file = static::find substr $req->url, 1;
$req->respond ([200 => "OK", { 'Content-Type' => 'text/plain; charset=utf-8' }, $file]);
},
);
$httpd->run;
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
$message = $self->encoding->encode($message);
return $self->create_response(
$code,
[
'Content-Type' => 'text/plain; charset=utf-8',
'Content-Length' => length $message,
],
[$message]
);
}
bin/tacochan view on Meta::CPAN
@@ index.tt
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title>tacochan</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0" />
<link rel="stylesheet" type="text/css" href="http://netdna.bootstrapcdn.com/bootswatch/2.3.0/united/bootstrap.min.css" />
<link rel="stylesheet" type="text/css" href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.0/css/bootstrap-responsive.min.css" />
<link rel="stylesheet" href="[% uri_for('/static/css/main.css') %]" />
bin/tacochan view on Meta::CPAN
<td class="name">url</td>
<td><code>[% c().req.base %]chat_list</code></td>
</tr>
<tr>
<td class="name">Content-Type</td>
<td><code>application/json; charset=utf-8</code></td>
</tr>
</table>
<p>Responds a list of recent chats as JSON (see below).</p>
<table class="table table-bordered">
<tr><td class="name">chatname : string</td><td colspan="2">chatname</td></tr>
bin/tacochan view on Meta::CPAN
<code>chat=skype:|user[, user, ...]</code>
</td>
</tr>
<tr>
<td class="name">Content-Type</td>
<td><code>text/plain; charset=utf-8</code></td>
</tr>
</table>
<p>Responds chat_id from Skype URI or username (chat_id is like this: <code>#anappo2/$d936403094338dbb</code>)</p>
</div>
</div>
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
templates/html.html view on Meta::CPAN
PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/html4.01-transitional.dtd">
<html>
<head>
<title>[% title %]</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="en-au">
<meta name="ROBOTS" content="INDEX,FOLLOW"/>
<meta name="author" content="[% contact.fullname %]">
<meta name="copyright" content="Copyright (c) [% year %] [% contact.fullname %], All Rights Reserved">
<meta name="description" content="">
view release on metacpan or search on metacpan
lib/App/TemplateServer.pm view on Meta::CPAN
sub _success {
my $content = shift;
my $headers = HTTP::Headers->new;
# set up utf8
$headers->header('content-type' => 'text/html; charset=utf8');
utf8::upgrade($content); # kill latin1
utf8::encode($content);
return HTTP::Response->new(200, 'OK', $headers, $content);
}
view release on metacpan or search on metacpan
examples/complex/input/jquery.min.js view on Meta::CPAN
/*! jQuery v1.8.3 jquery.com | jquery.org/license */
(function(e,t){function _(e){var t=M[e]={};return v.each(e.split(y),function(e,n){t[n]=!0}),t}function H(e,n,r){if(r===t&&e.nodeType===1){var i="data-"+n.replace(P,"-$1").toLowerCase();r=e.getAttribute(i);if(typeof r=="string"){try{r=r==="true"?!0:r=...
view release on metacpan or search on metacpan
script/term-terminfo view on Meta::CPAN
{ type => "str", value => "\e[C", var => "cursor_right" },
{ type => "str", value => "\e[A", var => "cursor_up" },
{ type => "str", value => "\e[?12;25h", var => "cursor_visible" },
{ type => "str", value => "\e[P", var => "delete_character" },
{ type => "str", value => "\e[M", var => "delete_line" },
{ type => "str", value => "\e(0", var => "enter_alt_charset_mode" },
{ type => "str", value => "\e[?7h", var => "enter_am_mode" },
{ type => "str", value => "\e[5m", var => "enter_blink_mode" },
{ type => "str", value => "\e[1m", var => "enter_bold_mode" },
{ type => "str", value => "\e[?1049h", var => "enter_ca_mode" },
{ type => "str", value => "\e[2m", var => "enter_dim_mode" },
script/term-terminfo view on Meta::CPAN
{ type => "str", value => "\e[7m", var => "enter_reverse_mode" },
{ type => "str", value => "\e[8m", var => "enter_secure_mode" },
{ type => "str", value => "\e[7m", var => "enter_standout_mode" },
{ type => "str", value => "\e[4m", var => "enter_underline_mode" },
{ type => "str", value => "\e[%p1%dX", var => "erase_chars" },
{ type => "str", value => "\e(B", var => "exit_alt_charset_mode" },
{ type => "str", value => "\e[?7l", var => "exit_am_mode" },
{ type => "str", value => "\e(B\e[m", var => "exit_attribute_mode" },
{ type => "str", value => "\e[?1049l", var => "exit_ca_mode" },
{ type => "str", value => "\e[4l", var => "exit_insert_mode" },
{ type => "str", value => "\e[23m", var => "exit_italics_mode" },