#!/usr/bin/perl
# 19.11.2009 joern.henrichs@computacenter.com

use strict;

# environment variables
my($PCAUSE)=$ENV{'PCAUSE'};
my($EVENTMSG)=$ENV{'EVENTMSG'};
my($STATUS)=$ENV{'STATUS'};
# EXTRA_ATTRS_AS_ENVVARS
my($SERIAL_NUMBER)=$ENV{'SANM_0x10030'};
my($SYSLOCATION)=$ENV{'SANM_0x1102e'};
my($NOTES)=$ENV{'SANM_0x11564'};
my($CREATEDATE)=$ENV{'SANM_0x11f4e'};
my($MODEL_CLASS)=$ENV{'SANM_0x11ee8'};
my($CALL_ID)=$ENV{'SANM_0x12022'};
my($CLEARDATE)=$ENV{'SANM_0x129af'};
my($TOPMDLNMSTR)=$ENV{'SANM_0x129e7'};

# argument variables
my($DATE)=$ARGV[0]; # context update/clear
my($TIME)=$ARGV[1]; # context update/clear
my($MTYPE)=$ARGV[2];
my($MNAME)=$ARGV[3];
my($AID)=$ARGV[4]; # AlarmID
my($SEVERITY)=$ARGV[5];
#my($CAUSE)=$ARGV[6]; # PCauseID
my($REPAIRPERSON)=$ARGV[7];
my($SERVER)=$ARGV[8]; # Landscape name
#my($LANDSCAPE)=$ARGV[9]; # Landscape handle
my($MHANDLE)=$ARGV[10]; 
#my($MTHANDLE)=$ARGV[11];
my($IPADDRESS)=$ARGV[12];
my($SEC_STRING)=$ARGV[13];
#my($ALARMSTATE)=$ARGV[14];
#my($ACKD)=$ARGV[15];
#my($CLEARABLE)=$ARGV[16];
#my($FLASH_GREEN)=$ARGV[17];
#my($LOCATION)=$ARGV[18];
#my($AGE)=$ARGV[19];
#my($NOTIFDATA)=$ARGV[20];
#my($PID)=$ARGV[21];
#my($SANM)=$ARGV[22];
# EXTRA_ATTRS_AS_ARGS
my($DTYPE)=$ARGV[23];