view release on metacpan or search on metacpan
js/OpenThought.js view on Meta::CPAN
this.getOpenChannel = function() {
var channelName;
for(var i=0; i < channels.length ;i++) {
if(! channels[i]["busy"]) {
channels[i]["busy"] = true;
this.log.info("Reusing channel [" + i + "].");
return channels[i];
}
}
var channel = new Object;
var id = channels.length;
channels[id] = channel;
channels[id]["busy"] = true;
var channel_info = this.createChannel(id);
channels[id]["channel"] = channel_info[0];
channels[id]["type"] = channel_info[1];
return channels[id];
js/OpenThought.js view on Meta::CPAN
this.Complete = function(channel) {
if (channel.name && channel.name >= 0) {
this.log.info('Freeing channel [' + channel.name + ']');
channels[channel.name]["busy"] = false;
}
return true;
}
view release on metacpan or search on metacpan
lib/auto/OpusVL/AppKit/root/static/js/jquery-ui-1.9.0.custom.min.js view on Meta::CPAN
/*! jQuery UI - v1.9.0 - 2012-10-24
* http://jqueryui.com
* Includes: jquery.ui.core.js, jquery.ui.widget.js, jquery.ui.mouse.js, jquery.ui.position.js, jquery.ui.draggable.js, jquery.ui.droppable.js, jquery.ui.resizable.js, jquery.ui.selectable.js, jquery.ui.sortable.js, jquery.ui.accordion.js, jquery.ui.a...
* Copyright (c) 2012 jQuery Foundation and other contributors Licensed MIT */
(function(e,t){function i(t,n){var r,i,o,u=t.nodeName.toLowerCase();return"area"===u?(r=t.parentNode,i=r.name,!t.href||!i||r.nodeName.toLowerCase()!=="map"?!1:(o=e("img[usemap=#"+i+"]")[0],!!o&&s(o))):(/input|select|textarea|button|object/.test(u)?!t...
view release on metacpan or search on metacpan
Shell/Meta.pm view on Meta::CPAN
$parent->{dbh}->errstr;
} else {
$parent->sth_go( $sth, 1 );
$parent->display_results( $sth );
}
$parent->{dbiwd}->Unbusy;
}
1;
view release on metacpan or search on metacpan
orac_Base.pm view on Meta::CPAN
$t->pack(-expand=>1,-fil=>'both');
tie (*THIS_TEXT,'Tk::Text',$t);
print THIS_TEXT "$_[1]\n";
$d->Show;
$_[0]->Unbusy;
}
sub about_orac {
my $self = shift;
view release on metacpan or search on metacpan
lib/OurNet/BBS/MAPLE2/BoardGroup.pm view on Meta::CPAN
$self->{shmid} = shmget($self->{shmkey}, $self->{maxboard} * $packsize + 16, 0)) {
tie $self->{shm}{touchtime}, 'OurNet::BBS::ShmScalar',
$self->{shmid}, $self->{maxboard}*$packsize + 4, 4, 'L';
tie $self->{shm}{number}, 'OurNet::BBS::ShmScalar',
$self->{shmid}, $self->{maxboard}*$packsize + 8, 4, 'L';
tie $self->{shm}{busystate}, 'OurNet::BBS::ShmScalar',
$self->{shmid}, $self->{maxboard}*$packsize + 12, 4, 'L';
}
}
# Fetch key: id savemode author date title filemode body
view release on metacpan or search on metacpan
lib/P9Y/ProcessTable.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
contrib/gui_pp/gpp view on Meta::CPAN
}
print "$pp @pp_opts\n";
$mw->Busy();
system $pp, @pp_opts;
$mw->Unbusy();
print "Done.\n\n";
} ## end sub run_pp
view release on metacpan or search on metacpan
PApp/SCGI/Worker.pm view on Meta::CPAN
defined $AnyEvent::MODEL
and die "PApp::SCGI::Worker: error: anyevent already initialised\n";
$IO::AIO::VERSION and IO::AIO::nreqs ()
and die "PApp::SCGI::Worker: error: IO::AIO busy in template process\n";
}
sub mount {
my (@apps) = @_;
view release on metacpan or search on metacpan
INFO/RoadMap view on Meta::CPAN
These are things that would be useful in being able to handle page design
in a higher-level manner. This would almost certainly be another package,
such as PDF::Builder::Environments.
A. Introduce the concept of environments, which take care of handling much of
the busy-work of laying out a page.
page -- including margins (define the work area); page numbering, outline,
and slider thumb consistent page numbers; headings/footings. also
odd/even page layouts, odd-only, or single page (roll printer) layout
column(s) -- define single or multiple columns, not necessarily of
view release on metacpan or search on metacpan
sndlib/audio.c view on Meta::CPAN
case SNDLIB_CHANNELS_NOT_AVAILABLE: return("channel(s) not available"); break;
case SNDLIB_SRATE_NOT_AVAILABLE: return("srate not available"); break;
case SNDLIB_FORMAT_NOT_AVAILABLE: return("format not available"); break;
case SNDLIB_NO_INPUT_AVAILABLE: return("no input available"); break;
case SNDLIB_NO_OUTPUT_AVAILABLE: return("no output available"); break;
case SNDLIB_INPUT_BUSY: return("input busy"); break;
case SNDLIB_OUTPUT_BUSY: return("output busy"); break;
case SNDLIB_CONFIGURATION_NOT_AVAILABLE: return("configuration not available"); break;
case SNDLIB_INPUT_CLOSED: return("input closed"); break;
case SNDLIB_OUTPUT_CLOSED: return("output closed"); break;
case SNDLIB_IO_INTERRUPTED: return("io interrupted"); break;
case SNDLIB_NO_LINES_AVAILABLE: return("no lines available"); break;
sndlib/audio.c view on Meta::CPAN
md = open(dname,O_RDWR|O_NONBLOCK,0);
if (md == -1)
{
if (errno == EBUSY)
{
fprintf(stderr,"%s is busy: can't access it",dname);
nmix++;
continue;
}
else break;
}
sndlib/audio.c view on Meta::CPAN
if (fd == -1)
{
close(md);
if (errno == EBUSY) /* in linux /usr/include/asm/errno.h */
{
fprintf(stderr,"%s is busy: can't access it\n",dname);
ndsp++;
continue;
}
else
{
sndlib/audio.c view on Meta::CPAN
int audio_systems(void) {return(1);}
char *audio_system_name(int system) {return("HPUX");}
/* struct audio_status status_b;
* ioctl(devAudio, AUDIO_GET_STATUS, &status_b)
* not_busy = (status_b.transmit_status == AUDIO_DONE);
*/
int open_audio_input(int ur_dev, int srate, int chans, int format, int size)
{
int fd,i,dev;
view release on metacpan or search on metacpan
matio-1.5.0/config/install-sh view on Meta::CPAN
# to itself, or perhaps because mv is so ancient that it does not
# support -f.
{
# Now remove or move aside any old file at destination location.
# We try this two ways since rm can't unlink itself on some
# systems and the destination file might be busy for other
# reasons. In this case, the final cleanup might fail but the new
# file should still install successfully.
{
test ! -f "$dst" ||
$doit $rmcmd -f "$dst" 2>/dev/null ||
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=PGP-Sign
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
IT/perlfaq5.pod view on Meta::CPAN
or die "non posso aprire file.lock: $!":
eccetto che, deplorevolmente, la creazione di file (e la cancellazione)
non E<egrave> atomica su NFS, dunque questo non funzionerE<agrave> (non
tutte le volte, almeno) in rete. Sono stati suggeriti vari schemi che
coinvolgono link(), ma questi tendono a implicare del busy-wait, anch'esso
poco desiderabile.
=head2 Non riesco ancora ad ottenere il lock. Voglio solo incrementare un numero nel file. Come faccio?
X<contatore> X<file, contatore>
view release on metacpan or search on metacpan
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
On some older systems, it may sleep up to a full second less than what
you requested, depending on how it counts seconds. Most modern systems
always sleep the full amount. They may appear to sleep longer than that,
however, because your process might not be scheduled right away in a
busy multitasking system.
For delays of finer granularity than one second, the Time::HiRes module
(from CPAN, and starting from Perl 5.8 part of the standard
distribution) provides usleep(). You may also use Perl's four-argument
version of select() leaving the first three arguments undefined, or you
view release on metacpan or search on metacpan
lib/POE/Component/Client/SMTP.pm view on Meta::CPAN
=head1 DESCRIPTION
PoCoClient::SMTP allows you to send email messages in an asynchronous manner,
using POE.
Thus your program isn't blocking while busy talking with an (E)SMTP server.
=head1 SYNOPSIS
B<Warning!> The following examples are B<not> complete programs, and
aren't designed to be run as full blown applications. Their purpose is to
view release on metacpan or search on metacpan
lib/POE/Component/Client/SimpleFTP.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
lib/POE/Component/FunctionBus.pm view on Meta::CPAN
remember that it is rather dependant on code enacting postback type behaviour,
rather than block-and-return.
Not that you could not use block-and-return it would just well, be rather
resource hungry and not very scalable. If you do have a_function() that takes
8 days to run, consider wrapping it in a service that responds that it is busy
or so. That way you can have multiple nodes providing that service.
=head1 SYNOPSIS
Perhaps a little code snippet.
view release on metacpan or search on metacpan
lib/POE/Component/IRC/Plugin/Karma.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
lib/POE/Component/PreforkDispatch.pm view on Meta::CPAN
# Do nothing if queue is empty
return if $#{ $heap->{request_queue} } < 0;
# Find a fork to use
# Check for available, not busy existing forks.
# Choose the fork that's been waiting the longest
my @avail_forks =
sort { $a->{finished_request} <=> $b->{finished_request} }
grep { $_->{status} eq 'idle' }
@{ $heap->{forks} };
lib/POE/Component/PreforkDispatch.pm view on Meta::CPAN
# If no fork found, create a new one if possible. Otherwise, wait.
if (! $use_fork) {
if (int @{ $heap->{forks} } == $heap->{max_forks}) {
# Already forked the max number; have to wait for one to return
$heap->{talkback}("All forks are busy; will wait to handle request after a fork returns") if $heap->{verbose};
return;
}
# Don't forkbomb; delay before spawning another fork
if ($heap->{last_fork_created} && time - $heap->{last_fork_created} < 5) {
view release on metacpan or search on metacpan
lib/POE/Component/SNMP/Dispatcher.pm view on Meta::CPAN
my $pdu = $pdu_args[0];
my $fileno = $pdu->transport->fileno;
# enqueue or execute
if ($this->_current_pdu($fileno)) {
# this socket is busy. enqueue.
$this->_enqueue_pending_pdu($fileno => \@pdu_args);
DEBUG_INFO('queued request for [%d] %d requests pending',
$fileno, $this->_pending_pdu_count($fileno));
view release on metacpan or search on metacpan
lib/POE/Component/SSLify.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
PreforkTCP.pm view on Meta::CPAN
$kernel->yield('kill', $pid );
next;
# kill the server which exit gracefully.
# if the heartbeat cycle is too long and
# system is too busy, if the system will
# spawn some other process which pid is it?
# maybe , maybe few, but not none.
}
$kernel->yield('term', $pid )
view release on metacpan or search on metacpan
lib/POE/Component/SimpleDBI.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
lib/POE/Component/SmokeBox/Uploads/Rsync.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
lib/POE/Component/SpreadClient.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
=pod
=head2 play_tone => $type
Plays a tone. $type can be busy, dialx, dial, or ringback.
A warning is produced if you supply an invalid tone.
=cut
sub play_tone {
my ($kernel, $heap, $type) = @_[KERNEL, HEAP, ARG0];
$type = lc($type);
my $found = 0;
foreach my $t (qw(busy dialx dial ringback)) {
$found = 1 if ($type eq $t);
}
unless ($found) {
warn "play_tone: ctserver does not support tone $type";
return;
view release on metacpan or search on metacpan
lib/POE/Component/YahooMessenger.pm view on Meta::CPAN
my $goes_online = POE::Component::YahooMessenger::Event->new(
'goes_online', 0, {
buddy_id => $event->buddy_id($num),
status_code => $status_code,
status_message => $status_message,
busy_code => $event->busy_code($num),
},
);
$kernel->yield(notify => $goes_online->name, $goes_online);
}
}
lib/POE/Component/YahooMessenger.pm view on Meta::CPAN
my($kernel, $heap, $args) = @_[KERNEL, HEAP, ARG0];
$heap->{sock}->put(
POE::Component::YahooMessenger::Event->new(
'change_status', 0, {
status_code => 99, # XXX custom status
busy_code => $args->{busy} || 0,
status_message => $args->{message},
},
),
);
}
lib/POE/Component/YahooMessenger.pm view on Meta::CPAN
message => "Hello World",
});
# change your status
$kernel->post(ym => change_my_status => {
busy => 0, # 0 = not busy
message => "going for lunch now!",
});
# retrieve your buddies list
$kernel->post(ym => buddies => 'retrieve_buddies');
view release on metacpan or search on metacpan
lib/POE/Declare/Log/File.pm view on Meta::CPAN
}
sub flush : Event {
if ( defined $_[SELF]->{buffer} ) {
# Almost all the time we should arrive here already
# busy. But if we do arrive IDLE accidentally, set as well.
if ( $_[SELF]->{state} eq 'IDLE' ) {
$_[SELF]->{state} = 'BUSY';
}
# Merge the queued messages ourself to prevent having to use a heavier
view release on metacpan or search on metacpan
lib/POE/Loop/TkCommon.pm view on Meta::CPAN
my $window = shift;
my $error = shift;
if (Tk::Exists($window)) {
my $grab = $window->grab('current');
$grab->Unbusy if defined $grab;
}
chomp($error);
POE::Kernel::_warn "Tk::Error: $error\n " . join("\n ",@_)."\n";
if ($poe_kernel->_data_ses_count()) {