view release on metacpan or search on metacpan
lib/Bb/Collaborate/Ultra/Connection.pm view on Meta::CPAN
}
=head2 renew_lease
if ($connection->auth->expires_in < time() + 60) {
# connection is about to expire; keep it alive.
$connection->renew_lease;
}
A authorization token typically remains valid for several minutes. This method
can be used to extend the lease, whilst keeping the current connection.
view release on metacpan or search on metacpan
- Task objects are now destroyed and any cleanup methods called
correctly.
Previously, we would cache a copy of the task object
which would keep it alive until Minion called `POSIX::_exit(0)`.
This was causing database connections to be closed badly, and the
database server to complain about it.
0.012 2017-12-05 13:03:34-06:00 America/Chicago
view release on metacpan or search on metacpan
beamer-reveal-example_files/libs/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(e){return e&&e.__esModule&&Object.prototype.hasOwnProperty.call(e,"default")?e.default:e}function t(e){return e instanceof Map?e.clear=e.delete=e.set=function(){throw new Error("map is read-only")}:e instanceof Set&&(e.add=e.clear=e.delete...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
const Rs={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:fs,init:function(e){let t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,...
view release on metacpan or search on metacpan
lib/Beekeeper/MQTT.pm view on Meta::CPAN
($port) = ($port =~ m/^([0-9]+)$/s);
$self->{handle} = AnyEvent::Handle->new(
connect => [ $host, $port ],
tls => $tls ? 'connect' : undef,
keepalive => 1,
no_delay => 1,
on_connect => sub {
my ($fh, $host, $port) = @_;
# Send CONNECT packet
$self->{server_prop}->{host} = $host;
lib/Beekeeper/MQTT.pm view on Meta::CPAN
my $username = delete $prop{'username'};
my $password = delete $prop{'password'};
my $client_id = delete $prop{'client_id'};
my $clean_start = delete $prop{'clean_start'};
my $keep_alive = delete $prop{'keep_alive'};
my $will = delete $prop{'will'};
unless ($client_id) {
$client_id = '';
$client_id .= ('0'..'9','a'..'z','A'..'Z')[rand 62] for (1..22);
lib/Beekeeper/MQTT.pm view on Meta::CPAN
}
$raw_mqtt .= pack("C", $flags);
# 3.1.2.10 Keep Alive (short int)
$raw_mqtt .= pack("n", $keep_alive || 0);
# 3.1.2.11 Properties
$raw_mqtt .= _encode_var_int(length $raw_prop);
$raw_mqtt .= $raw_prop;
lib/Beekeeper/MQTT.pm view on Meta::CPAN
# 3.2.2.3.13 Shared Subscription Available (byte)
$prop->{'shared_subscription_available'} = _decode_byte($packet, \$offs);
}
elsif ($prop_id == MQTT_SERVER_KEEP_ALIVE) {
# 3.2.2.3.14 Server Keep Alive (short int)
$prop->{'server_keep_alive'} = _decode_int_16($packet, \$offs);
}
elsif ($prop_id == MQTT_RESPONSE_INFORMATION) {
# 3.2.2.3.15 Response Information (utf8 string)
$prop->{'response_information'} = _decode_utf8_str($packet, \$offs);
}
view release on metacpan or search on metacpan
data/wiki2.html view on Meta::CPAN
const params = getEventParams();
const queryParams = Object.keys(params)
.map((key) => encodeURIComponent(key) + '=' + encodeURIComponent(params[key]))
.join('&');
fetch(`${requestUrl}?${queryParams}`, { mode: 'no-cors', keepalive: true });
}
requestAnimationFrame(() => {
requestAnimationFrame(() => {
track();
view release on metacpan or search on metacpan
share/SpamAssassin/easy_ham/00064.cb4bd5482454f02b6c3d70343af090a8 view on Meta::CPAN
seem to understand: http://www.ntk.net/2002/08/30/dohgun.gif
... scary blue men herald return of the bizarre BBC hacking
pics: http://news.bbc.co.uk/1/hi/1494091.stm ... reporter RYAN
DILLEY http://news.bbc.co.uk/1/hi/uk/2202552.stm pulls his
http://starwars.org.pl/galeria/e2/char/anakin/t001.jpg face
... banjo maestro GEORGE FORMBY still alive, cooking, black:
http://www.readersheds.co.uk/readersheds/shop.cfm?WOSNAMES=Wosnames
... thanks guys, that ought to do it: http://www.eap.ca/ ...
>> EVENT QUEUE <<
view release on metacpan or search on metacpan
BerkeleyDB.pod view on Meta::CPAN
This option requires Berkeley DB 4.2 or better.
Use the C<-SharedMemKey> option when opening the environmet to set the
base segment ID.
=item $env->set_isalive()
Set the callback that determines if the thread of control, identified by
the pid and tid arguments, is still running. This method should only be
used in combination with $env->failchk.
BerkeleyDB.pod view on Meta::CPAN
database read locks, it will release those locks. If $env->failchk
determines a thread of control exited with an unresolved transaction, the
transaction will be aborted.
Applications calling the $env->failchk method must have already called the
$env->set_isalive method, on the same DB environment, and must have
configured their database environment using the -ThreadCount flag. The
ThreadCount flag cannot be used on an environment that wasn't previously
initialized with it.
This option requires Berkeley DB 4.4 or better.
view release on metacpan or search on metacpan
lib/Binance/API.pm view on Meta::CPAN
=head2 start_user_data_stream
$api->start_user_data_stream();
Start a new user data stream. The stream will close after 60 minutes unless
a keepalive is sent.
B<PARAMETERS>
=over
lib/Binance/API.pm view on Meta::CPAN
sub start_user_data_stream {
return $_[0]->ua->post('/api/v3/userDataStream');
}
=head2 keep_alive_user_data_stream
$api->keep_alive_user_data_stream();
Keepalive a user data stream to prevent a time out. User data streams will close
after 60 minutes. It's recommended to send a ping about every 30 minutes.
B<PARAMETERS>
=over
lib/Binance/API.pm view on Meta::CPAN
{}
=cut
sub keep_alive_user_data_stream {
my ($self, %params) = @_;
unless ($params{'listenKey'}) {
$self->log->error('Parameter "listenKey" required');
Binance::Exception::Parameter::Required->throw(
error => 'Parameter "listenKey" required',
view release on metacpan or search on metacpan
lib/Bio/Das/ProServer/Authenticator/http.pm view on Meta::CPAN
my $self = shift;
if (!defined $self->{'_agent'}) {
$self->{'_agent'} = LWP::UserAgent->new(
env_proxy => 1,
keep_alive => 1,
timeout => 10,
agent => Bio::Das::ProServer::Config::server_version(),
);
}
view release on metacpan or search on metacpan
data/db_tables/protocols.xml view on Meta::CPAN
Culture flasks
Inverted phase contrast microscope (Optional)
Procedure 8
1.Candle an 8 day old egg to ensure that it is alive. This is easily accomplished by holding the egg in front of a bright light source; the embryo can
be seen as a shadow. Circle the embryo with a pencil.
2.Place the egg in a beaker with the blunt end up, and wash the top with a mild detergent, followed by swabbing with ethanol.
3.Carefully puncture the top of the egg with the point of a pair of sterile scissors and cut away a circle of shell, thus exposing the underlying
view release on metacpan or search on metacpan
lib/Bio/Phylo/Mediators/TaxaMediator.pm view on Meta::CPAN
my ( $one_id, $many_id ) = ( $one->get_id, $many->get_id );
$one_to_one{$many_id} = $one_id;
$one_to_many{$one_id} = {} unless $one_to_many{$one_id};
# once other objects start referring to the taxon we want
# these references to keep the taxon "alive" until all other
# objects pointing to it have gone out of scope, in which
# case the reference must be weakened again, so that it
# might get cleaned up also
if (isweak($object[$one_id]) ) {
my $strong = $object[$one_id];
view release on metacpan or search on metacpan
Bio/Prospect/SoapServer.pm view on Meta::CPAN
#-------------------------------------------------------------------------------
=head2 ping()
Name: ping()
Purpose: return whether alive or not
Arguments: none
Returns: 0 - dead, 1 - alive
=cut
sub ping {
return 1;
view release on metacpan or search on metacpan
lib/Bio/Tools/Run/Analysis/soap.pm view on Meta::CPAN
=item -timeout
For long(er) running jobs the HTTP connection may be time-outed. In
order to avoid it (or, vice-versa, to call timeout sooner) you may
specify C<timeout> with the number of seconds the connection will be
kept alive. Zero means to keep it alive forever. The default value is
two minutes.
=back
=cut
view release on metacpan or search on metacpan
script/torrent view on Meta::CPAN
my $len_buf = read_exactly($socket, 4);
return undef unless defined $len_buf;
my $len = unpack('N', $len_buf);
return [ undef, '' ] if $len == 0; # keep-alive
# Sanity check: reject absurdly large messages
return undef if $len > 2 * BLOCK_SIZE + 64;
my $msg = read_exactly($socket, $len);
script/torrent view on Meta::CPAN
# Receive a message
my $msg = read_msg($socket);
return (0, undef) unless defined $msg;
my ($id, $payload) = @$msg;
next unless defined $id; # keep-alive
if ($id == MSG_CHOKE) {
$$peer_choking_ref = 1;
return (0, undef);
view release on metacpan or search on metacpan
t/Transaction/sign.t view on Meta::CPAN
ok $ex, 'input verification failed ok (one signed)';
isa_ok $ex, 'Bitcoin::Crypto::Exception::TransactionScript';
$prv->sign_transaction($tx, signing_index => 1);
my $alive = lives { $tx->verify };
ok $alive, 'input verification ok (two signed)';
};
done_testing;
view release on metacpan or search on metacpan
t/example.xml view on Meta::CPAN
</categories>
</post>
<post id="120" date-created="2006-05-06T00:02:09" date-modified="2006-05-06T00:02:09" approved="true" post-url="http://blog.wcs.org/post?id=120">
<title>Missing dog found nearly a week after plane crash</title>
<content type="html"><![CDATA[
<p>Six days after a small plane crash that killed two members of a family four, the family's missing dog was found alive by the same pair of teenage brothers who first helped the survivors.</p>
<p>Family friends had been searching for Lindsey, a 9-year-old Dalmation who had been on the plane but was not found at the crash site.</p>
<p>"We were called loonies," said Bob Jansen, who along with his wife Shirley had spent much of the week looking for Lindsey. "They told us we were searching for a dead dog."</p>
view release on metacpan or search on metacpan
t/sysinfos/ProxySG-4006060000--20090307-165730UTC.sysinfo view on Meta::CPAN
Tunnels in CCPM Re-use Pool: 0
__Tunnels Junked by WM: 0
__Tunnels Junked by WM Due to Peer-IP Mismatch: 0
__Tunnels closed in CCPM Re-use Pool: 0
__Tunnels closed in CCPM Re-use Pool Due to Long Inactive Use: 0
__Tunnels closed in CCPM Re-use Pool Due to TCP Keepalive: 0
Secure Tunnels in CCPM Re-use Pool: 0
__Stripped Secure Tunnels in CCPM Re-use Pool: 0
__Secure Tunnels Junked by WM: 0
__Secure Tunnels Junked by WM Due to Peer-IP Mismatch: 0
__Secure Tunnels closed in CCPM Re-use Pool: 0
__Secure Tunnels closed in CCPM Re-use Pool Due to Long Inactive Use: 0
__Secure Tunnels closed in CCPM Re-use Pool Due to TCP Keepalive: 0
Tunnels in ICPM Pool: 0
__Tunnel Work-items Swapped Out: 0
__Tunnel Work-items Suspended: 0
__Aborted Tunnel Work-item Suspensions Due to Socket IO: 0
__Idle Tunnel Work-items Swapped In: 0
view release on metacpan or search on metacpan
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
my $debug = 0;
my $fork = 0;
my $help = 0;
my $host = undef;
my $port = $ENV{TESTAPP_PORT} || $ENV{CATALYST_PORT} || 3000;
my $keepalive = 0;
my $restart = $ENV{TESTAPP_RELOAD} || $ENV{CATALYST_RELOAD} || 0;
my $restart_delay = 1;
my $restart_regex = '(?:/|^)(?!\.#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$';
my $restart_directory = undef;
my $follow_symlinks = 0;
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
'debug|d' => \$debug,
'fork|f' => \$fork,
'help|?' => \$help,
'host=s' => \$host,
'port=s' => \$port,
'keepalive|k' => \$keepalive,
'restart|r' => \$restart,
'restartdelay|rd=s' => \$restart_delay,
'restartregex|rr=s' => \$restart_regex,
'restartdirectory=s@' => \$restart_directory,
'followsymlinks' => \$follow_symlinks,
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
require TestApp;
TestApp->run( $port, $host, {
argv => \@argv,
'fork' => $fork,
keepalive => $keepalive,
restart => $restart,
restart_delay => $restart_delay,
restart_regex => qr/$restart_regex/,
restart_directory => $restart_directory,
follow_symlinks => $follow_symlinks,
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
-f -fork handle each request in a new process
(defaults to false)
-? -help display this help and exits
-host host (defaults to all)
-p -port port (defaults to 3000)
-k -keepalive enable keep-alive connections
-r -restart restart when files get modified
(defaults to false)
-rd -restartdelay delay between file checks
-rr -restartregex regex match files that trigger
a restart when modified
view release on metacpan or search on metacpan
src/boost/python/object/iterator.hpp view on Meta::CPAN
>::type next_fn;
# else
typedef next next_fn;
# endif
object m_sequence; // Keeps the sequence alive while iterating.
Iterator m_start;
Iterator m_finish;
};
namespace detail
view release on metacpan or search on metacpan
include/boost/python/object/iterator.hpp view on Meta::CPAN
>::type next_fn;
# else
typedef next next_fn;
# endif
object m_sequence; // Keeps the sequence alive while iterating.
Iterator m_start;
Iterator m_finish;
};
namespace detail
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Zippy.pm view on Meta::CPAN
Is this the line for the latest whimsical YUGOSLAVIAN drama which also makes you want to CRY and reconsider the VIETNAM WAR?
Isn't this my STOP?!
It don't mean a THING if you ain't got that SWING!!
It was a JOKE!! Get it?? I was receiving messages from DAVID LETTERMAN!!
YOW!!
It's a lot of fun being alive ... I wonder if my bed is made?!?
It's NO USE ... I've gone to "CLUB MED"!!
It's OBVIOUS ... The FURS never reached ISTANBUL ... You were an EXTRA in the REMAKE of "TOPKAPI" ... Go home to your WIFE ... She's making FRENCH TOAST!
It's OKAY -- I'm an INTELLECTUAL, too.
It's the RINSE CYCLE!! They've ALL IGNORED the RINSE CYCLE!!
JAPAN is a WONDERFUL planet -- I wonder if we'll ever reach their level of COMPARATIVE SHOPPING ...
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable.pm view on Meta::CPAN
And thanks to the rest of #2lmc who were my unwilling guinea pigs during
development. And who kept suggesting totally stupid ideas for modules that I
then felt compelled to go implement. Shout.pm owes its existence to #2lmc.
Thanks to Mike Eldridge (DIZ), maintainer until 2016, for kindly transferring
maintainership to me, BIGPRESH, so I can keep this useful bot framework alive.
=head1 SEE ALSO
=over 2
view release on metacpan or search on metacpan
examples/cpanbot.pl view on Meta::CPAN
# concept code, and inspired the changes in the source that let you put >1
# BasicBot in a single POE session.
# The problem is that with more than 30 or 40 running bots, even on the same
# machine as the IRC server, the latencies get insane. You just can't keep
# them all alive enough to stay connected and not time-out. So the idea was
# a non-starter, because I'm not running a process on the server for every
# module on CPAN. But I can think of some cases where you'd want to run 2 or
# 3 bots in a single session, to bridge networks, say, that sort of thing,
# and so heere's how I'd do it...
view release on metacpan or search on metacpan
lib/Bot/ChatBots/Weak.pod view on Meta::CPAN
look => 'not a reference',
);
$object->set(ahoy => $ref3);
# it's a hash reference inside
$object->{what}->frobozz; # called on $ref1 if still alive
# TO_JSON always returns undef
my $will_be_undef = $object->TO_JSON;
view release on metacpan or search on metacpan
lib/Bot/Cobalt/Plugin/WWW.pm view on Meta::CPAN
use Bot::Cobalt;
use Bot::Cobalt::Common;
use POE qw/
Component::Client::HTTP
Component::Client::Keepalive
/;
sub opts {
my $opts = core->get_plugin_cfg($_[0])->{Opts};
lib/Bot/Cobalt/Plugin/WWW.pm view on Meta::CPAN
Agent => __PACKAGE__,
Alias => 'ht_'. core()->get_plugin_alias($self),
ConnectionManager => POE::Component::Client::Keepalive->new(
keep_alive => 1,
max_per_host => $self->max_per_host,
max_open => $self->max_workers,
timeout => $self->timeout,
),
view release on metacpan or search on metacpan
lib/Bot/Net/Server.pm view on Meta::CPAN
This is yielded at the end of the L</on _start> handler for the L<POE> session. Your server should perform any initialization needed here.
=head2 on server quit
A server should emit this state when it wants the server to disconnect and shutdown. If all mixins are implemented correctly, they should listen for this state and close all resources, which should result in the server going into the L</on _stop> sta...
This should be used by protocol mixins to implement the shutdown sequence for their listening ports, open files, etc.
=head2 on server shutdown
view release on metacpan or search on metacpan
lib/Bot/Pastebot/Client/Irc.pm view on Meta::CPAN
$kernel->alias_set( "irc_client_$server" );
$irc->yield( register => 'all' );
$heap->{server_index} = 0;
# Keep-alive timer.
$kernel->delay( autoping => 300 );
$kernel->yield( 'connect' );
},
view release on metacpan or search on metacpan
lib/BrLock.pm view on Meta::CPAN
Carvalho and Roucariol, On mutual exclusion in computer networks,
ACM Communications, Feb83.
The algorithm features minimal messages for acquiring the next lock,
but with the trade-off of network being reliable enough to ensure that
all nodes are alive. In fact, one node won't be able to acquire the
next lock if it can't communicate to all other nodes (unless the node
which was the last one to acquire the lock).
If this is a hard constraint for you, you may want to use IPC::Lock.
view release on metacpan or search on metacpan
script/bracket_server.pl view on Meta::CPAN
-f --fork handle each request in a new process
(defaults to false)
-? --help display this help and exits
-h --host host (defaults to all)
-p --port port (defaults to 3000)
-k --keepalive enable keep-alive connections
-r --restart restart when files get modified
(defaults to false)
-rd --restart_delay delay between file checks
(ignored if you have Linux::Inotify2 installed)
-rr --restart_regex regex match files that trigger