# Copyright (c) 2001 Courtney Bailey Court_Bailey@bigfoot.com
# Phone Connection for TivoWeb
# development Status:
#		V  .1a - Added Daily Call
#               V  .3a - Inital Event Capture
#               V  .5a - Revised Event Capture
#               V  .7a - JavaScript
#               V  .9b - First Beta
#               V 1.4b - lots of headaches later we have a poor man's server push
#               V 1.5.2F - Cleaned code, made "Guide Data TO" more fault tolerrant
#		V 1.5.5F - Completly change how we get "Guide data to:" again =P
#               V 1.5.6F - Add Assoc Array for Data, and decreased reload time
#
# $Id: phone.itcl,v 1.7.2.4 2002/12/14 03:04:03 lightn Exp $


# ---------HTML Add-on

# Html Link with mouse over, really unessecary but seeing JavaScript in the status window has always annoyed me
proc html_link_mouse {link anchor} {
    return "<A HREF=\"$link\" onMouseOver=\"window.status='$anchor'; return true;\" onMouseOut=\"window.status=''; return true;\">$anchor</A>"
}

# ---------End HTML Add-on

			

# ---------Debuging function


# Prints Event Data to console when enabled, surf to "http://tivo/Pbug" to toggle
proc action_Pbug {chan path env} {
	global PHInfo 
	if { $PHInfo(Debug_mode) == 0 } {
		set PHInfo(Debug_mode) 1
	} else {
		set PHInfo(Debug_mode) 0
	}
	action_Phone $chan $path $env
}

# --------- End Debug function



#config variables and Constants need for Calls
catch {source $tcl_library/tv/StatusStrings.itcl}


# --------- config/Start Event Capture for Dialup Events

# Our Callback function borrowed from screenTestsFramework 
proc DialupCallback { type subtype } {
    global EventData PHInfo
        
    switch -exact -- $subtype {
        0       { set info "IMMEDIATE"; set PHInfo(CallInProgress) 1; set PHInfo(Data) [lindex $PHInfo(Messages) 4]; set PHInfo(Stat) 4}
        1       { set info "config" }
        2       { set info "HEADEND" }
        3       { set info "TEST"; set PHInfo(CallInProgress) 1; set PHInfo(Data) [lindex $PHInfo(Messages) 4]; set PHInfo(Stat) 4}

        4       { set info "TESTSTRING" }
        5       { set info "ALLHEADENDS" }
        6       { set info "FORCE" }
        7       { set info "SUCCEED"; set PHInfo(CallInProgress) 0; set PHInfo(Stat) $PHInfo(Stat)}
        8       { set info "FAIL"; set PHInfo(CallInProgress) 0; set PHInfo(Stat) $PHInfo(Stat) }
        9       { set info "CHANGE"; set PHInfo(CallInProgress) 1 }
        10      { set info "ONLINE" }
        11      { set info "OFFLINE" }
        default { set info "XXX" }
    }
    
    binary scan $EventData c20 bytes
    set data "EventData: $bytes"
    set PHInfo(Debug) $data
        
    if { $info == "CHANGE" } {
        regsub "\000.*\$" $EventData {} data
        append info " $data"
	regsub -nocase {[a-z][a-z][\|]} $data {} PHInfo(Stat)
	if { $PHInfo(Stat) == 30 } {
		#give those good people not using modems their LED back
		event send $TmkEvent::EVT_DIALUPEVENT 10 0
	}
	if { [regexp {%} $PHInfo(Stat)] } {
            set PHInfo(Data) "Loading Data... $PHInfo(Stat)"
	    set PHInfo(Stat) 42
         } else {
	    set PHInfo(Data) [lindex $PHInfo(Messages) $PHInfo(Stat)] 
	}	
    }

    append PHInfo(Debug) "   $info"    
     
    if { $PHInfo(Debug_mode) == 1 } {       
       puts "Phone.itcl: $PHInfo(Debug)"
    }

}

# Start Capture of Dialup Events 
event connect
event register $TmkEvent::EVT_DIALUPEVENT DialupCallback

# --------- End Event Capture


# --------- Phone Body

# Daily Call
proc action_Dcall {chan path env} {
	global PHInfo
	if { $PHInfo(CallInProgress) == 0 } {
		set PHInfo(CallInProgress) 1
		set PHInfo(Data) [lindex $PHInfo(Messages) 4]
		set PHInfo(Stat) 4
		set Daily [binary format c20 "127 -60 126 100 127 -1 -15 -80 1 -78 92 -56 127 -18 -5 116 127 -75 -91 -8"]
		event send $TmkEvent::EVT_DIALUPEVENT 0 $Daily
	}
	action_Phone $chan $path $env
}

# Test Call
proc action_Tcall {chan path env} {
	global PHInfo
	if { $PHInfo(CallInProgress) == 0 } {
		set PHInfo(CallInProgress) 1
		set PHInfo(Data) [lindex $PHInfo(Messages) 4]
		set PHInfo(Stat) 4
		set Test [binary format c20 "127 -65 98 28 127 -1 -17 -80 0 0 0 0 127 -1 -16 56 127 -76 42 40"]
 		event send $TmkEvent::EVT_DIALUPEVENT 3 $Test
	}
	action_Phone $chan $path $env
}



proc action_Phone {chan path env} {
	global PHInfo
	action_Phone_UI $chan $path $env
	if { $PHInfo(CallInProgress) == 1 } {
		catch {flush $chan}
		vwait PHInfo(Stat)
		puts $chan "<Script>document.location=/Phone/;</Script>"	
	}
	
}


# User Interface
proc action_Phone_UI {chan path env} {
	puts $chan [html_start "Phone"]
	global tivoswversion tzoffset
	global PHInfo
	
	PHUpdateData
	
    if {$::uktivo} {
		set seconds [expr $PHInfo(GuideDataTo) * 86400]
		set daystr [nth [clock format $seconds -format "%e"]]
		set CD_gdt [clock format $seconds -format "%A $daystr %b %Y"]
		set seconds [expr $PHInfo(LastSuccessCall) + $tzoffset]
		set daystr [nth [clock format $seconds -format "%e"]]
		set CD_lsc [clock format $seconds -format "%A $daystr %b at %H:%M"]
		set seconds [expr $PHInfo(LastCallAttempt) + $tzoffset]
		set daystr [nth [clock format $seconds -format "%e"]]
		set CD_lca [clock format $seconds -format "%A $daystr %b at %H:%M"]
		set seconds [expr $PHInfo(NextCallAttempt) + $tzoffset]
		set daystr [nth [clock format $seconds -format "%e"]]
		set CD_nsc [clock format $seconds -format "%A $daystr %b at %H:%M"]
    } else {
	    set CD_gdt [clock format [expr $PHInfo(GuideDataTo) * 86400] -format "%A, %b %d, %Y"]
	    set CD_lsc [clock format [expr $PHInfo(LastSuccessCall) + $tzoffset] -format "%A, %b %d at %1I:%M %P"]
	    set CD_lca [clock format [expr $PHInfo(LastCallAttempt) + $tzoffset] -format "%A, %b %d at %1I:%M %P"]
	    set CD_nsc [clock format [expr $PHInfo(NextCallAttempt) + $tzoffset] -format "%A, %b %d at %1I:%M %P"]
    }
	set CD_las $PHInfo(LastCallStatus)
	
	puts $chan "<FORM NAME=PHTable>"	
	puts $chan [html_table_start "" "" ""]
	if { $PHInfo(Debug_mode) == 0 } {
		puts $chan [tr "" [th "COLSPAN=2" "Calls and Updates"]]
	} else {
		puts $chan [tr "" [th "COLSPAN=2" "Calls and Updates - Debug"]]
	}
	puts $chan [tr "" [td "" "<b>Last Successful Call:</b>"][td "" "<INPUT TYPE=TEXT NAME='PH_lsc' Size=30 VALUE='$CD_lsc' ReadOnly>" ]]
	puts $chan [tr "" [td "" "<b>Last Call Attempt:</b>"] [td "" "<INPUT TYPE=TEXT NAME='PH_lca' Size=30 VALUE='$CD_lca' ReadOnly>" ]]
	puts $chan [tr "" [td "" "<b>Last Attempt Status:</b>"] [td "" "<INPUT TYPE=TEXT NAME='PH_las' Size=30 VALUE='$CD_las' ReadOnly>" ]]
	puts $chan [tr "" [td "" "<b>Next Scheduled Call: </b>"] [td "" "<INPUT TYPE=TEXT NAME='PH_nsc' Size=30 VALUE='$CD_nsc' ReadOnly>" ]]
	puts $chan [tr "" [td "" "<b>Prog. Guide Data to:</b>"] [td "" "<INPUT TYPE=TEXT NAME='PH_gdt' Size=30 VALUE='$CD_gdt' ReadOnly>" ]]
	puts $chan [tr "" [td "" "<b>Software Version:</b>"] [td "" "<INPUT TYPE=TEXT NAME='PH_sv' Size=30 VALUE='$tivoswversion' ReadOnly>" ]]
	
	# If Call is in progress we do not want the user starting another
	
	if { $PHInfo(CallInProgress) == 0 } {
		puts $chan [tr "" [td "" [html_link_mouse "/Tcall" "Make Test Call Now"]] [td "" [html_link_mouse "/Dcall" "Make Daily Call Now" ]]]
	} else {
		puts $chan [tr "" [td "" [html_link_mouse "JavaScript:alert('Call Currently In Progress!!! Please Wait!!!');document.location=/Phone/;" "Make Test Call Now"]] [td "" [html_link_mouse "JavaScript:alert('Call Currently In Progress!!! Please Wait!!!');document.location=/Phone/;" "Make Daily Call Now" ]]]
	}	
	puts $chan [html_table_end]
	puts $chan [html_form_end]
	puts $chan [html_end]
}	


# --------- End Phone Body 


# --------- Update Data

proc PHUpdateData { } {
	global db PHInfo
	set continue 0

	if { $PHInfo(CallInProgress) == 1} {
		set PHInfo(LastCallStatus) $PHInfo(Data)
		return
	}
  if {$::version3} {
	  set config "/State/PhoneConfig"
    set suffix "SecInDay"
  } else {
	  set config "/Setup"
    set suffix ""
  }
	RetryTransaction {
    set config [db $db open $config]
		set LastCallAttempt [dbobj $config get LastCallAttempt$suffix]
		if { $LastCallAttempt > $PHInfo(LastCallAttempt) } {
			set PHInfo(LastCallAttempt) $LastCallAttempt
			if {$::version3} {
      	set serviceinfo $config
			} else {
				set serviceinfo [dbobj $config get ServiceInfo]
			}
			set LastCallStatus [dbobj $config get LastCallStatus]
			if { $LastCallStatus == "Failed"} {
				set csi [dbobj $serviceinfo get CallStatusInfo]
				if {$csi != "Failed" } {
					regexp {[0-9]+} $csi LastCallStatus
					set LastCallStatus [lindex $PHInfo(Messages) $LastCallStatus]
				}
			}
			regsub {(\{([A-Za-z]+)+\})} $LastCallStatus {\2} PHInfo(LastCallStatus)
			set PHInfo(LastSuccessCall) [dbobj $config get LastSuccessCall$suffix]
			set PHInfo(NextCallAttempt) [dbobj $config get NextCallAttempt$suffix]
			set continue 1
		}
	}
#	while { $continue == 1 } {
		set PHInfo(GuideDataTo) [PHGetGuideDays]
#		if { $PHInfo(CallInProgress) != 1 && $PHInfo(GuideDataTo) <= 0 } {
#			set continue 1
#		} else {
#			set continue 0
#		}
#	}
	
}

# --------- End Update Data


# --------- Start GetGuideDays

proc PHGetGuideDays { } {
	set count 0
	set lastday 0
	ForeachMfsFile fsid name type /Schedule "" {
		set date [lindex [split $name ":"] 1]
		if { $date > $lastday } {
			set lastday $date
		}
                incr count
		if { $count >= 100 } {
			return $lastday
		}
	}
	return $lastday
}

# --------- End GetGuideDays

# Get init values

if { $reload == 0 } {
	
# --------- Phone Data Array

global PHInfo
array set PHInfo [list \
			{Debug} {""} \
			{Debug_mode} {0}  \
			{Messages} { "Blank" "Succeeded" "PendingRestart" \
					"InitializationFailure" "SettingUp" "InProgress" \
					"UnknownError" "Failure during Housekeeping" \
					"Failure during Preparation" "Failed. Line unavailable" \
					"Failed. No dial tone" "Failed. Couldn't dial" "Failed. Wrong number" \
					"Failed. Service is not answering" "Failed. Service unavailable" \
					"Failed. Service denied" "Failed. Call interrupted" \
					"Failed while expanding data" "Failed while preparing data" \
					"Failed while loading series" "Failed while indexing shows" "Failed to set clock" \
					"Failed getting account status" "Failure downloading messages" "Failed. Phone is busy" \
					"Failed while indexing days" "Failed getting account status" "In Progress" \
					"Housekeeping" "Preparing to call" "Dialing..." "Answering..." "Answered" \
					"Connecting..." "Getting account status" "Setting clock..." "Downloading messages" \
					"Processing..." "Downloading..." "Hanging up" "Expanding data" "Preparing data" \
					"Loading data" "Indexing series" "Indexing shows" "Indexing days" \
					"Failed. Modem is not responding" "Configuring modem" "Failed. No dial-in number chosen." \
					"Finishing up..." } \
			{Stat} {-1} \
			{Data} {""} \
			{CallInProgress} {0} \
			{GuideDataTo} {0} \
			{LastCallStatus} {0} \
			{LastSuccessCall} {0} \
			{LastCallAttempt} {0} \
			{NextCallAttempt} {0} ]

# --------- End Phone Data Array
	PHUpdateData

}

	

# Register module with TiVoWeb
register_module "Phone" "Phone" "Phone Connection"