package Mine::Openview::opcmsg;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $self  = {};
    return bless $self, $class;
}

# Get message strings from subroutine call
my $self = shift;
my $msg  = shift; # message text
my $app  = shift; # application label
my $obj  = shift; # object
my $sev  = shift; # severity of message
my $msgg = shift; # message group
my $ser  = shift; # service id

sub send {
# Setup arguments for opcmsg command.  If the syntax 
# changes this is were you'll apply the changes.
    my $cmd = "opcmsg". 
        " msg_text=".$msg.
        " application=".$app.
        " object=".$obj.
        " severity=".$sev.
        " msg_grp=".$msgg.
        " service_id=".$ser;

    return $cmd;
}

1;