Search the Community
Showing results for tags 'recursion level array'.
Found 1 result
-
Heya, I've made a solution to a problem that seems to works, but i'm affraid the recursion level will be exceeded... I'd be most greatfull if someone helped me alter the script to avoid just that. Dim $queue[9999] resetqueue() While 1 Do $Client = TCPAccept($Server) Sleep('100') Until $Client <> '-1' Do $Recv = TCPRecv($Client, '1000') Sleep('100') Until $Recv <> '' $RecvArray = StringSplit($Recv, "|") If $RecvArray[1] = "queue_item" Then $queue[$RecvArray[2]] WEnd Func resetqueue() $iDateCalc = _DateDiff('s', _NowCalc(), _DateAdd('d', 1, _NowCalcDate())&" 00:00:00") AdlibRegister("resetqueue", $iDateCalc*1000) Dim $queue[9999] _FileWriteLog("log.txt", "Queue reset", 0) sleep(1000) EndFunc
