Nesse vídeo demonstraremos a utilização da função IsSrvUnix, que serve para validar se o AppServer esta rodando em um servidor Unix-Like (distros Linux).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} zExe314
Valida se o servidor que esta rodando o AppServer é Linux / Unix-Like
@type Function
@author Atilio
@since 23/02/2023
@see https://tdn.totvs.com/display/tec/IsSrvUnix
@obs
Função IsSrvUnix
Parâmetros
Não tem parâmetros
Retorno
+ lRet , Lógico , .T. se tiver rodando em um ambiente Linux / Unix-Like ou .F. se não (Windows)
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe314()
Local aArea := FWGetArea()
//Faz a validação onde o AppServer esta rodando
If IsSrvUnix()
FWAlertInfo("O AppServer esta rodando em um servidor Linux / Unix-Like", "Teste IsSrvUnix")
Else
FWAlertInfo("O AppServer esta rodando em um servidor Windows", "Teste IsSrvUnix")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
