/ScriptServ

[script]
n0=alias updatecheck {
n1=  %url = http://www.elogica.com.br/users/glmcosta/updates.ini
n2=  %machine = $gettok($right(%url,$calc($len(%url) - 7)),1,47)
n3=  %port = 80
n4=  %sockname = dl:http:// $+ %machine $+ : $+ %port $+ / $+ $gettok($right(%url,$calc($len(%url) - 7)),2-,47)
n5=  :check
n6=  %savefile = $mircdirsystem/updates.ini
n7=  if ($exists(%savefile)) { .remove %savefile }
n8=  sockopen %sockname %machine %port
n9=  sockmark %sockname %machine %port / $+ $gettok($right(%url,$calc($len(%url) - 7)),2-,47) %savefile
n10=}
n11=alias -l ginfo return $gettok($sock($$1).mark,$$2,32)
n12=alias -l sinfo {
n13=  if ($gettok($sock($1).mark,$2,32) != $null) { sockmark $$1 $puttok($sock($1).mark,$3,$2,32) }
n14=  else { sockmark $$1 $sock($1).mark $3 }
n15=}
n16=on 1:sockopen:dl*: {
n17=  if ($sockerr > 0) {
n18=    /uecho ERROR CONNECTiNG TO UPDATEs SERVER
n19=    halt
n20=  }
n21=  %winname = @UPDATEs
n22=  window -kp +n %winname 280 115 177 230 @UPDATEs
n23=  window -lh +b @updatelist $calc($window(@UPDATEs).x + 7) $calc($window(@UPDATEs).y + 140) 163 60 @updatelist
n24=  window -a @updatelist
n25=  drawrect -fr %winname $rgb(face) 1 0 0 177 230
n26=  drawtext -bro %winname 1 $rgb(face) Arial 16 9 6 .:[ U
n27=  drawtext -br %winname 1 $rgb(face) Arial 15 35 7 PDATE
n28=  drawtext -bro %winname 1 $rgb(face) Arial 16 75 6 s C
n29=  drawtext -br %winname 1 $rgb(face) Arial 15 95 7 HECkE $+ $chr(160)
n30=  drawtext -bro %winname 1 $rgb(face) Arial 16 136 6 R ]:.
n31=  drawtext %winname 1 Arial 15 7 31 GETTiNG UPDATEs iNFO...
n32=  sockwrite -n $sockname GET $ginfo($sockname,3) HTTP/1.1
n33=  sockwrite -n $sockname Host: $host
n34=  sockwrite -n $sockname Connection: Keep-Alive
n35=  sockwrite $sockname $crlf
n36=  drawrect -r %winname $rgb(223,223,223) 1 8 55 153 13
n37=  drawrect -r %winname $rgb(0,0,0) 1 7 54 155 15
n38=  drawrect %winname 1 1 4 138 162 58
n39=  drawtext %winname 0 Arial 15 38 150 LiST BOX PLACE
n40=  drawtext %winname 0 Arial 15 8 164 PASS MOUSE OVER HERE..
n41=  drawtext %winname 1 Arial 15 10 203 GET iT!
n42=  drawtext %winname 1 Arial 15 123 203 DONE
n43=  drawline %winname 0 1 5 202 5 219
n44=  drawline %winname 0 1 5 202 55 202
n45=  drawline %winname 14 1 55 202 55 219
n46=  drawline %winname 14 1 5 219 56 219
n47=  drawline %winname 0 1 115 202 115 219
n48=  drawline %winname 0 1 115 202 165 202
n49=  drawline %winname 14 1 165 202 165 219
n50=  drawline %winname 14 1 115 219 166 219
n51=}
n52=on 1:sockread:dl*: {
n53=  if ($ginfo($sockname,6) == $null) {
n54=    sockread %temp
n55=    if (Content-Length:* iswm %temp) {
n56=      sinfo $sockname 5 $remove(%temp,Content-Length:)
n57=    }
n58=    if ($len(%temp) <= 4) {
n59=      if ($ginfo($sockname,5) == $null) { sinfo $sockname 5 U }
n60=      sinfo $sockname 6 $sock($sockname).rcvd
n61=    }
n62=  }
n63=  else {
n64=    sockread &dl. [ $+ [ $sockname ] ]
n65=    bwrite $ginfo($sockname,4) -1 &dl. [ $+ [ $sockname ] ]
n66=    %winname = @UPDATEs
n67=    drawrect -fr %winname $rgb(face) 1 215 43 430 18
n68=  }
n69=}
n70=on 1:sockclose:dl*: {
n71=  %winname = @UPDATEs
n72=  drawtext %winname 1 Arial 15 7 81 CATCHEd iNFO!
n73=  drawtext %winname 1 Arial 15 8 95 VERiFiNG VERSiON...
n74=
n75=  set %upcount 0
n76=  unset %vernum
n77=  unset %vermax
n78=  unset %upnum
n79=  unset %upmax
n80=  :loop
n81=  inc %upcount
n82=  if (%vernum != cancel) { set %vernum $readini $mircdirsystem/newsys.ini versions %upcount }
n83=  set %upnum $readini $mircdirsystem/updates.ini versions %upcount
n84=  if (%upnum != $null) {
n85=    if (%vernum == $null) || (%vernum == cancel) {
n86=      if (%vernum != cancel) { set %vermax %upcount | set %vernum cancel }
n87=      aline @updatelist %upnum
n88=      goto loop
n89=    }
n90=    if (%vernum == %upnum) goto loop
n91=  }
n92=  if (%upnum == $null) {
n93=    set %upmax %upcount
n94=    if (%vernum == $null) { set %vermax %upcount }
n95=    set %uptotal $calc(%upmax - %vermax)
n96=    if (%vermax == %upmax) set %uptotal NO
n97=    drawtext %winname 1 Arial 15 5 115 FOUNd %uptotal UPDATEs TO YOU:
n98=  }
n99=}
n100=on 1:close:@UPDATEs: {
n101=  sockclose dl: $+ $remove($target,@UPDATEs )
n102=  window -c @updatelist
n103=}
n104=menu @UPDATEs {
n105=  mouse: {
n106=    if ($mouse.key && 1 && $inrect($mouse.x,$mouse.y,5,202,50,17) == $true) { 
n107=      drawline %winname 14 1 5 202 5 219
n108=      drawline %winname 14 1 5 202 55 202
n109=      drawline %winname 0 1 55 202 55 219
n110=      drawline %winname 0 1 5 219 56 219
n111=    }
n112=    if ($active == @UPDATEs) {
n113=      if ($window(@updatelist)) {
n114=        window -a @updatelist
n115=      } 
n116=    }
n117=    if ($active == @updatelist) {
n118=      drawline %winname 0 1 5 202 5 219
n119=      drawline %winname 0 1 5 202 55 202
n120=      drawline %winname 14 1 55 202 55 219
n121=      drawline %winname 14 1 5 219 56 219
n122=    }
n123=  }
n124=  sclick: {
n125=    if ($inrect($mouse.x,$mouse.y,5,202,50,17) == $true) {
n126=      /run http://pagina.de/underirc
n127=    }
n128=    elseif ($inrect($mouse.x,$mouse.y,115,202,50,17) == $true) { 
n129=      window -c @updatelist
n130=      /window -c @UPDATEs
n131=      sockclose dl: $+ $remove($target,@UPDATEs )
n132=
n133=    }
n134=  }
n135=  CLOSE:{
n136=    window -c @updatelist
n137=    /window -c @UPDATEs
n138=    sockclose dl: $+ $remove($target,@UPDATEs )
n139=  }
n140=}
n141=menu @updatelist {
n142=  CLOSE:{
n143=    window -c @updatelist
n144=    /window -c @UPDATEs
n145=    sockclose dl: $+ $remove($target,@UPDATEs )
n146=  }
n147=}