alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,HTTP/1.1 200 OK,Server: Microsoft-IIS/6.0)
  return %x  
} 
alias history { sockopen Tarih www.yehhu.com 80  }  
on *:SockOpen:Tarih:{  
  sockwrite -n $sockname GET /tarihte_bugun/ HTTP/1.1
  sockwrite -n $sockname host: yehhu.com  
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:Tarih:{  
  var %bilgi
  sockread %bilgi
  if $regex($htmlfree(%bilgi),\d\.) || $regex($htmlfree(%bilgi),/(Ölen|doğan)/i)  { msg %tarihchan $+($gettok($date,1-2,47),/) $+ $replace($htmlfree(%bilgi),Ölen,$+($chr(3),4Ölen),Doğan,$+($chr(3),4Doğan))) | .timer 1 4 sockclose tarih }
} 
on *:Text:*:#: {
  if ($regex($1,/(!Tarih|.Tarih)/i)) {
    set %tarihchan $chan
    .history
  }
}