I am experiencing something different and this is why I think it is USB-UIRT related instead of MLDirecTV.CinemarDave wrote:One thing that I have confirmed is that if you poll the DirecTV boxes for any length of time and too frequently the polling will eventually slow the DirecTV box to a crawl. This has to be an internal problem in the DirecTV box. Most likely a memory leak that is consuming system resources. The only thing that will clear the slow down is a complete reboot of the DirecTV box. This is what you experienced.
Code: Select all
' MLServer Command Reference ' MLServer.cmdReceive command - allows you to send MLServeCmd's back to the server ' MLServer.cmdReceivePush command - allows you to push a MLServeCmd onto the MLServer command queue ' MLServer.SetVariable variable, value - allows you to set MLServer variables ' MLServer.GetVariable variable - allows you to get the value of the specified MLServer variable ' MLServer.DelVariable variable, value - allows you to delete MLServer variables ' MLServer.LogMLEvent sName, sEvent - allows you to add an entry in the MLServer Event Log ' MLServer.doPlugin PluginName, PluginCommand, PluginParameters, ClientName Sub DirecTV(params) Dim MySource Dim NewSource Dim MyDVR Dim NewDVR Dim DVRType Dim MyDirecTVParam1 Dim MyDirecTVParam2 Dim tmpStr MySource = MLServer.GetVariable("avatrix_source_main") Select Case MySource Case "1" 'HR20-700 #3 MyDVR = 3 DVRType = "DTV" NewDVR = 4 NewSource = 2 Case "2" 'HR21-100 #1 MyDVR = 4 DVRType = "DTV" NewDVR = 5 NewSource = 3 Case "3" 'HR24-500 #1 MyDVR = 5 DVRType = "DTV" NewDVR = 1 NewSource = 6 Case "4" 'Need to Add Logic for Oppo BDP NewSource = 6 NewDVR = 1 Case "5" 'HR20-700 #2 MyDVR = 2 DVRType = "DTV" NewDVR = 3 NewSource =1 Case "6" 'HR20-700 #1 MyDVR = 1 DVRType = "DTV" NewDVR = 2 NewSource = 5 End Select MyDirecTVParam1 = params(1) MyDirecTVParam2 = params(2) If MyDirecTVParam2 = "Active" Then 'Set variable avatrix_source_main to new source and dvrnbr to new dvr MLServer.SetVariable "avatrix_source_main", NewSource MLServer.SetVariable "dvrnbr", MyDVR 'Toggle to a new input on the AVAtrix tmpStr = "MLServeCmd.MLMatrixSwitcher|1~Switch~Main~" & NewSource & "~0" Else 'Need to add DirecTiVo IR control commands 'If DVRType = "DTV" then 'If Ubound(params) =3 then tmpStr = "MLServeCmd.MLDirectv|00" & MyDVR & "~" & MyDirecTVParam1 & "~" & MyDirecTVParam2 'Else ' tmpStr = "MLServeCmd.MLDirectv|00" & MyDVR & "~" & MyDirecTVParam 'End if End If MLServer.cmdReceive tmpStr
Users browsing this forum: No registered users and 1 guest