Toprak
26 Ocak 2015, 00:18
alias _site return [Only Registered Users Can See Links]
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/ [Only Registered Users Can See Links]
%: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,>,$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
}
}
}
2 alias'i kendinize göre degiştirin..
alias _site return [Only Registered Users Can See Links]
alias _kanal return #Forum
Degiştirdikden sonra /_çek komutunu kullanarak başlatabilirsiniz..
Not: 6.35 ve üzerinde çalışır.
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/ [Only Registered Users Can See Links]
%: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,>,$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
}
}
}
2 alias'i kendinize göre degiştirin..
alias _site return [Only Registered Users Can See Links]
alias _kanal return #Forum
Degiştirdikden sonra /_çek komutunu kullanarak başlatabilirsiniz..
Not: 6.35 ve üzerinde çalışır.