/ScriptServ

;--------------------------------------------------------------------------------------------------------------------------------
;msnnewver.mrc
;Andy Carvell 2003
;Version 3.00
;--------------------------------------------------------------------------------------------------------------------------------


;***** DO NOT EDIT ANYTHING BELOW *****

alias newver {
  unset %msn.temp
  set %msn.temp3 $1
  sockclose lalala
  sockclose newvercount
  sockopen lalala www.burningimage.net 80
  sockopen newvercount www.burningimage.net 80
}

on *:SOCKOPEN:lalala:{
  if ($sock($sockname).status == active) {
    sockwrite -n lalala GET http://www.burningimage.net/msn/newver/index.htm
  }
}

on *:SOCKOPEN:newvercount:{
  if ($sock($sockname).status == active) {
    if (%msn.temp3 == in) {
      sockwrite newvercount GET /msn/client/uniqueclientnewin.php HTTP/1.0 $+ $crlf $+ Host: www.burningimage.net $+ $crlf $+ $crlf
    }
    if (%msn.temp3 != in) {
      sockwrite newvercount GET /msn/client/uniqueclientnew.php HTTP/1.0 $+ $crlf $+ Host: www.burningimage.net $+ $crlf $+ $crlf
    }
  }
}

on *:sockread:lalala:{
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  ;aline @debug 4 $+ %temp
  if ( $gettok(%temp,1,32) == !version! ) { 
    set %msn.newversion $gettok(%temp,2,32)
    set %msn.newversion.url $gettok(%temp,3,32)
    if ( %msn.newversion > $msnversion ) {
      dialog -m new_version new_version
    }
    halt
  }
  if ( $gettok(%temp,1,32) = !motd! ) {
    set %msn.motd $gettok(%temp,2-,32)
  }
  goto nextread
}