Ticket #2652: 113.au3

#Include <Web.au3>

;If Not FileExists(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Autoit v3\", "InstallDir") &"\Aut2Exe\Aut2exe.exe") Then
;    _StartWebApp("Error")
;    echo("error! Compiler not found at "& RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Autoit v3\", "InstallDir") &"\Aut2Exe\Aut2exe.exe")
;EndIf

$srcfile = @Scriptdir &"\script\tmpfile.au3"
Local $sAut2exeA = @ProgramFilesDir & "\AutoIt3\Aut2Exe\Aut2exeA.exe"
If Not FileExists($srcfile) Then
    fileopen( $srcfile, 10 )
    FileWrite($srcfile, ";Beginning code"&@CRLF)
EndIf
    fileopen( $srcfile, 10 )
_StartWebApp()

If _Post("code") Then
    echo('<br>Step 1 of 3')
    Do
    FileWrite($srcfile, _Post("code"))
    Until FileExists($srcfile)
    ;Run(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Autoit v3\", "InstallDir") &'\Aut2Exe\Aut2exe.exe /in "'& $srcfile&'"')
    echo('<br>Step 2 of 3')
    $infile = $srcfile
    $outfile = @scriptdir & '\script\tmpfile.exe'
    $param = '/in "' & $infile & '" /out "' & $outfile & '"'
    echo('<br>Step 3 of 3')
    ShellExecute($sAut2exeA, $param)
    echo('<BR>Compiling')
    Do
    echo('.')
    sleep(1000)
    Until FileExists(@Scriptdir &"\script\tmpfile.exe")
    sleep(1000)
    echo("<BR>Download file here: <a href=/script/tmpfile.exe>Click Here</a>")
EndIf

echo("<form action="&$_SCRIPT_NAME&" method=POST>")
echo("<textarea name=code width=400 height=400></textarea><br>")
echo("<input type=submit>")