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

--------------------------
Tarih: 25 Kasım 2010
Yazar: CesuryureK
Bilgi: Emeğe Saygı

---------------------------

Merhaba, herkese iyi forumlar..

Alanım gereği olsa gerek "Tarihte Bugün" adı altında bir çalışma yaptım. Bu çalışma sayesinde tarihte o günde neler olmuşsa haberdar olmamızı sağlar. Aynı zamanda bilgilerimize bilgi katmış olacağız.

Kod ALT+R yapılıp Remote kısmına eklenecektir.
Kod remote kısmına eklendikten sonra herhangi bir kanalda !tarih veya .tarih denilmesi taktirde Tarihte bugün manşetleri aynı zamanda o gün doğan ve Ölen ünlü kişilerin bilgilerini de kanala yansıtılacaktır. Kod bir bota entegre edilip, #Tarih kanalı daha aktif bir kullanıma sahip olabilir.

Kod:

 

alias bugun { 

  if ($mid($gettok($date,1,47),1,1) != 0) {

    var %S = %C5%9Eubat, %M = May%C4%B1s, %A = A%C4%9Fustos, %E = Eyl%C3%BCl, %K = Kas%C4%B1m, %A1 = Aral%C4%B1k

    set %bugun $+($gettok($date,1,47),_,$replace($gettok($date,2,47),01,Ocak,02,%S,03,Mart,04,Nisan,05,%M,06,Haziran,07,Temmuz,08,%A,09,%E,10,Ekim,11,%K,12,%A1))

  }

  elseif ($mid($gettok($date,1,47),1,1) == 0) {

    var %S = %C5%9Eubat, %M = May%C4%B1s, %A = A%C4%9Fustos, %E = Eyl%C3%BCl, %K = Kas%C4%B1m, %A1 = Aral%C4%B1k

    set %bugun $+($mid($gettok($date,1,47),2,1),_,$replace($gettok($date,2,47),01,Ocak,02,%S,03,Mart,04,Nisan,05,%M,06,Haziran,07,Temmuz,08,%A,09,%E,10,Ekim,11,%K,12,%A1))

  }

}

alias htmlfree {  

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,wgNamespaceNumber=0;wgAction="view";wgPageName=",%bugun,";wgMainPageTitle="Ana Sayfa";wgWikimediaMobileUrl="http:\/\/tr.m.wikipedia.org\/wiki";body{behavior:url("/w/skins-1.17/vector/csshover.min.htc")},2 DoÄŸumlar,3 Ã–lÃ¼mler,[deÄŸiÅŸtir])

  return %x  

} 

alias history { .bugun | set %tarihg [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .timer 1 1 .sockopen Tarih tr.wikipedia.org 80  }  

on *:SockOpen:Tarih:{  

  sockwrite -n $sockname GET /wiki/ $+ %bugun HTTP/1.1

  sockwrite -n $sockname host: tr.wikipedia.org  

  sockwrite -n $sockname $crlf  

}  

on *:SockRead:Tarih:{  

  var %gun $replace(%bugun,_,$chr(32))

  var %bilgi

  sockread %bilgi

  if $regex($gettok($htmlfree(%bilgi),1,32),\d) && ($regex($gettok($htmlfree(%bilgi),2,32),\x2D)) || $regex($htmlfree(%bilgi),/^(Ã–lÃ¼mler|DoÄŸumlar|olaylar)$/i) || (Gregoryen isin $htmlfree(%bilgi))  { 

    msg %tarihchan $replace($htmlfree(%bilgi),Ã–lÃ¼mler,$+($+($chr(3),4,$chr(32),%gun,$chr(32),Tarihinde ÖLENLER)),Olaylar,$+($+($chr(3),4,$chr(32),%gun,$chr(32),Tarihinde Yaşanan Olaylar)),DoÄŸumlar,$+($+($chr(3),4,$chr(32),%gun,$chr(32),Tarihinde DOĞANLAR))) 

    .timer 1 4 sockclose tarih

  }

}

on *:TEXT:*:#: {

  if $regex($1,/(^[!.](Tarih|history)$)/i) {

    set %tarihchan $chan 

    .history

    .timer 1 8 .msg %tarihchan %tarihg

  }

}

NOT: Kod 14 Temmuz 2011 tarihinde yeniden güncellenmiştir. Önceden veri çektiğim yehhu adlı bir internet sitesi ilgili tarihte bugün kısmını kaldırdığı için veri alınmamaktaydı. Bu muhtemel sorunu bir daha yaşamamak için wikipedia.org sitesinden veriyi kod ile çektirdim. Eski kodu kaldırıp yenisini yukarıya ekledim.

Umarım tarihe bir katkımız olur.
Saygı ve sevgilerimle..