SuperStrict

Framework BRL.StandardIO
Import BRL.FileSystem

Global Stream : TStream

Const MODCFG : String = "cfg/modservers.cfg"
Const SYNC   : String = "bin/syncmods.exe"
Const BMK    : String = "bin/bmk.exe"
Const DOC    : String = "bin/docmods.exe"

Try

Print("BRL Modserver...")
If Not DeleteFile(MODCFG) Then Throw("Can't delete modservers.cfg")
Stream = WriteFile(MODCFG)
If Not Stream Then Throw("Can't write modservers.cfg")
Stream.WriteLine("www.blitzbasic.com/modserver122")
Stream.Close()

system_(SYNC + " -u username -p password brl pub birdie bah axe")
Print("~nOK")


Print("BlitzHelp Modserver...")
If Not DeleteFile(MODCFG) Then Throw("Can't delete modservers.cfg")
Stream = WriteFile(MODCFG)
If Not Stream Then Throw("Can't write modservers.cfg")
Stream.WriteLine("www.blitzhelp.net/modserver")
Stream.Close()

system_(SYNC + " -u username -p password pub artemis btbn chaos iud vertex")
Print("~nOK")

Print("Compiling...")
system_(BMK + " makemods -d")
system_(BMK + " makemods -r")
Print("~nOK")

Print("Docing...")
system_(DOC)
Print("~nOK")

Catch Exception:Object
   Print("~nError: ")
   Print(" " + Exception.ToString())

End Try

Print("~n~n- ready -")
End