on *:sockopen:klbkbt:{
if ($sockerr) { msg #KanaL Hata bağlanılamadı! | return }
else {
var %klbkbt = sockwrite -nt $sockname
%klbkbt GET /external.php? $+ / HTTP/1.1
%klbkbt HOST:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.on *:sockread:klbkbt:{
var %kfveri
sockread %kfveri
if (*<title>* iswm %kfveri) {
set %baslik
$remove(%kfveri,</title>,<title>,<![CDATA[,]],<,>)
}
if (*<description>* iswm %kfveri) {
set %kfaciklax $remove(%kfveri,</description>,<description>)
}
if (*<link>* iswm %kfveri) {
set %kflinks $remove(%kfveri,</link>,<link>)
}
if (*<pubDate>* iswm %kfveri) {
set %kftime $remove(%kfveri,</pubDate>,<pubDate>,GMT)
}
if (*<dc:creator>* iswm %kfveri) {
set %kfuser $remove(%kfveri,<dc:creator>,</dc:creator>)
write gelen.txt 2------------------------------------------------------;
write gelen.txt 7Başlık:12 $+(,%baslik,)
write gelen.txt 7Tarih ve zaman:4 $+(,$degistir(%kftime),)
write gelen.txt 7Açıklama:4 $+(,%kfaciklax,)
write gelen.txt 7Link:12 $+(,%kflinks,) *
write gelen.txt 7Kullanıcı:2 $+(,%kfuser,)
write gelen.txt 2------------------------------------------------------;
write gelen.txt $chr(32)
}
}
alias degistir {
return
$replace($1,Mon,Pazartesi,Tue,Salı,Wed,Çarşamba,Thu,Perşembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,:,-,Jun,Ocak,Jan,Şubat,Mar,Mart,Apr,Nisan,May,Mayıs,Jul,Haziran,Aug,Ağustos,Sep,Temmuz,Oct,Ekim,Nov,Kasım,Dec,Aralık)
}
on *:sockclose:klbkbt:{ play #kanal gelen.txt 01 }
on *:text:!veri:#Msc:{
if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) {
if $sock(klbkbt).status == on {
msg $chan Şuanda aktarım yapılıyor $nick , daha sonra tekrar deneyin.
}
else {
msg $chan 7Son Yazılar4 # 7 kanalına aktarılıyor 4Lütfen bekleyiniz..
unset %if*
write -c gelen.txt
sockopen klbkbt
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.80 }
}
else {
msg $chan $nick Operatör olmanız gerekmektedir.
}
}