|
/Users/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Nagios-Cmd/blib/lib/Nagios/Cmd/Read.pm |
Nagios::Cmd
A module for reading a fifo or regular file similar to the way Nagios does.
use Nagios::Cmd; use Nagios::Cmd::Read; use POSIX qw/mkfifo/;
my $fifo = '/var/tmp/test.pipe'; mkfifo( $fifo, 600 ); my $writer = Nagios::Cmd->new( $fifo ); my $reader = Nagios::Cmd::Read->new( $fifo );
$writer->service_check('SSH', 'localhost', 0, 'version 1 waiting');
print $reader->readcmd(), " was written to $fifo\n";
new()my $reader = Nagios::Cmd::Read->new( $fifo );
new_anyfile()my $reader = Nagios::Cmd::Read->new_anyfile( '/tmp/commands.txt' );
readcmd()sysseek() will
be used to rewind to the top of the file (which may not be what you want).
To turn of seeking for regular files, call $object->seek(undef);.
seek()$reader->seek(undef); # turn off seeking $reader->seek(1); # turn it back on
Nagios::Cmd::Read::seek(undef);
safe()flock() on/off. Setting it to a defined value will enable
flock()ing of filehandles before reading. Setting to undef turns it off.
$reader->lock(1); # turn on use of flock() around reads $reader->lock(undef); # turn it off
Nagios::Cmd::Read::lock(1);
Al Tobey <tobeya@cpan.org>
|
/Users/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Nagios-Cmd/blib/lib/Nagios/Cmd/Read.pm |