#!/opt/SAM/perl/bin/perl -I/opt/SAM/perl-lib


use XML::XSLT;
use XML::Simple;
use Data::Dumper;
use SAM::Database;
use strict;

$| = 1;

my $xml = <<EOF;
<?xml version="1.0"?>
<text>
 <source_type_id>1</source_type_id>
 <alarm_id>148</alarm_id>
 <trigger_match>DTA018</trigger_match>
 <description>Frame slip free run (non-tracking) out-of-service limit.</description>
 <device>Meridian_Opt.11</device>
 <time>Mon Jul  9 16:00:21 2007</time>
 <msgid>vGcklNPVcDwjfyFSGrpCLvPwYXtMvczl.1184265392</msgid>
 <location_name>Alpharetta Corporate</location_name>
</text>
EOF

my $xslt = <<EOF;
<xsl:stylesheet	version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<xsl:text>Subject: New Alarm: </xsl:text><xsl:value-of select="text/alarm_id"/>
<xsl:text>\n\n</xsl:text>
<xsl:text>Alarm: </xsl:text><xsl:value-of select="text/alarm_id"/>.
<xsl:text>ID            = </xsl:text><xsl:value-of select="text/alarm_id"/>
<xsl:choose>
<xsl:when test="/text/[source_type_id=1]">
<xsl:text>\nAlarm Match   = </xsl:text><xsl:value-of select="text/trigger_match"/>
<xsl:text>\nDescription   = </xsl:text><xsl:value-of select="substr(text/description,0,20)"/>
<xsl:text>\nDevice        = </xsl:text><xsl:value-of select="text/device"/>
</xsl:when>
<xsl:when test="/text/[source_type_id=2]">
</xsl:when>
</xsl:choose>
<xsl:text>\nLocation      = </xsl:text><xsl:value-of select="text/location_name"/>
<xsl:text>\nRaised        = </xsl:text><xsl:value-of select="text/time"/>
<xsl:text>\nMsgID         = </xsl:text><xsl:value-of select="text/msgid"/>
</xsl:template>
</xsl:stylesheet>
EOF

my $cell_xslt = <<EOF;
<xsl:stylesheet	version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<xsl:text>Subject: New Alarm: </xsl:text><xsl:value-of select="text/alarm_id"/>
<xsl:text>\n\n</xsl:text>
<xsl:text>Location: </xsl:text><xsl:value-of select="substr(text/location_name,0,20)"/>
<xsl:text>, Match: </xsl:text><xsl:value-of select="substr(text/trigger_match,0,20)"/>
<xsl:text>, Device: </xsl:text><xsl:value-of select="substr(text/device,0,20)"/>
<xsl:text>, Time: </xsl:text><xsl:value-of select="text/time"/>.
<xsl:choose>
<xsl:when test="/text/[source_type_id=1]">
</xsl:when>
<xsl:when test="/text/[source_type_id=2]">
</xsl:when>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>
EOF



sub _substr {
	my ($Xml,$variable, $offset, $length) = @_;
	my $xs = new XML::Simple();
	my $ref = $xs->XMLin($Xml);
	my @subs = split '/', $variable;
	return $xml unless exists $ref->{$subs[1]};
	my $val = $ref->{$subs[1]};
	$ref->{$subs[1]} = substr($val, $offset, $length);
	my $xml = "<?xml version=\"1.0\"?>\n<text>\n";
	foreach my $element (keys %{$ref}) {
		$xml .= "<$element>$ref->{$element}</$element>\n";
	}
	$xml .= "</text>\n";
	return $xml;
}

sub transform {
	my ($xslt, $xml) = @_;
	while($xslt =~ m/value-of\s+?select="substr\((.+?),(\d+?),(\d+?)\)"/ ) {
		$xml = _substr($xml,$1,$2,$3);
		my $value = $1;
		$xslt =~ s/substr\($1,$2,$3\)/$value/;
	}
	my $Xslt = XML::XSLT->new($xslt, warnings => 1, debug => 0);
	$Xslt->transform($xml);
	my $text =  $Xslt->toString();
	$Xslt->dispose();
	return $text;
}



sub main {
	eval {
		my $alarm_id = undef;
		my $sd = SAM::Database->new();
		$sd->connect($sd->get_db_name('DEMO'));
		my $res = $sd->prepare("select alarm_id from alarm where status_id != 100;")
			or die $sd->errstr();
		$res->execute() or die $res->errstr();
		$res->bind_columns(\$alarm_id) or die $res->errstr();
		while($res->fetch()) { 
			my %alarm = $sd->get_alarm_info($alarm_id);

			my $xml = "<?xml version=\"1.0\"?>\n".
			"<text>\n".
			 "<source_type_id>$alarm{'source_type_id'}</source_type_id>\n".
			 "<alarm_id>$alarm{'alarm_id'}</alarm_id>\n".
			 "<trigger_match>$alarm{'trigger_match'}</trigger_match>\n";
			if($alarm{'source_type_id'} == 1) {
				my $d = undef;
				my $res2 = $sd->prepare("select description from trigger where trigger_id=?;")
					or die $sd->errstr();
				$res2->execute($alarm{'trigger_id'})
					or die $res2->errstr();
				$res2->bind_columns(\$d) 
					or die $res2->errstr();
				while($res2->fetch()) { }

			  $xml .= "<description>$d</description>\n";
			  $xml .=  "<device>$alarm{'console.name'}</device>\n";
			}	

			$xml .= "<time>$alarm{'raised'}</time>\n";
			$xml .= "<location_name>$alarm{'location.name'}</location_name>\n";
			$xml .= "<msgid>vGcklNPVcDwjfyFSGrpCLvPwYXtMvczl.1184265392</msgid>\n";
			$xml .= "</text>\n";


			print transform($cell_xslt, $xml);
			print "\n\n";
		}

	};
	if($@) {
		print "ERROR: $@\n";
	}
	return 0;
}

exit main;

# vi: set ts=2 sw=2: #