Result:
found more than 443 distributions - search limited to the first 2001 files matching your query
( run in 1.972 )
App-PersistentSSH
view release on metacpan or search on metacpan
lib/App/PersistentSSH.pm view on Meta::CPAN
Host *
ControlPath /tmp/%r@%h:%p
to your F<ssh_config>, in order to configure the path that the F<ssh> control
master will bind on. C<ControlMaster auto> is not needed.
The advantage over C<ControlMaster auto> is that if you close your initial ssh,
which is the control master under C<auto> all subsequently made connections
will also close. By keeping a daemonized, managed instance of C<ssh> this
problem is avoided.
App-Phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe/Gopher.pm view on Meta::CPAN
Phoebe as a super user. Both are potential security risk, but the first option
is much less of a problem, I think.
If you want to try this, run the following as root:
setcap 'cap_net_bind_service=+ep' $(which perl)
Verify it:
getcap $(which perl)
App-PhotoDB
view release on metacpan or search on metacpan
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
print "\n$rowcount records will be updated\n" unless $silent;
print "\n" unless $silent;
# Build query
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->update($table, $data, $where);
# Final confirmation
unless ($silent) {
if (!&prompt({default=>'yes', prompt=>'Proceed?', type=>'boolean'})) {
print "Aborted!\n";
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
}
}
# Execute query
my $sth = $db->prepare($stmt);
my $rows = $sth->execute(@bind);
$rows = &unsci($rows);
print "Updated $rows rows\n" unless $silent;
&logger({db=>$db, type=>'EDIT', message=>"$table $rows rows"}) if $log;
return $rows;
}
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
print Dump($where) unless $silent;
print "$rowcount records will be deleted\n" unless $silent;
# Build query
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->delete($table, $where);
# Final confirmation
unless ($silent) {
if (!&prompt({default=>'yes', prompt=>'Proceed?', type=>'boolean'})) {
print "Aborted!\n";
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
}
}
# Execute query
my $sth = $db->prepare($stmt);
my $rows = $sth->execute(@bind);
$rows = &unsci($rows);
print "Deleted $rows rows\n" unless $silent;
&logger({db=>$db, type=>'DELETE', message=>"$table $rows rows"}) if $log;
return $rows;
}
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
print Dump($data) unless $silent;
print "\n" unless $silent;
# Build query
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->insert($table, $data);
# Final confirmation
unless ($silent) {
if (!&prompt({default=>'yes', prompt=>'Proceed?', type=>'boolean'})) {
print "Aborted!\n";
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
}
}
# Execute query
my $sth = $db->prepare($stmt);
$sth->execute(@bind);
# Display inserted row
my $insertedrow = $sth->{mysql_insertid};
print "Inserted $table $insertedrow\n" unless $silent;
&logger({db=>$db, type=>'ADD', message=>"$table #$insertedrow"}) if $log;
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
$sth = $db->prepare($query) or die "Couldn't prepare statement: " . $db->errstr;
$rows = $sth->execute();
} elsif ($table && $cols && $where) {
# Use SQL::Abstract
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select($table, $cols, $where);
$sth = $db->prepare($stmt);
$rows = $sth->execute(@bind);
} else {
die "Must pass in either query OR table, cols, where\n";
}
# No point in proceeding if there are no valid options to choose from
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
my ($sth, $rows);
if ($table && $cols && $where) {
# Use SQL::Abstract
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select($table, $cols, $where, $order);
$sth = $db->prepare($stmt);
$rows = $sth->execute(@bind);
$rows = &unsci($rows);
} else {
print "Must pass in table, cols, where\n";
return;
}
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
$sth = $db->prepare($query) or die "Couldn't prepare statement: " . $db->errstr;
$rows = $sth->execute();
} elsif ($table && $cols && $where) {
# Use SQL::Abstract
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select($table, $cols, $where);
$sth = $db->prepare($stmt);
$rows = $sth->execute(@bind);
} else {
print "Must pass in either query OR table, cols, where\n";
return;
}
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
$sth = $db->prepare($query) or die "Couldn't prepare statement: " . $db->errstr;
$rows = $sth->execute();
} elsif ($table && $col && $where) {
# Use SQL::Abstract
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select($table, $col, $where);
$sth = $db->prepare($stmt);
$rows = $sth->execute(@bind);
} else {
print "Must pass in either query OR table, col, where\n";
return;
}
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
my ($sth, $rows);
if ($table && $col && $where) {
# Use SQL::Abstract
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select($table, $col, $where);
$sth = $db->prepare($stmt);
$rows = $sth->execute(@bind);
} else {
print "Must pass in table, col, where\n";
return;
}
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
$where{display_lens} = $href->{lens_id};
my $thinwhere = &thin(\%where);
# Build query
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->update('CAMERA', {display_lens => undef}, $thinwhere);
# Execute query
my $sth = $db->prepare($stmt);
return $sth->execute(@bind);
}
=head2 welcome
Print a friendly welcome message
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
'UserComment',
);
# This is the query that fetches (and calculates) values from the DB that we want to write as EXIF tags
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select('exifdata', '*', $where);
# Prepare and execute the SQL
my $sth = $db->prepare($stmt) or die "Couldn't prepare statement: " . $db->errstr;
my $rows = $sth->execute(@bind);
$rows = &unsci($rows);
# Get confirmation
if ($rows == 0) {
print "No scans be will tagged\n";
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
my $cols = $href->{cols} // '*';
my $where = $href->{where} // {};
# Use SQL::Abstract
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select($view, $cols, $where);
my $sth = $db->prepare($stmt);
my $rows = $sth->execute(@bind);
my $returnedcols = $sth->{'NAME'};
my @array;
my $table = Text::TabularDisplay->new(@$returnedcols);
while (my @row = $sth->fetchrow) {
$table->add(@row);
App-PigLatin
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
"Thou art speaking to Captain Peleg--that's who ye are speaking to,
young man. It belongs to me and Captain Bildad to see the Pequod fitted
out for the voyage, and supplied with all her needs, including crew.
We are part owners and agents. But as I was going to say, if thou wantest
to know what whaling is, as thou tellest ye do, I can put ye in a way
of finding it out before ye bind yourself to it, past backing out.
Clap eye on Captain Ahab, young man, and thou wilt find that he has
only one leg."
"What do you mean, sir? Was the other one lost by a whale?"
t/files/moby11.txt view on Meta::CPAN
*Why this book of whales is not denominated the Quarto is very plain.
Because, while the whales of this order, though smaller than those
of the former order, nevertheless retain a proportionate likeness
to them in figure, yet the bookbinder's Quarto volume in its
dimensioned form does not preserve the shape of the Folio volume,
but the Octavo volume does.
BOOK II. (Octavo), CHAPTER I. (Grampus).--Though this fish,
t/files/moby11.txt view on Meta::CPAN
hour like this, with soul beat down and held to knowledge,--
as wild, untutored things are forced to feed--Oh, life! 'tis
now that I do feel the latent horror in thee! but 'tis not me!
that horror's out of me, and with the soft feeling of the human
in me, yet will I try to fight ye, ye grim, phantom futures!
Stand by me, hold me, bind me, O ye blessed influences!
CHAPTER 39
t/files/moby11.txt view on Meta::CPAN
its back, and its distended tusked mouth into which the billows
are rolling, might be taken for the Traitors' Gate leading from
the Thames by water into the Tower. Then, there are the Prodromus
whales of the old Scotch Sibbald, and Jonah's whale, as depicted
in the prints of old Bibles and the cuts of old primers.
What shall be said of these? As for the book-binder's whale
winding like a vine-stalk round the stock of a descending anchor--
as stamped and gilded on the backs and titlepages of many
books both old and new--that is a very picturesque but purely
fabulous creature, imitated, I take it, from the like figures
on antique vases. Though universally denominated a dolphin,
I nevertheless call this book-binder's fish an attempt at a whale;
because it was so intended when the device was first introduced.
It was introduced by an old Italian publisher somewhere
about the 15th century, during the Revival of Learning;
and in those days, and even down to a comparatively late period,
dolphins were popularly supposed to be a species of the Leviathan.
t/files/moby11.txt view on Meta::CPAN
with it the first sailor that but cast loose a rope's end.
Petrified by his aspect, and still more shrinking from
the fiery dart that he held, the men fell back in dismay,
and Ahab again spoke:--
"All your oaths to hunt the White Whale are as binding as mine;
and heart, soul, and body, lungs and life, old Ahab is bound.
And that ye may know to what tune this heart beats: look ye here;
thus I blow out the last fear!" And with one blast of his breath
he extinguished the flame.
App-PipeFilter
view release on metacpan or search on metacpan
[_] 33% Additional features
[X] 100% Allow -o to be JSON::Path descriptions.
Implemented jsonpath that acts like jcut but using JSONPath.
http://goessner.net/articles/JsonPath/
[_] 0% A jcut implementation using JSON:Select.
[_] 0% Find or write a Perl implementation or bindings for JSON::Select.
http://jsonselect.org/
[_] 0% Wrap a jsonselect app around it.
[_] 0% Cookbook.
App-Pocosi
view release on metacpan or search on metacpan
lib/App/Pocosi.pm view on Meta::CPAN
plugins:
- [OperServ]
listeners:
- bindaddr: "127.0.0.1"
port: 10023
denials:
- ["12.34.56.0/24", "I don't like this IP block"]
App-Pods2Site
view release on metacpan or search on metacpan
lib/App/Pods2Site/Args.pm view on Meta::CPAN
sub getBinDirs
{
my $self = shift;
return @{$self->{bindirs}};
}
sub getLibDirs
{
my $self = shift;
lib/App/Pods2Site/Args.pm view on Meta::CPAN
# and can't be used when updating
#
my @STICKYOPTS =
qw
(
bindirectory
libdirectory
group
css
style
title
lib/App/Pods2Site/Args.pm view on Meta::CPAN
'manual',
'version',
'v|verbose+',
'workdirectory=s',
'quiet',
'bindirectory=s@',
'libdirectory=s@',
'group=s@',
'css=s',
'style=s',
'title=s',
lib/App/Pods2Site/Args.pm view on Meta::CPAN
{
print "Creating '$sitedir'...\n" if $self->isVerboseLevel(0);
$self->{updating} = 0;
}
# fix up any user given bindir locations or get us the standard ones
#
my @bindirs = uniq($self->__getBinLocations($rawOpts{bindirectory}));
warn("WARNING: No bin directories found\n") unless @bindirs;
$self->{bindirs} = $rawOpts{bindirectory} = \@bindirs;
# fix up any user given libdir locations or get us the standard ones
#
my @libdirs = uniq($self->__getLibLocations($rawOpts{libdirectory}));
warn("WARNING: No lib directories found\n") unless @libdirs;
App-Prima-REPL
view release on metacpan or search on metacpan
bin/prima-repl view on Meta::CPAN
This function does not set the widget as the tab's default widget, since you
may want the default widget to be something else. You should explicitly invoke
C<REPL::change_default_widget> (above) to do that.
The endowed editor has named key bindings that you can overwrite:
CtrlReturn CtrlShiftReturn
CtrlEnter CtrlShiftEnter
CtrlPageDown CtrlPageUp
App-Prove-Plugin-Elasticsearch
view release on metacpan or search on metacpan
lib/App/Prove/Elasticsearch/Queue/Rabbit.pm view on Meta::CPAN
);
$self->{mq}->queue_declare(
$self->{write_channel}, $job->{queue_name},
{auto_delete => 0}
);
$self->{mq}->queue_bind(
$self->{write_channel}, $job->{queue_name},
$self->{config}->{'queue.exchange'}, $job->{queue_name}
);
#queue a test to a queue for the same version/platform/etc
App-Prove-Plugin-PassEnv
view release on metacpan or search on metacpan
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
"Contribution" shall mean any work of authorship, including
the original version of the Work and any modifications or additions
to that Work or Derivative Works thereof, that is intentionally
App-PureProxy
view release on metacpan or search on metacpan
script/pureproxy.pl view on Meta::CPAN
(default: none)
=head2 --group
Changes the group ids or group names that the server should switch to after
binding to the port. The ids or names can be separated with commas or space
characters. (default: none)
=head2 -o, --host
Binds to a TCP interface. Defaults to undef, which lets most server
backends bind to the any (*) interface. This option is only valid
for servers which support TCP sockets.
=head2 -I
Specifies Perl library include paths, like perl's C<-I> option. You
script/pureproxy.pl view on Meta::CPAN
should have permission to write. (default: none)
=head2 --user
Changes the user id or user name that the server process should switch to
after binding to the port. The pid file, error log or unix socket also are
created before changing privileges. This option is usually used if the main
process is started with root privileges because binding to the low-numbered
(E<lt>1024) port. (default: none)
=head1 ENVIRONMENT
=head2 PUREPROXY_SERVER
App-PythonToPerl
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
<<<=== COPYRIGHT CONTRIBUTIONS ===>>>
[ BEGIN, APTECH FAMILY COPYRIGHT ASSIGNMENT AGREEMENT ]
By contributing to this repository, you agree that any and all such Contributions and derivative works thereof shall immediately become part of the APTech Family of software and documentation, and you accept and agree to the following legally-binding...
1. Definitions.
"You" or "Your" shall mean the copyright owner, or legal entity authorized by the copyright owner, that is making this Agreement. For legal entities, the entity making a Contribution and all other entities that control, are controlled by, or are und...
CONTRIBUTING view on Meta::CPAN
"Contribution" shall mean any original work of authorship, including any changes or additions or enhancements to an existing work, that is intentionally submitted by You to this repository for inclusion in, or documentation of, any of the products or...
2. Assignment of Copyright. Subject to the terms and conditions of this Agreement, and for good and valuable consideration, receipt of which You acknowledge, You hereby transfer to the Delaware corporation named Auto-Parallel Technologies, Inc. with...
You hereby agree that if You have or acquire hereafter any patent or interface copyright or other intellectual property interest dominating the software or documentation contributed to by the Work (or use of that software or documentation), such domi...
You hereby represent and warrant that You are the sole copyright holder for the Work and that You have the right and power to enter into this legally-binding contractual agreement. You hereby indemnify and hold harmless APTech, its heirs, assignees,...
3. Grant of Patent License. Subject to the terms and conditions of this Agreement, You hereby grant to APTech and to recipients of software distributed by APTech a perpetual, worldwide, non-exclusive, no-charge, royalty-free, irrevocable (except as ...
4. You represent that you are legally entitled to assign the above copyright and grant the above patent license. If your employer(s) or contractee(s) have rights to intellectual property that you create that includes your Contributions, then you rep...
App-RL
view release on metacpan or search on metacpan
t/NC_007942.gff view on Meta::CPAN
NC_007942 GenBank gene 58434 58538 . + 1 ID=GlmaCp031;Dbxref=GeneID:3989307;Name=psaI;locus_tag=GlmaCp031
NC_007942 GenBank mRNA 58434 58538 . + 1 ID=GlmaCp031.t01;Parent=GlmaCp031
NC_007942 GenBank CDS 58434 58538 . + 1 ID=GlmaCp031.p01;Parent=GlmaCp031.t01;Dbxref=GeneID:3989307;Name=psaI;codon_start=1;locus_tag=GlmaCp031;product=photosystem I subunit VIII;protein_id=YP_538775.1;transl_table=11;translation=length.34
NC_007942 GenBank gene 59728 60417 . + 1 ID=GlmaCp032;Dbxref=GeneID:3989308;Name=cemA;gene_synonym=ycf10;locus_tag=GlmaCp032
NC_007942 GenBank mRNA 59728 60417 . + 1 ID=GlmaCp032.t01;Parent=GlmaCp032
NC_007942 GenBank CDS 59728 60417 . + 1 ID=GlmaCp032.p01;Parent=GlmaCp032.t01;Dbxref=GeneID:3989308;Name=cemA;Note=heme-binding protein;codon_start=1;gene_synonym=ycf10;locus_tag=GlmaCp032;product=envelope membrane protein;protein_id=YP_538776.1;tran...
NC_007942 GenBank gene 60604 61566 . + 1 ID=GlmaCp033;Dbxref=GeneID:3989309;Name=petA;locus_tag=GlmaCp033
NC_007942 GenBank mRNA 60604 61566 . + 1 ID=GlmaCp033.t01;Parent=GlmaCp033
NC_007942 GenBank CDS 60604 61566 . + 1 ID=GlmaCp033.p01;Parent=GlmaCp033.t01;Dbxref=GeneID:3989309;Name=petA;Note=apocytochrome f precursor%3B component of cytochrome b6/f complex;codon_start=1;locus_tag=GlmaCp033;product=cytochrome f;protein_id=YP_...
NC_007942 GenBank gene 62442 62564 . - 1 ID=GlmaCp034;Dbxref=GeneID:3989310;Name=psbJ;locus_tag=GlmaCp034
NC_007942 GenBank mRNA 62442 62564 . - 1 ID=GlmaCp034.t01;Parent=GlmaCp034
App-RPi-EnvUI
view release on metacpan or search on metacpan
public/js/flot.js view on Meta::CPAN
processDatapoints: [],
processOffset: [],
drawBackground: [],
drawSeries: [],
draw: [],
bindEvents: [],
drawOverlay: [],
shutdown: []
},
plot = this;
public/js/flot.js view on Meta::CPAN
parseOptions(options_);
setupCanvases();
setData(data_);
setupGrid();
draw();
bindEvents();
function executeHooks(hook, args) {
args = [plot].concat(args);
for (var i = 0; i < hook.length; ++i)
public/js/flot.js view on Meta::CPAN
ctx = surface.context;
octx = overlay.context;
// define which element we're listening for events on
eventHolder = $(overlay.element).unbind();
// If we're re-using a plot object, shut down the old one
var existing = placeholder.data("plot");
public/js/flot.js view on Meta::CPAN
// save in case we get replotted
placeholder.data("plot", plot);
}
function bindEvents() {
// bind events
if (options.grid.hoverable) {
eventHolder.mousemove(onMouseMove);
// Use bind, rather than .mouseleave, because we officially
// still support jQuery 1.2.6, which doesn't define a shortcut
// for mouseenter or mouseleave. This was a bug/oversight that
// was fixed somewhere around 1.3.x. We can return to using
// .mouseleave when we drop support for 1.2.6.
eventHolder.bind("mouseleave", onMouseLeave);
}
if (options.grid.clickable)
eventHolder.click(onClick);
executeHooks(hooks.bindEvents, [eventHolder]);
}
function shutdown() {
if (redrawTimeout)
clearTimeout(redrawTimeout);
eventHolder.unbind("mousemove", onMouseMove);
eventHolder.unbind("mouseleave", onMouseLeave);
eventHolder.unbind("click", onClick);
executeHooks(hooks.shutdown, [eventHolder]);
}
function setTransformationHelpers(axis) {
App-Regather
view release on metacpan or search on metacpan
lib/App/Regather.pm view on Meta::CPAN
} else {
$self->l->cc( pr => 'info', fm => "%s: TLS negotiation succeeded" ) if $self->o('v') > 1;
}
}
my $bind = $self->cf->getnode(qw(ldap bnd))->as_hash if $self->cf->is_section(qw(ldap bnd));
if ( ref($bind) eq 'HASH' ) {
if ( exists $bind->{dn} ) {
my @bind_options;
push @bind_options, delete $bind->{dn};
while ( my($k, $v) = each %{$bind} ) {
push @bind_options, $k => $v;
}
$mesg = $self->o('ldap')->bind( @bind_options );
if ( $mesg->code ) {
####### !!!!!!! TODO: to implement exponential delay on error sending to awoid log file/notify
####### !!!!!!! queue overflow
$self->l->cc( pr => 'err', fm => "%s:%s: bind error: %s",
ls => [ __FILE__,__LINE__, $mesg->error ] );
if ( $self->o('strict') ) {
exit $mesg->code;
} else {
next;
lib/App/Regather.pm view on Meta::CPAN
'filter: ', $self->cf->get(qw(ldap srch filter)),
'attrs: ', join("\n", @{$cfgattrs}) ] ) if $self->o('v') > 2;
}
}
$mesg = $self->o('ldap')->unbind;
if ( $mesg->code ) {
$self->l->cc_ldap_err( mesg => $mesg );
exit $mesg->code;
}
App-Relate
view release on metacpan or search on metacpan
t/00-App-Relate-simple_checks_of_relate_proceedure.t view on Meta::CPAN
{ test_data => $data,
} );
my $expected = [
'/usr/src/apache2/httpd.spec',
'/usr/src/apache2/docs/manual/bind.html',
'/usr/sbin/apache2',
];
my $results_sorted = [ sort( @{ $results } ) ];
my $expected_sorted = [ sort( @{ $expected } ) ];
t/00-App-Relate-simple_checks_of_relate_proceedure.t view on Meta::CPAN
relate( [ 'apache', '^bin' ], [],
{ test_data => $data,
} );
my $expected = [
'/usr/src/apache2/docs/manual/bind.html',
];
my $results_sorted = [ sort( @{ $results } ) ];
my $expected_sorted = [ sort( @{ $expected } ) ];
t/00-App-Relate-simple_checks_of_relate_proceedure.t view on Meta::CPAN
sub load_data_aref {
my $data =
[
'/usr/src/apache2/httpd.spec',
'/usr/src/apache2/docs/manual/bind.html',
'/usr/sbin/apache2',
'/usr/sbin/apache2ctl',
'/var/www/html/index.html',
'/var/www/html/usage/index.html',
'/usr/share/texmf-texlive/tex/latex/authorindex',
App-Repository
view release on metacpan or search on metacpan
lib/App/Repository/DBI.pm view on Meta::CPAN
}
# modified from the DBD::_::db::selectall_arrayref in DBI.pm
sub _selectrange_arrayref {
&App::sub_entry if ($App::trace);
my ($self, $stmt, $startrow, $endrow, $attr, @bind) = @_;
my $dbh = $self->{dbh};
return [] if (!$dbh);
my $sth = (ref $stmt) ? $stmt : $dbh->prepare($stmt, $attr);
if ($sth) {
$sth->execute(@bind) || return;
my $slice = $attr->{Slice}; # typically undef, else hash or array ref
if (!$slice and $slice=$attr->{Columns}) {
if (ref $slice eq 'ARRAY') { # map col idx to perl array idx
$slice = [ @{$attr->{Columns}} ]; # take a copy
for (@$slice) { $_-- }
lib/App/Repository/DBI.pm view on Meta::CPAN
# SIMPLE SQL OPERATIONS
######################################################################
# $row = $rep->select_row ($table, \@cols, \@params, \%paramvalues);
# this is a new version that uses bind variables instead of relying on my quoting rules
# unfortunately, it doesn't work yet
sub _select_row {
&App::sub_entry if ($App::trace);
my ($self, $table, $cols, $params, $paramvalues) = @_;
lib/App/Repository/DBI.pm view on Meta::CPAN
# $startrow, $endrow,
# \@sortdircol, \@keycolidx, \@writeable, \@columntype, \@summarykeys);
# TODO: get the $startrow/$endrow working when one/both/neither work in the SQL portion
# TODO: rethink $startrow/$endrow vs. $numrows/$skiprows
# this is a new version that uses bind variables instead of relying on my quoting rules
# unfortunately, it doesn't work yet
sub _select_rows {
&App::sub_entry if ($App::trace);
my ($self, $table, $cols, $params, $paramvalues, $order_by, $startrow, $endrow,
lib/App/Repository/DBI.pm view on Meta::CPAN
my ($timer, $elapsed_time);
my $loglevel = 1;
if ($debug_sql) {
$timer = $self->_get_timer();
print $App::DEBUG_FILE "DEBUG_SQL: insert()\n";
print $App::DEBUG_FILE "DEBUG_SQL: bind vars [", join("|",map { defined $_ ? $_ : "undef" } @$row), "]\n";
print $App::DEBUG_FILE $sql;
}
if ($context_options->{explain_sql}) {
$self->explain_sql($sql);
}
lib/App/Repository/DBI.pm view on Meta::CPAN
### TODO: make this work with regex for retry
$retval = $dbh->do($sql, undef, @$row);
$retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
};
if ($@) { # Log the error message with the SQL and rethrow the exception
my $bind_values = join("|", map { defined $_ ? $_ : "undef" } @$row);
$loglevel = 3 if ($@ =~ /duplicate/i);
$self->{context}->log({level=>$loglevel}, "DBI Exception (fail) in _insert_row(): $@BIND VALUES: [$bind_values]\nSQL: $sql");
die $@;
}
}
if ($debug_sql) {
$elapsed_time = $self->_read_timer($timer);
lib/App/Repository/DBI.pm view on Meta::CPAN
if (ref($rows) eq "ARRAY") {
$sql = $self->_mk_insert_row_sql($table, $cols);
foreach my $row (@$rows) {
if ($debug_sql) {
print $App::DEBUG_FILE "DEBUG_SQL: _insert_rows()\n";
print $App::DEBUG_FILE "DEBUG_SQL: bind vars [", join("|",map { defined $_ ? $_ : "undef" } @$row), "]\n";
print $App::DEBUG_FILE $sql;
}
if ($explain_sql) {
$self->explain_sql($sql);
}
lib/App/Repository/DBI.pm view on Meta::CPAN
$retval = $dbh->do($sql, undef, @$row);
$retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
};
if ($@) { # Log the error message with the SQL and rethrow the exception
$loglevel = ($@ =~ /duplicate/i) ? 3 : 1;
my $bind_values = join("|", map { defined $_ ? $_ : "undef" } @$row);
$self->{context}->log({level=>$loglevel}, "DBI Exception (fail) in _insert_rows() [ARRAY]: $@BIND VALUES: [$bind_values]\nSQL: $sql");
die $@;
}
}
if ($debug_sql) {
print $App::DEBUG_FILE "DEBUG_SQL: retval [$retval] $DBI::errstr\n";
lib/App/Repository/DBI.pm view on Meta::CPAN
$rows = $self->_read_rows_from_file($fh, $cols, \%options);
last if ($#$rows == -1);
foreach my $row (@$rows) {
if ($debug_sql) {
print $App::DEBUG_FILE "DEBUG_SQL: _insert_rows()\n";
print $App::DEBUG_FILE "DEBUG_SQL: bind vars [", join("|",map { defined $_ ? $_ : "undef" } @$row), "]\n";
print $App::DEBUG_FILE $sql;
}
if ($context_options->{explain_sql}) {
$self->explain_sql($sql);
}
lib/App/Repository/DBI.pm view on Meta::CPAN
$retval = $dbh->do($sql, undef, @$row);
$retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
};
if ($@) { # Log the error message with the SQL and rethrow the exception
$loglevel = ($@ =~ /duplicate/i) ? 3 : 1;
my $bind_values = join("|", map { defined $_ ? $_ : "undef" } @$row);
$self->{context}->log({level=>$loglevel}, "DBI Exception (fail) in _insert_rows() [FILE]: $@BIND VALUES: [$bind_values]\nSQL: $sql");
die $@;
}
}
if ($debug_sql) {
print $App::DEBUG_FILE "DEBUG_SQL: retval [$retval] $DBI::errstr\n";
lib/App/Repository/DBI.pm view on Meta::CPAN
$param_direction = $param_option->{direction} || "IN";
$param_length = $param_option->{length} || 100;
$param_type = $param_option;
}
if ($param_direction eq "OUT") {
$sth->bind_param_inout($i+1, \$_[$i+4], $param_length);
}
elsif ($param_direction eq "INOUT") {
$sth->bind_param_inout($i+1, \$_[$i+4], $param_length);
}
else {
$sth->bind_param($i+1, $params[$i], $param_type);
}
}
$sth->execute();
my (@values);
my $rows = [];
App-ReslirpTunnel
view release on metacpan or search on metacpan
lib/App/ReslirpTunnel/ElevatedSlave.pm view on Meta::CPAN
'--log-facility='.$log_fn,
'--user='.$user,
'--group='.$group,
'--no-hosts',
'--no-resolv',
'--bind-interfaces',
'--except-interface=lo',
'--log-queries',
'--server=',
'--no-dhcp-interface=*');
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Plugin/Bot/Alarm.pm view on Meta::CPAN
# Alarm's recorded next occurrence has expired, so we need to recalc
# and updated the database before we send the alarm back to the caller.
# Pad the clause so a lack of exclusions doesn't generate bad SQL.
my @where = qw( false );
my @binds;
foreach my $excl (@{$res->{'exclusions'}}) {
push(@where, 'to_char(s.new_emit, ?) ~* ?');
push(@binds, $excl->{'format'}, $excl->{'pattern'});
}
# TODO: Alarms which have been suspended for a long time (where "long"
# is defined by the scale of their recurrence rate), will not get
# a new_emit properly from this query. I.e. a daily alarm that
lib/App/RoboBot/Plugin/Bot/Alarm.pm view on Meta::CPAN
generate_series(a.next_emit, a.next_emit + (a.recurrence * 100), a.recurrence) s(new_emit)
where a.id = ? and a.recurrence is not null and not (} . join(' or ', @where) . q{)
and s.new_emit > (now() + (a.recurrence / 2))
order by s.new_emit asc
limit 1
}, $res->{'id'}, @binds);
if ($new_emit && $new_emit->next) {
# We have a properly calculated next_emit, so update the alarm in
# the database with a returning * clause so we can get the alarm
# back to our caller.
App-SFDC
view release on metacpan or search on metacpan
perlapp --bind manifests/base.xml[file=share\manifests\base.xml,text,mode=666]^
--bind manifests/all.xml[file=share\manifests\all.xml,text,mode=666]^
--bind plugins/retrieve.plugins.pm[file=share\plugins\retrieve.plugins.pm,text,mode=777]^
--add MooX::Options::Role^
--add App::SFDC::Role::Credentials^
--lib lib --norunlib --force --exe SFDC.exe script/SFDC.pl
App-Sandy
view release on metacpan or search on metacpan
BHKf_bhk_post_end|5.013006||Viu
BHKf_bhk_pre_end|5.013006||Viu
BHKf_bhk_start|5.013006||Viu
BhkFLAGS|5.013003||xVi
BIN|5.003007|5.003007|Vn
bind|5.005000||Viu
bind_match|5.003007||Viu
BIN_EXP|5.004000|5.004000|Vn
BIT_BUCKET|5.003007||Viu
BIT_DIGITS|5.004000||Viu
BITMAP_BYTE|5.009005||Viu
BITMAP_TEST|5.009005||Viu
KEY_alarm|5.003007||Viu
KEY_and|5.003007||Viu
KEY_atan2|5.003007||Viu
KEY_AUTOLOAD|5.003007||Viu
KEY_BEGIN|5.003007||Viu
KEY_bind|5.003007||Viu
KEY_binmode|5.003007||Viu
KEY_bless|5.003007||Viu
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
Perl_pow|5.006000|5.006000|n
Perl_pp_accept|5.013009||Viu
Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
PERLSI_UNKNOWN|5.005000||Viu
PERLSI_WARNHOOK|5.005000||Viu
PERL_SNPRINTF_CHECK|5.021002||Viu
PerlSock_accept|5.005000||Viu
PerlSock_accept_cloexec|5.027008||Viu
PerlSock_bind|5.005000||Viu
PerlSock_closesocket|5.006000||Viu
PerlSock_connect|5.005000||Viu
PerlSock_endhostent|5.005000||Viu
PerlSock_endnetent|5.005000||Viu
PerlSock_endprotoent|5.005000||Viu
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
Contains:
(1) working layer
(2) z inc and V inc in m/s
help goes to superflow bindings
=cut
my $Vlayer_frame = $mw->Frame(
-borderwidth => $var_L_SU->{_no_borderwidth},
( run in 1.972 second using v1.01-cache-2.11-cpan-2398b32b56e )