view release on metacpan or search on metacpan
lib/Net/DirectConnect/clihub.pm view on Meta::CPAN
if ( $text =~
/(?:ПожалуйÑта )?подождите (\d+) Ñекунд перед Ñледующим поиÑком\./i
or $text =~ /(?:Please )?wait (\d+) seconds before next search\./i
or $text eq 'ПожалуйÑта не иÑпользуйте поиÑк так чаÑто!'
or $text eq "Please don't flood with searches!"
or $text eq 'Sorry Hub is busy now, no search, try later..' )
{
$self->{'search_every'} += int( rand(5) + $1 || $self->{'search_every_min'} );
$self->log( 'warn', "[$nick] oper: increase min interval => $self->{'search_every'}" );
$self->search_retry();
}
lib/Net/DirectConnect/clihub.pm view on Meta::CPAN
if ( !$self->{count_parse}{chatline} and $text =~ /PtokaX/i ) {
#$self->log( 'dev', "[$nick] - probably hub bot" );
$self->{'NickList'}{$nick}{'hubbot'} = 1;
}
$self->search_retry(),
if $self->{'NickList'}->{$nick}{'oper'} and $text eq 'Sorry Hub is busy now, no search, try later..';
},
'welcome' => sub {
my $self = shift if ref $_[0];
my ( $nick, $text ) = $_[0] =~ /^(?:<|\* )(.+?)>? (.+)$/s;
if ( !keys %{ $self->{'NickList'} } or !exists $self->{'NickList'}->{$nick} or $self->{'NickList'}->{$nick}{'oper'} ) {
view release on metacpan or search on metacpan
t/docker-api.t view on Meta::CPAN
use Data::Dumper;
my $api = Net::Docker->new;
ok($api);
my @lines = $api->pull('busybox');
for (@lines) {
ok(exists $_->{status});
}
my $version = $api->version;
t/docker-api.t view on Meta::CPAN
my $info = $api->info;
ok(exists $info->{Containers});
ok(exists $info->{Images});
my $inspect = $api->inspect('busybox');
#is($inspect->{id}, 'a9eb172552348a9a49180694790b33a1097f546456d041b6e82e4d7716ddb721');
ok($inspect->{id});
done_testing();
view release on metacpan or search on metacpan
dropbear/MULTI view on Meta::CPAN
========================
To compile for systems without much space (floppy distributions etc), you
can create a single binary. This will save disk space by avoiding repeated
code between the various parts.
If you are familiar with "busybox", it's the same principle.
To compile the multi-binary, first "make clean" (if you've compiled
previously), then
make PROGRAMS="programs you want here" MULTI=1
view release on metacpan or search on metacpan
For bug tracking, use the CPAN bug tracker at:
https://rt.cpan.org/Dist/Display.html?Name=Net-Duo
However, please be aware that I tend to be extremely busy and work
projects often take priority. I'll save your report and get to it as
soon as I can, but it may take me a couple of months.
SOURCE REPOSITORY
view release on metacpan or search on metacpan
sub set_available {
my ($cl) = @_;
$cl->change_status($Net::Gadu::STATUS_AVAIL); # GG_STATUS_AVAIL
}
sub set_busy {
my ($cl) = @_;
$cl->change_status($Net::Gadu::STATUS_BUSY); # GG_STATUS_BUSY
}
sub set_not_available {
Wysyła wiadomość pod wskazany numer UIN.
=item $gg->set_available();
Ustawia status na dostepny. Podobne funkcje : set_busy(), set_invisible(), set_not_available(), change_status().
=item $gg->add_notify($uin)
parametry:
view release on metacpan or search on metacpan
share/services_hashes_dump.yml view on Meta::CPAN
4989:
- parallel
499:
- iso-ill
4990:
- busycal
4991:
- vrt
4999:
- hfcs-manager
5:
share/services_hashes_dump.yml view on Meta::CPAN
- iso-ill
udp:
- iso-ill
4990:
tcp:
- busycal
udp:
- busycal
4991:
tcp:
- vrt
udp:
- vrt
share/services_hashes_dump.yml view on Meta::CPAN
- 998
buschtrommel:
- 4747
business:
- 3107
busycal:
- 4990
bv-agent:
- 3993
bv-ds:
- 3992
share/services_hashes_dump.yml view on Meta::CPAN
udp:
3107:
desc: Business protocol
name: business
note: ''
busycal:
tcp:
4990:
desc: BusySync Calendar Synch. Protocol
name: busycal
note: 'Defined TXT keys: Proprietary'
udp:
4990:
desc: BusySync Calendar Synch. Protocol
name: busycal
note: 'Defined TXT keys: Proprietary'
bv-agent:
tcp:
3993:
desc: BindView-Agent
view release on metacpan or search on metacpan
examples/cal2fb.pl view on Meta::CPAN
# (C) COPYRIGHT 2000-2001, Reefknot developers.
#
# See the AUTHORS file included in the distribution for a full list.
#======================================================================
# Demo of how to use freebusys.
use strict;
use lib '../lib';
use IO::File;
examples/cal2fb.pl view on Meta::CPAN
$calfh->close();
# read the calendar file in to make a Calendar object.
my $cal = Net::ICal::Calendar->new_from_ical($caldata);
my @busyperiods;
my $now = Net::ICal::Time->new(epoch => time());
my $dur = Net::ICal::Duration->new($durstr);
my $rperiod = Net::ICal::Period->new($now, $now->add($dur));
if (my $ar_events = $cal->events) {
examples/cal2fb.pl view on Meta::CPAN
my $end = $period->end->timezone('UTC');
# Make sure that we have a period with a fixed start/end
# rather than one with a period
$period = Net::ICal::Period->new($period->start, $period->end);
$period->start->timezone('UTC');
my $fbitem = Net::ICal::FreebusyItem->new($period);
$fbitem->fbtype($fbtype);
push(@busyperiods, $fbitem);
}
}
}
my $organizer = Net::ICal::Attendee->new($ENV{USER});
my $dtstamp = Net::ICal::Time->new(epoch => time(), timezone => 'UTC');
my $fbs = Net::ICal::Freebusy->new(freebusy => \@busyperiods,
organizer => $organizer,
dtstamp => $dtstamp,
dtstart => $rperiod->start,
dtend => $rperiod->end);
my $fbcal = Net::ICal::Calendar->new(freebusys => [$fbs]);
print $fbcal->as_ical;
view release on metacpan or search on metacpan
lib/Net/IMP.pm view on Meta::CPAN
### affect whole connection
use constant IMP_DENY => dualvar(0x1100,"deny");
use constant IMP_DROP => dualvar(0x1101,"drop");
use constant IMP_FATAL => dualvar(0x1102,"fatal");
# these return values still get sent if the data provider is busy
# the most important are on top
use constant IMP_PASS_IF_BUSY => [
IMP_FATAL,
IMP_DENY,
IMP_DROP,
lib/Net/IMP.pm view on Meta::CPAN
=item $analyzer->poll_results => @results
Returns outstanding results.
If a callback is attached, no results will be delivered this way.
=item $analyzer->busy($dir,0|1)
Reports to the analyzer if the data provider is busy and cannot process all
requests. This is usually the case, if the upstream cannot keep up with the
data, so sending gets stalled.
While the data provider is busy the analyzer might still send return values,
which might resolve the busy state, like IMP_DENY, IMP_FATAL etc
=item Net::IMP->set_debug
This is just a convenient way to call C<< Net::IMP::Debug->set_debug >>.
See L<Net::IMP::Debug> for more information.
view release on metacpan or search on metacpan
lib/Net/IPP/IPP.pm view on Meta::CPAN
0x0502 => "server-error-service-unavailable",
0x0503 => "server-error-version-not-supported",
0x0504 => "server-error-device-error",
0x0505 => "server-error-temporary-error",
0x0506 => "server-error-not-accepting-jobs",
0x0507 => "server-error-busy",
0x0508 => "server-error-job-canceled",
0x0509 => "server-error-multiple-document-jobs-not-supported",
0x050a => "server-error-printer-is-deactivated"
);
view release on metacpan or search on metacpan
docs/ldap.asn1 view on Meta::CPAN
aliasDereferencingProblem (36),
-- 37-47 unused --
inappropriateAuthentication (48),
invalidCredentials (49),
insufficientAccessRights (50),
busy (51),
unavailable (52),
unwillingToPerform (53),
loopDetect (54),
-- 55-63 unused --
namingViolation (64),
view release on metacpan or search on metacpan
lib/Net/LDAP/SimpleServer.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
libnfs/README.multithreading view on Meta::CPAN
See examples/nfs-pthreads-example.c for an example utility that
mounts a share, enables multithreading and then creates a number of worker
threads that share the same nfs context.
(In the example the threads just runs a busy loop calling nfs_stat64().)
Porting
-------
The multithreading support is abstracted out into two separate files to make
view release on metacpan or search on metacpan
lib/Net/Mollom.pm view on Meta::CPAN
This boolean turns on warnings. You will get warnings for the following
situations:
=over
=item * A Mollom server is busy and we need to try a different one.
=item * We have exhausted the list of servers to try and we need to get a new list.
=back
lib/Net/Mollom.pm view on Meta::CPAN
$self->servers_init(0);
$self->server_list;
return $self->_make_api_call($function, $args);
}
} elsif (($fault_code == $ERROR_NEXT_SERVER) && ($self->{_recurse_level} < $MAX_API_TRIES)) {
carp("Mollom server busy, trying the next one.") if $self->warnings;
my $next_index = $self->current_server + 1;
if ($servers[$next_index] ) {
$self->current_server($next_index);
return $self->_make_api_call($function, $args);
} else {
view release on metacpan or search on metacpan
YPERR_YPSERV Can't communicate with ypserv
YPERR_NODOM Local domain name not set
YPERR_BADDB yp data base is bad
YPERR_VERS YP version mismatch
YPERR_ACCESS Access violation
YPERR_BUSY Database is busy
=head1 ERRORS
Instead of having 'tie' succeed and the first access fail,
view release on metacpan or search on metacpan
lib/Net/Ncap.pm view on Meta::CPAN
Disabled by default. Controls whether signal handlers are installed for
SIGHUP, SIGINT, and SIGTERM prior to passing control to the collection
loop. Perl only sees these events when it is in context (i.e. during the
callback). Until then they are queued by default, until perl can handle
them. If you are polling on an interface that is not very busy, or if
your filters only occasionally pass an interesting message, it might be
a while before perl gets a chance to handle signals. With this option
enabled, the program is interruptable. Whatever signal handlers were in
place prior to invoking collect are restored once complete.
view release on metacpan or search on metacpan
lib/Net/Netconf/Access/ssh.pm view on Meta::CPAN
$self->trace("Will write $len bytes to the SSH channel:");
$self->trace("$xml");
# Make the channel blocking, so the write() call below waits until there
# is available buffer space. Otherwise we'll end up busy-looping.
$self->{'chan'}->blocking(1);
my $written = 0;
while($written != $len) {
my $nbytes = $self->{'chan'}->write($xml)
lib/Net/Netconf/Access/ssh.pm view on Meta::CPAN
$self->trace("Reading XML response from Netconf server...");
my ($resp, $buf);
my $end_time = time() + 15;
do {
# Wait up to 10 seconds for data to become available before attempting
# to read anything (in order to avoid busy-looping on $chan->read())
my @poll = ({ handle => $chan, events => 'in' });
$ssh2->poll(40000, \@poll);
$nbytes = $chan->read($buf, 65536);
view release on metacpan or search on metacpan
lib/Net/NicoVideo.pm view on Meta::CPAN
=head2 download(video_id, file)
download() is a shortcut to download video which is identified by video_id.
For busy person, you can download a video by one liner like this:
$ perl -MNet::NicoVideo -e 'Net::NicoVideo->new->download(@ARGV)' \
smNNNNNN ./smile.mp4
Note that it is necessary to set environment variables in advance.
view release on metacpan or search on metacpan
lib/Net/OpenVAS/OMP/Response.pm view on Meta::CPAN
sub is_not_found {
my ($self) = @_;
return ( $self->status == 404 ) ? 1 : 0;
}
sub is_busy {
my ($self) = @_;
return ( $self->status == 409 ) ? 1 : 0;
}
sub is_server_error {
lib/Net/OpenVAS/OMP/Response.pm view on Meta::CPAN
=head3 $response->is_forbidden (403)
=head3 $response->is_not_found (404)
=head3 $response->is_busy (409)
=head3 $response->is_server_error (>500)
=head1 SUPPORT
view release on metacpan or search on metacpan
per match from the server.
=item change( SEARCH , MAKE )
$r = $ph->change({ email => "*.domain.name" },
{ schedule => "busy");
Change field values for matching entries.
The C<SEARCH> argument is a reference to a HASH which contains field/value
pairs which will be passed to the Nameserver as the search criteria.
will set new values to designated fields.
The alternative syntax is to pass strings instead of references, for example
$r = $ph->change('email="*.domain.name"',
'schedule="busy"');
The C<SEARCH> argument is a string to be passed to the Nameserver as the
search criteria. The strings being passed should B<not> contain any carriage
returns, or else the query command might fail or return invalid data.
view release on metacpan or search on metacpan
Patch by jef@linuxbe.org (Jean-Francois Dive).
- Changed default behavior of "syn" protocol to
disabled tcp_service_check instead of enabled.
- Win32 compatibility changes ("syn" protocol).
- Increase timeouts for tests in case client or
server network(s) are busy.
2.21 Oct 14 12:00 2002
- Preserve/restore ALRM settings for tcp mode pings.
Spot by d@niel-berlin.de (Daniel Berlin)
- Can now select device for udp and icmp protocols.
view release on metacpan or search on metacpan
lib/Net/Prometheus/ServerStatusLiteCollector.pm view on Meta::CPAN
next if $line =~ m/^\D/;
my ($ppid, $pid) = split /\s+/, $line, 2;
push @all_workers, $pid if $ppid == $parent_pid;
}
# Count busy and idle workers
my $idle = 0;
my $busy = 0;
my @process_status;
for my $pid (@all_workers) {
my $json = $stats->{$pid};
$pstatus = eval {
$JSON->decode($json || '{}');
};
$pstatus ||= {};
if ($pstatus->{status} && $pstatus->{status} eq 'A') {
$busy++;
}
else {
$idle++;
}
lib/Net/Prometheus/ServerStatusLiteCollector.pm view on Meta::CPAN
delete $pstatus->{ppid};
delete $pstatus->{uptime};
push @process_status, $pstatus;
}
push @samples,
MetricSamples('plack_busy_workers', gauge => 'Number of busy Plack workers',
[Sample('plack_busy_workers', $self->labels, $busy)]);
push @samples,
MetricSamples('plack_idle_workers', gauge => 'Number of idle Plack workers',
[Sample('plack_idle_workers', $self->labels, $idle)]);
$stats = {};
view release on metacpan or search on metacpan
lib/Net/RCON/Minecraft.pod view on Meta::CPAN
this many seconds to send all the bytes we are expecting, we will C<croak()>
with a timeout error message.
The default of 30 seconds is normally enough, but may need to be set higher if
you are running a command that takes a long time, or the Minecraft server is
very busy.
=head2 connect
B<This method is optional.> By default, this module will connect to the
Minecraft server automatically as soon as the first C<command()> is run. It
view release on metacpan or search on metacpan
Event->timer(interval => ($ival < 1 ? 1 : $ival), cb => sub {
$_->watch() for values %$users; });
}
=pod
my @state = qw(offline online idle on-phone at-lunch busy);
Event->timer(interval => 60,
cb => sub { $rvp->status($state[rand @state]) });
=cut
# add a STDIN I/O event
view release on metacpan or search on metacpan
asn1/AbsentSubscriberReason.c view on Meta::CPAN
{ 0, 10, "imsiDetach" },
{ 1, 14, "restrictedArea" },
{ 2, 14, "noPageResponse" },
{ 3, 8, "purgedMS" },
{ 4, 14, "mtRoamingRetry" },
{ 5, 14, "busySubscriber" }
/* This list is extensible */
};
static unsigned int asn_MAP_AbsentSubscriberReason_enum2value_1[] = {
5, /* busySubscriber(5) */
0, /* imsiDetach(0) */
4, /* mtRoamingRetry(4) */
2, /* noPageResponse(2) */
3, /* purgedMS(3) */
1 /* restrictedArea(1) */
view release on metacpan or search on metacpan
examples/nrsd.cfg view on Meta::CPAN
# background 1
# setsid 1
# These keys control the number of processes to keep running and a few
# other aspects related to performance. Pay attention to max_requests,
# as memory growth can be an issue in busy serves.
#
# See Net::Server::PreFork for more information
min_servers 5
min_spare_servers 2
view release on metacpan or search on metacpan
dicts/dictionary.3com-o view on Meta::CPAN
VENDORVALUE USR USR-Call-Event-Code calledPartyReject 19
VENDORVALUE USR USR-Call-Event-Code blocked 20
VENDORVALUE USR USR-Call-Event-Code analogBlocked 21
VENDORVALUE USR USR-Call-Event-Code digitalBlocked 22
VENDORVALUE USR USR-Call-Event-Code outOfService 23
VENDORVALUE USR USR-Call-Event-Code busy 24
VENDORVALUE USR USR-Call-Event-Code congestion 25
VENDORVALUE USR USR-Call-Event-Code protocolError 26
VENDORVALUE USR USR-Call-Event-Code noFreeBchannel 27
VENDORVALUE USR USR-Call-Event-Code inOutCallCollision 28
VENDORVALUE USR USR-Call-Event-Code inCallArrival 29
view release on metacpan or search on metacpan
2.3 2013-07-25 Fix nasty context bug. scalar($rand->get(1)) would
always give you 1 (the number of elements in the
list returned) instead of a useful number.
2.22 2012-05-26 Cope with broken JSON from QRNG when they're busy
2.21 2012-05-20 Use JSON API for qrng, thanks to Syed Assad for
telling me about it
2.2 2012-05-16 Add support for qrng.anu.edu.au, thanks to Steve Wills
view release on metacpan or search on metacpan
- The methods that expect a SNMP GetResponse-PDU in "blocking" mode now ignore
messages with request-ids that do not match the current request-id. This
change addresses a common occurrence of the "Received request-id xxxx is
not equal to transmitted request-id xxxx" error. The manifestation of this
error that has been corrected occurs when a remote agent is too busy to
respond immediately, buffers the request, and responds to the request after
the Net::SNMP timeout has expired.
- A new argument "-delay" was added to all methods that can function in "non-
blocking" mode.
- The Net::SNMP::FSM "event loop" sub-module was completely rewritten to more
RELEASE 3.01 JAN-01-2000
- Performance enhancements were made to the most heavily used methods.
- Changed the default timeout to 5.0 seconds and the default number of retries
to 1 to reduce network traffic and to work around a problem with responses
from certain routers when they are busy. The total default timeout period
remains the same at 10 seconds.
- Removed the verify_ip() method and the "-verifyip" argument to the
constructor.
RELEASE 3.00 SEP-09-1999
view release on metacpan or search on metacpan
lib/Net/Server/Framework.pm view on Meta::CPAN
This version uses SQLite as the standard DB. Most parameters in the
system (including the database type) are configurable via INI style
config files.
This framework is used in some quite busy environments and some things
might look strange but are the result of optimization or problems we ran
into when scaling. One such thing is the DB abstraction which is tuned
for the least possible overhead (memory and cpu wise).
The source code and some working examples can be found on github:
view release on metacpan or search on metacpan
lib/Net/SloppyXMPP.pm view on Meta::CPAN
#usesasl => 0, # set this if you don't want SASL
domain => 'yourdomain.xyz',
username => 'yourusername',
password => 'yourpassword',
resource => 'yourresourcename', # or don't set and a default will be supplied
initialpresence => 'available', # available, busy, dnd, defaults to available
initialstatus => 'I am alive!', # defaults to ''
message_callback => \&messageCallback,
);
die qq(XMPP didn't create.\n) unless $xmpp;