Propósito
Permitir
o envio de um arquivo de uma máquina para outra, através de um
programa opus.
Sintaxe
m = SendFile(arquivo)
Utilização
Esta função
deve ser utilizada, quando um programa opus que fica ativo na máquina
servidor necessitar enviar um arquivo para outro programa opus que está
sendo executado na máquina cliente. Evita a utilização
do serviço ftp. Útil quando utilizado com o protocolo send-receive.
Exemplo:
$noexec,noclear,noterm,noget
$lentmp=500
prog
private m(500)
a = server(no do serviço) && Cria uma cópia do programa
opus que está ativo no servidor
if ! a
? “Erro na Inicialização do Servidoe”
quit
endif
r = rec(m)
if left(m,3) = “arq”
r = SendFile(substr(m,4,80))
endif
a = server(0) && Finaliza( retira do ar) o programa opus que foi inicializado
pela função
&&server()
return