view release on metacpan or search on metacpan
lib/Audio/Scrobbler.pm view on Meta::CPAN
$req = HTTP::Request->new('POST', $self->{'nexturl'});
if (!$req) {
$self->err('Could not create the submission request object');
return undef;
}
$req->content_type('application/x-www-form-urlencoded; charset="UTF-8"');
$s = 'u='.URLEncode($self->{'cfg'}{'username'}).
"&s=$md5resp&a[0]=".URLEncode($info->{'artist'}).
'&t[0]='.URLEncode($info->{'title'}).
'&b[0]='.URLEncode($info->{'album'}).
'&m[0]='.
view release on metacpan or search on metacpan
examples/js/jquery-1.9.1.js view on Meta::CPAN
type: "GET",
isLocal: rlocalProtocol.test( ajaxLocParts[ 1 ] ),
global: true,
processData: true,
async: true,
contentType: "application/x-www-form-urlencoded; charset=UTF-8",
/*
timeout: 0,
data: null,
dataType: null,
username: null,
examples/js/jquery-1.9.1.js view on Meta::CPAN
script = document.createElement("script");
script.async = true;
if ( s.scriptCharset ) {
script.charset = s.scriptCharset;
}
script.src = s.url;
// Attach handlers for all browsers
view release on metacpan or search on metacpan
# views/layouts/main.tt)
layout: "main"
session: "simple"
# 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/Authen/CAS/UserAgent.pm view on Meta::CPAN
'targetService' => $service,
);
# fetch proxy ticket and parse response xml
my $response = $ua->simple_request(HTTP::Request::Common::GET($ptUri));
my $doc = eval {XML::LibXML->new()->parse_string($response->decoded_content('charset' => 'none'))};
if($@ || !$doc) {
$h->{'error'} = ERROR_PROXY_INVALIDRESPONSE;
push @{$h->{'errors'}}, $h->{'error'};
return;
}
view release on metacpan or search on metacpan
DigestMD5.pm view on Meta::CPAN
sub got_request {
my $this=shift;
my $req=shift;
# $this->{_r}=$req;
for my $k (qw(nonce realm charset)) {
$this->{$k}=$req->{$k} if exists $req->{$k};
}
#$this->{nc}=sprintf("%08d", ++$this->{_nc}{$req->{nonce}})
# if exists $req->{nonce};
if (exists $req->{qop}) {
view release on metacpan or search on metacpan
t/callback.t view on Meta::CPAN
ok(&{$sasl->{user}} eq 'somebody');
ok($sasl->{mechanism} eq 'DIGEST-MD5');
#my $con = $sasl->client_new('imap', 'localhost')
# or die $sasl->error;
#my $so = 'nonce="3QcmMSzgYToomMPhU7qOrM58XdeVZ9pAIZ+d9AWie1A=",realm="localhost",qop="auth,auth-int,auth-conf",cipher="rc4-40,rc4-56,rc4
#maxbuf=4096,charset=utf-8,algorithm=md5-sess';
#my $step = $con->client_step($so);
#ok($step);
view release on metacpan or search on metacpan
lib/Authen/SASL/Perl/DIGEST_MD5.pm view on Meta::CPAN
my $realm = $self->_call('realm');
$realm ||= $self->host;
my %response = (
nonce => $self->{nonce},
charset => 'utf-8',
algorithm => 'md5-sess',
realm => $realm,
maxbuf => $self->property('maxbuf'),
## IN DRAFT ONLY:
lib/Authen/SASL/Perl/DIGEST_MD5.pm view on Meta::CPAN
nonce => $sparams{'nonce'},
cnonce => md5_hex($CNONCE || join (":", $$, time, rand)),
'digest-uri' => $self->service . '/' . $self->host,
# calc how often the server nonce has been seen; server expects "00000001"
nc => sprintf("%08d", ++$self->{nonce_counts}{$sparams{'nonce'}}),
charset => $sparams{'charset'},
);
return $self->set_error("Server qop too weak (qop = $sparams{'qop'})")
unless ($self->_client_layer(\%sparams,\%response));
view release on metacpan or search on metacpan
share/stub.html.tt view on Meta::CPAN
<!doctype html>
<html>
<head>
<title></title>
<meta charset="utf-8">
<link rel="stylesheet" href="[% project %].css">
</head>
<body>
<script src="[% project %]"></script>
</body>
view release on metacpan or search on metacpan
scripts/upgrade04to05.pl view on Meta::CPAN
my $all = $dbh->selectall_hashref('SELECT storyname,minicontent,content FROM stories;', 'storyname');
foreach my $story (values(%{$all})) {
my $formatter1 = Formatter::HTML::Textile->format(encode_entities(decode_utf8(${$story}{content})));
$formatter1->charset('utf-8');
$formatter1->char_encoding(0);
my $content = $formatter1->fragment;
my $formatter2 = Formatter::HTML::Textile->format(encode_entities(decode_utf8(${$story}{minicontent})));
$formatter2->charset('utf-8');
$formatter2->char_encoding(0);
my $minicontent = $formatter2->fragment;
$dbh->do("UPDATE stories SET minicontent=?,content=? WHERE storyname=?", {}, ($minicontent,$content,${$story}{storyname}));
}
my $allc = $dbh->selectall_arrayref('SELECT content FROM comments;');
foreach my $comment (@{$allc}) {
my $formatter1 = Formatter::HTML::Textile->format(encode_entities(decode_utf8(${$comment}[0])));
$formatter1->charset('utf-8');
$formatter1->char_encoding(0);
my $content = $formatter1->fragment;
$dbh->do("UPDATE comments SET content=? WHERE content=?", {}, ($content,${$comment}[0]));
}
view release on metacpan or search on metacpan
CharsetConv.pm view on Meta::CPAN
sub parse_start {
my $e = shift;
my $tag = shift;
my %attr = @_;
if ($tag eq 'charset-convert') {
$attr{from} ||= 'iso-8859-1';
$attr{to} ||= 'utf-8';
$e->append_to_script("{ #start charset-convert\n");
$e->append_to_script(" my \$charconv = Apache::AxKit::CharsetConv->new('$attr{from}','$attr{to}');\n");
$e->append_to_script(" my \$to_convert = ''");
}
else {
die "Unknown tag $tag in CharsetConv taglib";
CharsetConv.pm view on Meta::CPAN
sub parse_end {
my $e = shift;
my $tag = shift;
if ($tag eq 'charset-convert') {
$e->append_to_script(";\n");
$e->start_expr;
$e->append_to_script(" \$charconv->convert(\$to_convert);");
$e->end_expr;
$e->append_to_script("} # end of charset-convs\n");
}
return '';
}
CharsetConv.pm view on Meta::CPAN
=pod
=head1 NAME
AxKit::XSP::CharsetConv - AxKit XSP taglib for charset conversion
=head1 SYNOPSIS
Add the CharsetConv namespace to your XSP C<<xsp:page>> tag:
CharsetConv.pm view on Meta::CPAN
the environment, etc...) that are not UTF-8 yet need to be included in
the output of your XSP.
=head2 Tag Reference
There is only one tag provided by this taglib: charset-convert. It
has two mandatory attributes, from and to, which are the character
codes to convert (surprise) from and to.
The to attribute defaults to UTF-8, which usually makes sense. The from
attribute on the other hand defaults to ISO-8859-1. While this default
view release on metacpan or search on metacpan
Sendmail.pm view on Meta::CPAN
$address_errors .= "Address '$mailer_args->{From}' in 'From' element failed $Email::Valid::Details check. ";
}
# set the content-type
$mailer_args->{'Content-Type'} = ($mailer_args->{'Content-Type'})? $mailer_args->{'Content-Type'} : 'text/plain';
$mailer_args->{'Content-Type'} .= '; charset=';
$mailer_args->{'Content-Type'} .= ($mailer_args->{'charset'})? $mailer_args->{'charset'} : 'utf-8';
# munge the text if it needs to be
if ($mailer_args->{'charset'} and lc($mailer_args->{'charset'}) ne 'utf-8') {
my $conv = Apache::AxKit::CharsetConv->new('utf-8',$mailer_args->{'charset'})
or croak "No such charset: $mailer_args->{'charset'}";
$mailer_args->{'message'} = $conv->convert($mailer_args->{'message'});
}
if ($address_errors) {
Sendmail.pm view on Meta::CPAN
return q| $mail_args{'Content-Type'} = ''|;
}
elsif ($tag eq 'content-transfer-encoding') {
return q| $mail_args{'Content-Transfer-Encoding'} = ''|;
}
elsif ($tag eq 'charset') {
return q| $mail_args{'charset'} = ''|;
}
elsif ($tag =~ /^(subject|message|from|body)$/) {
$tag = "From" if $tag eq 'from';
$tag = "message" if $tag eq 'body';
return qq| \$mail_args{'$tag'} = "" |;
Sendmail.pm view on Meta::CPAN
Defines the content-transfer-encoding of the body of the message. The
default depends on whether you have MIME::QuotedPrint available or not.
If you do, it defaults to 'quoted-printable', and if you don't to '8bit';
=head2 C<E<lt>sendmail:charsetE<gt>>
Defines the charset of the body of the message (default: utf-8). Your
system's iconv implementation needs to support converting from utf-8
to that character set otherwise sending email will fail.
=head2 C<E<lt>sendmail:headerE<gt>>
view release on metacpan or search on metacpan
lib/AxKit2/Transformer/TAL.pm view on Meta::CPAN
$ct = "application/xml";
}
my $enc = "UTF-8";
$client->headers_out->header('Content-Length', bytelength($out));
$client->headers_out->header('Content-Type', "$ct; charset=$enc");
$client->send_http_headers;
$client->write($out);
}
1;
view release on metacpan or search on metacpan
ramblings/Export-DynaLoader-symbols-from-libperl-again.patch view on Meta::CPAN
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="------------1.7.6.1"
This is a multi-part message in MIME format.
--------------1.7.6.1
Content-Type: text/plain; charset=UTF-8; format=fixed
Content-Transfer-Encoding: 8bit
With 5.15.2 and the new xubpp, DynaLoader symbols were XS_INTERNAL, before
they were effectively XS_EXTERNAL. This broke B::C and possibly other
view release on metacpan or search on metacpan
t/testdata/P522.pm view on Meta::CPAN
use feature 'unicode_strings';
print /a/d, s/b/c/d;
}
{
BEGIN { $^H{'reflags'} = '0';
$^H{'reflags_charset'} = '2'; }
print /a/d, s/b/c/d;
}
{
no feature ':all';
use feature ':5.12';
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/B/ppport.h view on Meta::CPAN
get_op_descs|5.005000|5.005000|u
get_op_names|5.005000|5.005000|u
get_ppaddr|5.006000|5.006000|u
get_re_arg|||xciu
_get_regclass_nonbitmap_data|5.019009||cViu
get_regex_charset_name|5.031004||nViu
get_sv|5.006000|5.003007|p
GetVars|5.006000||Vu
get_vtbl|5.005003|5.005003|u
G_EVAL|5.003007|5.003007|
GIMME|5.003007|5.003007|
view release on metacpan or search on metacpan
},
'utf-8|utf8|8' => sub {
$enc = 'UTF-8';
},
'character-set|charset|encoding|e=s' => sub {
$enc = $_[1];
},
'file|f=s' => sub { doFile $_[1] },
'<>' => sub { doString $_[0] },
view release on metacpan or search on metacpan
lib/BBS/DiscuzX2.pm view on Meta::CPAN
my $bbs = BBS::DiscuzX2->new();
#åˆå§‹åŒ–åŽå°æ•°æ®åº“连接
#dp_port / db_charset 也å¯ä¸å¡«
$bbs->init_db_handler(
db_host => 'xxx.xxx.xxx.xxx',
lib/BBS/DiscuzX2.pm view on Meta::CPAN
db_passwd => 'xxx',
db_name => 'xxx',
db_charset => 'utf8',
);
=over
=back
lib/BBS/DiscuzX2.pm view on Meta::CPAN
my $dsn = "DBI:mysql:host=$db_opt{db_host};port=$db_opt{db_port};database=$db_opt{db_name}";
$self->{db_handler} = BBS::DiscuzX2::DB->new(
connect_info => [ $dsn, $db_opt{db_user}, $db_opt{db_passwd} ]
);
if($db_opt{db_charset}){
$self->{db_handler}->do("SET character_set_client='$db_opt{db_charset}'");
$self->{db_handler}->do("SET character_set_connection='$db_opt{db_charset}'");
$self->{db_handler}->do("SET character_set_results='$db_opt{db_charset}'");
}
for my $k (qw/default_passwd default_group_id/){
next unless(exists $db_opt{$k});
$self->{db_handler}{$k} = $db_opt{$k};
view release on metacpan or search on metacpan
config.h.in view on Meta::CPAN
#undef HAVE_LCHOWN
/* Define to 1 if you have the `acl' library (-lacl). */
#undef HAVE_LIBACL
/* Define to 1 if you have the <libcharset.h> header file. */
#undef HAVE_LIBCHARSET_H
/* Define to 1 if you have the `inet' library (-linet). */
#undef HAVE_LIBINET
config.h.in view on Meta::CPAN
#undef HAVE_LINK
/* True if you have Linux xattrs */
#undef HAVE_LINUX_XATTRS
/* Define to 1 if you have the `locale_charset' function. */
#undef HAVE_LOCALE_CHARSET
/* Define to 1 if you have the <locale.h> header file. */
#undef HAVE_LOCALE_H
config.h.in view on Meta::CPAN
#undef TIME_WITH_SYS_TIME
/* Define to 1 if you want rsync to make use of iconv_open() */
#undef USE_ICONV_OPEN
/* String to pass to iconv() for the UTF-8 charset. */
#undef UTF8_CHARSET
/* Define WORDS_BIGENDIAN to 1 if your processor stores words with the most
significant byte first (like Motorola and SPARC, unlike Intel). */
#if defined AC_APPLE_UNIVERSAL_BUILD
view release on metacpan or search on metacpan
lib/Badger/Codec/HTML.pm view on Meta::CPAN
'ISO-8859-1' => \&fix_windows,
'WINDOWS-1252' => \&fix_windows,
};
sub encode {
my ($class, $html, $charset) = @_;
my $filter;
return undef unless defined($html);
for ($html) {
lib/Badger/Codec/HTML.pm view on Meta::CPAN
s/</</g;
}
# pass resulting HTML through any corresponding filter for the
# character set (if specified)
if ($charset && ($filter = $CHARSET->{ $charset })) {
$html = &$filter($html);
}
return $html;
}
lib/Badger/Codec/HTML.pm view on Meta::CPAN
The L<decode()> method reverses this process.
=head1 METHODS
=head2 encode($html, $charset)
Encodes the HTML text passed as the first argument.
$encoded = Badger::Codec::HTML->encode($html);
view release on metacpan or search on metacpan
t/soap-connect-lwp.t view on Meta::CPAN
is ( exception {
$response = $userAgent
->request(HTTP::Request::Common::POST( $connection->url,
Authorization => $connection->_authoriz,
Content_Type => 'text/xml;charset=UTF-8',
Content => $message))
} => undef, "uploadMultimediaContent request post - lives");
ok($response->is_success, 'response is succcess');
view release on metacpan or search on metacpan
lib/Beagle/Cmd/Command/spread.pm view on Meta::CPAN
if ( $entry->format ne 'plain' ) {
$mime->make_multipart;
$mime->attach(
Data => $entry->body_html,
'Content-Type' => 'text/html; charset=utf-8',
);
}
my $atts = $bh->attachments_map->{$id};
if ($atts) {
view release on metacpan or search on metacpan
examples/chat/chat.html view on Meta::CPAN
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<script language="Javascript" type="text/javascript" defer src="https://cdnjs.cloudflare.com/ajax/libs/mqtt/4.3.7/mqtt.min.js"></script>
<script language="Javascript" type="text/javascript" defer src="https://cdnjs.cloudflare.com/ajax/libs/pako/2.1.0/pako_inflate.min.js"></script>
<script language="Javascript" type="text/javascript" defer src="js/config.js"></script>
<script language="Javascript" type="text/javascript" defer src="js/beekeeper.js"></script>
<script language="Javascript" type="text/javascript" defer src="js/chat.js"></script>
view release on metacpan or search on metacpan
data/wiki0.html view on Meta::CPAN
<!DOCTYPE html>
<html class="client-nojs" lang="en" dir="ltr">
<head>
<meta charset="UTF-8"/>
<title>Wikipedia, the free encyclopedia</title>
<script>document.documentElement.className="client-js";RLCONF={"wgBreakFrames":false,"wgSeparatorTransformTable":["",""],"wgDigitTransformTable":["",""],"wgDefaultDateFormat":"dmy","wgMonthNames":["","January","February","March","April","May","June",...
"tags":{"status":{"levels":-1}}},"wgMediaViewerOnClick":true,"wgMediaViewerEnabledByDefault":true,"wgPopupsFlags":10,"wgVisualEditor":{"pageLanguageCode":"en","pageLanguageDir":"ltr","pageVariantFallbacks":"en"},"wgMFDisplayWikibaseDescriptions":{"se...
"ext.visualEditor.desktopArticleTarget.noscript":"ready","ext.wikimediaBadges":"ready","ext.uls.interlanguage":"ready"};RLPAGEMODULES=["mediawiki.page.gallery","site","mediawiki.page.ready","skins.vector.legacy.js","ext.gadget.ReferenceTooltips","ext...
<script>(RLQ=window.RLQ||[]).push(function(){mw.loader.implement("user.options@1hzgi",function($,jQuery,require,module){/*@nomin*/mw.user.tokens.set({"patrolToken":"+\\","watchToken":"+\\","csrfToken":"+\\"});
view release on metacpan or search on metacpan
share/templates/google-chart-area.tt view on Meta::CPAN
<html encoding="utf-8">
<meta content="text/html;charset=utf-8" http-equiv="Content-Type">
<meta content="utf-8" http-equiv="encoding">
<head>
<script type="text/javascript" src="https://www.google.com/jsapi"></script>
<script type="text/javascript">
// https://google-developers.appspot.com/chart/interactive/docs/gallery/areachart
view release on metacpan or search on metacpan
share/P6STD/std_hilite/STD_syntax_highlight view on Meta::CPAN
<head>
<title>$file</title>
<!--
Generated by $PROGRAM_NAME at $timestamp
-->
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
$css
$jquery_js
$js
</head>
<body>