#!/bin/tcsh
#file = square:/hda4/home/watson/bin/isconnect
@ days = 0
@ hours = 0
@ minutes = 0
#from time_it
@ start_sec =  `date '+%s'`
@ start_day =  `date '+%d'`
@ start_hour =  `date '+%k'` 
@ start_minute = `date '+%M'` 

@ last_minute = $start_minute
@ up_count = 0
@ up_minutes = 0
@ minute_count = 0
@ last_minute_count = 0
@ hours = 0
@ flip = 0
@ no_op = 0

@ count = 0
#@ LASTSTATE = 0
@ LAST_STATE = -1
set date_string1 = 99:99:99
set date_string2 = start_date_string

set flagloc = /home/watson/flag/
set LAST_IP = "none"
echo "" >>is_connect.log
echo "===============================================================0" >>is_connect.log
echo "" >>is_connect.log
echo New Starting of is_connect >>is_connect.log
echo "" >>is_connect.log
echo START    `date` >>is_connect.log
echo "===============================================================0" >>is_connect.log
echo "" >>is_connect.log
echo "starting is connect "
echo  ++++++++++++++++++++
@ connect_start_sec =  `date '+%s'`
@ disconnect_start_sec =  $connect_start_sec
while ( 1 )
   @ CONNECTED =  `  nslookup 204.60.0.2 |wc -l `
   @ CONNECTED1 = `  nslookup 204.60.0.3 |wc -l `
#   @ CONNECTED = ` ps -a | grep CONNECT | grep pppd | wc |awk '{print $1}' `
#   @ CONNECTED1 = ` /sbin/ifconfig | grep "P-t-P"  |awk '{print $1}'| wc |awk '{print $1}'  `
   if ( $CONNECTED == 6 ) then
    
   set date_string1 = `lynx -dump time.gov\?Eastern/d/-5 | head -3 | tail -1`
   set date_string2 = `lynx -dump time.gov\?Eastern/d/-5 | head -4 | tail -1`
   echo $date_string2"  " $date_string1
       @ state = 1
       set state_dis = Connected
       if ( $state != $LAST_STATE ) then
           @ current_sec = `date +%s`
           @ dis_elasped_sec = $current_sec - $disconnect_start_sec
           echo Dis Connected Seconds elasped $dis_elasped_sec
           echo `date`  Connect time
       endif
   @ hour  = `echo $date_string1 |awk -F: '{print $1}'  `
   echo current hour $hour
   if ( $hour < 9 | $hour > 16 ) then
       @  connect_start_sec = $current_sec 
       @ begin = `date +%s` ; lynx -dump watman.com > /dev/null ; @ end = `date +%s` ; @ elaspe = $end - $begin ;@ bps =1006294 / $elaspe; echo Elasped $elaspe seconds ,$bps Bytes per second, watman jpeg  350207
       @ begin = `date +%s` ; lynx -dump dsl.snet.net > /dev/null ; @ end = `date +%s` ; @ elaspe = $end - $begin ;@ bps =1571837 / $elaspe;  echo Elasped $elaspe seconds, $bps Bytes per second,  snet west pdf 1571837
       @ begin = `date +%s` ; lynx -dump dsl.snet.net > /dev/null ; @ end = `date +%s` ; @ elaspe = $end - $begin ;@ bps =1661742 / $elaspe;  echo Elasped $elaspe seconds, $bps Bytes per second,  snet 4060 pdf 1661742 
       @ current_sec = `date +%s`
    else
       @ begin = `date +%s` ; lynx -dump sgi.com  > /dev/null ; @ end = `date +%s` ; @ elaspe = $end - $begin ;@ bps = 48676 / $elaspe; echo Elasped $elaspe seconds ,$bps Bytes per second, SGI jpeg  cachem
#       @ begin = `date +%s` ; lynx -dump sgi.com  > /dev/null ; @ end = `date +%s` ; @ elaspe = $end - $begin ;@ bps = 94291 / $elaspe; echo Elasped $elaspe seconds ,$bps Bytes per second, SGI jpeg  gis
#       @ begin = `date +%s` ; lynx -dump sgi.com  > /dev/null ; @ end = `date +%s` ; @ elaspe = $end - $begin ;@ bps = 94291 / $elaspe; echo Elasped $elaspe seconds ,$bps Bytes per second, SGI jpeg  gis
    endif
	   
   else 
       @ state = 0
       set state_dis = NOT_Connected
       if ( $state != $LAST_STATE ) then
           @ current_sec = `date +%s`
           @ con_elasped_sec = $current_sec - $connect_start_sec
           echo Connected Seconds elasped $elasped_sec
           echo `date`  Dis Connect time
           @  disconnect_start_sec = $con_current_sec 

       endif
   endif

   @ LAST_STATE = $state
   @ current_sec = `date +%s`
   @ elasped_sec =  $current_sec - $start_sec

   @ e_day = $elasped_sec / 86400
   @ rem_sec = $elasped_sec - $e_day * 86400
   @ e_hr =  $rem_sec / 3600
   @ rem_sec =  $rem_sec - $e_hr * 3600
   @ e_min = $rem_sec / 60
   @ e_sec =  $rem_sec - $e_min * 60
   
   if ( $e_day ) then
       echo Running Elasped $e_day days $e_hr hrs. $e_min min. $e_sec sec. :State is $state_dis
   else if ( $e_hr ) then
       echo hour
       echo Running Elasped $e_hr hrs $e_min min. $e_sec sec. , State is $state_dis
   
   else if ( $e_min ) then
       echo min
       echo Running Elasped min $e_min sec $e_sec , State is $state_dis
   else
       echo Running Elasped Seconds $e_sec , State is $state_dis

   endif

   sleep  600
#sleep  6
end

exit