Forums Scripts & Popups looking up data from a website

 
;type /usalert to open!


dialog usalert {
  title "US Alert Level"
  size 580 -19 155 53
  option pixels
  icon 1, 0 -1 154 41,  %hls.jpg, 0
  link "close ", 2, 0 40 36 16
  link "refresh", 3, 115 40 44 16
}
on *:dialog:usalert:sclick:3:/dialog -x usalert usalert | usalert
on *:dialog:usalert:sclick:2:/dialog -x usalert usalert
alias usalert download www.whitehouse.gov /homeland/index.html
alias download {
  var %socket $+(dl,$chr(46),$nopath($2))
  if (!$sock(%socket)) {
    sockopen %socket $1 80
    sockmark %socket HEAD $1 $2
    ;echo $color(info) -s * Beginning download.
  }
  else { echo $color(info) -s * Socket already in use. }
}
alias percent return $+($round($calc((100 / $2) * $1),2),%)
on *:SOCKOPEN:dl.*:{
  if ($sockerr) { echo $color(info) -s * Error: $sock($sockname).wsmsg | return }
  hadd -m ticks $sockname $ticks
  var %file = $nopath($gettok($sock($sockname).mark,3,32)), %fullfile = $+(",$mircdir,%file,"), %sckr = sockwrite -n $sockname, %^ = $gettok($sock($sockname).mark,3,32)
  ;echo $color(info) -s * Creating file and contacting host...
  write -c %fullfile
  %sckr GET $iif(left(%^,1) != $chr(47),$chr(47) $+ %^,%^) HTTP/1.0
  %sckr HOST: $gettok($sock($sockname).mark,2,32)
  %sckr ACCEPT: *.*
  %sckr $crlf
}
on *:SOCKREAD:dl.*:{
  if ($sockerr) {
    echo $color(info) -s * Error: $sock($sockname).wsmsg
    return
  }
  var %a
  :begin
  if ($gettok($sock($sockname).mark,1,32) == head) { sockread %a }
  else { sockread &b }
  if ($sockbr) {
    tokenize 32 $sock($sockname).mark
    if ($1 == HEAD) {
      if (%a) {
        if ($gettok(%a,1,32) == Content-Length:) { var %totsize = $gettok(%a,2,32) }
      }
      else {
        ;echo $color(info) -s * Starting download... (Total size: $bytes(%totsize).suf $+ )
        sockmark $sockname GET $2- %totsize
      }
    }
    elseif ($1 == GET) {
      ; Downloading ...
      var %file = $+(",$mircdir,$nopath($3),"), %cursize = $file(%file).size
      var %totsize = $gettok($sock($sockname).mark,4,32)
      ;echo $color(info) -s * Downloaded ... $bytes(%cursize).suf ( $+ $percent(%cursize,%totsize) $+ )
      bwrite %file -1 &b
    }
    goto begin
  }
}
on *:SOCKCLOSE:dl.*:{
  var %ticks = $calc(($ticks - $hget(ticks,$sockname)) /1000)
  ;echo $color(info) -s * Download of $nopath($gettok($sock($sockname).mark,3,32)) completed in %ticks seconds.
  .timerhls 1 1 .rename index.html hls.txt
  .timerhls2 1 2 usal
}
alias usal {
  if ($read(hls.txt, w,  *severe.jpg*)) { /set %hls.jpg $scriptdirsevere.jpg | dialog -ma usalert usalert }
  elseif ($read(hls.txt, w,  *high.jpg*)) { /set %hls.jpg $scriptdirhigh.jpg | dialog -ma usalert usalert }
  elseif ($read(hls.txt, w,  *elevated.jpg*)) { /set %hls.jpg $scriptdirelevated.jpg | dialog -ma usalert usalert }
  elseif ($read(hls.txt, w,  *guarded.jpg*)) { /set %hls.jpg $scriptdirguarded.jpg | dialog -ma usalert usalert }
  elseif ($read(hls.txt, w,  *low.jpg*)) { /set %hls.jpg $scriptdirlow.jpg | dialog -ma usalert usalert }
  else { /echo nothing found! }
  .remove hls.txt
  .timerusal 1 5 unset %hls.jpg
}
on *:start:/usalert
 

 
;type /fstats to use

alias fstats download hyperboards.hyperboards.com /index.cgi
alias download {
  var %socket $+(dl,$chr(46),$nopath($2))
  if (!$sock(%socket)) {
    sockopen %socket $1 80
    sockmark %socket HEAD $1 $2
    ;echo $color(info) -s * Beginning download.
  }
  else { echo $color(info) -s * Socket already in use. }
}
alias percent return $+($round($calc((100 / $2) * $1),2),%)
on *:SOCKOPEN:dl.*:{
  if ($sockerr) { echo $color(info) -s * Error: $sock($sockname).wsmsg | return }
  hadd -m ticks $sockname $ticks
  var %file = $nopath($gettok($sock($sockname).mark,3,32)), %fullfile = $+(",$mircdir,%file,"), %sckr = sockwrite -n $sockname, %^ = $gettok($sock($sockname).mark,3,32)
  ;echo $color(info) -s * Creating file and contacting host...
  write -c %fullfile
  %sckr GET $iif(left(%^,1) != $chr(47),$chr(47) $+ %^,%^) HTTP/1.0
  %sckr HOST: $gettok($sock($sockname).mark,2,32)
  %sckr ACCEPT: *.*
  %sckr $crlf
}
on *:SOCKREAD:dl.*:{
  if ($sockerr) {
    echo $color(info) -s * Error: $sock($sockname).wsmsg
    return
  }
  var %a
  :begin
  if ($gettok($sock($sockname).mark,1,32) == head) { sockread %a }
  else { sockread &b }
  if ($sockbr) {
    tokenize 32 $sock($sockname).mark
    if ($1 == HEAD) {
      if (%a) {
        if ($gettok(%a,1,32) == Content-Length:) { var %totsize = $gettok(%a,2,32) }
      }
      else {
        ;echo $color(info) -s * Starting download... (Total size: $bytes(%totsize).suf $+ )
        sockmark $sockname GET $2- %totsize
      }
    }
    elseif ($1 == GET) {
      ; Downloading ...
      var %file = $+(",$mircdir,$nopath($3),"), %cursize = $file(%file).size
      var %totsize = $gettok($sock($sockname).mark,4,32)
      ;echo $color(info) -s * Downloaded ... $bytes(%cursize).suf ( $+ $percent(%cursize,%totsize) $+ )
      bwrite %file -1 &b
    }
    goto begin
  }
}
on *:SOCKCLOSE:dl.*:{
  var %ticks = $calc(($ticks - $hget(ticks,$sockname)) /1000)
  ;echo $color(info) -s * Download of $nopath($gettok($sock($sockname).mark,3,32)) completed in %ticks seconds.
  .timer 1 1 .rename index.cgi fstats.txt
  .timer 1 2 fstats2
}
alias fstats2 {
  if ($read(fstats.txt, w,  *Total Members:*)) { /set %tm  }
  elseif ($read(fstats.txt, w,  *Newest Member:*)) { /set %nm  }
  elseif ($read(fstats.txt, w,  *Total Topics:*)) { /set %tt  }
  elseif ($read(fstats.txt, w,  *Total Posts:*)) { /set %tp  }
  elseif ($read(fstats.txt, w,  *Online:*)) { /set %om  }
  elseif ($read(fstats.txt, w,  *Last Updated Topic:*)) { /set %lut  }
  else { /echo nothing found! }
  /msg $chan Total Members: %tm $+ , Newest member: %nm $+ , Total; Topics: %tt $+ , Total Posts: %tp $+ , Online: %om $+ .
  /msg $chan Last Updated Topic: %lut $+ .
  .remove fstats.txt
}
menu * {
Forum-Stats:fstats
}
 

alias download {
  if ($sock(socket_example)) {
    echo $colour(info text) @download *** already downloading; please wait.
    return
  }
  ; connect to server
  sockopen socket_example hyperboards.hyperboards.com 80
}
on *:sockopen:socket_example:{
  if ($sockerr) {
    echo $colour(info text) @download *** error $sockerr when downloading
    return
  }
  ; initialize variables/files
  write -c index.cgi
  unset %downloadlength %downloadready
  window -c @download
  ; request file
  sockwrite -n $sockname GET /index.cgi HTTP/1.0
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname Host: hyperboards.hyperboards.com
  sockwrite -n $sockname
}
on *:sockread:socket_example:{
  ; if we're not ready to start writing the file (didn't get header info yet)..
  if (%downloadready != 1) {
    ; begin reading header info
    var %header
    sockread %header
    while ($sockbr) {
      if (Content-length: * iswm %header) {
        ; got the length of the file
        %downloadlength = $gettok(%header,2,32)
        if (* !iswm $window(@download)) window @download
        echo $colour(info text) @download *** file size: %downloadlength bytes
      }
      elseif (* !iswm %header) {
        ; got the header info, ready..
        %downloadready = 1
        ; because we've received some bytes from the header.. we need to offset the progress thingy a bit.
        %downloadoffset = $sock($sockname).rcvd
        ; ready to download, got content length.. so break out of this header loop
        break
      }
      sockread %header
    }
  }
  ; begin binary download
  sockread 4096 &d
  while ($sockbr) {
    if (* !iswm $window(@download)) window @download
    echo $colour(info text) @download *** received: $round( $calc(100 * ($sock($sockname).rcvd - %downloadoffset) / %downloadlength) ,1) $+ %
    ; write the data to the end of the file
    bwrite index.cgi -1 -1 &d
    ; read the next bit
    sockread 4096 &d
  }
}
on *:sockclose:socket_example:{
  echo $colour(info text) @download *** done downloading index.cgi
  ; rename the file.
  .timer 1 1 .rename index.cgi fstats.txt  
}  

alias fstats2 {
  if ($read(fstats.txt, w,  *Total Members:*)) { /set %tm  }
  elseif ($read(fstats.txt, w,  *Newest Member:*)) { /set %nm  }
  elseif ($read(fstats.txt, w,  *Total Topics:*)) { /set %tt  }
  elseif ($read(fstats.txt, w,  *Total Posts:*)) { /set %tp  }
  elseif ($read(fstats.txt, w,  *Online:*)) { /set %om  }
  elseif ($read(fstats.txt, w,  *Last Updated Topic:*)) { /set %lut  }
  else { /echo nothing found! }
  /msg $chan Total Members: %tm $+ , Newest member: %nm $+ , Total; Topics: %tt $+ , Total Posts: %tp $+ , Online: %om $+ .
  /msg $chan Last Updated Topic: %lut $+ .
  .remove fstats.txt}menu * {Forum-Stats:fstats}
}  

alias fstats2 {
  if ($read(fstats.txt, w,  *Total Members:*)) { /set %tm  }
  elseif ($read(fstats.txt, w,  *Newest Member:*)) { /set %nm  }
  elseif ($read(fstats.txt, w,  *Total Topics:*)) { /set %tt  }
  elseif ($read(fstats.txt, w,  *Total Posts:*)) { /set %tp  }
  elseif ($read(fstats.txt, w,  *Online:*)) { /set %om  }
  elseif ($read(fstats.txt, w,  *Last Updated Topic:*)) { /set %lut  }
  else { /echo nothing found! }
  /msg #MT 9FORUM-STATS 14Total Members: 9 $+ %tm $+  $+ , 14Newest member: 9 $+ %nm $+  $+ , 14Total Topics:  9 $+ %tt  $+  $+ , 14Total Posts: 9 $+ %tp $+  $+ , 14Online:  9 $+ %om $+  $+ .
  /msg #MT 14Last Updated Topic: 9 $+ %lut $+  $+ .
}
;MENU
menu * {
  Forum-Stats:fstats
}

alias fstats {
  if ($read(fstats.txt,w,*<a href="index.cgi?action=mlall"><B>*</B></a>*)) {
  var %tm = $read(fstats.txt,$readn) 
  /msg #adasda Total Members: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 10)),1,$asc(<)) 
}  

alias fstats {
  if ($read(fstats.txt,w,*<a href="index.cgi?action=mlall"><B>*</B></a>*)) {
  var %tm = $read(fstats.txt,$readn) 
  elseif ($read(fstats.txt,w,*Newest Member: <A HREF="index.cgi?action=viewprofile&username=*"><B>*</B>*)) {
  var %nm = $read(fstats.txt,$readn) 
  /msg #adasda Total Members: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 10)),1,$asc(<)) Newest Member: $gettok($mid(%nm,$calc($pos(%nm,viewprof) + 25)),1,$asc(<))
}  

 
alias fstats {
  var %file = fstats.txt
  echo -a -
  echo -a FORUM-STATS
  if ($read(%file,w,*<a href="index.cgi?action=mlall"><B>*</B></a>*)) {
    var %tm = $read(%file,$readn)
    echo -a Total Members: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 10)),1,$asc(<))
  }
  if ($read(%file,w,*<BR>Newest Member: <A HREF="index.cgi?action=viewprofile&username=*"><B>*</B></A>*)) {
    var %tm = $read(%file,$readn)
    echo -a Newest Member: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 78)),1,$asc(<))
  }
  if ($read(%file,w,*Total Topics: <B>*</B>*)) {
    var %tm = $read(%file,$readn)
    echo -a Total Topics: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 18)),1,$asc(<))
  }
  if ($read(%file,w,*<BR>Last Updated Topic: <B><A HREF="index.cgi?action=display&board=rateaboard&num=*&start=0">*</A> (<B>*</B>*)</B><BR>*)) {
    var %tm = $read(%file,$readn)
    echo -a Last Updated Topic: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 103)),1,$asc(<))
  }  
  if ($read(%file,w,*Total Posts: <B>*</B>*)) {
    var %tm = $read(%file,$readn)
    echo -a Total Posts: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 59)),1,$asc(<))
  }
  if ($read(%file,w,*<td valign="top" align="left"><font size="1">*<BR><A HREF="index.cgi?action=viewprofile&username=*">*)) {
    var %tm = $read(%file,$readn)
    echo -a Users Online: $gettok($mid(%tm,$calc($pos(%tm,mlall) + 46)),1,$asc(<))
  }
  echo -a -
}