Infinite loop problem

[hampkade]

I am writing a script that backs up my Teamspeak.

So far everything else works, except this:

While 1=1
$Date = @MDAY & '_' & @MON & '_' & @YEAR
Backup()
FileChangeDir("C:/")
$Yday = @YDAY
Do
    $Tday = @YDAY
    Sleep(6000)
Until $Tday <> $Yday
WEnd

It runs through the loop once then exits. I can't seem to fix this.

Any suggestions?

Edited June 6, 2015 by hampkade

[Bowmore]

I see no reason why this should ever exit, unless you have an EXIT statement in your Backup() function or some other code that causes your script to terminate.

[Melba23]

hampkade,

There appears to be nothing wrong with the basic logic as you can see in this rather faster reproducer:

While 1 = 1
    $Yday = @SEC
    ConsoleWrite($Yday & @CRLF)
    Do
        $Tday = @SEC
        ConsoleWrite($Tday & @CRLF)
        Sleep(100)
    Until $Tday <> $Yday

    ConsoleWrite("Here" & @CRLF)
WEnd

Could the Backup function be causing the exit - there is nothing in the snippet itself which would cause it.

M23

[hampkade]

This is the full code to the program.

#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <Process.au3>
#RequireAdmin

Global $TSDIR = "C:/Teamspeak"
Global $Date = "Default"
Local $Yday = ""
Local $Tday = ""

While 1=1
$Date = @MDAY & '_' & @MON & '_' & @YEAR
Backup()
FileChangeDir("C:/")
$Yday = @YDAY
Do
    $Tday = @YDAY
    Sleep(6000)
Until $Tday <> $Yday
WEnd

Func Backup()
If ProcessExists("ts3server_win64.exe") Then
ProcessClose ("ts3server_win64.exe")
DirCopy($TSDIR, "C:/Teamspeakbackup/" & $Date)
FileChangeDir($TSDIR)
ShellExecute("ts3server_win64.exe")
Else
   MsgBox($MB_SYSTEMMODAL,"TS", "Teamspeak server isn't running")
EndIf

I don't see anything that would cause the loop to exit

Edited June 6, 2015 by hampkade

[Jos]

I hope there is an EndFunc at the end as well.

Jos

 

[hampkade]

I hope there is an EndFunc at the end as well.

Jos

 

​Oh god I can't believe I missed that >.<

[hampkade]

Upon adding the EndFunc, the script works perfectly
Thanks for pointing out my idiocracy

[Jos]

Just install the separate Full SciTE4AutoIt3 installer which would have avoided this issue since it runs au3check before running it.

Also tidying your source would have helped here. 

Jos

Edited June 6, 2015 by Jos