Paylaşımın Ve Sohbetin Tek Adresine HoşGeldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

SF RSS'den Konu Çekme

  • Konbuyu başlatan Che
  • Başlangıç tarihi
  • Okuma süresi: 0:08

Che

uye
Katılım
6 Eyl 2016
Mesajlar
21
Tepkime puanı
0
Puanları
1
Cinsiyet
Erkek

İtibar Puanı:

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
 
Tüm sayfalar yüklendi.

Konuyu Görüntüleyen Kullanıcılar (Toplam:0)