Text version_type = If(TextFind(Version,".alpha "),"development","official");
Text WriteFile(version_type+"_tol_release_win.txt",Version);

Real OSCmdWait("pscp tolbase-"+TolVersionId+"-setup.exe toldevel@tolp.localbayes.es:/var/www/packages/win32/.");
Real OSCmdWait("pscp "+version_type+"_tol_release_win.txt toldevel@tolp.localbayes.es:/var/www/packages/win32/.");
Text remote_cp = " plink toldevel@tolp.localbayes.es \"cp "
  "/var/www/packages/win32/tolbase-"+TolVersionId+"-setup.exe "
  "/var/www/packages/win32/history/"+TolVersionId+"/tolbase-"+ToName(Version)+"-setup.exe \" ";

Real OSCmdWait(remote_cp);