mIRC Günlük Korona Verileri Addonu

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }

on *:sockopen:_corona: { 
  sockwrite -nt $sockname GET /korona.php HTTP/1.0
  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf
}
on *:sockread:_corona:{
  var %i | sockread %i | if !$window(@corona) { window -en @corona } 
  if span isin %i { echo @corona $htmlfree(%i) }
}
alias corona { if $window(@corona) { clear @corona } | sockclose _corona | sockopen _corona api.teknolobi.net 80 }