#!/opt/nimbus/bin/perl
#################################################################
# CodeWizard:  perl 
# This code was generated with the NimBUS CodeWizard version 1.42
# Date: 29. kesäkuuta 2007

use strict;
use Getopt::Std;
use Nimbus::Session;

my $prgname = "example_probe";
my $sess;
my $version = "1.00";
my %options;

###########################################################
sub hubpost {
    my $hMsg  = shift;     # Message handle
    my $udata = shift;     # User data/message
    my $full  = shift;     # Full message (inkl. header)

    my $subject = pdsGet_PCH($full,"subject");

    my $string = pdsGet_PCH ($udata,"message");
    my $number = pdsGet_INT ($udata,"level");
    nimSendReply($hMsg);
}

###########################################################
# MAIN ENTRY
#
getopts("i:",\%options);

$sess = Nimbus::Session->new("$prgname");
$sess->setInfo($version,"Nimsoft Corporation");
if ($sess->attach("$prgname")) {
    if ($sess->subscribe("alarm")) {
        exit;
    }
}
$sess->dispatch();
exit;