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>
view release on metacpan or search on metacpan
lib/App/FakeCDN.pm view on Meta::CPAN
my $mime_type = Plack::MIME->mime_type($path) // 'application/octet-stream';
my $is_binary = is_binary($mime_type);
unless ($is_binary) {
my $encoding = $self->encoding || 'utf-8';
$mime_type .= "; charset=$encoding";
}
my $content = $self->get_stuff($path, $query);
($content, $mime_type);
view release on metacpan or search on metacpan
lib/App/Followme/Initialize.pm view on Meta::CPAN
- App::Followme::ConvertPage
#>>> copy text index.html
<!doctype html>
<html lang="en">
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width,initial-scale=1">
<!-- section meta -->
<title>Your Site</title>
<!-- endsection meta -->
<link rel="stylesheet" id="css_style" href="theme.css">
lib/App/Followme/Initialize.pm view on Meta::CPAN
background-color: #740404;
}
#>>> copy text _templates/convert_page.htm
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- section meta -->
<base href="$site_url/" />
<title>$title</title>
<meta name="date" content="$mdate" />
<meta name="description" content="$description" />
lib/App/Followme/Initialize.pm view on Meta::CPAN
</body>
</html>
#>>> copy text _templates/create_gallery.htm
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- section meta -->
<base href="$site_url/" />
<title>$title</title>
<meta name="date" content="$mdate" />
<meta name="description" content="$description" />
lib/App/Followme/Initialize.pm view on Meta::CPAN
</body>
</html>
#>>> copy text _templates/create_index.htm
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- section meta -->
<base href="$site_url/" />
<title>$title</title>
<meta name="date" content="$mdate" />
<meta name="description" content="$description" />
lib/App/Followme/Initialize.pm view on Meta::CPAN
</body>
</html>
#>>> copy text _templates/create_news.htm
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- section meta -->
<base href="$site_url/" />
<title>$title</title>
<meta name="date" content="$mdate" />
<meta name="description" content="$description" />
view release on metacpan or search on metacpan
lib/App/Framework/Extension/Filter.pm view on Meta::CPAN
The script takes in HTML of the form:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<title>rctu4_test: File Index</title>
<link href="doxygen.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
</head><body>
**<!-- Generated by Doxygen 1.5.5 -->
view release on metacpan or search on metacpan
lib/App/Gallery.pm view on Meta::CPAN
}
$default_template = <<'EOF';
<!DOCTYPE html>
<title><tmpl_var title></title>
<meta charset="utf-8">
<style>
.imgwrap {
display: inline-block;
margin: 6px 3px;
vertical-align: center;
view release on metacpan or search on metacpan
docs/index.html view on Meta::CPAN
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>GitKttiâ„¢ - Git Flow Made Simple</title>
<meta name="description" content="GitKttiâ„¢ is a powerful collection of Perl scripts designed to simplify Git Flow workflow for developers">
<link rel="icon" type="image/png" href="assets/gitktti_logo.png">
<link rel="apple-touch-icon" href="assets/gitktti_logo.png">
view release on metacpan or search on metacpan
README.html view on Meta::CPAN
<html><head><title>App::Gitc</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
</head>
<body class='pod'>
<!--
generated by Pod::Simple::HTML v3.16,
using Pod::Simple::PullParser v3.16,
view release on metacpan or search on metacpan
.editorconfig view on Meta::CPAN
# Editor configuration, see https://editorconfig.org
root = true
# Unix-style newlines with a newline ending every file
[*]
charset = latin1
end_of_line = lf
indent_size = 4
indent_style = space
insert_final_newline = true
view release on metacpan or search on metacpan
lib/App/I18N.pm view on Meta::CPAN
my @lines = <$fh>;
close $fh;
open my $out_fh , ">" , $translation;
for my $line ( @lines ) {
$line =~ s{charset=CHARSET}{charset=UTF-8};
print $out_fh $line;
}
close $out_fh;
view release on metacpan or search on metacpan
bin/ikachan view on Meta::CPAN
if ($method eq 'POST' && ! $is_connect) {
my $html = q{<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>ikachan</title>
<head>
<body>
can not connect to irc server
</body>
</html>};
my $res = Plack::Response->new(503);
$res->content_type('text/html; charset=utf-8');
$res->content_length(length $html);
$res->body($html);
return $res->finalize;
}
bin/ikachan view on Meta::CPAN
my $css = get_css();
my $html =<<HTML;
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>ikachan</title>
<style>
${css}
</style>
bin/ikachan view on Meta::CPAN
</body>
</html>
HTML
my $res = Plack::Response->new(200);
$res->content_type('text/html; charset=utf-8');
$res->content_length(length $html);
$res->body($html);
return $res->finalize;
}
} elsif ($method eq 'POST') {
view release on metacpan or search on metacpan
t/App-Kramerius-To-Images/04-run.t view on Meta::CPAN
$useragent->map_response(
qr{$uri},
HTTP::Response->new(
'200',
'OK',
['Content-Type' => 'application/json;charset=utf-8'],
'[]',
),
);
my $temp_dir = tempdir('CLEANUP' => 1);
my $obj = App::Kramerius::To::Images->new(
view release on metacpan or search on metacpan
src/index.html.tt view on Meta::CPAN
gtag('js', new Date());
gtag('config', '[% ga4 %]');
</script>
[% END -%]
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
<meta name="description" content="A page of links for [% site.name %] (@[% site.handle %])">
<link rel="stylesheet"
href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.6.0/css/all.min.css"
integrity="sha512-Kc323vGBEqzTmouAECnVceyQqyqdsSiqLQISBL29aUW4U/M7pSPA/gEUZQqv1cwx4OnYxTxve5UMg5GT6L4JJg=="
view release on metacpan or search on metacpan
lib/App/MBUtiny/Collector/Server.pm view on Meta::CPAN
use CTK::ConfGenUtil;
use CTK::TFVals qw/ :ALL /;
use constant {
URL_PATH_PREFIX => "/mbutiny",
CONTENT_TYPE => "application/json; charset=utf-8",
SERIALIZE_FORMAT => 'json',
SR_ATTRS => {
json => [
{ # For serialize
utf8 => 0,
lib/App/MBUtiny/Collector/Server.pm view on Meta::CPAN
< HTTP/1.1 200 OK
< Date: Wed, 19 Jun 2019 10:57:31 GMT
< Server: Apache/2.2.25 (Win32) mod_ssl/2.2.25 OpenSSL/0.9.8y mod_perl/2.0.8 Perl/v5.16.3
< Connection: close
< Content-Length: 214
< Content-Type: application/json; charset=utf-8
<
{
"dsn" : "dbi:SQLite:dbname=/var/lib/mbutiny/mbutiny.db",
"status" : 1,
"name" : "check",
lib/App/MBUtiny/Collector/Server.pm view on Meta::CPAN
< HTTP/1.1 200 OK
< Date: Sat, 22 Jun 2019 10:29:26 GMT
< Server: Apache/2.4.29 (Ubuntu)
< Connection: close
< Content-Length: 556
< Content-Type: application/json; charset=utf-8
<
{
"name" : "foo",
"error" : "",
"file" : null,
lib/App/MBUtiny/Collector/Server.pm view on Meta::CPAN
< HTTP/1.1 200 OK
< Date: Thu, 20 Jun 2019 15:03:34 GMT
< Server: Apache/2.4.18 (Ubuntu)
< Connection: close
< Content-Length: 27
< Content-Type: text/plain; charset=utf-8
<
=cut
__PACKAGE__->register_method( # POST /mbutiny
lib/App/MBUtiny/Collector/Server.pm view on Meta::CPAN
$self->data(sprintf('{"status": 0, "error": "%s"}', $errmsg));
$self->code(HTTP_INTERNAL_SERVER_ERROR);
}
#my @res = (sprintf("Status: %s %s", $rc, $msg));
#push @res, sprintf("Content-Type: %s", "text/plain; charset=utf-8");
#push @res, "", $data // "";
#return join("\015\012", @res);
return $self->SUPER::response;
}
view release on metacpan or search on metacpan
lib/App/MFILE/WWW/Resource.pm view on Meta::CPAN
return $entity;
}
=head2 charsets_provided
This method causes L<Web::Machine> to encode the response body in UTF-8.
=cut
sub charsets_provided {
[ 'utf-8' ];
}
=head2 default_charset
Really use UTF-8 all the time.
=cut
sub default_charset {
'utf-8';
}
lib/App/MFILE/WWW/Resource.pm view on Meta::CPAN
Dumper($ce) . " and \$cepriv " . $cepriv );
my $r = '<!DOCTYPE html>';
$r .= '<html>';
$r .= '<head>';
$r .= '<meta charset="utf-8">';
# $r .= '<meta http-equiv="Cache-Control" content="no-cache, no-store, must-revalidate">';
# $r .= '<meta http-equiv="Pragma" content="no-cache">';
# $r .= '<meta http-equiv="Expires" content="0">';
$r .= "<title>App::MFILE::WWW " . $meta->META_MFILE_APPVERSION . "</title>";
$r .= '<link rel="stylesheet" type="text/css" href="/css/start.css" />';
lib/App/MFILE/WWW/Resource.pm view on Meta::CPAN
my $r = '';
$r = '<!DOCTYPE html>';
$r .= '<html>';
$r .= '<head>';
$r .= '<meta charset="utf-8">';
$r .= '<meta http-equiv="Cache-Control" content="no-cache, no-store, must-revalidate">';
$r .= '<meta http-equiv="Pragma" content="no-cache">';
$r .= '<meta http-equiv="Expires" content="0">';
$r .= "<title>App::MFILE::WWW " . $meta->META_MFILE_APPVERSION . " (Unit testing)</title>";
$r .= '<link rel="stylesheet" type="text/css" href="/css/qunit.css" />';
view release on metacpan or search on metacpan
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
}
# expects unicode string (not bytes)
sub SendHTML {
my ($self, $buf, $options) = @_;;
@_ = ($self, 'text/html; charset=utf-8', encode('UTF-8', $buf), $options);
goto &SendBytes;
}
# expects perl data structure
sub SendAsJSON {
view release on metacpan or search on metacpan
lib/App/MaMGal/Formatter.pm view on Meta::CPAN
sub HEADER
{
my $self = shift;
my $head = shift || '';
sprintf("<html><head><meta http-equiv='Content-Type' content='text/html; charset=%s'>%s</head><body>", $self->{locale_env}->get_charset, $head);
}
sub MAYBE_LINK
{
my $self = shift;
view release on metacpan or search on metacpan
root/js/ext-3.3.1/adapter/ext/ext-base.js view on Meta::CPAN
* Ext JS Library 3.3.1
* Copyright(c) 2006-2010 Sencha Inc.
* licensing@sencha.com
* http://www.sencha.com/license
*/
window.undefined=window.undefined;Ext={version:"3.3.1",versionDetail:{major:3,minor:3,patch:1}};Ext.apply=function(d,e,b){if(b){Ext.apply(d,b)}if(d&&e&&typeof e=="object"){for(var a in e){d[a]=e[a]}}return d};(function(){var g=0,t=Object.prototype.to...
view release on metacpan or search on metacpan
lib/App/MojoSlides/files/public/jquery.min.js view on Meta::CPAN
/*! jQuery v2.0.3 | (c) 2005, 2013 jQuery Foundation, Inc. | jquery.org/license
//@ sourceMappingURL=jquery-2.0.3.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=[],p="2.0.3",f=c.concat,h=c.push,d=c.slice,g=c.indexOf,m=l.toString,y=l.hasOwnProperty,v=p.trim,x=function(e,n){return new x.fn.in...
};"inprogress"===i&&(i=n.shift(),r--),i&&("fx"===t&&n.unshift("inprogress"),delete o.stop,i.call(e,s,o)),!r&&o&&o.empty.fire()},_queueHooks:function(e,t){var n=t+"queueHooks";return q.get(e,n)||q.access(e,n,{empty:x.Callbacks("once memory").add(funct...
},delegate:function(e,t,n,r){return this.on(t,e,n,r)},undelegate:function(e,t,n){return 1===arguments.length?this.off(e,"**"):this.off(t,e||"**",n)}});var Xt,Ut,Yt=x.now(),Vt=/\?/,Gt=/#.*$/,Jt=/([?&])_=[^&]*/,Qt=/^(.*?):[ \t]*([^\r\n]*)$/gm,Kt=/^(?:a...
view release on metacpan or search on metacpan
lib/App/MonM/Notifier.pm view on Meta::CPAN
from => lvalue($ch, "from"),
subject => $args{subject} // '', # Message subject
body => $args{message} // '', # Message body
headers => hash($ch, "headers"),
contenttype => lvalue($ch, "contenttype"), # optional
charset => lvalue($ch, "charset"), # optional
encoding => lvalue($ch, "encoding"), # optional
attachment => node($ch, "attachment"),
);
# Enqueue
lib/App/MonM/Notifier.pm view on Meta::CPAN
from => lvalue($ch, "from"),
subject => $entity->{subject},
body => $entity->{message},
headers => hash($ch, "headers"),
contenttype => lvalue($ch, "contenttype"), # optional
charset => lvalue($ch, "charset"), # optional
encoding => lvalue($ch, "encoding"), # optional
attachment => node($ch, "attachment"),
);
# Send message
view release on metacpan or search on metacpan
lib/App/MonM/Channel.pm view on Meta::CPAN
Sets name of the common channel (not user channel) for loading directives from it
=item B<Charset>
Sets the charset
Default: utf-8
See also L<Email::MIME>
view release on metacpan or search on metacpan
<!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" xml:lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />
<link rel="stylesheet" type="text/css" media="screen, projection" href="style.css" />
<link rel="stylesheet" type="text/css" media="print" href="print.css" />
and `includes/footer' may contain
view release on metacpan or search on metacpan
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
{
my ($self, $archive_id) = @_;
$archive_id||confess;
$self->add_header('Content-Type', 'application/x-www-form-urlencoded; charset=utf-8');
$self->{url} = "/$self->{account_id}/vaults/$self->{vault}/jobs";
$self->{method} = 'POST';
# add "SNSTopic": "sometopic"
# no Test::Tabs
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
$format = 'CSV';
} else {
confess "unknown inventory format $format";
}
$self->add_header('Content-Type', 'application/x-www-form-urlencoded; charset=utf-8');
$self->{url} = "/$self->{account_id}/vaults/$self->{vault}/jobs";
$self->{method} = 'POST';
my $job_meta = App::MtAws::MetaData::meta_job_encode(META_JOB_TYPE_FULL);
view release on metacpan or search on metacpan
lib/ChordPro/Output/HTML.pm view on Meta::CPAN
}
push( @book,
'<html>',
'<head>',
'<meta charset="utf-8">' );
if ( delete $styles{embed} ) {
use File::LoadLines;
foreach my $class ( @styles ) {
my $style = CP->findres( $styles{$class}, class => "styles" );
view release on metacpan or search on metacpan
lib/App/MusicExpo.pm view on Meta::CPAN
}
$default_template = <<'HTML';
<!DOCTYPE html>
<title>Music</title>
<meta charset="utf-8">
<link rel="stylesheet" href="musicexpo.css">
<script async defer type="application/javascript" src="player.js"></script>
<div id="player"></div>
view release on metacpan or search on metacpan
lib/App/Mxpress/PDF/API.pm view on Meta::CPAN
$string = $client->dist_pdf($body->{distribution}, 1);
} else {
$string = $client->raw($body->{name}, $body->{raw}, 1);
}
return send_file(\$string, content_disposition => 'attachment', content_type => 'application/pdf', charset => 'utf-8');
};
our $generatePDF = compile_named(
params => HashRef,
name => StrMatch[ qr{([a-zA-Z0-9\-\:]+)} ],
lib/App/Mxpress/PDF/API.pm view on Meta::CPAN
$map{$plug}[1]->($file, $line);
}
my $string = $file->stringify();
return send_file(\$string, content_disposition => 'attachment', content_type => 'application/pdf', charset => 'utf-8' );
};
our $createTemplate = compile_named(
name => StrMatch[ qr{([a-zA-Z0-9\-\:]+)} ],
styles => Str,
view release on metacpan or search on metacpan
lib/App/Navegante/CGI.pm view on Meta::CPAN
my $iform = ####IFORM####;
if (param('user_data')) {
####annotate####();
$iform = "<body onload=\"alert('[$U] successfully annotated!');\">$iform</body>";
}
print header(cook(),-charset => 'UTF-8'), $iform;
}
elsif( $Navegante->{monadic} && param(action) eq "monadicend"){
$Navegante->{end}()
}
else {
lib/App/Navegante/CGI.pm view on Meta::CPAN
meta => sub{
if($v{content} =~ /utf[_-]?8/i) {$ENCOD='UTF-8'}
elsif($v{content} =~ /iso[_-]?8859[_-]?1/i){$ENCOD='ISO-8859-1'}
toxml()},
);
print header(cook(), -charset => param('e') || $ENCOD ),$pag; }
else { errorpage($MES) }
}
}
else {
%estado =();
print header(cook(),-charset => 'UTF-8'),
start_html( -title =>'####formtitle####',
-encoding => 'UTF-8',
-author =>'jj@di.uminho.pt',
-meta =>{'keywords' =>'jspell,linguateca,spell',
'charset' =>'UTF-8'},),
div( {style=>"background-image: url(http://nrc.homelinux.org/navegante/imagens/nav_bg.gif); background-repeat: repeat-x; height: 65px; "},
"<table border='0' width='100%' cellpadding='0' cellspacing='0'><tr>",
"<td width='140'>",
img({src=>'http://nrc.homelinux.org/navegante/imagens/nav_logo.gif',border=>'0'}),
"</td>",
lib/App/Navegante/CGI.pm view on Meta::CPAN
die unless $f3;
$Navegante->{monadic} = 1;
$Navegante->{init} = $f1;
$Navegante->{f} = $f2;
$Navegante->{end} =
sub{ print header(-charset => 'UTF-8'), start_html, $f3->(), end_html; };
$Navegante->{desc} = $f4 || sub{};
$Navegante->{g} = $f5;
}
END_SKEL