Gecko [ hyougo-truck-kaitori.com ]

Name	Size	Permission
AnyEvent	[ DIR ]	drwxr-xr-x
Astro	[ DIR ]	drwxr-xr-x
Attribute	[ DIR ]	drwxr-xr-x
Authen	[ DIR ]	drwxr-xr-x
B	[ DIR ]	drwxr-xr-x
BSD	[ DIR ]	drwxr-xr-x
BerkeleyDB	[ DIR ]	drwxr-xr-x
Bit	[ DIR ]	drwxr-xr-x
Bundle	[ DIR ]	drwxr-xr-x
CBOR	[ DIR ]	drwxr-xr-x
CGI	[ DIR ]	drwxr-xr-x
Cache	[ DIR ]	drwxr-xr-x
Cairo	[ DIR ]	drwxr-xr-x
Chemistry	[ DIR ]	drwxr-xr-x
Class	[ DIR ]	drwxr-xr-x
Compress	[ DIR ]	drwxr-xr-x
Convert	[ DIR ]	drwxr-xr-x
Cpanel	[ DIR ]	drwxr-xr-x
Crypt	[ DIR ]	drwxr-xr-x
DBD	[ DIR ]	drwxr-xr-x
DBI	[ DIR ]	drwxr-xr-x
Data	[ DIR ]	drwxr-xr-x
Date	[ DIR ]	drwxr-xr-x
DateTime	[ DIR ]	drwxr-xr-x
Devel	[ DIR ]	drwxr-xr-x
Device	[ DIR ]	drwxr-xr-x
Digest	[ DIR ]	drwxr-xr-x
EV	[ DIR ]	drwxr-xr-x
Encode	[ DIR ]	drwxr-xr-x
Event	[ DIR ]	drwxr-xr-x
File	[ DIR ]	drwxr-xr-x
Filesys	[ DIR ]	drwxr-xr-x
Filter	[ DIR ]	drwxr-xr-x
GD	[ DIR ]	drwxr-xr-x
GSSAPI	[ DIR ]	drwxr-xr-x
Geo	[ DIR ]	drwxr-xr-x
Glib	[ DIR ]	drwxr-xr-x
Gtk2	[ DIR ]	drwxr-xr-x
HTML	[ DIR ]	drwxr-xr-x
HTTP	[ DIR ]	drwxr-xr-x
Hash	[ DIR ]	drwxr-xr-x
IO	[ DIR ]	drwxr-xr-x
IPC	[ DIR ]	drwxr-xr-x
Image	[ DIR ]	drwxr-xr-x
Inline	[ DIR ]	drwxr-xr-x
JSON	[ DIR ]	drwxr-xr-x
Judy	[ DIR ]	drwxr-xr-x
Lexical	[ DIR ]	drwxr-xr-x
Lingua	[ DIR ]	drwxr-xr-x
Linux	[ DIR ]	drwxr-xr-x
List	[ DIR ]	drwxr-xr-x
Locale	[ DIR ]	drwxr-xr-x
Lucy	[ DIR ]	drwxr-xr-x
LucyX	[ DIR ]	drwxr-xr-x
Mail	[ DIR ]	drwxr-xr-x
Math	[ DIR ]	drwxr-xr-x
Moose	[ DIR ]	drwxr-xr-x
MooseX	[ DIR ]	drwxr-xr-x
Mouse	[ DIR ]	drwxr-xr-x
Mozilla	[ DIR ]	drwxr-xr-x
Net	[ DIR ]	drwxr-xr-x
NetAddr	[ DIR ]	drwxr-xr-x
NetSNMP	[ DIR ]	drwxr-xr-x
OpenGL	[ DIR ]	drwxr-xr-x
PCP	[ DIR ]	drwxr-xr-x
PDL	[ DIR ]	drwxr-xr-x
POD2	[ DIR ]	drwxr-xr-x
POSIX	[ DIR ]	drwxr-xr-x
Package	[ DIR ]	drwxr-xr-x
Pango	[ DIR ]	drwxr-xr-x
Params	[ DIR ]	drwxr-xr-x
Perl	[ DIR ]	drwxr-xr-x
PerlIO	[ DIR ]	drwxr-xr-x
PerlReq	[ DIR ]	drwxr-xr-x
Prima	[ DIR ]	drwxr-xr-x
Proc	[ DIR ]	drwxr-xr-x
QtCore4	[ DIR ]	drwxr-xr-x
Razor2	[ DIR ]	drwxr-xr-x
Readonly	[ DIR ]	drwxr-xr-x
Ref	[ DIR ]	drwxr-xr-x
SGML	[ DIR ]	drwxr-xr-x
SVN	[ DIR ]	drwxr-xr-x
Scalar	[ DIR ]	drwxr-xr-x
Sereal	[ DIR ]	drwxr-xr-x
Socket	[ DIR ]	drwxr-xr-x
Sort	[ DIR ]	drwxr-xr-x
Squirrel	[ DIR ]	drwxr-xr-x
String	[ DIR ]	drwxr-xr-x
Sub	[ DIR ]	drwxr-xr-x
Sys	[ DIR ]	drwxr-xr-x
Taint	[ DIR ]	drwxr-xr-x
Template	[ DIR ]	drwxr-xr-x
Term	[ DIR ]	drwxr-xr-x
Test	[ DIR ]	drwxr-xr-x
Text	[ DIR ]	drwxr-xr-x
Tie	[ DIR ]	drwxr-xr-x
Time	[ DIR ]	drwxr-xr-x
Tk	[ DIR ]	drwxr-xr-x
UNIVERSAL	[ DIR ]	drwxr-xr-x
URL	[ DIR ]	drwxr-xr-x
Unicode	[ DIR ]	drwxr-xr-x
Unix	[ DIR ]	drwxr-xr-x
Variable	[ DIR ]	drwxr-xr-x
WWW	[ DIR ]	drwxr-xr-x
Win	[ DIR ]	drwxr-xr-x
XML	[ DIR ]	drwxr-xr-x
YAML	[ DIR ]	drwxr-xr-x
ZMQ	[ DIR ]	drwxr-xr-x
auto	[ DIR ]	drwxr-xr-x
autobox	[ DIR ]	drwxr-xr-x
threads	[ DIR ]	drwxr-xr-x
true	[ DIR ]	drwxr-xr-x
version	[ DIR ]	drwxr-xr-x
AE.pm	5.27 KB	-r--r--r--
AnyEvent.pm	109.45 KB	-r--r--r--
BDB.pm	29.52 KB	-rw-r--r--
BerkeleyDB.pm	40.3 KB	-rw-r--r--
BerkeleyDB.pod	75.4 KB	-rw-r--r--
CDB_File.pm	10.42 KB	-rw-r--r--
Cairo.pm	27.13 KB	-rw-r--r--
Cflow.pm	28.93 KB	-rw-r--r--
ClearSilver.pm	1.18 KB	-rw-r--r--
Clone.pm	2 KB	-rw-r--r--
Curses.pm	34.98 KB	-rw-r--r--
Cwd.pm	21.25 KB	-rw-r--r--
DBI.pm	304.17 KB	-rw-r--r--
DB_File.pm	62.24 KB	-rw-r--r--
DDS.pm	385 B	-rw-r--r--
DP.pm	458 B	-rw-r--r--
DateTime.pm	115.31 KB	-rw-r--r--
DateTimePP.pm	5.12 KB	-rw-r--r--
DateTimePPExtra.pm	1.33 KB	-rw-r--r--
EV.pm	39.37 KB	-rw-r--r--
Encode.pm	32.17 KB	-rw-r--r--
Event.pm	4.96 KB	-rw-r--r--
Event.pod	29.58 KB	-rw-r--r--
FCGI.pm	7.36 KB	-rw-r--r--
Fuse.pm	28.37 KB	-rw-r--r--
GD.pm	59.18 KB	-rw-r--r--
GSSAPI.pm	11.24 KB	-rw-r--r--
GTop.pm	1.65 KB	-rw-r--r--
GTop.pod	6.66 KB	-rw-r--r--
Glib.pm	22.58 KB	-rw-r--r--
Gtk2.pm	13.79 KB	-rw-r--r--
Guard.pm	6.26 KB	-rw-r--r--
Hamlib.pm	104.93 KB	-r--r--r--
Judy.pm	3.16 KB	-rw-r--r--
Judy.pod	8.15 KB	-rw-r--r--
Lchown.pm	1.84 KB	-rw-r--r--
Libnodeupdown.pm	7.05 KB	-rw-r--r--
Lucy.pm	15.56 KB	-rw-r--r--
Lucy.pod	5.66 KB	-rw-r--r--
Moose.pm	37.24 KB	-rw-r--r--
Mouse.pm	11.83 KB	-rw-r--r--
NKF.pm	9.13 KB	-r--r--r--
Newt.pm	34.88 KB	-rw-r--r--
Nodeupdown.pm	9.08 KB	-rw-r--r--
OpenGL.pm	138.73 KB	-rw-r--r--
OpenGL.pod	37.34 KB	-rw-r--r--
PDL.pm	5.8 KB	-rw-r--r--
PadWalker.pm	4.1 KB	-rw-r--r--
Pango.pm	3.77 KB	-rw-r--r--
Phonon.pm	1.62 KB	-rw-r--r--
Prelude.pm	22.34 KB	-r--r--r--
Prima.pm	12.86 KB	-rw-r--r--
QImageBlitz.pm	1.66 KB	-rw-r--r--
Qsci.pm	1.61 KB	-rw-r--r--
Qt3Support4.pm	4.81 KB	-rw-r--r--
QtCore4.pm	62.88 KB	-rw-r--r--
QtDBus4.pm	2.99 KB	-rw-r--r--
QtDeclarative4.pm	1.69 KB	-rw-r--r--
QtGui4.pm	2.59 KB	-rw-r--r--
QtHelp4.pm	1.63 KB	-rw-r--r--
QtMultimedia4.pm	1.68 KB	-rw-r--r--
QtNetwork4.pm	1.65 KB	-rw-r--r--
QtOpenGL4.pm	1.65 KB	-rw-r--r--
QtScript4.pm	1.65 KB	-rw-r--r--
QtSql4.pm	1.62 KB	-rw-r--r--
QtSvg4.pm	1.54 KB	-rw-r--r--
QtTest4.pm	2.41 KB	-rw-r--r--
QtUiTools4.pm	1.65 KB	-rw-r--r--
QtWebKit4.pm	1.65 KB	-rw-r--r--
QtXml4.pm	1.62 KB	-rw-r--r--
QtXmlPatterns4.pm	1.68 KB	-rw-r--r--
Qwt.pm	1.6 KB	-rw-r--r--
RPM2.pm	17.02 KB	-rw-r--r--
RRDp.pm	5.37 KB	-r--r--r--
RRDs.pm	4.13 KB	-r--r--r--
SNMP.pm	78.26 KB	-r--r--r--
Socket.pm	35.47 KB	-rw-r--r--
Socket6.pm	9.57 KB	-rw-r--r--
Squirrel.pm	1.76 KB	-rw-r--r--
Storable.pm	42.12 KB	-rw-r--r--
Template.pm	24.41 KB	-rw-r--r--
Tk.pm	18.09 KB	-rw-r--r--
Tk.pod	6.24 KB	-rw-r--r--
Want.pm	17.56 KB	-rw-r--r--
autobox.pm	13.35 KB	-rw-r--r--
autobox.pod	17.49 KB	-rw-r--r--
autovivification.pm	6.56 KB	-rw-r--r--
bun-x.pl	1.22 KB	-rwxr-xr-x
ccom.pm	2.08 KB	-rw-r--r--
dbixs_rev.pl	1.51 KB	-rwxr-xr-x
encoding.pm	20.04 KB	-rw-r--r--
fake.pm	1.32 KB	-rw-r--r--
gencls.pod	16.83 KB	-rw-r--r--
indirect.pm	9.18 KB	-rw-r--r--
metaclass.pm	2.93 KB	-rw-r--r--
oose.pm	2.32 KB	-rw-r--r--
ouse.pm	1.86 KB	-rw-r--r--
qd.pl	32.03 KB	-rwxr-xr-x
threads.pm	34.48 KB	-rw-r--r--
true.pm	4.64 KB	-rw-r--r--
version.pm	2.85 KB	-rw-r--r--
version.pod	9.6 KB	-rw-r--r--
yui.so	1.58 MB	-rwxr-xr-x

Code Editor : Nodeupdown.pm

#############################################################################
#  $Id: Nodeupdown.pm.in,v 1.9 2010-02-02 00:01:53 chu11 Exp $
#############################################################################
#  Copyright (C) 2007-2011 Lawrence Livermore National Security, LLC.
#  Copyright (C) 2003-2007 The Regents of the University of California.
#  Produced at Lawrence Livermore National Laboratory (cf, DISCLAIMER).
#  Written by Albert Chu <chu11@llnl.gov>
#  UCRL-CODE-155699
#  
#  This file is part of Whatsup, tools and libraries for determining up and
#  down nodes in a cluster. For details, see http://www.llnl.gov/linux/.
#  
#  Whatsup is free software; you can redistribute it and/or modify 
#  it under the terms of the GNU General Public License as published by the 
#  Free Software Foundation; either version 2 of the License, or (at your 
#  option) any later version.
#  
#  Whatsup is distributed in the hope that it will be useful, but 
#  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
#  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License 
#  for more details.
#  
#  You should have received a copy of the GNU General Public License along
#  with Whatsup.  If not, see <http://www.gnu.org/licenses/>.
#############################################################################

package Nodeupdown;

use strict;
use Libnodeupdown;

our $VERSION = "0.01";

require Exporter;
our @ISA = qw(Exporter);

our @EXPORT_OK = qw(&_errormsg 
                    $debugkey 
                    $handlekey
                    $hostkey
                    $portkey
                    $NODEUPDOWN_TIMEOUT_LEN);
our %EXPORT_TAGS = ( 'all' => [ qw(&_errormsg 
                                   $debugkey 
                                   $handlekey
                                   $hostkey
                                   $portkey 
                                   $timeoutlenkey) ] );

our $debugkey = "_DEBUG";
our $handlekey = "_HANDLE";
our $hostkey = "_HOST";
our $portkey = "_PORT";
our $timeoutlenkey = "_TIMEOUTLEN";

sub _errormsg {
    my $self = shift;
    my $msg = shift;
    my $str;

if ($self->{$debugkey}) {
        $str = $self->{$handlekey}->nodeupdown_errormsg();
        print STDERR "Error: $msg, $str\n";
    }
}

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $hostname = shift;
    my $port = shift;
    my $timeoutlen = shift;    
    my $self = {};
    my $handle;
    my $rv;
    
    if (defined($hostname)) {
        $self->{$hostkey} = $hostname;
    }
    else {
        $self->{$hostkey} = undef;
    }

if (defined($port)) {
        $self->{$portkey} = $port;
    }
    else {
        $self->{$portkey} = 0;
    }

if (defined($timeoutlen)) {
        $self->{$timeoutlenkey} = $timeoutlen;
    }
    else {
        $self->{$timeoutlenkey} = 0;
    }

$self->{$debugkey} = 0;
    
    $handle = Libnodeupdown->nodeupdown_handle_create();
    if (!defined($handle)) {
        _errormsg($self, "nodeupdown_handle_create()");
        return undef;
    }

$self->{$handlekey} = $handle;

$rv = $self->{$handlekey}->nodeupdown_load_data($self->{$hostkey},
           	                                    $self->{$portkey},
                	                            $self->{$timeoutlenkey},
                                                    undef);
    if ($rv < 0) {
        _errormsg($self, "nodeupdown_load_data()");
        return undef;
    }

bless ($self, $class);
    return $self;
}

sub debug {
    my $self = shift;
    my $num = shift;

if (ref($self)) {
        if (defined $num) {
            $self->{$debugkey} = $num;
        }
    }
}

sub up_nodes {
    my $self = shift;
    my $rv;

if (ref($self)) {

if (!wantarray) {
            $rv = $self->{$handlekey}->nodeupdown_get_up_nodes_string();
            if (!defined($rv)) {
                _errormsg($self,"nodeupdown_get_up_nodes_string");
                return "";
            }
            return $rv;
        }
        else {
            $rv = $self->{$handlekey}->nodeupdown_get_up_nodes_list();
            if (!defined($rv)) {
                _errormsg($self,"nodeupdown_get_up_nodes_list");
                return ();
            }
            return @$rv;
        }
    }
    else {
        if (!wantarray) {
            return "";
        }
        else {
            return ();
        }
    }
}

sub down_nodes {
    my $self = shift;
    my $rv;

if (ref($self)) {

if (!wantarray) {
            $rv = $self->{$handlekey}->nodeupdown_get_down_nodes_string();
            if (!defined($rv)) {
                _errormsg($self,"nodeupdown_get_down_nodes_string");
                return "";
            }
            return $rv;
        }
        else {
            $rv = $self->{$handlekey}->nodeupdown_get_down_nodes_list();
            if (!defined($rv)) {
                _errormsg($self,"nodeupdown_get_down_nodes_list");
                return ();
            }
            return @$rv;
        }
    }
    else {
        if (!wantarray) {
            return "";
        }
        else {
            return ();
        }
    }
}

sub are_up {
    my $self = shift;
    my @list = @_;
    my $found;
    my $testnode;
    my $rv = 1;

if (defined($self)) {

if (@list == 0) {
            return 0;
        }

foreach $testnode (@list) {
            $found = 0;
            $found = $self->{$handlekey}->nodeupdown_is_node_up($testnode);
            
            if ($found < 0) {
                _errormsg($self,"nodeupdown_is_node_up");
                return 0;
            }
            if ($found == 0) {
                $rv = 0;
                last;
            }
        }
        return $rv;
    }
    else {
        return 0;
    }
}

sub are_down {
    my $self = shift;
    my @list = @_;
    my $found;
    my $testnode;
    my $rv = 1;

if (defined($self)) {

if (@list == 0) {
            return 0;
        }

foreach $testnode (@list) {
            $found = 0;
            $found = $self->{$handlekey}->nodeupdown_is_node_down($testnode);
            
            if ($found < 0) {
                _errormsg($self,"nodeupdown_is_node_down");
                return 0;
            }
            if ($found == 0) {
                $rv = 0;
                last;
            }
        }
        return $rv;
    }
    else {
        return 0;
    }
}

sub up_count {
    my $self = shift;
    my $rv;

if (defined($self)) {

$rv = $self->{$handlekey}->nodeupdown_up_count();
        if ($rv < 0) {
            _errormsg($self,"nodeupdown_up_count");
            return 0;
        }
        return $rv;
    }
    else {
        return 0;
    }
}

sub down_count {
    my $self = shift;
    my $rv;

if (defined($self)) {

$rv = $self->{$handlekey}->nodeupdown_down_count();
        if ($rv < 0) {
            _errormsg($self,"nodeupdown_down_count");
            return 0;
        }
        return $rv;
    }
    else {
        return 0;
    }
}

__END__

=head1 NAME

Nodeupdown - Perl API for determining up and down nodes

=head1 SYNOPSIS

use Nodeupdown;

$obj = Nodeupdown->new([$host, [$port [$timeoutlen]]])

$upnodes = $obj->up_nodes()
 @uplist  = $obj->up_nodes()

$downnodes = $obj->down_nodes()
 @downlist  = $obj->down_nodes()

$bool = $obj->are_up(@nodes)
 $bool = $obj->are_down(@nodes)

$num = $obj->up_count()
 $num = $obj->down_count()

=head1 DESCRIPTION

This package provides a Perl API for determining up and down nodes

=over 4

=item B<Nodeupdown-E<gt>new([$host, [$port]])>

Creates and returns a Nodeupdown object.  If the host, port, or
timeoutlen, are not specified, default values are assumed.  On error,
undef is returned.

=item B<$obj-E<gt>up_nodes()>

Return the up nodes in a cluster.  If the context in which the 
subroutine is invoked is looking for a scalar, a hostlist formatted
string of up nodes will be returned.  If the context in which the 
subroutine is invoked is looking for a list, a list containing
each up node will be returned.

=item B<$obj-E<gt>down_nodes()>

Return the down nodes in a cluster.  If the context in which the 
subroutine is invoked is looking for a scalar, a hostlist formatted
string of down nodes will be returned.  If the context in which the 
subroutine is invoked is looking for a list, a list containing
each down node will be returned.

=item B<$obj-E<gt>are_up(@nodes)>

Returns 1 is all the nodes passed in are determined as up.  Returns 0
if any node passed is not up.

=item B<$obj-E<gt>are_down(@nodes)>

Returns 1 is all the nodes passed in are determined as down.  Returns 0
if any node passed is not down.

=item B<$obj-E<gt>up_count()>

Returns the number of up nodes.

=item B<$obj-E<gt>down_count()>

Returns the number of down nodes.

=back

=head1 BUGS

Please be careful with the semantics of B<are_up()> and B<are_down()>.
Just because a node is not up, does not mean it is down.  For example,
if an improper node name is used (e.g. $obj->are_up("foobar"),
$obj->are_down("foobar")), both B<are_up()> and B<are_down()> will
fail.

=head1 AUTHOR

Albert Chu E<lt>chu11@llnl.govE<gt>

=head1 SEE ALSO

L<libnodeupdown>.

L<whatsup>.

${this.title}

Code Editor : Nodeupdown.pm