#!C:\Perl64\bin\perl.exe

use File::Tail;

my $routerip;
my $diagfile;
my $Checkoutput;
my $hostName1;
my $hostName2;

sub init {
    my ($dir) = @_;
    my $line;
    my $var;
    my $val;
    open (LREP2, "$dir/config/param.ini");
	while ($line = <LREP2>) {
   		chop $line;
   		($var,$val) = split(/=/, $line);
   		if ($var eq "ROUTERIP") {
   			$routerip = $val;
   		}
   		if ($var eq "DIAGFILE") {
   			$diagfile = $val;
   		}
   		if ($var eq "CHECKFILE") {
   			$Checkoutput = $val;
   		}
   		if ($var eq "HOSTNAME1") {
   			$hostName1 = $val;
   		}
   		if ($var eq "HOSTNAME2") {
   			$hostName2 = $val;
   		}
	}
	close LREP2;
}

#MAIN

die "Usage: $0 <app_root_dir>" unless @ARGV == 1;


my $app_root_dir = shift;
&init($app_root_dir);


my $line;
open (DIAG, "$diagfile");
my $ref=tie *DIAG,"File::Tail",(name=> $diagfile);
my $clock = 0;
while (<DIAG>) { 
	while (1) {
		while ($line = <DIAG>) {
			if ($line =~ /is higher than 5 seconds/) {
				if ($clock == 0) {
					$clock = 60;
					my $commandStr2 = "sc \\\\$hostName1 stop AudioSrv >$app_root_dir\\logs\\StopServiceOutput1.txt" ;
					system($commandStr2);
					my $commandStr4 = "sc \\\\$hostName2 stop AudioSrv >$app_root_dir\\logs\\StopServiceOutput2.txt" ;
					system($commandStr4);
					sleep(5);
					my $commandStr3 = "sc \\\\$hostName1 start AudioSrv >$app_root_dir\\logs\\StartServiceOutput1.txt";
					system($commandStr3);
					my $commandStr5 = "sc \\\\$hostName2 start AudioSrv >$app_root_dir\\logs\\StartServiceOutput2.txt";
					system($commandStr5);
				}
				$clock --;
			}
			last;		
		}
	}
}