The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

IBM::StorageSystem::Mount - Class for operations with IBM StorageSystem mounts

VERSION

Version 0.01

SYNOPSIS

IBM::StorageSystem::Mount - Class for operations with IBM StorageSystem mount

        use IBM::StorageSystem;
        
        my $ibm = IBM::StorageSystem->new(      user            => 'admin',
                                        host            => 'my-v7000',
                                        key_path        => '/path/to/my/.ssh/private_key'
                                ) or die "Couldn't create object! $!\n";

        # Print mount status of file system fs1
        print "Mount status: " . $ibm->mount(fs1) . "\n";

        # Print only those file system that aren't mounted
        map { print $_->file_system . " is not mounted.\n" } 
        grep { $_->mount_status ne 'mounted' }
        $ibm->get_mounts;

METHODS

file_system

Returns the name of the file system.

mount_status

Returns the mount status of the file system.

nodes

Returns a comma-separated list of the nodes on which the file system is mounted.

last_update

Returns a timestamp of the last time the CTDB mount status was updated.

AUTHOR

Luke Poskitt, <ltp at cpan.org>

BUGS

Please report any bugs or feature requests to bug-ibm-v7000-mount at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=IBM-StorageSystem-Mount. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc IBM::StorageSystem::Mount

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

Copyright 2013 Luke Poskitt.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.