view release on metacpan or search on metacpan
lib/AC/DC/Protocol.pm view on Meta::CPAN
# proto version(32)
# message type(32)
# auth length(32)
# data length(32)
# content length(32)
# msgidno(32)
# flags(32): is-reply(0), want-reply(1), is-error(2), data-encrypted(3), content-encrypted(4)
#
# followed by:
# Auth PB(auth-length)
# Data PB(data-length)
lib/AC/DC/Protocol.pm view on Meta::CPAN
################################################################
sub encode_header {
my $me = shift;
my %p = @_;
# type, auth_length, data_length, content_length, msgidno,
# is_reply, want_reply, is_error
my $mt = $MSGTYPE{ $p{type} };
confess "unknown message type $p{type}\n" unless defined $mt;
lib/AC/DC/Protocol.pm view on Meta::CPAN
| ( $p{is_error} ? 4 : 0 )
| ( $p{data_encrypted} ? 8 : 0 )
| ( $p{content_encrypted} ? 16 : 0 );
return pack( "NNNNNNN",
$VERSION, $mt->{num}, $p{auth_length}, $p{data_length}, $p{content_length}, $p{msgidno}, $flags );
}
sub decode_header {
my $me = shift;
lib/AC/DC/Protocol.pm view on Meta::CPAN
my %p = (
auth_length => $al,
data_length => $dl,
content_length => $cl,
msgidno => $id,
type => $MSGREV{$mt},
);
confess "unknown protocol version $ver\n" unless $ver == $VERSION;
confess "unknown protocol message $mt\n" unless $p{type};
lib/AC/DC/Protocol.pm view on Meta::CPAN
my $hdr = $me->encode_header(
type => $proto->{type},
want_reply => $proto->{want_reply},
is_reply => $proto->{is_reply},
msgidno => $proto->{msgidno},
data_encrypted => $proto->{data_encrypted},
content_encrypted => $proto->{content_encrypted},
auth_length => length($apb),
data_length => length($gpb),
content_length => ($cont ? length($$cont) : 0),
view release on metacpan or search on metacpan
lib/AC/MrGamoo/API/Get.pm view on Meta::CPAN
# send header
my $gb = ACPScriblReply->encode( { status_code => 200, status_message => 'OK', hash_sha1 => $sha1 } );
my $hdr = AC::MrGamoo::Protocol->encode_header(
type => $proto->{type},
msgidno => $proto->{msgidno},
is_reply => 1,
data_length => length($gb),
content_length => $size,
);
my $buf = $hdr . $gb;
view release on metacpan or search on metacpan
lib/AC/Yenta/Client.pm view on Meta::CPAN
my $key = shift;
my $ver = shift;
my $req = $me->{proto}->encode_request( {
type => 'yenta_get',
msgidno => rand(0xFFFFFFFF),
want_reply => 1,
}, {
data => [ {
map => $map,
key => $key,
lib/AC/Yenta/Client.pm view on Meta::CPAN
return unless $key && $ver;
$me->{retries} = 25 unless $me->{retries};
my $req = $me->{proto}->encode_request( {
type => 'yenta_distrib',
msgidno => rand(0xFFFFFFFF),
want_reply => 1,
}, {
sender => "$HOSTNAME/$$",
hop => 0,
expire => time() + 120,
lib/AC/Yenta/Client.pm view on Meta::CPAN
my $ver = shift;
my $lev = shift;
my $req = $me->{proto}->encode_request( {
type => 'yenta_check',
msgidno => rand(0xFFFFFFFF),
want_reply => 1,
}, {
map => $map,
level => $lev,
version => $ver,
view release on metacpan or search on metacpan
lib/AFS/Command/FS.pod view on Meta::CPAN
B<AFS::Object::Cell>
Attributes Values
---------- ------
cell AFS cell name
status Boolean, true indicating setuid/gid bits are allowed,
false indicating they are not
=back
=head2 getclientaddrs
view release on metacpan or search on metacpan
portable/k_haspag.c view on Meta::CPAN
*/
int
k_haspag(void)
{
int ngroups, i;
gid_t *groups;
uint32_t pag, g0, g1, hi, lo;
/* First, try the system call if k_pioctl is available. */
#ifdef HAVE_K_PIOCTL
int result;
view release on metacpan or search on metacpan
examples/v2/pts/PR_AddToGroup view on Meta::CPAN
use strict;
use warnings;
use AFS::PTS;
die "Usage: $0 uid gid\n" if $#ARGV != 1;
my $uid = shift;
my $gid = shift;
my $pts = AFS::PTS->new;
$AFS::CODE and print "AFS::CODE = $AFS::CODE\n";
my $ok = $pts->PR_AddToGroup($uid, $gid);
if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }
else { print "success = $ok\n"; }
view release on metacpan or search on metacpan
lib/AI/MXNet/Image.pm view on Meta::CPAN
Image data iterator with a large number of augumentation choices.
Supports reading from both .rec files and raw image files with image list.
To load from .rec files, please specify path_imgrec. Also specify path_imgidx
to use data partition (for distributed training) or shuffling.
To load from raw image files, specify path_imglist and path_root.
Parameters
lib/AI/MXNet/Image.pm view on Meta::CPAN
imglist: array ref
a list of image with the label(s)
each item is a list [imagelabel: float or array ref of float, imgpath]
path_root : str
Root folder of image files
path_imgidx : str
Path to image index file. Needed for partition and shuffling when using .rec source.
shuffle : bool
Whether to shuffle all images at the start of each iteration.
Can be slow for HDD.
part_index : int
lib/AI/MXNet/Image.pm view on Meta::CPAN
has 'data_name' => (is => 'ro', isa => 'Str', default => 'data');
has 'label_name' => (is => 'ro', isa => 'Str', default => 'softmax_label');
has [qw/path_imgrec
path_imglist
path_root
path_imgidx
/] => (is => 'ro', isa => 'Str');
has 'shuffle' => (is => 'ro', isa => 'Bool', default => 0);
has 'part_index' => (is => 'ro', isa => 'Int', default => 0);
has 'num_parts' => (is => 'ro', isa => 'Int', default => 0);
has 'aug_list' => (is => 'rw', isa => 'ArrayRef[CodeRef]');
has 'imglist' => (is => 'rw', isa => 'ArrayRef|HashRef');
has 'kwargs' => (is => 'ro', isa => 'HashRef');
has [qw/imgidx
imgrec
seq
cur
provide_data
provide_label
lib/AI/MXNet/Image.pm view on Meta::CPAN
my $self = shift;
assert($self->path_imgrec or $self->path_imglist or ref $self->imglist eq 'ARRAY');
if($self->path_imgrec)
{
print("loading recordio...\n");
if($self->path_imgidx)
{
$self->imgrec(
AI::MXNet::IndexedRecordIO->new(
idx_path => $self->path_imgidx,
uri => $self->path_imgrec,
flag => 'r'
)
);
$self->imgidx([@{ $self->imgrec->keys }]);
}
else
{
$self->imgrec(AI::MXNet::RecordIO->new(uri => $self->path_imgrec, flag => 'r'));
}
lib/AI/MXNet/Image.pm view on Meta::CPAN
{
$self->seq(\@imgkeys);
}
elsif($self->shuffle or $self->num_parts > 1)
{
assert(defined $self->imgidx);
$self->seq($self->imgidx);
}
if($self->num_parts > 1)
{
assert($self->part_index < $self->num_parts);
my $N = @{ $self->seq };
view release on metacpan or search on metacpan
lib/API/ISPManager/file.pm view on Meta::CPAN
my $params = shift;
my $result = API::ISPManager::query_abstract(
params => { %$params, sok => 'yes' },
func => 'file.attr',
allowed_fields => [ qw( host path allow_http elid plid sok name uid gid recursive mode pur puw pux pgr pgx por pox) ],
);
$API::ISPManager::last_answer = $result;
if ($result && $result->{ok}) {
view release on metacpan or search on metacpan
ReviewBoard.pm view on Meta::CPAN
$self->{_cookie_jar}->add_cookie_header($request);
my $response = $self->{_useragent}->simple_request($request);
my $xml = $response->as_string;
$xml =~ m/.*"bugs_closed": (.*), "changenum".*/;
my $bugids = $1;
return ($bugids);
}
=head2 $rb->getReviewCommentsCount(reviewnum => '41080');
Gets the count of comments received for an ACTIVE change request.
view release on metacpan or search on metacpan
lib/ARSObject.pm view on Meta::CPAN
? '<script for="window" event="onload">window.document.forms[0].' .$a{-name} .'.focus()</script>'
: '')
}
sub cgiddlb { # CGI drop-down listbox field composition
# -strict=> - disable text edit, be alike cgiselect
my ($s, %a) =@_;
$s->cgi();
my $n =$a{-name};
my $nl="${n}__L_";
view release on metacpan or search on metacpan
&groupList, &status);
#ifdef PROFILE
((ars_ctrl *)ctrl)->queries++;
#endif
if(!ARError( ret, status)) {
AV *gidList = newAV(), *gtypeList = newAV(),
*gnameListList = newAV(), *gnameList;
for(i = 0; i < groupList.numItems; i++) {
av_push(gidList, newSViv(groupList.groupList[i].groupId));
av_push(gtypeList, newSViv(groupList.groupList[i].groupType));
gnameList = newAV();
for(v = 0; v < groupList.groupList[i].groupName.numItems ; v++) {
av_push(gnameList, newSVpv(groupList.groupList[i].groupName.nameList[v], 0));
}
av_push(gnameListList, newRV_noinc((SV *)gnameList));
}
hv_store(RETVAL, "groupId", strlen("groupId") , newRV_noinc((SV *)gidList), 0);
hv_store(RETVAL, "groupType", strlen("groupType") , newRV_noinc((SV *)gtypeList), 0);
hv_store(RETVAL, "groupName", strlen("groupName") , newRV_noinc((SV *)gnameListList), 0);
FreeARGroupInfoList(&groupList, FALSE);
}
view release on metacpan or search on metacpan
plugins/nagios/check_pargs.pl view on Meta::CPAN
my $objectNagios = ASNMTAP::Asnmtap::Plugins::Nagios->new (
_programName => 'check_pargs.pl',
_programDescription => 'pargs',
_programVersion => '3.001.003',
_programUsagePrefix => '--filter <filter> [--uid <uid>] [--gid <gid>] [--fname <fname>] [-w|--warning <process #>] |[-c--critical <process #>]',
_programHelpPrefix => "
--uid=<uid>
--gid=<gid>
--fname=<fname>
-w, --warning=<process #>
-c, --critical=<process #>",
_programGetOptions => ['filter=s', 'uid:s', 'gid:s', 'fname:s', 'warning|w:s', 'critical|c:s'],
_timeout => 10,
_debug => 0);
my $filter = $objectNagios->getOptionsArgv ('filter');
$objectNagios->printUsage ('Missing command line argument filter') unless ( defined $filter );
my $uid = $objectNagios->getOptionsArgv ('uid');
my $gid = $objectNagios->getOptionsArgv ('gid');
my $fname = $objectNagios->getOptionsArgv ('fname');
my $warning = $objectNagios->getOptionsArgv ('warning');
my $critical = $objectNagios->getOptionsArgv ('critical');
plugins/nagios/check_pargs.pl view on Meta::CPAN
use Proc::ProcessTable;
my $tProcessTable = new Proc::ProcessTable;
foreach my $process ( @{$tProcessTable->table} ) {
next if ( defined $uid and $uid ne $process->uid );
next if ( defined $gid and $gid ne $process->gid );
next if ( defined $fname and $fname ne $process->fname );
if ( $debug ) {
print 'uid : ', $process->uid, "\n";
print 'gid : ', $process->gid, "\n";
print 'fname : ', $process->fname, "\n";
print 'pid : ', $process->pid, "\n";
print 'ppid : ', $process->ppid, "\n";
print 'cmnd : ', $process->cmndline, "\n";
view release on metacpan or search on metacpan
author/pod-stripper/scripts/pod_stripper.pl view on Meta::CPAN
say sprintf "Won %0.02f%%", (1- ($final_bytes / $original_bytes)) * 100;
exit;
sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size);
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) = lstat($_);
$original_bytes += $size;
if (-f $_ && /^.*\.pm\z/s) {
dostrip($_);
}
view release on metacpan or search on metacpan
acebrowser/cgi-bin/generic/pic view on Meta::CPAN
{
if ($box->{name} =~ /gi\|(\d+)/ or
($box->{class} eq 'System' and $box->{'comment'}=~/([NP])ID:g(\d+)/)) {
my($db) = $2 ? $1 : 'n';
my($gid) = $2 || $1;
my $url = NCBI . "?db=$db&form=1&field=Sequence+ID&term=$gid";
push(@lines,qq(<AREA shape="rect"
onMouseOver="return s(this,'$jcomment')"
coords="$coords"
href="$url">));
last CASE;
view release on metacpan or search on metacpan
lib/Acme/Archive/Mbox.pm view on Meta::CPAN
my %attr;
my $contents = read_file($name, err_mode => 'carp', binmode => ':raw');
return unless $contents;
my (undef, undef, $mode, undef, $uid, $gid, undef, undef, undef, $mtime) = stat $name;
$attr{mode} = $mode & 0777;
$attr{uid} = $uid;
$attr{gid} = $gid;
$attr{mtime} = $mtime;
my $file = Acme::Archive::Mbox::File->new($altname, $contents, %attr);
push @{$self->{files}}, $file if $file;
lib/Acme/Archive/Mbox.pm view on Meta::CPAN
my $message = Mail::Message->build( From => '"Acme::Archive::Mbox" <AAM@example.com>',
To => '"Anyone, really" <anyone@example.com>',
Subject => $file->name,
'X-AAM-uid' => $file->uid,
'X-AAM-gid' => $file->gid,
'X-AAM-mode' => $file->mode,
'X-AAM-mtime' => $file->mtime,
data => 'attached',
attach => $attach, );
lib/Acme/Archive/Mbox.pm view on Meta::CPAN
my $folder = $mgr->open($mboxname, type => 'mbox') or die "Could not open $mboxname";
my @messages = $folder->messages;
for my $message (@messages) {
my %attr;
my $name = $message->get('Subject');
for (qw/uid gid mode mtime/) {
$attr{$_} = $message->get("X-AAM-$_");
}
my $contents = ($message->parts())[1]->decoded();
$self->add_data($name, $contents, %attr);
view release on metacpan or search on metacpan
t/01.options.id.t view on Meta::CPAN
}
my $ex = '';
my $res='<style>
.testingid td { height:1px; width:1px; }
.testingid tr { }
</style>
<table class="testingid" border="0" cellpadding="0" cellspacing="0">
</table>
';
is( aa2ht({'id'=>'testingid'},$ex), $res );
view release on metacpan or search on metacpan
laid sit Walt suits rubs Vera incites aster currying foal stall
iterating leader start ran Nugent Asian dogs beret dune distrust cab
Estes rebelliousness spout duet answerers Orleans Lotte mid Laotian redo enjoin
scout we Augustus color asset bedfast Sandia fraud deus flashers Brian
bin mast spilt Latin clasps limit logo no aureole snuggle dig
ad recta annal ethically ally toad Wu brag nears giddy Nugent
toils gunnery Tigris rusts annexes peels dent threatened nulled car asses
thin saga gaiter gape ancient Satan coalescing Dow soars Provence hag
irate Lesbians Adrian roles millipedes bald suds writing Maine logo appending
scars turns McLanahan erosion stile submariner bliss Connors lung opulent barns
pen eats assails rods premises trims grit alacrity acute con tar
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
Author: L<JOHNH|https://metacpan.org/author/JOHNH>
An interesting tool that has been developed since 1991 (which is roughly around the time the WWW and Linux was born, whew). Kudos to the author for the dedication and consistency.
<br><br>Since nowadays SQL is pretty much ubiquitous, users might also want to check out an alternative tool, App::fsql. For example (taking a similar example from the module's doc), to select entries in /etc/passwd where UID is between 1000 and 2000...
<br><br>$ ( echo -e "login\tpassword\tuid\tgid\tgecos\thome\tshell"; sed 's/:/\t/g' /etc/passwd ) | fsql --add-tsv - 'SELECT * FROM stdin WHERE uid >= 1000 AND uid <= 2000' --format text --aoh
=item L<Date::Tie>
Author: L<FGLOCK|https://metacpan.org/author/FGLOCK>
view release on metacpan or search on metacpan
lib/Acme/Ghost.pm view on Meta::CPAN
=head2 group
group => 'nogroup',
group => 65534,
This attribute sets group/gid for spawned process
=head2 ident
ident => 'myDaemon',
lib/Acme/Ghost.pm view on Meta::CPAN
print $g->pid;
This method returns PID of the daemon
=head2 set_gid
$g = $g->set_gid('1000 10001 10002');
$g = $g->set_gid(1000);
$g = $g->set_gid('nogroup');
$g = $g->set_gid;
Become another group. Arguments are groups (or group ids or space delimited list of group ids). All errors die
=head2 set_uid
lib/Acme/Ghost.pm view on Meta::CPAN
}
}
$user = getpwuid($uid || 0) unless length $user;
# Get GID by Group
my $gids = $); # Effect. GIDs
if (IS_ROOT) {
if ($group =~ /^(\d+)$/) {
$gids = $group;
} elsif (length($group)) {
$gids = getgrnam($group) || croak "getgrnam failed - $!\n";
}
}
my $gid = (split /\s+/, $gids)[0]; # Get first GID
$group = getpwuid($gid || 0) unless length $group;
# Check name
croak "Can't create unnamed daemon\n" unless $name;
my $self = bless {
name => $name,
user => $user,
group => $group,
uid => $uid,
gid => $gid,
gids => $gids,
# PID
pidfile => $args->{pidfile} || File::Spec->catfile(getcwd(), sprintf("%s.pid", $name)),
_filepid => undef,
lib/Acme/Ghost.pm view on Meta::CPAN
}
}
return $self;
}
sub set_gid {
my $self = shift;
my $gids = shift // $self->{gids};
return $self unless IS_ROOT; # Skip if no ROOT
return $self unless defined $gids; # Skip if no GIDs
# Get GIDs
my $gid = (split /\s+/, $gids)[0]; # Get first GID
$) = "$gid $gids"; # store all the GIDs (calls setgroups)
POSIX::setgid($gid) || die "Setgid $gid failed - $!\n"; # Set first GID
if (! grep {$gid == $_} split /\s+/, $() { # look for any valid id in the list
die "Detected strange GID. Couldn't become GID \"$gid\": $!\n";
}
return $self;
}
sub daemonize {
lib/Acme/Ghost.pm view on Meta::CPAN
# Store current PID to instance as Parent PID
$self->{ppid} = $$;
# Get UID & GID
my $uid = $self->{uid}; # UID
my $gids = $self->{gid}; # returns list of groups (gids)
my $gid = (split /[\s,]+/, $gids)[0]; # First GID
_debug("!! UID=%s; GID=%s; GIDs=\"%s\"", $uid, $gid, $gids);
# Pre Init Hook
$self->preinit;
$self->{_log} = undef; # Close log handlers before spawn
lib/Acme/Ghost.pm view on Meta::CPAN
}
# Child
$self->{daemonized} = 1; # Set daemonized flag
$self->filepid->pid($$)->save; # Set new PID and Write PID file
chown($uid, $gid, $pid_file) if IS_ROOT && -e $pid_file;
# Set GID and UID
$self->set_gid->set_uid;
# Turn process into session leader, and ensure no controlling terminal
unless (DEBUG) {
die "Can't start a new session: $!" if POSIX::setsid() < 0;
}
view release on metacpan or search on metacpan
lib/Acme/Globule/Range.pm view on Meta::CPAN
The implementation of the range operator. You should never need to call this
directly.
=head1 BUGS
The syntax is rather rigid.
=head1 SEE ALSO
List::Maker which supports a wider range (*groan*) of syntax but affects
glob() globally.
view release on metacpan or search on metacpan
lib/Acme/Hello/I18N/ca.po view on Meta::CPAN
# Translation of `hello' messages to Catalan.
# Copyright (C) 2002 Free Software Foundation, Inc.
# Jordi Valverde Sivilla <jordi@eclipsi.net>, 2002.
#
msgid ""
msgstr ""
"Project-Id-Version: hello 2.0.50\n"
"POT-Creation-Date: 2002-05-22 19:23+0200\n"
"PO-Revision-Date: 2002-05-16 20:07GMT\n"
"Last-Translator: Jordi Valverde <jordi@eclipsi.net>\n"
lib/Acme/Hello/I18N/ca.po view on Meta::CPAN
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=ISO-8859-1\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Generator: KBabel 0.9.5\n"
msgid "hello, world\n"
msgstr "hola, món\n"
msgid "Hello, world!"
msgstr "Hola, món!"
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
#
# * http://zvtm.sourceforge.net/zgrviewer.html or something similar for showing the user the "map" of
# nodes/rooms/whatever made of has-a references or something.
#
# * /goto should put you inside an arbitrary object, /look should list as exits and/or items the object references contained by that object
# in other words, break away from our rigid API for inventory/room/etc.
#
# * need a black list black list, so we can re-add ourself to things that get serialized by Acme::State even though we're in %INC
#
# * need an error log viewabe by all.
#
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/counting_to_one.pm view on Meta::CPAN
who had his jaw smashed by a sniper shot and who was casevac'ed on the
eve of the Somme attack.
=item Dr Strangelove
The female character is Miss "Foreign Affairs", General Turgidson's
secretary, who appears also in the centerfold of the Playboy issue
Major Kong is reading.
See L<http://tvtropes.org/pmwiki/pmwiki.php/Main/TheSmurfettePrinciple>
=item The Blues Brothers
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
WinLeave
# names functions
add
append
argc
argidx
argv
browse
browsedir
bufexists
buflisted
view release on metacpan or search on metacpan
lib/Acme/NoTalentAssClown.pm view on Meta::CPAN
"I Found Someone",
"A Love So Beautiful",
"This River"
]
};
$Lyrics::Fetcher::gid = $options{gid};
bless( $self, $class );
return ($self);
}
=head1 NAME
lib/Acme/NoTalentAssClown.pm view on Meta::CPAN
use Acme::NoTalentAssClown;
#Defaults to use Lyrics::Fetcher::Google, but any Lyrics::Fetcher
#plugin will work as specified by agent=>'bar'
my $nta = Acme::NoTalentAssClown->new(gid=>'yourGoogleApi_ID');
print $nta->grammys(); #finds a greatest hit
print $nta->grammys('When a Man Loves a Woman'); #For my money, it doesn't get any better
...
=head1 METHODS
view release on metacpan or search on metacpan
lib/Acme/PM/Barcelona/12x5_ca.pod view on Meta::CPAN
=head2 Codis QR
=head3 Què són?
Els codis QR s'utilitzen per a codificar informació que pugui
ser llegida i utilitzada de forma rà pida des d'un dispositiu
lector.
Es tracta d'un invent japonès per tal que es pugui llegir
informació rà pidament des dels mòbils i
es pugui utilitzar d'immediat sense haver d'escriure res, per exemple
lib/Acme/PM/Barcelona/12x5_ca.pod view on Meta::CPAN
=back
=head3 JAPH 1
$_ = "wftedskaebjgdpjgidbsmnjgc";
tr/a-z/oh, turtleneck Phrase Jar!/; print;
=head3 JAPH 2
=for latex \scriptsize
view release on metacpan or search on metacpan
share/locale/Acme__Padre__PlayCode-ar.po view on Meta::CPAN
msgid ""
msgstr ""
"Project-Id-Version: padre-plugin-acmeplaycode\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2009-05-18 23:02+0800\n"
"PO-Revision-Date: \n"
"Last-Translator: Ahmad M. Zawawi <ahmad.zawawi@gmail.com>\n"
"Language-Team: Ahmad M. Zawawi <ahmad.zawawi@gmail.com>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Poedit-Language: Arabic\n"
#: lib/Padre/Plugin/AcmePlayCode.pm:19
msgid "Averything"
msgstr "Averything"
#: lib/Padre/Plugin/AcmePlayCode.pm:20
msgid "DoubleToSingle"
msgstr "DoubleToSingle"
#: lib/Padre/Plugin/AcmePlayCode.pm:21
msgid "ExchangeCondition"
msgstr "ExchangeCondition"
#: lib/Padre/Plugin/AcmePlayCode.pm:22
msgid "NumberPlus"
msgstr "NumberPlus"
#: lib/Padre/Plugin/AcmePlayCode.pm:23
msgid "PrintComma"
msgstr "PrintComma"