; -------------------------------------------------------------------------
; read base/etc/version.txt
; adds rev-<revision>-win to string
;
; Creation: 2005-10-22 lanspezi
; $Id$
; -------------------------------------------------------------------------
Opt("TrayIconHide", 1)

if $CmdLine[0] = 2  then
    $svnrevbin = $CmdLine[1]
    $svndir = $CmdLine[2]
    $str = FileReadLine ("base\version.txt")
    If FileExists ("getrevision.txt") then
        FileDelete ("getrevision.txt")
    EndIf
    If FileExists ("getrevision.tmpl") then
        FileDelete ("getrevision.tmpl")
    EndIf
    FileWriteLine ("getrevision.tmpl", "$WCREV$")
    ;MsgBox(0, "Debug", "bin: " & $svnrevbin & "dir: " & $svndir)
    $a = RunWait ($svnrevbin & " " & $svndir & " getrevision.tmpl getrevision.txt" ,$svndir, @SW_HIDE)
    ;MsgBox(0, "Debug", "Rück=" & $a)
    $rev = FileReadLine ("getrevision.txt")
    $newstr = $str & "rev-" & $rev & "-win"
    FileDelete ("base\version.txt")
    FileWriteLine ("base\version.txt",$newstr & @LF)

    ; cleanup
    FileDelete ("getrevision.tmpl")
    FileDelete ("getrevision.txt")
else
    FileWriteLine ("reverr.log", "wrong function call") 
EndIf