Mirc RSS Haber çekme
Kod:
alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ğ,G,Ğ,G,h,H,ı,I,i,I,İ,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,ş,S,Ş,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å,ş,ÄŸ,ğ,Ãœ,ü,Ä,ğ,$chr(39),-)
on *:sockopen:haber*:{
var %:haber sockwrite -n $sockname
%:haber GET /rsskonu.asp?konu= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
%:haber Host: rss.haberler.com
%:haber $crlf
if (!$hget(Haber)) { .hmake Haber }
}
on *:sockread:haber*:{
if ($sockerr) { .sockclose $sockname | return }
var %haberler | sockread %haberler | .tokenize 32 %haberler
if (<title> isin %haberler) {
if $htmlfree(%haberler) == Haberler.Com { return }
.msg #haberler $token($sock($sockname).mark,2,191) :5Baslik: $htmlfree(%haberler)
}
if (*<description>*</description>* iswm %haberler) {
if $htmlfree(%haberler) == Türkiye'nin en kapsamlı haber portalı { return }
.msg #haberler $token($sock($sockname).mark,2,191) :5Aciklama: $trchra($htmlfree(%haberler))
}
if (*<pubDate>*</pubDate>* iswm %haberler) {
.msg #haberler $token($sock($sockname).mark,2,191) :5Zaman: $htmlfree(%haberler)
.msg #haberler $token($sock($sockname).mark,2,191) :
.sockclose $sockname
return
}
}
}
Bu <description>*</description> bi türlü çekemiyorum hep aynı cümleyi yazıyor.En baştaki description u çekiyor anladıgım kadarıyla bunu nasıl düzeltiriz. |
