| Openview-Message documentation | Contained in the Openview-Message distribution. |
Openview::Message::cliopcmsg - Command Line Wrapper sending OpenView messages.
#low level access to the opcmsg API:
use Openview::Message::opcmsg ;
#if the real opcmsg code can not be loading this will load instead
opcmsg( OPC_SEV_MINOR
,'application'
,'object'
,'msg_text'
,'msg_group'
,hostname
);
Openview::Message::cliopcmsg provides low level access to the HP Openview operations opcmsg command line command. This modules exists because HP would not help my employer with a problem we have linking the the opcmsg() library API on HP. This module is loaded when the perl XS module can not be. It implements the api using a wrapper around the opcmsg command which is expeøted to be on path.
See Openview::Message::opcmsg for more information on the exposed API, and Openview::Message::Sender for an OO interface.
Lincoln A. Baxter <lbaxter@netreach.net>
| Openview-Message documentation | Contained in the Openview-Message distribution. |
package Openview::Message::cliopcmsg; #fake it with cli interface use strict; use warnings; require Exporter; our ( @ISA , @EXPORT_OK ,@EXPORT ); our $VERSION = '0.02'; @ISA = qw( Exporter ); @EXPORT_OK = qw( OPC_SEV_NORMAL OPC_SEV_WARNING OPC_SEV_MINOR OPC_SEV_MAJOR OPC_SEV_CRITICAL opcmsg ); @EXPORT = @EXPORT_OK; print "Using CLI opcmsg\n" if $ENV{CLI_OPENVIEW_MESSAGE_DEBUG} ; use constant OPC_SEV_NORMAL => 'normal' ; use constant OPC_SEV_WARNING => 'warning' ; use constant OPC_SEV_MINOR => 'minor' ; use constant OPC_SEV_MAJOR => 'major' ; use constant OPC_SEV_CRITICAL => 'critical'; sub opcmsg { return system( "opcmsg" ,@_ ); } 1; __END__