view release on metacpan or search on metacpan
lib/Config/Nested.pm view on Meta::CPAN
use Config::Nested;
use Data::Dumper;
my $c = new Config::Nested(
section => [qw( location animal)],
boolean => [qw( happy hungry alive)],
variable => [qw( sex name colour ) ],
array => 'breed exercise owner',
hash => 'path',
);
view release on metacpan or search on metacpan
conf/sl.conf view on Meta::CPAN
# apache settings
sl_apache_maxclients 48
sl_apache_start_servers 36
sl_apache_max_spare_servers 8
sl_apache_min_spare_servers 4
sl_apache_keepalive On
sl_apache_user apache
sl_apache_group apache
sl_admin support@slwifi.com
sl_apache_listen 127.0.0.1:9998
sl_apache_max_requests_per_child 250
view release on metacpan or search on metacpan
lib/Connector/Proxy/Net/LDAP.pm view on Meta::CPAN
has timeout => (
is => 'rw',
isa => 'Int',
);
has keepalive => (
is => 'rw',
isa => 'Int',
);
has timelimit => (
lib/Connector/Proxy/Net/LDAP.pm view on Meta::CPAN
}
sub _build_new_options {
my $self = shift;
return $self->_build_options(qw(
timeout verify keepalive debug raw multihomed localaddr
verify sslversion ciphers capath cafile capath clientcert clientkey checkcrl
));
}
sub _build_bind_options {
lib/Connector/Proxy/Net/LDAP.pm view on Meta::CPAN
=over
=item timeout
=item keepalive
=item multihomed
=item localaddr
view release on metacpan or search on metacpan
examples/fatpacked.plackup view on Meta::CPAN
use parent 'Plack::Middleware';
use Plack::Util;
sub call {
my($self, $env) = @_;
# Fixes buffer being cut off on redirect when keep-alive is active
my $res = $self->app->($env);
Plack::Util::response_cb($res, sub {
my $res = shift;
if ($res->[0] =~ m!^30[123]$! ) {
examples/fatpacked.plackup view on Meta::CPAN
1;
__END__
=head1 NAME
Plack::Middleware::IIS7KeepAliveFix - fixes buffer being cut off on redirect when keep-alive is active on IIS.
=head1 SYNOPSIS
# in your app.psgi
use Plack::Builder;
examples/fatpacked.plackup view on Meta::CPAN
# Or from the command line
plackup -s FCGI -e 'enable "IIS7KeepAliveFix"' /path/to/app.psgi
=head1 DESCRIPTION
This middleware fixes buffer being cut off on redirect when keep-alive is active on IIS7.
=head1 AUTHORS
KnowZeroX
view release on metacpan or search on metacpan
lib/Continual/Process/Instance.pm view on Meta::CPAN
return $pid;
}
)->start();
while(1) {
if (!$instance->is_alive()) {
$instance->start();
}
}
=head1 DESCRIPTION
lib/Continual/Process/Instance.pm view on Meta::CPAN
}
return $pid;
}
=head2 is_alive()
is this instance alive?
=cut
sub is_alive {
my ($self) = @_;
return defined $self->pid && !waitpid $self->pid, WNOHANG;
}
view release on metacpan or search on metacpan
lib/Control/CLI/AvayaData.pm view on Meta::CPAN
$login->{login_attempted} = 1;
}
elsif ($self->console && $login->{wake_console}) {
$self->debugMsg(8,"\nlogin() Sending wake_console sequence >$login->{wake_console}<\n");
$self->put(string => $login->{wake_console}, errmode => 'return') # Bring connection into life
or return $self->poll_return($self->error("$pkgsub: Unable to send bring alive character sequence // ".$self->errmsg));
}
}
if ($login->{stage} < 2) { # Main login loop
my ($pattern, $patdepth, $deepest);
my ($promptType, $capturedPrompt, $switchName, $cliType, $configContext);
view release on metacpan or search on metacpan
lib/Control/CLI/Extreme.pm view on Meta::CPAN
$login->{login_attempted} = 1;
}
elsif ($self->console && $login->{wake_console}) {
$self->debugMsg(8,"\nlogin() Sending wake_console sequence >$login->{wake_console}<\n");
$self->put(string => $login->{wake_console}, errmode => 'return') # Bring connection into life
or return $self->poll_return($self->error("$pkgsub: Unable to send bring alive character sequence // ".$self->errmsg));
}
}
if ($login->{stage} < 2) { # Main login loop
my ($pattern, $patdepth, $deepest);
my ($promptType, $capturedPrompt, $switchName, $cliType, $configContext);
view release on metacpan or search on metacpan
0.201 Sun Sep 16 03:43:38 CEST 2001
- fixed another segfault-bug in uulib, thanks to Lars Hecking who
provides all the test files ;)
0.2 Thu Jun 14 18:42:49 CEST 2001
- Frank Pilhofer is NOT dead! He is alive, kicking, and fixing
bugs in uulib now! Since his uulib and mine diverged quite
a bit I am still in the process of merging his bugfixes
into my version. So be aware that this might introduce new
instabilities...
- merged uulib-0.5.15
view release on metacpan or search on metacpan
CHANGELOG.md view on Meta::CPAN
- Fix opening socket in private conversations
## 0.6 (2014-06-09)
- Compatible with Mojolicious 5.0
- New WebSocket keep alive code
- Fix facebook avatars
## 0.5 (2014-05-24)
- Fixed bug with querying people not opening a new tab
view release on metacpan or search on metacpan
int vio_blocking(Vio *vio, my_bool onoff, my_bool *old_mode);
my_bool vio_is_blocking(Vio *vio);
/* setsockopt TCP_NODELAY at IPPROTO_TCP level, when possible */
int vio_fastsend(Vio *vio);
/* setsockopt SO_KEEPALIVE at SOL_SOCKET level, when possible */
int vio_keepalive(Vio *vio, my_bool onoff);
/* Whenever we should retry the last read/write operation. */
my_bool vio_should_retry(Vio *vio);
/* Check that operation was timed out */
my_bool vio_was_interrupted(Vio *vio);
/* Short text description of the socket for those, who are curious.. */
#define vio_write(vio, buf, size) ((vio)->write)(vio, buf, size)
#define vio_blocking(vio, set_blocking_mode, old_mode)\
(vio)->vioblocking(vio, set_blocking_mode, old_mode)
#define vio_is_blocking(vio) (vio)->is_blocking(vio)
#define vio_fastsend(vio) (vio)->fastsend(vio)
#define vio_keepalive(vio, set_keep_alive) (vio)->viokeepalive(vio, set_keep_alive)
#define vio_should_retry(vio) (vio)->should_retry(vio)
#define vio_was_interrupted(vio) (vio)->was_interrupted(vio)
#define vio_close(vio) ((vio)->vioclose)(vio)
#define vio_peer_addr(vio, buf, prt) (vio)->peer_addr(vio, buf, prt)
#define vio_in_addr(vio, in) (vio)->in_addr(vio, in)
size_t (*read)(Vio*, uchar *, size_t);
size_t (*write)(Vio*, const uchar *, size_t);
int (*timeout)(Vio*, uint, my_bool);
int (*vioblocking)(Vio*, my_bool, my_bool *);
my_bool (*is_blocking)(Vio*);
int (*viokeepalive)(Vio*, my_bool);
int (*fastsend)(Vio*);
my_bool (*peer_addr)(Vio*, char *, uint16*, size_t);
void (*in_addr)(Vio*, struct sockaddr_storage*);
my_bool (*should_retry)(Vio*);
my_bool (*was_timeout)(Vio*);
int (*vioerrno)(Vio*);
xssize_t (*read)(Vio*, xgptr, xsize_t);
xssize_t (*write)(Vio*, cxgptr, xsize_t);
int (*vioblocking)(Vio*, my_bool, my_bool *);
my_bool (*is_blocking)(Vio*);
int (*viokeepalive)(Vio*, my_bool);
int (*fastsend)(Vio*);
my_bool (*peer_addr)(Vio*, char *, uint16*);
void (*in_addr)(Vio*, struct in_addr*);
my_bool (*should_retry)(Vio*);
my_bool (*was_interrupted)(Vio*);
int (*vioerrno)(Vio*);
size_t (*read)(Vio*, unsigned char *, size_t);
size_t (*write)(Vio*, const unsigned char *, size_t);
int (*vioblocking)(Vio*, my_bool, my_bool *);
my_bool (*is_blocking)(Vio*);
int (*viokeepalive)(Vio*, my_bool);
int (*fastsend)(Vio*);
my_bool (*peer_addr)(Vio*, char *, uint16*, size_t);
void (*in_addr)(Vio*, struct sockaddr_storage*);
my_bool (*should_retry)(Vio*);
my_bool (*was_interrupted)(Vio*);
void (*viodelete)(Vio*);
int (*vioerrno)(Vio*);
size_t (*read)(Vio*, uchar *, size_t);
size_t (*write)(Vio*, const uchar *, size_t);
int (*timeout)(Vio*, uint, my_bool);
int (*viokeepalive)(Vio*, my_bool);
int (*fastsend)(Vio*);
my_bool (*peer_addr)(Vio*, char *, uint16*, size_t);
void (*in_addr)(Vio*, struct sockaddr_storage*);
my_bool (*should_retry)(Vio*);
my_bool (*was_timeout)(Vio*);
view release on metacpan or search on metacpan
This creates a new coro thread and puts it into the ready queue, meaning
it will run as soon as the CPU is free for it.
C<async> will return a Coro object - you can store this for future
reference or ignore it - a thread that is running, ready to run or waiting
for some event is alive on it's own.
Another way to create a thread is to call the C<new> constructor with a
code-reference:
new Coro sub {
Suspending a coro can be useful when you want to keep the coro from
running, but you don't want to destroy it, or when you want to temporarily
freeze a coro (e.g. for debugging) to resume it later.
A scenario for the former would be to suspend all (other) coros after a
fork and keep them alive, so their destructors aren't called, but new
coros can be created.
=item $coro->resume
If the specified coro was suspended, it will be resumed. Note that when
view release on metacpan or search on metacpan
lib/Courier/Filter.pm view on Meta::CPAN
if (-e $socket_name) {
-S $socket_name
or throw Courier::Error("$socket_name already exists but is not a socket");
# Try to connect to socket to see if it is alive or
# if it is left over from a crashed Courier::Filter:
my $test_socket = IO::Socket::UNIX->new( Peer => $socket_name );
not defined($test_socket)
or throw Courier::Error("Live socket $socket_name found -- is Courier::Filter already running?");
view release on metacpan or search on metacpan
2.32 2011-08-11 19:06:38
- fix a bug in the initial whitespace accumulation.
2.31 2011-07-27 17:53:05
- don't accumulate initial whitespace in the incremental buffer
(this can be useful to allow whitespace-keepalive on a tcp
connection without triggering the max_size limit).
- properly croak on some invalid inputs that are not strings
(e.g. undef) when trying to decode a json text (reported
and analyzed by Goro Fuji).
view release on metacpan or search on metacpan
lib/Crop/Object/Collection.pm view on Meta::CPAN
=begin nd
Method: Cleanup ( )
Remove all the items from Collection.
Still alive items in the warehouse.
Returns:
$self
=cut
sub Cleanup {
my $self = shift;
view release on metacpan or search on metacpan
lib/Crop/Object/Collection.pm view on Meta::CPAN
=begin nd
Method: Cleanup ( )
Remove all the items from Collection.
Still alive items in the warehouse.
Returns:
$self
=cut
sub Cleanup {
my $self = shift;
view release on metacpan or search on metacpan
lib/Crypt/Bear/SSL/Engine.pm view on Meta::CPAN
This pushed (encrypted) records received from the socket into the buffer, and returns the (decrypted) applicatoin data.
=head2 pull_send($flush = false)
This will pull any pending records to be send to the other side. This is primarily useful around opening and closing connections when data can't be send yet. If C<$flush> is true, it will create an empty record if no pending data is available, this c...
=head2 send_ready()
This returns true if the connection is ready for application data to be pushed in to be sent to the other side. This is useful to know when you're done connecting. Note that this can also be false when the send buffer is full, sp so it's not very use...
view release on metacpan or search on metacpan
lib/Crypt/Diceware/Wordlist/Beale.pm view on Meta::CPAN
ag again agate age aged agenda agent ages agile aging aglow agnes agnew ago
agony agree ah aha ahab ahead ahem ahmed ahoy ai aid aide aided ail aim
aimed aims ain't air airman airway airy aisle aj ajar ajax ak aka akers
akin akqj akron al alan alarm alas alaska album alden ale alec aleck alert
alex alexa alexei algae alger ali alias alibi alice alien alight align
alike alive alkali all allah allan allen alley allied allot allow alloy
allure ally alma almost alms aloft aloha alone along aloof aloud alp alpha
alps also alsop altar alter altho alto alum alumni alvin alyx am am/fm
amass amaze amber amble ambush amen amend ames amid amigo amino amish amiss
amity ammo amok among amos amour amp ampere ample amply amps amulet amuse
amy an anal anchor and andes andre andrew andy anew angel angelo anger
view release on metacpan or search on metacpan
lib/Crypt/HSXKPasswd/Dictionary/FR.pm view on Meta::CPAN
'balisée',
'balisées',
'balisés',
'balivage',
'balivages',
'baliveau',
'baliveaux',
'baliverne',
'balivernes',
'balkanique',
'balkaniques',
'balkanisa',
'balkanisai',
'balkanisais',
lib/Crypt/HSXKPasswd/Dictionary/FR.pm view on Meta::CPAN
'salivasses',
'salivassiez',
'salivassions',
'salivation',
'salivations',
'salive',
'salivent',
'saliver',
'salivera',
'saliverai',
'saliveraient',
'saliverais',
'saliverait',
'saliveras',
'saliverez',
'saliveriez',
'saliverions',
'saliverons',
'saliveront',
'salives',
'salivez',
'saliviez',
'salivions',
'salivons',
'salivâmes',
'salivât',
view release on metacpan or search on metacpan
matrixssl-1-8-6-open/examples/httpsClient.c view on Meta::CPAN
conn = NULL;
/*
First (optional) argument is ip address to connect to (port is hardcoded)
Second (optional) argument is number of iterations to perform
Third (optional) argument is number of keepalive HTTP requests
Fourth (optional) argument is cipher suite number to use (0 for any)
*/
ip = HTTPS_IP;
iterations = ITERATIONS;
requests = REQUESTS;
view release on metacpan or search on metacpan
lib/Net/NSS/SSL.pm view on Meta::CPAN
If true then create the socket, import it into SSL, set the specfied options but don't connect. Defaults to false if omitted.
=item KeepAlive : boolean
Periodically test whether connection is still alive. Default to false if omitted.
=item Blocking : boolean
Blocking or non-blocking I/O. Default to 1 if omitted or what the class method C<blocking> returns if such exists.
lib/Net/NSS/SSL.pm view on Meta::CPAN
=over 4
=item KeepAlive : boolean
Periodically test whether connection is still alive.
=item NoDelay : boolean
Disable Nagle algorithm. Don't delay send to coalesce packets.
view release on metacpan or search on metacpan
lib/Crypt/RSA/Errorhandler.pm view on Meta::CPAN
package Foo;
use Crypt::RSA::Errorhandler;
@ISA = qw(Crypt::RSA::Errorhandler);
sub alive {
..
..
return
$self->error ("Awake, awake! Ring the alarum bell. \
Murther and treason!", $dagger)
lib/Crypt/RSA/Errorhandler.pm view on Meta::CPAN
package main;
use Foo;
my $foo = new Foo;
$foo->alive($king) or print $foo->errstr();
# prints "Awake, awake! ... "
=head1 DESCRIPTION
Crypt::RSA::Errorhandler encapsulates the error handling mechanism used
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
recommends 'Digest::SHA' => 0;
}
recommends 'Crypt::RIPEMD160' => 0; # it's hip
recommends 'Digest::Whirlpool' => 0; # it's happenning
recommends 'Digest::MD5' => 0; # it's still alive =(
recommends "Digest::HMAC" => 0;
recommends "Digest::CMAC" => 0;
license "MIT";
view release on metacpan or search on metacpan
lib/Crypt/XKCDCommon1949.pm view on Meta::CPAN
our @words = (
"ability","able","aboard","about","above","accept","accident","according",
"account","accurate","acres","across","act","action","active","activity",
"actual","actually","add","addition","additional","adjective","adult","adventure",
"advice","affect","afraid","after","afternoon","again","against","age",
"ago","agree","ahead","aid","air","airplane","alike","alive",
"all","allow","almost","alone","along","aloud","alphabet","already",
"also","although","am","among","amount","ancient","angle","angry",
"animal","announced","another","answer","ants","any","anybody","anyone",
"anything","anyway","anywhere","apart","apartment","appearance","apple","applied",
"appropriate","are","area","arm","army","around","arrange","arrangement",
view release on metacpan or search on metacpan
lib/Crypt/XkcdPassword/Words/EN.pm view on Meta::CPAN
drink
absolutely
how's
daddy
sweet
alive
paul
sense
meant
happens
david
view release on metacpan or search on metacpan
lib/Crypto/NanoRPC.pm view on Meta::CPAN
delegators => [ 'account' ],
delegators_count => [ 'account' ],
deterministic_key => [ 'seed', 'index' ],
frontier_count => [],
frontiers => [ 'account', 'count' ],
keepalive => [ 'address', 'port' ],
key_create => [],
key_expand => [ 'key' ],
ledger => [ 'account', 'count', [ 'representative', 'weight', 'pending', 'modified_since', 'sorting' ] ],
node_id => [],
node_id_delete => [],
lib/Crypto/NanoRPC.pm view on Meta::CPAN
See L<https://docs.nano.org/commands/rpc-protocol/> for a list of RPC calls. This module implements the following RPCs:
=head2 Node RPCs
account_balance account_block_count account_get account_history account_info account_key account_representative account_weight accounts_balances accounts_frontiers accounts_pending active_difficulty available_supply block_account block_count block_co...
=head2 Wallet RPCs
account_create account_list account_move account_remove account_representative_set accounts_create password_change password_enter password_valid receive receive_minimum receive_minimum_set search_pending search_pending_all send wallet_add wallet_add_...
view release on metacpan or search on metacpan
lib/CtrlO/Crypt/XkcdPassword/Wordlist/eff_large.pm view on Meta::CPAN
alibi
alienable
alienate
aliens
alike
alive
alkaline
alkalize
almanac
almighty
almost
view release on metacpan or search on metacpan
t/transaction.t view on Meta::CPAN
sub AUTOLOAD {}
}
# On some versions of perl, destroyers may unset $@; we're immune to it.
{
my $expected_exceptions = qr/(?:the hills are alive|an error was encountered in your transaction)/;
{
local $@;
eval {
run_in_transaction {
my $fake_dbh = bad::citizen->new;
die 'the hills are alive';
} db_handle => $stub_dbh, on_error => 'rollback';
};
like( $@, $expected_exceptions, 'if $@ is unintentionally unset on object destruction, we set a sensible default error' );
}
{
local $@;
run_in_transaction {
my $fake_dbh = bad::citizen->new;
die 'the hills are alive';
} db_handle => $stub_dbh, on_error => 'continue';
like( $@, $expected_exceptions, 'if $@ is unintentionally unset on object destruction, we set a sensible default error' );
}
}
view release on metacpan or search on metacpan
0.15 2015/08/11
* Support for pagination through result sets
* careful: Timestamps are now in msec accuracy instead of having them as floating points
* Enable TCP keepalive on sockets
0.14 2015/05/19
* Resolve an old bug where connecting to CQL3 might cause compilation errors
* Fix an issue where the consistency ONE was treated as LOCAL_ONE
view release on metacpan or search on metacpan
lib/DBD/Crate.pm view on Meta::CPAN
my ($drh, $dburl, $user, $pass, $attr) = @_;
my $UTF8 = defined $attr->{utf8} ?
$attr->{utf8} : 1;
$JSON = JSON::MaybeXS->new({ utf8 => $UTF8 });
$HTTP = HTTP::Tiny->new( keep_alive => 1 );
my @addresses = ($dburl);
my @addr;
if ($dburl =~ s/^\[(.*?)\]$/$1/){
@addresses = split ',', $dburl;
view release on metacpan or search on metacpan
tests/perld060_pingConnWithNormalDisconnect.pl view on Meta::CPAN
}
print "Testing connection... ";
if( $dbh->ping )
{
print "Error: connection appears to be alive\n";
}
else
{
print "disconnected.\n";
}