Mine

on *:DIALOG:delete_table:sclick:5: {
  if (%latest.version > %version.delete) {
    /expired
    did -a delete_table 9 Newer version avalible.
  }
  elseif ($sock(version_check)) {
    set %version.delete $readini(deleteversion.ini, mIRC-Delete, version) 
    .sockclose version_check
    sockopen version_check mirc.ownagescape.co.uk 80
  }
  else {
    did -a delete_table 9 All files up to date.
    unset %version.delete
    unset %latest.version
  }
}
on *:SOCKOPEN:version_check: {
  sockwrite -nt $sockname GET /version.htm HTTP/1.1
  sockwrite -nt $sockname Host: mirc.ownagescape.co.uk
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:version_check: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Current Version:* iswm %sockreader && *<body>* !iswm %sockreader ) {
      noop $regex(%sockreader,/Current Version:(.*?)\./Si)
      set %new.version. $remove($nohtml($regml(1)),Current Version:,.)
      set %latest.version %new.version.
      sockclose version_check
    }
  }
}