if (!defined($sof_i[2]))
	{
	print "There is no data in the ISTAT file\n";
	print "The RTS/DPS monitor is down.\n";
	close(PAGE);
	system(@sendpage);
	exit(1);	
	}
@sof_i=reverse @sof_i;

&get_i;

sub get_i
	{
	if ($sof_i[0]=~m/={30}/){shift(@sof_i);}
	foreach(@sof_i)
		{
		last if $_=~/^={30}/;
		($i_day, $i_month, $i_date, $i_hour, $i_minute, $i_second, $i_year)=$_=~/(^\D{3}) (\D{3})\s+(\d{1,2}) (\d{2}):(\d{2}):(\d{2}) (\d{4}) sw_eof \[.+\] try / if $_=~m/try/;
		($i_con_day, $i_con_month, $i_con_date, $i_con_hour, $i_con_minute, $i_con_second, $i_con_year)=$_=~/(^\D{3}) (\D{3})\s+(\d{1,2}) (\d{2}):(\d{2}):(\d{2}) (\d{4}) sw_eof \[.+\]/ if $_=~m/connected/;
		($i_socket_status)=$_=~/\[(.*)\]/ if $_=~m/EOF Socket Status/;
		$sof_to_delete++
		}
	for ($i=0;$sof_to_delete>0;$sof_to_delete--)
		{shift(@sof_i);}
	$i_num_month=0 if $i_month=~m/Jan/;
	$i_num_month=1 if $i_month=~m/Feb/;
	$i_num_month=2 if $i_month=~m/Mar/;
	$i_num_month=3 if $i_month=~m/Apr/;
	$i_num_month=4 if $i_month=~m/May/;
	$i_num_month=5 if $i_month=~m/Jun/;
	$i_num_month=6 if $i_month=~m/Jul/;
	$i_num_month=7 if $i_month=~m/Aug/;
	$i_num_month=8 if $i_month=~m/Sep/;
	$i_num_month=9 if $i_month=~m/Oct/;
	$i_num_month=10 if $i_month=~m/Nov/;
	$i_num_month=11 if $i_month=~m/Dec/;
	$i_sof_time=timegm($i_second, $i_minute, $i_hour, $i_date,$i_num_month,$i_year);
	}

if (!defined($i_sof_time))
	{
	print "I did not find any connection attempts in the istat file.\n";
	print "RTS/DPS Monitor is down.\n";
	close(PAGE);
	system(@sendpage);
	exit(1);	
	}