Result:
found more than 814 distributions - search limited to the first 2001 files matching your query
( run in 1.471 )
EWS-Client
view release on metacpan or search on metacpan
lib/EWS/Calendar/Role/Reader.pm view on Meta::CPAN
with 'EWS::Calendar::Role::RetrieveWithinWindow','EWS::Calendar::Role::RetrieveAvailability';
use EWS::Calendar::Window;
sub retrieve {
my ($self, $opts) = @_;
if($opts->{'freebusy'}){
return $self->retrieve_availability({
window => EWS::Calendar::Window->new($opts),
%$opts,
});
} else {
EekBoek
view release on metacpan or search on metacpan
lib/EB/DB.pm view on Meta::CPAN
my ($self) = @_;
$self->connectdb;
$self->adm("bky") ne BKY_PREVIOUS;
}
sub adm_busy {
my ($self) = @_;
$self->connectdb;
$self->do("SELECT COUNT(*) FROM Journal")->[0];
}
Eixo-Docker
view release on metacpan or search on metacpan
=head2 Interacting with images
=head3 Getting an image
## get
my $image = $a->images->get(id => "busybox");
=head3 Getting an image history
## history
=head3 Create an image pulling it from registry
## create
my $image = $a->images->create(
fromImage=>'busybox',
onSuccess=>sub {
print "FINISHED\n";
Ekahau
view release on metacpan or search on metacpan
Ekahau/Response/Error.pm view on Meta::CPAN
-1001 => ['CONTEXT_NOT_FOUND','Location Context Not Found','No location context exists for the requested context ID'],
1 => ['MALFORMED_REQUEST','Malformed Request','The Ekahau engine expected HELLO and TALK commands but received something else.'],
2 => ['AUTHENTICATION_FAILED','Authentication Failed','Password or license is wrong.'],
3 => ['UNSUPPORTED_PROTOCOL','Unsupported protocol','The requested protocol was not found.'],
4 => ['LICENSE_VIOLATION','License Violation','Too many open sockets for your license.'],
5 => ['ACCESS_DENIED','Access Denied','Authentication was OK, but the connect was refused either because your IP address is not allowed to connect, or because the server is too busy.'],
6 => ['AUTH_TIMEOUT','Authentication timeout','HELLO and TALK commands were not sent quickly enough'],
);
# Internal method
sub init
Ekahau/Response/Error.pm view on Meta::CPAN
=head3 EKAHAU_ERR_ACCESS_DENIED
Access Denied. Authentication was OK, but the connect was refused
either because your IP address is not allowed to connect, or because
the server is too busy.
=head3 EKAHAU_ERR_CONSUMER_NOT_RESPONDING
Consumer Not Responding. The device which you are trying to track
might not be responding. Check that the device is still connected to
Embedix-DB
view release on metacpan or search on metacpan
my $apache_ecd = Embedix::ECD->newFromFile('apache.ecd');
$edb->updateDistro(ecd => $apache_ecd);
deleting components from a distro
$edb->deleteNode(name => 'busybox');
=head1 REQUIRES
=over 4
Embedix-ECD
view release on metacpan or search on metacpan
=head1 SYNOPSIS
instantiate from a file
my $ecd = Embedix::ECD->newFromFile('busybox.ecd');
my $other_ecd = Embedix::ECD->newFromFile('tinylogin.ecd');
access nodes
my $busybox = $ecd->System->Utilities->busybox;
build from scratch
my $server = Embedix::ECD::Group->new(name => 'Server');
my $www = Embedix::ECD::Group->new(name => 'WWW');
$ecd->Server->addChild($www);
$ecd->Server->WWW->addChild($apache);
get/set attributes
my $srpm = $busybox->srpm();
$busybox->help('i am busybox of borg -- unix will be assimilated.');
$busybox->requires([
'libc.so.6',
'ld-linux.so.2',
'skellinux',
]);
parameters which represent the attributes the object should have. The
set of valid attributes is described under L</Attributes>.
$system = Embedix::ECD::Group->new(name => 'System');
$utilities = Embedix::ECD::Group->new(name => 'Utilities');
$busybox = Embedix::ECD::Component->new(
name => 'busybox',
type => 'bool',
value => 0,
srpm => 'busybox',
static_size => 3006,
min_dynamic_size=> 0,
storage_size => 4408,
startup_time => 0,
keeplist => [ '/bin/busybox' ],
requires_expr => [
'(libc.so.6 == "y") &&',
'(ld-linux.so.2 == "y") &&',
'(skellinux == "y") &&',
'( (Misc-utilities == "y")',
C<n()> is an alias for C<getChild()>. "n" stands for "node" and is a
lot easier to type than "getChild".
$ecd->n('System')
->n('Utilities')
->n('busybox')
->n('long-ass-option-name-with-redundant-information');
=item addChild($obj)
This adds a child to the current node.
=head2 Accessing Child Nodes via AUTOLOAD
The name of a node can be used as a method. This is what makes it
possible to say something like:
my $busybox = $ecd->System->Utilities->busybox;
and get back the Embedix::ECD::Component object that contains the
information for the busybox package. "System", "Utilities", and
"busybox" are not predefined methods in Embedix::ECD or any of its
subclasses, so they are delegated to the AUTOLOAD method. The AUTOLOAD
method will try to find a child with the same name as the undefined
method and it will return it if found.
I have not yet decided whether the AUTOLOAD should die when a child is
attributes are non-reference scalar values, and aggregate attributes are
non-reference scalar values enclosed within an arrayref.
A single valued attribute:
my $bbsed = $busybox->n('Misc-utilities')->n('keep-bb-sed');
$bbsed->provides('sed');
The same attribute as an aggregate:
$bbsed->provides([ 'sed' ]);
Again, these two expressions mean the same thing. An aggregate of one
is interpreted just as if it were a single value.
Aggregates become useful when attributes needs to have a list of values.
$busybox->n('compile-time-features')->n('enable-bb-feature-use-inittab')->requires ([
'keep-bb-init',
'inittab',
'/bin/sh',
]);
behaves as a setter and the value of the parameter is assigned to the
attribute.
getter:
my $name = $busybox->name();
setter:
$busybox->name('busybox');
=head2 Accessors For Single-Valued Attributes
These are accessors for attributes that are typically single-valued.
=item specpatch
This attribute is only meaningful within the context of a component.
Specpatches are applied to .spec files just prior to the building of a
component. They are often used to configure the compilation of a
component. The busybox package provides a good example of this in
action.
$ecd->specpatch()
=item static_size
$ecd->build_vars()
=item provides
This is a list of symbolic names that a node is said to be able to
provide. For example, grep in busybox provides grep. GNU/grep also
provides grep. According to TargetWizard, these two cannot coexist on
the same instance of an Embedix distribution, because they both provide
grep.
$ecd->provides()
=back
=head1 BUGS
This parser becomes exponentially slower as the size of ECD data
increases. busybox.ecd takes 30 seconds to parse.
Don't even try to parse linux.ecd -- it will sit there for hours
just sucking CPU before it ultimately fails and gives you back
nothing. I don't know if there's anything I can do about it.
I have noticed that XML::Parser (which wraps around the C library,
expat) is 60 times faster than my Parse::RecDescent-based parser
when reading busybox.ecd. I really want to take advantage of this.
=head1 COPYRIGHT
Copyright (c) 2000,2001 John BEPPU. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same
Event
view release on metacpan or search on metacpan
lib/Event.pod view on Meta::CPAN
Watchers are returned in order of most recent to least recent.
=item all_idle()
Returns a list of all the idle watchers.
If the event queue is very busy, all the idle watchers will sit on the
idle queue waiting to run. However, be aware that if an idle watcher
has the C<max> attribute set then it will queue a normal event when
its C<max> wait time is exceeded.
=item queue_pending()
ExtUtils-MakeMaker-BigHelper
view release on metacpan or search on metacpan
lib/ExtUtils/MakeMaker/BigHelper.pm view on Meta::CPAN
# For example in AIX the shared objects/libraries from previous builds
# linger quite a while in the shared dynalinker cache even when nobody
# is using them. This is painful if one for instance tries to restart
# a failed build because the link command will fail unnecessarily 'cos
# the shared object/library is 'busy'.
push(@m,' $(RM_F) $@
');
my $libs = '$(LDLOADLIBS)';
ExtUtils-MakeMaker
view release on metacpan or search on metacpan
lib/ExtUtils/MM_OS390.pm view on Meta::CPAN
# For example in AIX the shared objects/libraries from previous builds
# linger quite a while in the shared dynalinker cache even when nobody
# is using them. This is painful if one for instance tries to restart
# a failed build because the link command will fail unnecessarily 'cos
# the shared object/library is 'busy'.
push(@m," \$(RM_F) \$\@\n");
my $libs = '$(LDLOADLIBS)';
my $ld_run_path_shell = "";
FAQ-OMatic
view release on metacpan or search on metacpan
lib/FAQ/OMatic.pm view on Meta::CPAN
my $uptime = `uptime`;
$uptime =~ m/load average: ([\d\.]+)/;
my $load = $1;
if ($load > 4) {
FAQ::OMatic::gripe('abort',
"I'm too busy for that now. (I'm kind of a crummy PC.)");
}
}
# Return the integer prefix to this string, or 0.
# Used to fix "argument isn't numeric" warnings.
FCGI-Spawn
view release on metacpan or search on metacpan
lib/FCGI/Spawn.pm view on Meta::CPAN
With mod_fcgid, the compiled Perl code is not being shared among forks by far.
=item * Too much need for root
The startup.pl providing the memory sharing among forks is aimed to be run as root, at least when you need to listen binded to ports numbered less than 1024, for example, 80.
And, the root user ( the human ) is often too busy to check if that massive code is secure enough to be run as root system user ( the effective UID ) Thus, it's no much deal to accelerate Perl on mod_perl steroids if the startup.pl includes rather sm...
Root is needed to recompile the Perl sources, at least with the useful Registry handler.
It is obvious to gracefully restart Apache once per N minutes and this is what several hosting panel use to do but it is not convinient to debug code that is migrated from developer's hosting to production's as it is needed to be recompiled on webma...
And, with no ( often proprietary ) hosting panel software onboard, Apache doesn't even gracefully restart on a regular basis without special admin care taken at server setup time.
On the uptime had gone till the need of restart after launch it is not an admin favor to do this, even gracefully.
FCGI
view release on metacpan or search on metacpan
* a drop-dead timer. Its only used for AF_UNIX sockets (not TCP sockets).
* Its a workaround for a kernel bug in Linux 2.0.x and SCO Unixware.
* Making this as small as possible, yet remain reliable would be best.
* 2 seconds is very conservative. 0,0 is not reliable. The shorter the
* timeout, the faster request processing will recover. The longer the
* timeout, the more likely this application being "busy" will cause other
* requests to abort and cause more dead sockets that need this timeout. */
#define READABLE_UNIX_FD_DROP_DEAD_TIMEVAL 2,0
#ifndef STDIN_FILENO
#define STDIN_FILENO 0
FFI-Raw
view release on metacpan or search on metacpan
deps/libffi/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 ||
FTN-Outbound-BSO
view release on metacpan or search on metacpan
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
# file_type => extension. both keys and values should be unique in their sets
# content notes are from fts-5005.003
my %control_file_extension = ( file_request => 'req', # file requests
# The format of request files is documented in FTS-0006.
busy => 'bsy', # busy control file.
# may contain one line of PID information (less than 70 characters).
call => 'csy', # call control file
# may contain one line of PID information (less than 70 characters).
hold => 'hld', # hold control file
# must contain a one line string with the expiration of the hold period expressed in UNIX-time.
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
print $fh '';
close $fh;
}
$bso -> busy_protected_sub( $addr,
\ &poll,
);
=head1 DESCRIPTION
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
domain_abbrev - hash reference where keys are known domains and values are directory names (without extension) in outbound_root for those domains. Mandatory parameter.
reference_file_read_line_transform_sub - reference to a function that receives an octet string and returns a character string. Will be passed to FTN::Outbound::Reference_file constructor. If not provided reference file content won't be processed.
maximum_session_time - maximum session time in seconds. If provided, all found busy files older than 2 * value will be removed during outbound scan.
Returns newly created object on success.
=cut
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
push @{ $target -> { $net }{ $node }{ $point }{reference_file}{ $flavour } },
$file_prop;
} elsif ( exists $ext_control_file{ $lc_ext } ) {
my $age = $file_prop -> {mstat} ? time - $file_prop -> {mstat} : 0;
if ( $ext_control_file{ $lc_ext } eq 'busy'
&& exists $self -> {maximum_session_time}
&& $self -> {maximum_session_time} * 2 < $age
) { # try to remove if maximum_session_time is defined and busy is older than it
$logger -> info( sprintf 'removing expired busy %s (%d seconds old)',
$file_prop -> {full_name},
$age,
);
unlink Encode::encode( locale_fs => $file_prop -> {full_name} )
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
=head1 OBJECT METHODS
=head2 scan
Scans outbound for all known domains. Old busy files might be removed.
Returns itself for chaining.
=cut
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
unless exists $self -> {domain_abbrev}{ $addr -> domain };
$addr;
}
=head2 is_busy
Expects one parameter - address as FTN::Addr object. Returns true if that address is busy (connection session, mail processing, ...).
=cut
sub is_busy {
my $logger = Log::Log4perl -> get_logger( __PACKAGE__ );
ref( my $self = shift ) or $logger -> logcroak( "I'm only an object method!" );
my $addr = $self -> _validate_addr( shift );
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
exists $self -> {scanned}{ $addr -> domain }
&& exists $self -> {scanned}{ $addr -> domain }{ $addr -> zone }
&& grep { exists $self -> {scanned}{ $addr -> domain }{ $addr -> zone }{ $_ }{ $addr -> net }
&& exists $self -> {scanned}{ $addr -> domain }{ $addr -> zone }{ $_ }{ $addr -> net }{ $addr -> node }
&& exists $self -> {scanned}{ $addr -> domain }{ $addr -> zone }{ $_ }{ $addr -> net }{ $addr -> node }{ $addr -> point }
&& exists $self -> {scanned}{ $addr -> domain }{ $addr -> zone }{ $_ }{ $addr -> net }{ $addr -> node }{ $addr -> point }{busy}
} keys %{ $self -> {scanned}{ $addr -> domain }{ $addr -> zone } };
}
sub _select_domain_zone_dir { # best one. for updating. for checking needs a list (another method or direct access to the structure)
# and makes one if it doesn't exist or isn't good enough (e.g. our_domain_abbr.our_zone)
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
# return ( dz_out, $points_dir) or full points directory path?
$self -> {scanned}{ $domain }{ $zone }{ $dz_out }{ $net }{ $node }{points_dir}{ $points_dir };
}
=head2 busy_protected_sub
Expects two parameters:
address going to be dealt with as a FTN::Addr object
function reference that will receive passed address and us ($self) as parameters and which should do all required operations related to the passed address.
This method infinitely waits (most likely will be changed in the future) until address is not busy. Then it creates busy flag and calls passed function reference providing itself as an argument for it. After function return removes created busy fla...
Returns itself for chaining.
=cut
sub busy_protected_sub { # address, sub_ref( self ). (order busy, execute sub, remove busy)
my $logger = Log::Log4perl -> get_logger( __PACKAGE__ );
ref( my $self = shift ) or $logger -> logcroak( "I'm only an object method!" );
my $addr = $self -> _validate_addr( shift );
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
my $sub_ref = shift;
$self -> scan
unless exists $self -> {scanned};
# check that it's not already busy
while ( $self -> is_busy( $addr ) ) {
sleep( 4 ); # waiting...
$self -> scan;
}
# here there is no busy flag for passed address. make it in the best dir then
my $busy_name;
if ( $addr -> point ) { # possible dir creation
$busy_name = File::Spec -> catfile( $self -> _select_points_dir( $addr -> domain,
$addr -> zone,
$addr -> net,
$addr -> node,
),
sprintf( '%08x',
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
} else {
my $dz_out = $self -> _select_domain_zone_dir( $addr -> domain,
$addr -> zone,
);
$busy_name = File::Spec -> catfile( $self -> {scanned}{ $addr -> domain }{ $addr -> zone }{ $dz_out }{dir},
sprintf( '%04x%04x',
$addr -> net,
$addr -> node,
),
);
}
$busy_name .= '.' . $control_file_extension{busy};
my $busy_name_fs = Encode::encode( locale_fs => $busy_name );
sysopen my $fh, $busy_name_fs, Fcntl::O_WRONLY | Fcntl::O_CREAT | Fcntl::O_EXCL
or $logger -> logdie( 'cannot open %s for writing: %s',
$busy_name,
$!,
);
flock $fh, Fcntl::LOCK_EX
or $logger -> logdie( q[can't flock file %s: %s],
$busy_name,
$!
);
# For information purposes a bsy file may contain one line of PID information (less than 70 characters).
printf $fh '%d %s',
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
$sub_ref -> ( $addr,
$self,
);
};
# remove busy first
close $fh;
unlink $busy_name_fs
or $logger -> logwarn( sprintf 'could not unlink %s: %s',
$busy_name,
$!,
);
if ( $@ ) { # something bad happened
$logger -> logdie( 'referenced sub execution failed: %s',
lib/FTN/Outbound/BSO.pm view on Meta::CPAN
Expects arguments:
address is going to be dealt with as a FTN::Addr object
file type is one of netmail, reference_file, file_request, busy, call, hold, try.
If file type is netmail or reference_file, then next parameter should be its flavour: immediate, crash, direct, normal, hold.
If optional function reference passed, then it will be called with one parameter - name of the file to process. After that information in internal structure about that file will be updated.
Does not deal with busy flag implicitly. Recommended usage is in the function passed to busy_protected_sub.
Returns full name of the file to process (might not exists yet though).
=cut
sub addr_file_to_change { # addr, type ( netmail, file_reference, .. ), [flavour], [ sub_ref( filename ) ].
# figures required filetype name (new or existing) and calls subref with that name.
# does not deal with busy implicitly
# returns full name of the file to be changed/created
my $logger = Log::Log4perl -> get_logger( __PACKAGE__ );
ref( my $self = shift ) or $logger -> logcroak( "I'm only an object method!" );
FWS-V2-SocketLabs
view release on metacpan or search on metacpan
lib/FWS/V2/SocketLabs.pm view on Meta::CPAN
2999 => "Other",
3001 => "Recipient mailbox full",
3002 => "Recipient email account is inactive or disabled",
3003 => "Greylist",
3999 => "Other",
4001 => "Recipient server too busy",
4002 => "Recipient server returned a data format error",
4003 => "Network error",
4004 => "Recipient server rejected message as too old",
4006 => "Recipient network or configuration error normally a relay denied",
4999 => "Other",
Farabi
view release on metacpan or search on metacpan
lib/Farabi/files/public/assets/codemirror/mode/asterisk/asterisk.js view on Meta::CPAN
var atoms = ["exten", "same", "include","ignorepat","switch"],
dpcmd = ["#include","#exec"],
apps = [
"addqueuemember","adsiprog","aelsub","agentlogin","agentmonitoroutgoing","agi",
"alarmreceiver","amd","answer","authenticate","background","backgrounddetect",
"bridge","busy","callcompletioncancel","callcompletionrequest","celgenuserevent",
"changemonitor","chanisavail","channelredirect","chanspy","clearhash","confbridge",
"congestion","continuewhile","controlplayback","dahdiacceptr2call","dahdibarge",
"dahdiras","dahdiscan","dahdisendcallreroutingfacility","dahdisendkeypadfacility",
"datetime","dbdel","dbdeltree","deadagi","dial","dictate","directory","disa",
"dumpchan","eagi","echo","endwhile","exec","execif","execiftime","exitwhile","extenspy",
Feed-Data
view release on metacpan or search on metacpan
t/data/theory.atom view on Meta::CPAN
<name>David E. Wheeler</name>
</author>
<content type="text/html" xml:base="http://www.justatheory.com" xml:lang="en-us" xml:space="preserve" mode="escaped">
<p><a href="http://pgexperts.com/">PGX</a> had <a href="http://gluefinance.com/">a client</a> come to us recently with a rather nasty deadlock issue. It took far longer than we would have liked to figure out the issue, a...
<p>Some might consider it a bug in PostgreSQL, but the truth is that PostgreSQL can obtain stronger than necessary locks. Such locks cause some operations to block unnecessarily and some other operations to deadlock, especially when foreign key...
<p>Fortunately, Simon Riggs <a href="http://www.mail-archive.com/pgsql-hackers@postgresql.org/msg158205.html">proposed a solution</a>. And it&rsquo;s a good one. So good that <a href="http://pgexperts.com/">PGX</a> i...
<p>If you use foreign key constraints (and you should!) and you have a high transaction load on your database (or expect to soon!), this matters to you. In fact, if you use ActiveRecord with Rails, there might even be a special place in your he...
Feed-Pipe
view release on metacpan or search on metacpan
t/atom1.atom view on Meta::CPAN
<category term="perl" label="Perl" />
<content type="xhtml" xml:lang="en" xml:base="http://www.webquills.net/web-development/perl/">
<div xmlns="http://www.w3.org/1999/xhtml"><h1 id="themooseisonfire">The Moose is on fire!</h1>
<p><a href="http://www.shadowcat.co.uk/blog/matt-s-trout/iron-man/">Matt S. Trout suggested</a> that we Perl people should be posting to our blogs weekly, rather than weakly. It's hard to argue against that, so here's my first in an attempted string ...
<p>This week I was strongly inspired by all the yummy goodness happening around the <a href="http://search.cpan.org/perldoc?Moose">Moose</a> project. The <a href="http://www.catalystframework.org/">Catalyst framework</a> is now <a href="http://jjnapi...
<p>With both jrock and chromatic writing about how cool <a href="http://search.cpan.org/perldoc?MooseX::Declare">MooseX::Declare</a> is, it got me itching to try it out for myself. I've been way too busy for hobby coding in the last couple of months,...
</div>
</content>
</entry>
<entry>
<title>What do you get if you cross Perl CGI with Mod-PHP? </title>
File-Copy-Recursive
view release on metacpan or search on metacpan
# File::Copy::Recursive round 2
I have gotten much love from this module but it has suffered from neglect. Partly because I am busy and partly that the code is crusty (it was done back when package globals were all the rage–those of you with CGI tatoos know what I am talking abou...
So I am finally making a plan to give this the attention it deserves.
## Goals
File-DirSync
view release on metacpan or search on metacpan
lib/File/DirSync.pm view on Meta::CPAN
rebuild() has already rebuilt the source cache.
=head2 gentle( [ <percent> [, <ops> ] ] )
Specify gentleness for all disk operations.
This is useful for those servers with very busy disk drives
and you need to slow down the sync process in order to allow
other processes the io slices they demand.
The <percent> is the realtime percentage of time you wish to
be sleeping instead of doing anything on the hard drive,
i.e., a low value (1) will spend most of the time working
File-KDBX
view release on metacpan or search on metacpan
lib/File/KDBX/Key/YubiKey.pm view on Meta::CPAN
my $exit_code = $r->{exit_code};
if ($exit_code != 0) {
my $err = $r->{stderr};
chomp $err;
my $yk_errno = _yk_errno($err);
if ($yk_errno == YK_EUSBERR && $err =~ /resource busy/i && ++$try <= $RETRY_COUNT) {
sleep $RETRY_INTERVAL;
goto TRY;
}
throw 'Failed to receive challenge response: ' . ($err ? $err : 'Something happened'),
error => $err,
File-Listing
view release on metacpan or search on metacpan
maint/apache/httpd.conf view on Meta::CPAN
#LoadModule http2_module modules/mod_http2.so
#LoadModule proxy_http2_module modules/mod_proxy_http2.so
#LoadModule md_module modules/mod_md.so
#LoadModule lbmethod_byrequests_module modules/mod_lbmethod_byrequests.so
#LoadModule lbmethod_bytraffic_module modules/mod_lbmethod_bytraffic.so
#LoadModule lbmethod_bybusyness_module modules/mod_lbmethod_bybusyness.so
#LoadModule lbmethod_heartbeat_module modules/mod_lbmethod_heartbeat.so
LoadModule unixd_module modules/mod_unixd.so
#LoadModule heartbeat_module modules/mod_heartbeat.so
#LoadModule heartmonitor_module modules/mod_heartmonitor.so
#LoadModule dav_module modules/mod_dav.so
File-NFSLock
view release on metacpan or search on metacpan
t/240_fork_ex.t view on Meta::CPAN
# and attempt relock before child
# even calls newpid() the first time.
sleep 2;
$lock1->newpid;
# Act busy for a while
sleep 5;
# Now release lock
exit;
} else {
File-Rsync-Mirror-Recent
view release on metacpan or search on metacpan
last out of band change? dirtymark?
Anyway, this implies that we read a potentially existing recentfile
before we write one.
And it implies that we have an eventloop that keeps us busy in 2-3
cycles, one for current stuff (tight loop) and one for the recentfiles
(cascade when principal has changed), one for the old stuff after a
dirtymark change.
And it implies that the out-of-band change in any of the recentfiles
File-Scan-ClamAV
view release on metacpan or search on metacpan
- Figure out windows support
- enable timeout for _send() to not get stuck waiting on a busy clamd
File-Tail
view release on metacpan or search on metacpan
while ($nlen>0) {
$len=sysread($object->{handle},$object->{"buffer"},
$nlen,length($object->{"buffer"}));
$object->{"buffer"} =~ s/\015\012/\n/g if $Is_Win32;
last if $len==0; # Some busy filesystems return 0 sometimes,
# and never give anything more from then on if
# you don't give them time to rest. This return
# allows File::Tail to use the usual exponential
# backoff.
$nlen=$nlen-$len;
The primary purpose of File::Tail is reading and analysing log files while
they are being written, which is especialy usefull if you are monitoring
the logging process with a tool like Tobias Oetiker's MRTG.
The module tries very hard NOT to "busy-wait" on a file that has little
traffic. Any time it reads new data from the file, it counts the number
of new lines, and divides that number by the time that passed since data
were last written to the file before that. That is considered the average
time before new data will be written. When there is no new data to read,
C<File::Tail> sleeps for that number of seconds. Thereafter, the waiting
File-Takeput
view release on metacpan or search on metacpan
lib/File/Takeput.pm view on Meta::CPAN
=head1 DESCRIPTION
Slurp style file IO with locking. The purpose of Takeput is to make it pleasant for you to script file IO. Slurp style is both user friendly and very effective if you can have your files in memory.
The other major point of Takeput is locking. Takeput is careful to help your script be a good citizen in a busy filesystem. All its file operations respect and set flock locking.
If your script misses a lock and does not release it, the lock will be released when your script terminates.
Encoding is often part of file IO operations, but Takeput keeps out of that. It reads and writes file content just as strings of bytes, in a sort of line-based binmode. Use some other module if you need decoding and encoding. For example:
File-Util
view release on metacpan or search on metacpan
1.10 2002-03-14
- Constants are now class attributes independent of the constructor method.
File::Util objects should always get these constants regardless.
- Constants and OS identification extended upon code from CGI.pm v.2.78
(go Lincoln, it's your birthday, get busy...) as such, File::Util got path
separator help to better support a wider variety of platforms.
- Additionally, constants contributed to a major overhaul of how File::Util
handles newlines.
Filesys-POSIX
view release on metacpan or search on metacpan
lib/Filesys/POSIX.pm view on Meta::CPAN
=item * ENOENT (No such file or directory)
No inode exists by the name specified in the final component of the path in
the parent directory specified in the path.
=item * EBUSY (Device or resource busy)
The directory specified is an active mount point.
=item * ENOTDIR (Not a directory)
( run in 1.471 second using v1.01-cache-2.11-cpan-87723dcf8b7 )