| Sessiz | 12 Mayıs 2016 21:42 |
RSS'den Konu Çekme
Merhaba,
Forum yada RSS kurulu olan siteleriniz de ki konuları irc sunucunuz da ki belirlenen bir kanala göndermesine yarar. Kod:
alias _site return www.ircforumu.net
alias _kanal return #Toprak
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 ( isin %:rss) { .hadd -ms Forum Başlık $_tr($htmlfree(%:rss)) }<br />
if (<link> isin %:rss) { .hadd -ms Forum Link $htmlfree(%:rss) }<br />
if (<pubDate> isin %:rss) { .hadd -ms Forum Tarih $htmlfree(%:rss) }<br />
if (<description> isin %:rss) { <br />
.hadd -ms Forum Konu $iif(*[CDATA* iswm %:rss,$_tr($token($token($replace(%:rss,>,$chr(62)),3,91),1,93)),$_tr($htmlfree(%:rss)))<br />
if !$read(link.txt,w,$hget(Forum,Link)) {<br />
.write konu.txt 7------------------------------------------------------<br />
.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)<br />
sockclose $sockname | _veri<br />
}<br />
}<br />
}</code><hr /> </div> <a rel="nofollow" href="https://p1311.hizliresim.com/1h/6/u8db0.png" target="_blank">https://p1311.hizliresim.com/1h/6/u8db0.png</a><br />
2 alias'ı kendinize göre ayarlayın;<br /> <br /> <div style="margin:20px; margin-top:5px"> <div class="smallfont" style="margin-bottom:2px">Kod:</div> <hr /><code style="margin:0px" dir="ltr" style="text-align:left">alias _site return www.ircforumu.net<br />
alias _kanal return #Toprak</code><hr /> </div>Ayarladıkdan sonra <b>/_çek</b> yazmanız yeterli.</div> </td> </tr> </table> <br /> <br /> <table cellpadding="0" cellspacing="0" border="0" width="100%"> <tr valign="top"> <td class="smallfont">Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: <span class="time">01:15</span>.</td> <td align="right"> <div class="smallfont"></div> </td> </tr> </table> <p class="smallfont" align="center">
Powered by vBulletin® Version 3.8.11<br />Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
<br />Search Engine Friendly URLs by vBSEO 3.6.0<br />
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.
</p> </body> </html> |
