The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
VMS-System-1_05
River stage zero No dependents
++
/ VMS::System

NAME

VMS::System - Retrieves status and identification information from OpenVMS system(s).

SYNOPSIS

  use VMS::System;

VMS::System will can access either system info for any node in the cluster (what info is available depends on whether you're local to the node being accessed or not), or parameters set by SYSGEN for the local node.

In the cases below where the node name is marked as optional (i.e. in square brackets), leaving it off returns only the information that's valid for the node the process is running on.

Return a list of all the node names in the cluster:

  @NodeList = VMS::System::node_list();

Routine to return a reference to a hash with all the system info for the node loaded into it:

  $SysInfo = VMS::System::get_all_sys_info_items([nodename]);
  $archtype = $SysInfo->{ARCH_TYPE};

Fetch a single piece of info:

  $archtype = VMS::System::get_one_sys_info_item("ARCH_TYPE"[, nodename]);

Decode a bitmap into a hash filled with names, with their values set to true or false based on the bitmap.

  $hashref = VMS::System::decode_sys_info_bitmap("ARCHFLAGS", Bitmap);

Get a list of valid info names:

  @InfoNames = VMS::System::sys_info_names([nodename]);

Tied hash interface:

  tie %SysInfohash, VMS::System[, nodename];
  $diolm = $SysInfohash{ARCH_TYPE};

Object access:

  $SysInfoobj = new VMS::System [nodename];
  $archtype = $SysInfoobj->one_info("ARCH_TYPE");
  $hashref = $SysInfoobj->all_info();

DESCRIPTION

Retrieve info for a node. Access is via function call, object and method, or tied hash. Choose your favorite.

Special Stuff

While Most items are scalars, there are a few exceptions. THERMAL_VECTOR, TEMPERATURE_VECTOR, FAN_VECTOR, and POWER_VECTOR are arrays, with each array element corresponding to a particular CPU (for THERMAL_VECTOR and TEMPERATURE_VECTOR), fan, or power supply. TEMPERATURE_VECTOR is an array of CPU temperatures, while the other three are arrays that will contain Good, Bad, Not Present, or Dunno, depending on the status of the fan, power supply, or CPU temperature.

BUGS

May leak memory. May not, though.

LIMITATIONS

Quadword and hexword values are returned as string values rather than integers.

List info (like rightslists) is not returned.

The decode bitmap function doesn't currently decode anything.

You can't get all system info for all nodes in the cluster, or any system parameters for any non-local node. This is a VMS limitation, though one I hope will be lifted at some point. (If you've got a VMS source listing, send me e-mail and we'll talk)

AUTHOR

Dan Sugalski <dan@sidhe.org> Craig A. Berry <craigberry@mac.com>

SEE ALSO

perl(1), VMS::Process.