alias _site return www.lookjapan.com
alias _kanal return #Forum

alias _çek $+(.timer,rss) 0 20 _rss 
alias _rss sockopen rss $_site 80
alias _veri { var %:veri = 1 | while %:veri <= $lines(konu.txt) { msg $_kanal $read(konu.txt,%:veri) | inc %:veri } | .remove konu.txt }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å?,ş,ÄŸ,ğ,Ãœ,ü,Ä?,ğ,$chr(39),-)

on *:sockopen:rss:{ 
  var %:rss sockwrite -n $sockname
  %:rss GET /external.php?type=RSS2/ HTTP/1.1
  %:rss Host: $_site
  %:rss Connection: keep-alive
  %:rss Cache-Control: max-age=0
  %:rss Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  %:rss User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36
  %:rss $crlf
}
on *:sockread:rss:{
  var %:rss | sockread %:rss
  if (<title> isin %:rss) { .hadd -ms Forum Başlık $_tr($htmlfree(%:rss)) }
  if (<link> isin %:rss) { .hadd -ms Forum Link $htmlfree(%:rss) }
  if (<pubDate> isin %:rss) { .hadd -ms Forum Tarih $htmlfree(%:rss) }
  if (<description> isin %:rss) { 
    .hadd -ms Forum Konu $iif(*[CDATA* iswm %:rss,$_tr($token($token($replace(%:rss,&gt;,$chr(62)),3,91),1,93)),$_tr($htmlfree(%:rss)))
    if !$read(link.txt,w,$hget(Forum,Link)) {
      .write konu.txt 7------------------------------------------------------
      .write konu.txt 4Başlık:1 $hget(Forum,Başlık) | .write konu.txt 4Link:1 $hget(Forum,Link) | .write konu.txt 4Tarih:1 $hget(Forum,Tarih) | .write konu.txt 4Konu:1 $hget(Forum,Konu) | .write link.txt $hget(Forum,Link)
      sockclose $sockname | _veri
    }
  }
}

alias _site return www.lookjapan.com
alias _kanal return #Forum