AIX::ODM - A Perl module for retrieving IBM AIX ODM information SYNOPSIS use AIX::ODM; my %odm = odm_dump('C|P'); while ( ($ndx1, $lev2) = each %odm ) { while ( ($ndx2, $val) = each %$lev2 ) { print "odm{${ndx1}}{${ndx2}} = ${odm{${ndx1}}{${ndx2}}}\n"; } } my %dev = odm_classes('C|P'); foreach ${devname} ( keys %dev ) { print "dev{${devname}} = ${dev{${devname}}}\n"; } my %attribs = odm_attributes(${dev{'devname'}}; foreach ${attrname} ( keys %attribs ) { print "attribs{${attrname}} = ${attribs{${attrname}}}\n"; } my ${devclass} = odm_class('C|P',${dev{'devname'}); my ${devsubcl} = odm_subclass('C|P',${dev{'devname'}); DESCRIPTION This module provides a Perl interface for accessing ODM information about an RS/6000 / pSeries machine running the AIX operating system. It makes available several functions, which return hashes of values containing device information and their attributes. The syntax examples shown above as 'C|P' should be read as "C" OR "P", meaning the argument should consist of a single quoted letter "C" or "P", but NOT both. VERSION 1.0.2 (released 2004-09-15) BUGS No bugs are known at this time. TO-DO AUTHOR Dana French COPYRIGHT/LICENSE Copyright (c) 2004, Dana French. This module is free software. It may be used, redistributed, and/or modified under the terms of the Perl Artistic License.