Anonymous

alias chk.updates2 {
  write -c systeem\data\updates.cwm
  if ($sock(upchk2)) { return }
  sockopen upchk2 www.leandroweb.be 80
}

on *:SOCKOPEN:upchk2: {
  if ($sockerr) { return }
  sockwrite -tn $sockname GET /updatecwm/updates.cwm HTTP/1.1
  sockwrite -tn $sockname Host: www.leandroweb.be $+ $crlf $crlf
  sockwrite -tn $sockname Connection: Close
  sockwrite -tn $sockname $crlf  
}


on *:SOCKREAD:upchk2: {
  if ($sockerr) { return }
  if (%sockupdate != downloading) {
    var %1 | sockread %1 | tokenize 32 %1
    ;echo -a %l
    if ($1 == Content-Length:) { echo -a bytes = $2- }
    elseif ($1 == Content-Type:) { echo -a type = $2- }
    elseif (!$1) {
      set %sockupdate downloading
      return
    }
  }
  else {
    var %12 | sockread %12 | tokenize 32 %12
    echo -a %l2
    if ($left(%l2,1) != $chr(63)) { return }
    ;bwrite systeem\data\updates.cwm -1 &l
    write systeem\data\updates.cwm %l2
    set %sockupdate notdownloading
  }
}
on *:SOCKCLOSE:upchk2: { echo -a socket closed }