view release on metacpan or search on metacpan
lib/Apache2/Proxy.pm view on Meta::CPAN
our %Headers = (
'Accept-Encoding' => 'gzip,deflate',
'Accept-Charset' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7',
'Accept-Lang' => 'en-us,en;q=0.5',
'Accept' =>
'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5',
'User-Agent' =>
'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US; rv:1.9.0.10) Gecko/2009042315 Firefox/3.0.10',
);
our %Response = (
view release on metacpan or search on metacpan
lib/Apache2/REST/Handler/bin.pm view on Meta::CPAN
=cut
=head2 GET
Ouputs the logo png image
=cut
sub GET{
my ( $self , $req , $resp ) = @_ ;
$req->requestedFormat('bin') ;
$resp->binMimeType('image/png') ;
my $exFile = __FILE__ ;
$exFile =~ s/bin\.pm$/bin_logo.png/ ;
open ( INFILE , '<'.$exFile ) or die "Cannot open $exFile\n" ;
my $bin = '' ;
{
local $/ = undef ;
$bin = <INFILE>;
view release on metacpan or search on metacpan
lib/Apache2/SSI/File/Type.json view on Meta::CPAN
"string",
null,
"=",
"\u000089PNG",
null,
"image/png",
[]
],
[
0,
0,
view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin.pm view on Meta::CPAN
$STATIC=~s/\.pm$//;
our %TYPES=
(
gif=>'image/gif',
png=>'image/png',
jpg=>'image/jpeg',
jpeg=>'image/jpeg',
ico=>'image/x-icon',
html=>'text/html',
shtml=>'text/html',
view release on metacpan or search on metacpan
lib/Apache2/UserDirAuthz.pm view on Meta::CPAN
When used as a PerlAuthzHandler with Apache+mod_perl, Apache2::UserdirAuthz
will perform simple access control, where each user has access to the
part of the hierarchy named after their username. For example, a
user "tom" will have access to all locations under C</tom/>, such as
C</tom/index.html>, C</tom/logo.png>, and so on.
If the username contains an @, the part after the @ can be conditionally
stripped off by setting C<userdirrealms> with C<PerlSetVar>. This is
useful when using with Kerberos, where usernames are of the form
C<user@realm>. To set realm stripping for multiple realms, separate
view release on metacpan or search on metacpan
lib/Apache2/ImageRenderFilter.pm view on Meta::CPAN
my $redirecttranscoder="true";
my $redirecttranscoderurl="";
my $detectaccuracy="false";
my $listall="false";
$ImageType{'image/png'}="png";
$ImageType{'image/gif'}="gif";
$ImageType{'image/jpg'}="jpg";
$ImageType{'image/jpeg'}="jpeg";
#
lib/Apache2/ImageRenderFilter.pm view on Meta::CPAN
}
if ($content_type eq "image/jpeg") {
print FH $gd->jpeg();
}
if ($content_type eq "image/png") {
$image2=$gd->png();
print FH $image2;
}
close(FH);
} else {
$s->warn("Can not create $docroot$imagefile");
view release on metacpan or search on metacpan
[](https://travis-ci.org/binary-com/perl-Apigee-Edge)
[](https://codecov.io/gh/binary-com/perl-Apigee-Edge)
[](https://gitter.im/binary-com/perl-Apigee-Edge)
# NAME
Apigee::Edge - Apigee.com 'Edge' management API.
view release on metacpan or search on metacpan
lib/Apophis.pm view on Meta::CPAN
# Bulk operations
my @ids = $ca->store_many(\@content_refs);
my @missing = $ca->find_missing(\@ids);
# Metadata
$ca->store(\$content, meta => { mime_type => 'image/png' });
=head1 DESCRIPTION
Apophis is a B<100% XS> content-addressable storage library built on the
B<Horus> UUID library (RFC 9562). It generates deterministic UUID v5
lib/Apophis.pm view on Meta::CPAN
=head2 store
my $id = $ca->store(\$content);
my $id = $ca->store(\$content, store_dir => '/other');
my $id = $ca->store(\$content, meta => { mime_type => 'image/png' });
Identifies the content and writes it to the sharded store. Returns the
UUID. If the content already exists, returns immediately (CAS dedup).
Writes are atomic via temp file + rename.
view release on metacpan or search on metacpan
```
$ cpanm App::256colors
```
## Screenshot
view release on metacpan or search on metacpan
MANIFEST.SKIP
META.yml
Makefile.PL
README
dist.ini
icon.png
lib/App/AFNI/SiemensPhysio.pm
lib/bin/siemphysdat
octave-workspace
prepareForDemo.bash
readme.mkdn
view release on metacpan or search on metacpan
lib/App/AYCABTU.pod view on Meta::CPAN
=head1 NAME
App::AYCABTU - All Your Codes Are Belong To Us
=for html
<a href="https://travis-ci.org/ingydotnet/app-aycabtu-pm"><img src="https://travis-ci.org/ingydotnet/app-aycabtu-pm.png" alt="app-aycabtu-pm"></a>
<a href="https://coveralls.io/r/ingydotnet/app-aycabtu-pm?branch=master"><img src="https://coveralls.io/repos/ingydotnet/app-aycabtu-pm/badge.png" alt="app-aycabtu-pm"></a>
=head1 SYNOPSIS
> aycabtu --help
view release on metacpan or search on metacpan
t/pleroma_user.json view on Meta::CPAN
{"@context":["https://www.w3.org/ns/activitystreams","https://queer.hacktivis.me/schemas/litepub-0.1.jsonld",{"@language":"und"}],"alsoKnownAs":[],"attachment":[],"capabilities":{"acceptsChatMessages":true},"discoverable":true,"endpoints":{"oauthAuth...
view release on metacpan or search on metacpan
lib/App/Alice/IRC.pm view on Meta::CPAN
if ($info->{real} =~ /([^<\s]+@[^\s>]+\.[^\s>]+)/) {
my $email = $1;
return "http://www.gravatar.com/avatar/"
. md5_hex($email) . "?s=32&r=x";
}
elsif ($info->{real} =~ /(https?:\/\/\S+(?:jpe?g|png|gif))/) {
return $1;
}
else {
return undef;
}
view release on metacpan or search on metacpan
lib/App/Anchr/Command/group.pm view on Meta::CPAN
[ "idt|i=f", "minimal identity of overlaps", { default => 0.85 }, ],
[ "keep", "don't remove multi-matched reads", ],
[ 'oa=s', 'overlaps between anchors', ],
[ "parallel|p=i", "number of threads", { default => 4 }, ],
[ "verbose|v", "verbose mode", ],
[ "png", "write a png file via graphviz", ],
{ show_defaults => 1, }
);
}
sub usage_desc {
lib/App/Anchr/Command/group.pm view on Meta::CPAN
$cc_serial++;
}
printf STDERR "CC count %d\n", scalar(@ccs);
if ( $opt->{png} ) {
App::Anchr::Common::g2gv0( $graph, $fn_dazz . ".png" );
}
}
1;
view release on metacpan or search on metacpan
setup/GTK/import_export/png.pl view on Meta::CPAN
register_import_export_handlers
(
png =>
{
IMPORT => undef ,
EXPORT => \&export_png,
},
) ;
sub export_png
{
my ($self, $elements_to_save, $file) = @_ ;
if($self->{CREATE_BACKUP} && -e $file)
{
setup/GTK/import_export/png.pl view on Meta::CPAN
0, 0,
0, 0,
$alloc->width, $alloc->height
);
$pixbuf->save($file, "png" );
return ;
}
view release on metacpan or search on metacpan
lib/App/Basis/ConvertText2/Plugin/Barcode.pm view on Meta::CPAN
return undef;
}
# we can use the cache or process everything ourselves
my $sig = create_sig( $content, $params );
my $filename = cachefile( $cachedir, "$sig.png" );
if ( !-f $filename ) {
my $gdb ;
# sometimes it throws out some warnings, lets hide them
my ($stdout, $stderr, @result) = capture {
$gdb = GD::Barcode->new( $type, $content, $qrcode );
lib/App/Basis/ConvertText2/Plugin/Barcode.pm view on Meta::CPAN
if ( !$gdb ) {
warn "warning $tag $params->{type}: " . $GD::Barcode::errStr;
return undef;
}
my $gd = $gdb->plot( NoText => $params->{notext}, Height => $params->{height} );
path($filename)->spew_raw( $gd->png );
# my $cmd = QRCODE . " -o$filename '$content'";
# my ( $exit, $stdout, $stderr ) = run_cmd($cmd);
# for some reason qrcodes may need scaling
lib/App/Basis/ConvertText2/Plugin/Barcode.pm view on Meta::CPAN
my $image = Image::Resize->new($filename);
my $gd = $image->resize( $params->{height}, $params->{height} );
# overwrite original file with resized version
if ($gd) {
path($filename)->spew_raw( $gd->png );
}
}
}
my $out;
view release on metacpan or search on metacpan
lib/App/Basis/Email.pm view on Meta::CPAN
use App::Basis::Email ;
my $markdown = <<EOD ;
# Basic Markdown
That was an inlined image
## level2 header
view release on metacpan or search on metacpan
lib/App/BencherUtils.pm view on Meta::CPAN
my $envres = _json->decode($args{json});
my ($temp_fh, $temp_fname) = File::Temp::tempfile();
$temp_fname .= ".png";
my $chart_res = Bencher::Backend::chart_result(
envres => $envres, output_file => $temp_fname, overwrite=>1);
return $chart_res if $chart_res->[0] != 200;
view release on metacpan or search on metacpan
=begin html
<a href="https://travis-ci.org/ivanwills/App-BitBucketCli"><img src="https://travis-ci.org/ivanwills/App-BitBucketCli.png" alt="App-BitBucketCli"></a>
<a href="https://coveralls.io/r/ivanwills/App-BitBucketCli?branch=master"><img src="https://coveralls.io/repos/ivanwills/App-BitBucketCli/badge.svg?branch=master" alt="Coverage Status" /></a>
=head1 App-bitbucket-cli
This module provides the C<bb-cli> command for interacting with the Atlasian
view release on metacpan or search on metacpan
lib/App/BlurFill.pm view on Meta::CPAN
my $img = $imager->scale(ypixels => $height);
my $img_width = $img->getwidth;
$background->compose(src => $img, left => ($width / 2) - ($img_width / 2));
$background->write(file => $output, type => 'png') or die $background->errstr;
return $output;
}
}
view release on metacpan or search on metacpan
lib/App/CPAN2Pkg/UI/Tk.pm view on Meta::CPAN
);
my $colorl = $color{ $module->local->status };
my $coloru = $color{ $module->upstream->status };
# update bullets
my $bulletl = _image( $SHAREDIR->file("bullets", "$colorl.png") );
my $bulletu = _image( $SHAREDIR->file("bullets", "$coloru.png") );
$hlist->itemConfigure( $elem, 0, -image=>$bulletl );
$hlist->itemConfigure( $elem, 1, -image=>$bulletu );
# $self->_w( "btn_close_$modname" )->configure( enabled )
# if $module->local->status eq 'available'
lib/App/CPAN2Pkg/UI/Tk.pm view on Meta::CPAN
my @children = $hlist->info( 'children' );
my $next = first { $hlist->info(data=>$_) gt $modname } @children;
my @pos = defined $next ? ( -before => $next ) : ( -at => -1 );
# create module in the list
my $bullet = _image( $SHAREDIR->file("bullets", "black.png") );
my $elem = $hlist->addchild( "", -data=>$modname, @pos );
$hlist->itemCreate( $elem, 0, -itemtype => 'image', -image=>$bullet );
$hlist->itemCreate( $elem, 1, -itemtype => 'image', -image=>$bullet );
$hlist->itemCreate( $elem, 2, -itemtype => 'text', -text=>$modname );
$hlist->see( $elem );
lib/App/CPAN2Pkg/UI/Tk.pm view on Meta::CPAN
# see http://www.perltk.org/index.php?option=com_content&task=view&id=43&Itemid=37
$mw->optionAdd('*BorderWidth' => 1);
# set windowtitle
$mw->title('cpan2pkg');
$mw->iconimage( _image( $SHAREDIR->file('icon.png') ) );
$mw->iconmask ( '@' . $SHAREDIR->file('icon-mask.xbm') );
# make sure window is big enough
#my $config = Games::Pandemic::Config->instance;
#my $width = $config->get( 'win_width' );
lib/App/CPAN2Pkg/UI/Tk.pm view on Meta::CPAN
->grid( -row => 0, -column => 0, -columnspan=>2, -sticky => 'w' );
$legend->Label( -text => 'Build System' )
->grid( -row => 0, -column => 2, -columnspan=>2,-sticky => 'w' );
my $buldir = $SHAREDIR->subdir( 'bullets' );
foreach my $i ( 0 .. $#lab1 ) {
$legend->Label( -image => _image( $buldir->file( $col1[$i] . ".png" ) ) )
->grid( -row => $i + 1, -column => 0, ipad5 );
$legend->Label( -image => _image( $buldir->file( $col2[$i] . ".png" ) ) )
->grid( -row => $i + 1, -column => 2, ipad5 );
$legend->Label( -text => $lab1[$i] )->grid( -row=>$i+1, -column=>1, -sticky => 'w' );
$legend->Label( -text => $lab2[$i] )->grid( -row=>$i+1, -column=>3, -sticky => 'w' );
}
view release on metacpan or search on metacpan
t/MyTestUA.pm view on Meta::CPAN
<p><a href="http://cpancover.com/latest/about.html">About</a> the project.</p>
<p>This server generously donated by
<a href="http://www.bytemark.co.uk/r/cpancover">
<img src="http://www.bytemark.co.uk/images/subpages/spreadtheword/bytemark_logo_179_x_14.png" alt="bytemark"/>
</a>
</p>
</body>
</html>
t/MyTestUA.pm view on Meta::CPAN
<p><a href="http://cpancover.com/latest/about.html">About</a> the project.</p>
<p>This server generously donated by
<a href="http://www.bytemark.co.uk/r/cpancover">
<img src="http://www.bytemark.co.uk/images/subpages/spreadtheword/bytemark_logo_179_x_14.png" alt="bytemark"/>
</a>
</p>
</body>
</html>
view release on metacpan or search on metacpan
root/src/error.tt2
root/src/js/menu.js
root/src/ssl/ssl_welcome.tt2
root/src/vpn/vpn_welcome.tt2
root/src/welcome.tt2
root/static/images/btn_120x50_built.png
root/static/images/btn_120x50_built_shadow.png
root/static/images/btn_120x50_powered.png
root/static/images/btn_120x50_powered_shadow.png
root/static/images/btn_88x31_built.png
root/static/images/btn_88x31_built_shadow.png
root/static/images/btn_88x31_powered.png
root/static/images/btn_88x31_powered_shadow.png
root/static/images/catalyst_logo.png
script/camel_pki_cgi.pl
script/camel_pki_create.pl
script/camel_pki_fastcgi.pl
script/camel_pki_keyceremony.pl
script/camel_pki_server.pl
view release on metacpan or search on metacpan
README.mkdn view on Meta::CPAN
[Changelord, registrar of deeds extraordinaire](https://techblog.babyl.ca/entry/changelord) - the introducing blog entry.
# AUTHOR
Yanick Champoux <yanick@babyl.ca> [](http://coderwall.com/yanick)
# COPYRIGHT AND LICENSE
This software is copyright (c) 2022 by Yanick Champoux.
view release on metacpan or search on metacpan
doc/mung-html.pl view on Meta::CPAN
return $url;
}
#------------------------------------------------------------------------------
# png sizes
my $image_count = 0;
sub mung_img_sizes {
my ($body) = @_;
view release on metacpan or search on metacpan
#############################################################
## JP2A
#############################################################
# png to ascii converter (linux,ascii,art)
sudo apt install jp2a
jp2a --colors programmer_icon.png
#############################################################
## Kate Editor
#############################################################
# Need also PDF::API2
sudo apt-get install libpdf-table-perl
# Get the dimensions of a PNG image file (picture)
sudo apt-get install libimage-size-perl
perl -MImage::Size -le 'print for imgsize("logo.png");'
# HTML to PDF tool
sudo apt-get install wkhtmltopdf
# Send output to pdf
}
}
# Process killing example:
perl -E '$pid = fork; if (!$pid){ say "[$$] child", sleep 1 while 1 } else { say "[$$] parent"; waitpid $pid, 0; say "[$$] parent end" }'
perl -E '$pid = fork; if (!$pid){ say "[$$] child", sleep 1 while 0; say "start"; system qq(google-chrome --headless --virtual-time-budget=15000 --window-size=200,200 --screenshot=$ENV{HOME}/Downloads/my.png log); say "wait"; sleep 10 } else { say "...
#
perl -E 'for ( shift ) { say kill 0, $_; sleep 1; say kill -9, $_; sleep 1; say kill 0, $_ }' 3022126
#############################################################
# (as is done now).
# Run:
# xprop WM_CLASS # WM_CLASS(STRING) = "X-AIR-Edit", "X-AIR-Edit"
StartupWMClass=X-AIR-Edit
Exec=/home/tim/git/xair/software/latest/RUN.sh
Icon=/home/tim/git/xair/software/latest/xair.png
#############################################################
## VBA Regex
#############################################################
view release on metacpan or search on metacpan
README.mkdn view on Meta::CPAN
[Dancer](https://metacpan.org/pod/Dancer) application module for `chorus`. See `chorus`'s manpage for
details on how to use it.
# AUTHOR
Yanick Champoux <yanick@cpan.org> [](http://coderwall.com/yanick)
# COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Yanick Champoux.
view release on metacpan or search on metacpan
themes/bs2/static/css/bootstrap.css view on Meta::CPAN
height: 14px;
margin-top: 1px;
*margin-right: .3em;
line-height: 14px;
vertical-align: text-top;
background-image: url("../img/glyphicons-halflings.png");
background-position: 14px 14px;
background-repeat: no-repeat;
}
/* White icons with optional class, or on hover/focus/active states of certain elements */
themes/bs2/static/css/bootstrap.css view on Meta::CPAN
.dropdown-menu > .active > a > [class*=" icon-"],
.dropdown-submenu:hover > a > [class^="icon-"],
.dropdown-submenu:focus > a > [class^="icon-"],
.dropdown-submenu:hover > a > [class*=" icon-"],
.dropdown-submenu:focus > a > [class*=" icon-"] {
background-image: url("../img/glyphicons-halflings-white.png");
}
.icon-glass {
background-position: 0 0;
}
view release on metacpan or search on metacpan
eg/lib/Palette/Command/paint.pm view on Meta::CPAN
=cut
sub opt_spec {
return (
[ 'color=s', 'color to paint with', { completion => 'fn:colors' } ],
[ 'format=s', 'output image format', { completion => [qw(png jpg svg pdf)] } ],
[ 'output=s', 'destination file', { completion => 'files' } ],
[ 'verbose|v', 'show progress' ],
);
}