package Mine::Openview::opcmsg;

use strict;
use warnings;

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

sub send {
  
  my $self = shift;

  my $cmd = join "\n",
    "opcmsg",
    "msg_text = " . $self->{msg},
    "application = " . $self->{app},
    "object = " . $self->{obj},
    "severity = ".$self->{sev},
    "msg_grp = " . $self->{msgg},
    "service_id = " . $self->{ser};
  
  return $cmd;
}

1;