| Bozkurt- | 13 Ekim 2022 15:29 |
Hadis-i Şerif Kodu (Socket)
Kod:
on *:text:*:#:{
if $regex($1,/^[!.-]had[ıiIl][sş]$/Si) {
set %:kanal #
hadis
}
}
alias hadis {
if ($sock(hadisd-*)) { sockclose hadisd-* }
sockopen hadisd-* api.tavcan.com 80
}
on *:sockopen:hadisd-*: {
var %hadisvertest sockwrite -tn $sockname
%hadisvertest GET $+(/json/birhadis) HTTP/1.1
%hadisvertest Host: api.tavcan.com
%hadisvertest User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0
%hadisvertest Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8
%hadisvertest Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%hadisvertest Alt-Used: api.tavcan.com
%hadisvertest Connection: close
%hadisvertest $crlf
}
on *:sockread:hadisd-*:{
:hadisverımtest | sockread -f %hadisvertesti
if ($sockbr == 0) return
if (*"soz":* iswm %hadisvertesti ) msg %:kanal 4 3 $_fl(%hadisvertesti)
goto hadisverımtest
}
alias _fl return $replace($1-,\u0130,i,\u0041,A,\u0061,a,\u0130,İ,\u00e2,â,\u00fc,ü,\u0131,ı,\u2019,',\u00fb,û,\u00ee,î,\u201c,",\u201d,",\u00f6,ö,Soz,Hadis)
Siteden unicode olarak çektiği için hata veriyordu. Unicode karakterleri Türkçe karaktere çevirdim. Şuan Sorunsuz çalışıyor. Unicode karakter hatası alırsanız. Unicode değerini bulup -fl alias kısmına uygun şekilde eklerseniz sorunsuz çalışır. |
