@loop
Escreve "Título: "
le $titulo
Escreve "Mensagem:"
le $mensagem
seja $recurso "/notificacoes"
seja $baseurl "38.210.210.61"
seja $metodo "POST "
seja $porta 6001
seja $useragent "Cinevox"
seja $versao_http " HTTP/1.1"

internet inicia
conecta #0 $baseurl $porta

seja $dadospost "{""titulo"":"""
concatena $dadospost $titulo
concatena $dadospost """,""mensagem"":"""
concatena $dadospost $mensagem
concatena $dadospost """}"
ansiparautf8 $dadospost
escreve #0 $metodo $recurso $versao_http
escreve #0 "Host: "$baseurl
escreve #0 "User-Agent: "$useragent
escreve #0 "Accept: */*"
escreve #0 "Connection: Close"

escreve #0 "Content-Type: Application/json"
seja $tamdadospost tamanho $dadospost
escreve #0 "Content-length: "$tamdadospost
escreve #0 ""
escreve #0 $dadospost
escreve #0 ""

le #0 l
enquanto l <> ""
le #0 l
fim enquanto

le #0 l
fecha #1
internet termina
desvia @loop
