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
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/App/MHFS.pm view on Meta::CPAN
# media
'mpd' => 'application/dash+xml',
'm3u8' => 'application/x-mpegURL',
'm3u8_v' => 'application/x-mpegURL',
# text
'html' => 'text/html; charset=utf-8',
'json' => 'application/json',
'js' => 'application/javascript',
'txt' => 'text/plain',
'css' => 'text/css',
# images
lib/App/MHFS.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 {
lib/App/MHFS.pm view on Meta::CPAN
}
elsif($fmt eq 'musicdbjson') {
return $request->SendBytes('application/json', $self->{'musicdbjson'});
}
elsif($fmt eq 'musicdbhtml') {
return $request->SendBytes("text/html; charset=utf-8", $self->{'musicdbhtml'});
}
elsif($fmt eq 'gapless') {
$qs->{fmt} = 'musicinc';
return $request->SendRedirect(301, "music", $qs);
}
elsif($fmt eq 'musicinc') {
return $request->SendRedirect(307, 'static/music_inc/', $qs);
}
elsif($fmt eq 'legacy') {
say __PACKAGE__.": legacy";
return $request->SendBytes("text/html; charset=utf-8", $self->{'html'});
}
else {
return $request->Send404;
}
}
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
$cfg->{styles}->{print} //= "chordpro_print.css";
push( @book,
'<html>',
'<head>',
'<meta charset="utf-8">' );
foreach ( sort keys %{ $cfg->{styles} } ) {
push( @book,
'<link rel="stylesheet" href="'.$cfg->{styles}->{$_}.'"'.
( $_ =~ /^(display|default)$/ ? "" : qq{ media="$_"} ).
'>' );
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
view release on metacpan or search on metacpan
lib/App/Netdisco/Worker/Plugin/Hook/HTTP.pm view on Meta::CPAN
my $http = HTTP::Tiny
->new( timeout => (($action_conf->{'timeout'} || 5000) / 1000) );
$action_conf->{'custom_headers'} ||= {};
$action_conf->{'custom_headers'}->{'Content-Type'}
||= 'application/json; charset=UTF-8';
$action_conf->{'custom_headers'}->{'Authorization'}
= ('Bearer '. $action_conf->{'bearer_token'})
if $action_conf->{'bearer_token'};
my ($orig_url, $url) = ($action_conf->{'url'}, undef);
view release on metacpan or search on metacpan
t/002-encoding.t view on Meta::CPAN
<<FORM,
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>pasting to magnet_web</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<table>
<tr>
<td>
t/002-encoding.t view on Meta::CPAN
<<RETURN,
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Your paste, number 211360...</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="refresh" content="5;url=http://paste.scsys.co.uk/211360">
</head>
<body>
<p>
view release on metacpan or search on metacpan
bin/otrs.CreateTicket.pl view on Meta::CPAN
$Param{Priority} ||= '3 normal';
$Param{Type} ||= 'default';
$Param{Title} ||= 'No title';
$Param{State} ||= 'new';
$Param{ContentType} ||= 'text/plain; charset=utf8';
$Param{Subject} ||= $Param{Title};
$Param{SenderType} ||= 'customer';
$Param{TimeUnit} ||= 0;
if ( $Param{BodyFile} ) {
view release on metacpan or search on metacpan
docs/html/cms.help.html view on Meta::CPAN
<html><head><title>How do I use this CMS?</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
<link rel="stylesheet" type="text/css" title="pod_stylesheet" href="/assets/css/local/pod.css">
</head>
<body class='pod'>
<!--
view release on metacpan or search on metacpan
data/currency.html view on Meta::CPAN
<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><title>Currency Converter - Yahoo!7 Finance</title><link rel="STYLESHEET" type="text/css" href="http://l.yimg.com/au.yimg.com/i/fi/css/finance.css"><link rel="STYLESHEET" ...
td{font-size:12px}
</style><link rel="stylesheet" href="http://us.i1.yimg.com/us.yimg.com/i/us/fi/03rd/yfnc2.css" type="text/css" media="screen"><style media="screen">
.modtbl{width:100%}
.fixThisDiv:after{content:".";display:block;font-size:0px;line-height:0px;height:0;clear:both;visibility:hidden}
#screen,#masthead{text-align:center;margin:0;width:752px;}
data/currency.html view on Meta::CPAN
<iframe src="http://au.adserver.yahoo.com/a?f=97009443:N&p=aufin&l=N&c=hm&bg=ffffff" width=730 height=90 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no>
</iframe>
</noscript><script language=javascript>
if(window.yzq_d==null)window.yzq_d=new Object();
window.yzq_d['1qa3D9j8elY-']='&U=13a3gpm2c%2fN%3d1qa3D9j8elY-%2fC%3d253710.6883973.7821591.6512253%2fD%3dN%2fB%3d2810323%2fV%3d1';
</script><noscript><img width=1 height=1 alt="" src="http://row.bc.yahoo.com/b?P=VG0eKEWTUElF_P44Sw9AuwD5yxwJHEsUi3wAC9E3&T=161l699cu%2fX%3d1259637628%2fE%3d97009443%2fR%3daufin%2fK%3d5%2fV%3d2.1%2fW%3dHR%2fY%3dAUNZ%2fF%3d325249412%2fH%3dY2FjaGVoaW50...
<script language="JavaScript" type="text/javascript" src="http://au.adserver.yahoo.com/a?f=97009443:LREC&p=aufin&l=LREC&c=rm">
</script>
<noscript>
<iframe src="http://au.adserver.yahoo.com/a?f=97009443:LREC&p=aufin&l=LREC&c=hm&bg=ffffff" width=310 height=260 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no>
</iframe>
view release on metacpan or search on metacpan
lib/App/Office/Contacts/Controller/Exporter/Note.pm view on Meta::CPAN
sub add
{
my($self) = @_;
$self -> param('db') -> simple -> begin_work;
$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');
my($response, $result);
try
{
lib/App/Office/Contacts/Controller/Exporter/Note.pm view on Meta::CPAN
sub delete
{
my($self) = @_;
$self -> param('db') -> simple -> begin_work;
$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');
my($response, $result);
try
{
lib/App/Office/Contacts/Controller/Exporter/Note.pm view on Meta::CPAN
sub update
{
my($self) = @_;
$self -> param('db') -> simple -> begin_work;
$self -> add_header('-Status' => 200, '-Content-Type' => 'text/xml; charset=utf-8');
my($response, $result);
try
{