LSF::Hosts - Retrieve information about LSF hosts.

LSF-Hosts documentation

Contained in the LSF-Hosts distribution.

Index

NAME
VERSION
SYNOPSIS
DESCRIPTION
INHERITS FROM
CONSTRUCTOR
- new( [ [HOST_NAME] ] );
HISTORY
SEE ALSO
AUTHOR
COPYRIGHT

Code Index:

package LSF::Hosts
- import
- new
__END__
EOF

NAME

LSF::Hosts - Retrieve information about LSF hosts.

VERSION

0.1

SYNOPSIS

use LSF::Hosts;

use LSF::Hosts RaiseError => 0, PrintError => 1, PrintOutput => 0;

($hinfo) = LSF::Hosts->new( [HOST_NAME] );

@hosts = LSF::Hosts->new();

DESCRIPTION

LSF::Hosts is a wrapper arround the LSF 'bhosts' command used to obtain information about lsf hosts. The hash keys of the object are LSF bhosts header values. See the 'bhosts' man page for more information.

INHERITS FROM

LSF

CONSTRUCTOR

new( [ [HOST_NAME] ] );: With a valid hostname, creates a new LSF::Hosts object. Without a hostname returns a list of LSF::Hosts objects for all the hosts in the system. Takes no arguments (jet).

HISTORY

Based on (read ripped from) LSF::Queues by Mark Southern (mark_southern@merck.com).

SEE ALSO

LSF, bhosts

AUTHOR

Aukjan van Belkum (aukjan@cpan.org)

COPYRIGHT

Copyright (c) 2005, Aukjan van Belkum. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)

LSF-Hosts documentation

Contained in the LSF-Hosts distribution.

package LSF::Hosts;

use strict;
use warnings;
use base qw( LSF );
use IPC::Run qw( run );
our $VERSION = '0.01';

sub import
{
  my ( $self, %p ) = @_;
  $p{RaiseError}  ||= 1;
  $p{PrintOutput} ||= 1;
  $p{PrintError}  ||= 1;
  $self->PrintOutput( $p{PrintOutput} ) if exists $p{PrintOutput};
  $self->PrintError( $p{PrintError} )   if exists $p{PrintError};
  $self->RaiseError( $p{RaiseError} )   if exists $p{RaiseError};
}

sub new
{
  my ( $class, @params ) = @_;
  my @output = $class->do_it( 'bhosts', '-l' );
  return unless @output;
  my @hosts;
  my $host;
  my @keys = qw(STATUS CPUF JL/U MAX NJOBS RUN SSUSP USUSP RSV DISPATCH_WINDOW);
  foreach ( split( /\n/, $output[0] ) ) {
    if ( /HOST/ .. /^\s*$/ ) {
      my $hostline = $_;
      if (/HOST\s+(\S+)/) {
        $host = {};
        $host->{HOST_NAME} = $1;
      }
      if ( !( /HOST/ || /STATUS/ || /^\s*$/ ) ) {
        my @values = split /\s+/, $hostline;
        for ( 0 .. @keys - 1 ) { $host->{ $keys[$_] } = $values[$_]; }
        bless $host, $class;
        push @hosts, $host;
      }
    }
  }
  return @hosts;
}

1;

__END__