HTTP persistent connection

[Lucas]

Function snrs_set_excel2

Code:

Copy      Help

function str'l r
str sd tp sst sccm fl
str cab mc=Rlogin2mac(l cab)
str s
;comenzar
Http h.Connect("xxxx" "xx" "xx")
err goto error
_s.format("mac=%s&cab=%s&mod=---" mc cab)
h.PostWithTimeout(77 "/cgi-bin/cc.pl" _s s)
err goto comenzar
if(!s.len) goto comenzar

snrs_extraer s sd tp sst sccm fl
ExcelSheet es.Init
es.SetCell(sd 10 r)
es.SetCell(tp 11 r)
es.SetCell(sst 12 r)
es.SetCell(sccm 13 r)
es.SetCell(fl 14 r)
ret
;error
s="ERROR"
out s
ret s