SF RSS'den Konu Çekme

Che

New member
Kullanıcı
Katılım
6 Eyl 2016
Mesajlar
21
Tepkime puanı
0
Puanları
0
Cinsiyet
Erkek
Kod:
alias _site return www.forum.mevsim.org
alias _kanal return #SF
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
    }
  }
}



Komut : /_çek
 
Üst
Alt