Clearing an array every midnight

[faldo]

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

Edited August 10, 2012 by faldo

[GEOSoft]

First off since you want to reset at midnight every day; you can get rid of the calls for $iDateCalc and in fact you can get rid of $iDateCalc

If @Hour = 0 and @Sec <= 2 Then
    $queue = ""
    Dim $queue[9999]
    _FileWriteLog("log.txt", "Queue reset", 0)
    Sleep 1000;; add 1000 here if you have to or reduce @Sec <= 2 to @Sec <= 1  For me 2 works best.
EndIf

That could even be used right in the While/WEnd loop

[faldo]

First off since you want to reset at midnight every day; you can get rid of the calls for $iDateCalc and in fact you can get rid of $iDateCalc

If @Hour = 0 and @Sec <= 2 Then
    $queue = ""
Dim $queue[9999]
_FileWriteLog("log.txt", "Queue reset", 0)
Sleep 1000;; add 1000 here if you have to or reduce @Sec <= 2 to @Sec <= 1 For me 2 works best.
EndIf

That could even be used right in the While/WEnd loop

I considered a similar solution too and thought if would hog too much CPU since i have to insert the code in the tight do-loop for is to acctually execute during that time of day... it turns out it doesn't hog that much CPU at all... thanx a lot for a quick reply and your insight!

[GEOSoft]

The sleep should keep it from using too much CPU.