#!/usr/bin/perl

use strict;
use IO::Socket;
use POSIX;
use warnings;
use Config::Simple;
use Win32::Daemon;
	
sub logMonitor{ #subrouting to connect to the PBX log and monitor for the Emergency calls
	my ($HOST, $PORT)= @_;	

	OUTER: if (my $sock = new IO::Socket::INET(PeerAddr => $HOST, PeerPort => $PORT,Proto => "tcp",)) {

		 while (<$sock>) {
			s/^\0+//; # Remove leading null characters

			chomp ($_);
			my $data = substr($_, 1,17);
			my $event = substr ($data, 2,1);
			my $hr = substr ($data, 3,2);
			my $min = substr ($data,5,2);
			my $year = substr($data, 9,4);
			my $mon = substr($data, 13,2);
			my $day = substr ($data,15,2);
			#print "$hr:$min on $year-$mon-$day \n";

			if ($event eq "A") {
				my $agent = substr($_, 17,4);
#				print "\n Agent $agent logged in \n" ;
				my $output = "Agent $agent logged in at $hr:$min on ext $year";
				filePrint($output);
				}

	}	
	else {			
		print "Failed to connect to $HOST on $PORT. Will retry in a minute.\n";
		sleep 60;
		goto OUTER;
		}
} #End of monitor subroutine

sub filePrint{	#write data to file with date and time stamp
	my ($DATA)= @_;	
	print "$DATA\n";
	my $dateStamp = strftime '%Y-%m-%d', localtime;
	my $file = "$dateStamp.log";
	my $timeStamp = strftime '%H:%M:%S', localtime;
	if (-f $file){
		open (my $fh,'>>', $file);
		print $fh "$timeStamp | $DATA\n";
		close $file;
	}
	else {
		open (my $fh,'>', $file);
		print $fh "$timeStamp | $DATA\n";
		close $file;
	}
}# End of filePrint routine

my $cfg = new Config::Simple();
$cfg->read('config.ini');
my $HOST = $cfg->param("pbx");
my $PORT = $cfg->param("port");

logMonitor($HOST, $PORT); #Open the log monitoring subroutine