IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - WEB den IRC veri Aktarmak (https://www.ircforumlari.net/eggdrop-neostats-bnc/400070-web-den-irc-veri-aktarmak.html)

WEB den IRC veri Aktarmak

selamlar Öncelikler Muhdin arkadaşımızın bir cod vardı güzel bir paylaşım Bunu TcL şekline cevirebilirmiyiz $imdiden teşekkür ederim.

PHP- Kodu:

   on *:sockopen:ifbot:{
  if ($sockerr) { msg #kanal Hata bağlanılamadı! | return }
  else { 
    var %ifbot = sockwrite -nt $sockname
    %ifbot GET /external.php?type=rss2&forumids=70 $+ / HTTP/1.1
    %ifbot HOST: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ircforumlari.net
    %ifbot $crlf
  }
}
on *:sockread:ifbot:{
  var %ifread
  sockread %ifread
  if (*<title>* iswm %ifread) {
    set %ifbaslik $remove(%ifread,</title>,<title>,<![CDATA[,]],<,>) 
  }
  if (*<description>* iswm %ifread) {
    set %ifaciklama $remove(%ifread,</description>,<description><![CDATA[,]],<,>)
  }
  if (*<link>* iswm %ifread) {
    set %iflink $remove(%ifread,</link>,<link>)
  }
  if (*<pubDate>* iswm %ifread) {
    set %ifzaman $remove(%ifread,</pubDate>,<pubDate>,GMT)
  }
  if (*<dc:creator>* iswm %ifread) {
    set %ifkullanici $remove(%ifread,<dc:creator>,</dc:creator>)
    if !$read(kategoriler.txt,w,%ifbaslik) {
      write gelen.txt 2 ------------------------------------------------------;
      write gelen.txt Başlık: $+(,%ifbaslik,)   
      write gelen.txt Tarih ve zaman: $+(,$degistir(%ifzaman),)
      write gelen.txt Açıklama: $+(,%ifaciklama,)
      write gelen.txt Link: $+(,%iflink,) *
      write gelen.txt  Kullanıcı: $+(,%ifkullanici,)
      write gelen.txt 2 ------------------------------------------------------;
      write gelen.txt $chr(32)
      write kategoriler.txt %ifbaslik
    }
  }
}
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:ifbot:{ play #kanal gelen.txt 75 | timer 1 80 remove gelen.txt  }
on *:text:!feed:#kanal:{
  if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) {
    if $sock(ifbot).status == on {
      msg $chan Şuanda aktarım yapılıyor $nick , daha sonra tekrar deneyin.
    }
    else {
      msg $chan Son 4Feeds1(beslemeler) çekiliyor. Lütfen bekleyin.
      unset %if*
      write -c gelen.txt
    sockopen ifbot 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ircforumlari.net 80 }
  }
  else {
    msg $chan $nick Operatör olmanız gerekmektedir.
  }
}

Cevap: WEB den IRC veri Aktarmak

selam

evet bende denedim güzel bir kod .ancak bunu tcl haline çevirmeye gerek yok ..

şöyleki halihazırda mevcut rss okuyucu tcl scriptlerden birini indirip [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kurun botunuza ve bu rss okuyucu içine

hazır kodlar bölümü için:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mirc scripting sorunları için:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

gibi ekleyin yansıtılacağı kanalı seçin zaten aynen böyle komutla çalışıyor böyle scriptler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresindeki konu başlıklarının hizasında rss seçeneği var ona tıklayıp hangi bölümün rss feed'ini görmek eklemek isitiyorsanız seçebilirsiniz..

bu scriptlerin işleyişi bu şekildedir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

her komut-triggerda kanala kaç satır kaç-konu yansıtılacağı kodlar içindeki ayarlardan ayarlanabilmektedir.. dilediğiniz kanala konuları yenileri geldikçe oto yansıtabilme özellikleride ayarlanabilmektedir..

bunun gibi kodları uzun bir süredir kendi haber kanalımda sorunsuz kullanmaktayım..ayarları oldukça anlaşılabilir ve kolaydır..

iyi çalışmalar..