Tarihte Bugün

CesuryureK · #1 25 Kasım 2010, 18:07

--------------------------
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 htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,HTTP/1.1 200 OK,Server: Microsoft-IIS/6.0)
  return %x  
} 
alias history { sockopen Tarih www.yehhu.com 80  }  
on *:SockOpen:Tarih:{  
  sockwrite -n $sockname GET /tarihte_bugun/ HTTP/1.1
  sockwrite -n $sockname host: yehhu.com  
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:Tarih:{  
  var %bilgi
  sockread %bilgi
  if $regex($htmlfree(%bilgi),\d\.) || $regex($htmlfree(%bilgi),/(Ölen|doğan)/i)  { msg %tarihchan $+($gettok($date,1-2,47),/) $+ $replace($htmlfree(%bilgi),Ölen,$+($chr(3),4Ölen),Doğan,$+($chr(3),4Doğan))) | .timer 1 4 sockclose tarih }
} 
on *:Text:*:#: {
  if ($regex($1,/(!Tarih|.Tarih)/i)) {
    set %tarihchan $chan
    .history
  }
}

Screen:

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

**Difuzyon** · #2 25 Kasım 2010, 23:27

25/11/2010 Difuzyon , CesuryureK'i tebrik etti...