Untitled

alias gerrits  sockclose gerrits | sockopen gerrits notredameofdepere.com 80 
on *:sockopen:gerrits: { 
  sockwrite -n $sockname GET /?page_id=111&parent_page_id=92  HTTP/1.1 
  sockwrite -n $sockname Host: notredameofdepere.com 
  sockwrite -n $sockname $crlf
}
on *:sockread:gerrits: { 
  if ($sockerr) { echo -a Error. | halt }
  else {
    var %temp
    sockread %temp 
    if (*Welcome to* iswm %temp) { 
      notice %gerrits Current Homework: $replace($gettok($nohtml(%temp),2,61), ,$chr(32))
      .timerSOCKET 1 2 sockclose gerrits
    } 
  }
}
on *:TEXT:!hwgerrits:#: {
  set %gerrits $nick 
  gerrits
}  
alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }