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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   PHP (https://www.ircforumlari.net/php/)
-   -   IRC deki User Sayısını Web e Yansıtmak. (https://www.ircforumlari.net/php/41279-irc-deki-user-sayisini-web-e-yansitmak.html)

BaRiCeLLo 17 Kasım 2007 13:42
IRC deki User Sayısını Web e Yansıtmak.
 
Evet Arkadaşlar Bu Olayı nasıl Yapabilir. IRC deki İstatisklerimizi Nasıl Web e yansıtabiliriz. bununla ilgili tcl var elimde bi kaç tane ama 0 hiç bi türkçe yanı yok açıklaması yok. üstadlarımızdan yardım bekliyorus :)

Nickolas 17 Kasım 2007 13:53
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Benim bu konuda bir projem var. Fakat vBulletin Forumlar için. Herhangi bir site için değil :)

mIRC Bilgin yeterince iyiyse...

Socket ile Web Sitene bağlanabilirsin.

POST ile Kullanıcı Sayısını [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şeklinde... aktar.php ile Veri tabanına aktar user sayısını. Daha sonrasında da veri tabanından okut. Botu da 60 saniyede bir çalışacak şekilde ayarla. İşte sana Kullanıcı sayısı :)

BaRiCeLLo 17 Kasım 2007 14:19
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Değilse :)

Nickolas 17 Kasım 2007 14:31
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Kod:
on *:START: {
  ; Bu kısma IP ya da Host Adını ve Port yazın. Eğer Host adı yazacaksanız [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 şeklinde yazın.
  _setcfg host [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
 
  ; IRC Adresini ve Portunu yazın
  _setcfg ircserver irc.site.com 6667
 
  .timer.start 0 1 connectirc
}
alias _setcfg hadd -m config $1 $2-
alias _cfg return $hget(config, $1)
alias sw {
  if (!@window(SOCK)) window -e @SOCK
  aline @SOCK $1 - $2-
  sockwrite -nt $1 $2-
}
alias connectirc if (!$sock(updatebot)) sockopen updatebot $_cfg(ircserver)
alias trim return $regsubex($1-, /^\s+|\s+$/g, $null)
alias escape_unnumber return $regsubex($1-, /([^0-9]*)/g, $null)
alias build_query {
  var %data = usernumbers= $+ $escape_unnumber($trim($_cfg(usernumbers)))
  sw %sock POST /import.php?do=SDaskDSfsdoaasdjhds HTTP/1.1
  sw %sock Host: $gettok($_cfg(host), 1, 32)
  sw %sock Content-type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw %sock Content-Length: $len(%data)
  sw %sock Connection: close
  sw %sock %data
}
on *:SOCKOPEN:updatebot: {
  var %bot = updatebot_ $+ $r(100, 9999)
  sw $sockname NICK %bot
  sw $sockname USER SiteBot "" " $+ $iif($host, $host, $ip) $+ " : $+ Kullanıcı Sayısı Güncelleyici Bot
}
on *:SOCKREAD:updatebot: {
  var %b
  sockread %b
  tokenize 32 %b
  if (!@window(IRCDEBUG)) {
    window -e @IRCDEBUG
  }
  aline @IRCDEBUG DEGUG - %b
  if ($1 == PING) sw $sockname PONG $2
  if ($2 == 002) .timer.sockwrite 0 60 sw lusers
  if ($regex($1-, /^:updatebot_([0-9]{3,4})\sMODE\supdatebot_([0-9]{3,4})\s:\+i.*$/i)) sw $sockname join #2,00
  if ($2 == 265) {
    if ($regex(local, $4-, /^:([^:]*):\s(\d*)\s([^:]*):\s(\d*)/)) {
      var %local = $regml(local, 2)
      var %max_local = $regml(local, 4)
      ; Burada Hangisini Yollamak istiyorsan Onu göndert :P %local dersen Local Users Gider
      _setcfg usernumbers %local
      $update_site
    }
  }
}
alias update_site sockopen sender_ $+ $r(1, 368561654) $_cfg(host)
on *:SOCKOPEN:sender_*: build_query
on *:SOCKREAD:sender_*: {
  var %b
  sockread %b
  if (!@window(DEBUG)) {
    window -e @DEBUG
  }
  tokenize 32 %b
  aline @DEBUG DEBUG - %b
}

Cadde_li 17 Kasım 2007 14:39
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Gibi diyorsuunuz heralde.
Bu bir form du hem anasayfadan nick yazan direk baglanıyordu araştırıcam elimde vardı upload ederim.

Nickolas 17 Kasım 2007 15:22
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Şuan çalışıyor mu bilmiyorum. Ev değilim test edemiyorum. Ama en yakın zamanda test edip import.php ve diğer kodları da vereceğim...

aLKoLiK 17 Kasım 2007 16:20
Yanıt: IRC deki User Sayısını Web e Yansıtmak.
 
bende böyle bir dosya hazırlamıştım php çalışdırdığım zaman sitede geç açılma sorunu ile karşılaştım umarım sende ki çalısır sabırsızlıkla bekliorum

BaRiCeLLo 17 Kasım 2007 17:41
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
bunun tclsi felan yokmu :)

Nickolas 17 Kasım 2007 19:20
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
TCL Yazmasını bilmiyorum üzgünüm :)

Eğer mIRC halini istersen buyur:

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

aspawa 18 Kasım 2007 00:34
Yanıt: IRC deki User Sayısını Web e Yansıtmak.
 
Alıntı:
BaRiCeLLo Nickli Üyeden Alıntı (Mesaj 286948)
Evet Arkadaşlar Bu Olayı nasıl Yapabilir. IRC deki İstatisklerimizi Nasıl Web e yansıtabiliriz. bununla ilgili tcl var elimde bi kaç tane ama 0 hiç bi türkçe yanı yok açıklaması yok. üstadlarımızdan yardım bekliyorus :)
Yanılmıyorsam bu iş thalesle yapılıyor tcl ile değil

CanCeL 18 Kasım 2007 09:20
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Buyur TCL :)
Botun kanal istatistiklerini bir web sitesinden yayınlamasını sağlar: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kaynak: EGGDROPTURK.COM

Not: Eggdropturk'de bu bircok tarz tcl scriptler mevcut, incelersen işine yarar birşey bulursun...

BaRiCeLLo 19 Kasım 2007 22:07
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
CiKo Sağol O TCL elimde var fakat nasıl kullanılıyor kurulumu vs.. biraz açıklanırsa üstadlar tarafından. bizde faydalanabiliriz. herkez becerikli değil :)

BaRiCeLLo 21 Kasım 2007 18:45
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Valla Burda Aktif Olarak Paylaşım yapan Bi Kaç Arkadaşımızın Sitelerinde Bu Olay Var Ama Sanırım Paylaşmak İstemiolar :) Hadi Bakalım Taş Attım Kafalar Yarılmadan Bişeyler Yazın :P

CanCeL 21 Kasım 2007 19:16
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Kod:
#Chanlist 1.00 Aug 2001
#Creates a channel list and stores in an HTML file
#The color codes conversion is based on ques5.tcl by Robert Pointer and
#the eggheads Developement Team, modifyed to read the background codes.
#Any questions? mailto:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#Where id the channel file located?
set listfile "../../
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size="2">#How many seconds will the bot wait to write a new list?
#be careful, in large networks this can take a while
set refresh 2
#What is the title of the page?
set pagetitle "IRC.MYSEV.NET Oda Listesi"
###### the code starts here ########
utimer $refresh get_channels
# Which characters should be allowed in URLs?
# DO NOT MODIFY unless you really know what you are doing.
# Expecially never add '<', '"' and '>'
set web_urlchars "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 :+-/!\$%&()=[]{}#^~*.:,;\\|?_@"
# IRC -> HTML color translation table
set web_color(0) "#FFFFFF"
set web_color(1) "#000000"
set web_color(2) "#00007F"
set web_color(3) "#008F00"
set web_color(4) "#FF0000"
set web_color(5) "#7F0000"
set web_color(6) "#9F009F"
set web_color(7) "#FF7F00"
set web_color(8) "#F0FF00"
set web_color(9) "#00F700"
set web_color(10) "#008F8F"
set web_color(11) "#00F7FF"
set web_color(12) "#0000FF"
set web_color(13) "#FF00FF"
set web_color(14) "#7F7F7F"
set web_color(15) "#CFCFCF"
# IRC -> HTML style translation table
set web_style(\002) "<B> </B>"
set web_style(\003) "<FONT> </FONT>"
set web_style(\026) "<I> </I>"
set web_style(\037) "<U> </U>"
set web_style(,) ","
proc webify {string} {
# TCL8.1 only:
#return [string map {\" &quot; & &amp; < &lt; > &gt;} $string]
# Otherwise use this:
regsub -all "\\&" $string "\\&amp;" string
regsub -all "\"" $string "\\&quot;" string
regsub -all "<" $string "&lt;" string
return $string
}
proc convstyle {string} {
global web_color web_style
set result ""
set stack ""
for {set i 0} "\$i < [string length $string]" {incr i} {
set char [string index $string $i]
switch -- $char {
"\002" - "\026" - "\037" {
if {[string first $char $stack] != -1} {
# NOT &&
if {[string index $stack 0] == $char} {
append result [lindex $web_style($char) 1]
set stack [string range $stack 1 end]
}
} else {
append result [lindex $web_style($char) 0]
set stack $char$stack
}
}
"\003" {
if {[string first $char $stack] != -1} {
if {[string index $stack 0] == $char} {
append result [lindex $web_style($char) 1]
set stack [string range $stack 1 end]
}
}
 
set c [getnumber [string range $string [expr $i + 1] [expr $i + 2]]]
 
if {$c != "" && $c >= 0 && $c <= 15} {
incr i [expr [string length $c] + 0 ]
append result "<FONT COLOR=\"$web_color($c)\">"
set stack $char$stack
}
}
"," {
if {[string first $char $stack] != -1} {
if {[string index $stack 0] == $char} {
append result [lindex $web_style($char) 1]
set stack [string range $stack 1 end]
}
}
set d [getnumber [string range $string [expr $i + 1] [expr $i + 2]]]
if {$d != "" && $d >= 0 && $d <= 15 && $d != ","} {
append result "<span style=\"background-color : $web_color($d);\">"
incr i [expr [string length $d] + 0]
set stack $char$stack
 
}
}
default {append result $char}
}
}
foreach char [split $stack ""] {
if {$char == "\002" || $char == "\003" ||
$char == "\026" || $char == "\037"} {
append result [lindex $web_style($char) 1]
}
}
return $result
}
proc getnumber {string} {
set result ""
foreach char [split $string ""] {
if {[string first $char "0123456789"] == -1} {
return $result
} else {
for {set i 0} "\$i < [string length $string]" {incr i} {
if { [string first [string range $string $i $i] "0123456789"] == -1} {
} else {
append result $char
set i [string length $string]
}
}
}
}
return $result
}
# set variables to defaults
set list_active 0
if {![info exists list_data]} then {set list_data ""}
# get a new channel list
proc get_channels {} {
global list_active listfile pagetitle
set fh1 [open $listfile w]
puts $fh1 "<html>"
puts $fh1 "<head>"
puts $fh1 "<title>"
puts $fh1 $pagetitle
puts $fh1 "</title>"
puts $fh1 "<style>"
puts $fh1 "tr, td, body { font-family: arial,helvetica;}"
puts $fh1 "</style>"
puts $fh1 "</head>"
puts $fh1 "<body bgcolor=#FFFFFF>"
puts $fh1 "<table border=1 cellspacing=0 cellpadding=5 bordercolor=black>"
puts $fh1 "<tr><td><b><font color="#FF0000" size="4" face="Trebuchet MS">Oda
Adı</font></b></td><td><b>
<font color="#FF0000" size="4" face="Trebuchet MS">Kullanıcı Sayısı</font></b></td><td>
<b><font color="#FF0000" size="4" face="Trebuchet MS">Oda Başlığı</font></b></td></tr>"
close $fh1
set list_active 1
putlog "Listing channels..."
putserv "LIST"
return 0
}
# begin of channel list
proc raw_321 {from key arg} {
global list_active list_data
if {$list_active} then {
putlog "Start of channel list."
set list_data ""
}
return 0
}
# channel list
proc raw_322 {from key arg} {
global list_active list_data listfile
set fh [open $listfile a]
if {$list_active} then {
puts $fh "<tr><td>"
puts $fh "[lindex [split $arg] 1]"
puts $fh "</td align=\"center\">"
puts $fh "<td>[lindex [split $arg] 2]</td>"
set thestring [string trimright [lrange $arg 3 [llength $arg] ] ]
if {[string length $thestring] > 0} {
set thestring2 [string range $thestring 1 [ string length $thestring]]
}
puts $fh "<td>"
puts $fh "[convstyle [ webify $thestring2 ] ]&nbsp;"
puts $fh "</td></tr>"
lappend list_data [lindex [split $arg] 1]
}
close $fh
return 0
}
# end of channel list
proc raw_323 {from key arg} {
global list_active listfile refresh
set fh2 [open $listfile a]
puts $fh2 "</table></body></html>"
close $fh2
if {$list_active} then {
putlog "End of channel list."
set list_active 0
}
utimer $refresh get_channels
return 0
}
bind raw -|- 321 raw_321
bind raw -|- 322 raw_322
bind raw -|- 323 raw_323
#####
Al BaRiCeLLo senin olsun :D
TCL'yi yükle [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] da oda listesi/kullanıcı sayısı/topicler gösterilcek...

BaRiCeLLo 21 Kasım 2007 20:59
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
TCL nerde paşam :)

BaRiCeLLo 22 Kasım 2007 13:39
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Olmadı be Çikoo :) Biraz Daha Açıklarsan Çok Seviniris :)

Convex 22 Kasım 2007 15:01
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
google den thalesi araştırın en güzeli.

BaRiCeLLo 23 Kasım 2007 22:17
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
konu Günceldir ha gayret dostlarım :)

Lampard 26 Kasım 2007 07:56
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Nickolas bi ara yazmıştı ******** da Ajax ile hatta alıp kullanmıştım çok güzeldi yedeklere bakıyım duruyosa çalişir halini atarım

BaRiCeLLo 27 Kasım 2007 19:36
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Alıntı:
Nickolas bi ara yazmıştı ******** da Ajax ile hatta alıp kullanmıştım çok güzeldi yedeklere bakıyım duruyosa çalişir halini atarım
Lampard
Üstad Sabırsızlıkla Bekliyorum ;)

BaRiCeLLo 30 Kasım 2007 20:32
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Konu Günceldir Lampard ı Bekliyoz :)

BaRiCeLLo 02 Aralık 2007 22:41
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Konu Günceldir Hala Lampard ı Beklemekteyiz :)

t0praK 02 Aralık 2007 23:08
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
tcl,bot falan bilmem ama.
sunucu istatisliklerini webe çekebilirim,asp ile.
$'lardan haber verin siz :).

BaRiCeLLo 04 Aralık 2007 19:01
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Bu Sistemi Verebilecek Arkadaşa 50 YTL. Bedavaya Kimse Kod Vermicek Anlaşılan.

Kan 04 Aralık 2007 20:28
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şurdaki işinize yarıyabilir ama nick hemen çıkıyor ayarlaman lazım :)

Kablosuz NET 04 Aralık 2007 21:30
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Alıntı:
Kan Nickli Üyeden Alıntı (Mesaj 298691)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şurdaki işinize yarıyabilir ama nick hemen çıkıyor ayarlaman lazım :)
Yukardaki verilen adresti bu sistemi yaklaşık 3,5 ayda ancak kurabildim :( sistem kanal listesini alıyor txtye yazıyor txtden ASP ile okutuyorum.Ayrı bir sistemde bu php adresini 5 dakikada bir ziyaret ediyor..Çok araştırmak ve uğraşmak gerekiyor

t0praK 04 Aralık 2007 23:46
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] birşey var ama,ilginizi çeker mi isteğinize yanıt verir mi bilemem.

BaRiCeLLo 09 Aralık 2007 21:17
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Yokmu Arkadaşlar Bu Olayı Yapacak Ücret Karşılığı. Bi kaç arkadaşın sitesinde gördüm ama ne yazıkki kodları vermiolar. o yüzden ücret teklif ediyorum.

Cadde_li 18 Aralık 2007 10:13
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
PHP- Kodu:
#!/usr/bin/perl -w## Proje                : Sinbad# Dosya                : sinbad.pm# Surum                : 01.01.0014# Son degisiklik tarihi        : 15/07/2003 12:20# Son degisikligi yapan        : acemiuse strict;use POE;use POE::Component::IRC;use POE::Component::Client::UserAgent;my $DEBUG_MODE        = 1;                # test modu icin 1, normal calisma modu icin 0 my $IRC_SERVER        = "irc.freenode.net";        # baglanilacak IRC sunucumy $IRC_PORT        = 6667;                # baglanti kurulacak TCP portumy $IRC_CHANNEL        = "#ceviz";            # baglanilacak IRC kanalimy $BOT_NICKNAME    = "bot_snd";            # bot nicknamemy $BOT_USERNAME    = "bot_snd";            # bot kullanici adimy $BOT_IRCNAME        = "bot_snd";            # bot aciklamamy $MESAJ_JOIN        = "selam";            # kanala girildiginde gonderilecek mesajmy $MESAJ_QUIT        = "bye";            # IRC sunucudan ayrilirken gonderilecek mesajmy $MESAJ_MSG        = "ben bir botum";        # /msg ile ozel mesaj gonderenlere gonderilecek mesajmy $CTCP_VERSION    = "Sinbad IRC Bot 01.01.0014a";    # CTCP VERSION isteklerine verilecek cevapmy $CTCP_USERINFO    = "Sinbad IRC Bot";        # CTCP USERINFO isteklerine verilecek cevapmy $CTCP_CLIENTINFO    = "Sinbad IRC Bot";        # CTCP CLIENTINFO isteklerine verilecek cevapmy $TIMER_KEEP_ALIVE    = 300;                # keep_alive fonksiyonunun kac saniyede bir calistirilacagimy $TIMER_REJOIN    = 30;                # bot kanaldan atilirsa, kac saniye sonra tekrar kanala girecegimy $UA_ALIAS        = "ua_alias";            # UserAgent (HTTP istemci) icin kullanilacak kodmy $UA_AGENT_NAME    = "Sinbad HTTP Client 01.01.0014a";    # UserAgent (HTTP istemci) icin kullanilacak istemci adimy $UA_TIMEOUT        = 60;                # UserAgent (HTTP istemci) icin zaman asimi suresi (saniye)my $WEB_USERLIST_PAGE    = "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">
Bunuda denermisiniz
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cadde_li 18 Aralık 2007 10:15
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Başka bir şekilde daha çalıştım
Buda böyle bu şekilde oluyor bu sistemi kanalların yanında degilde sitenin altına yapabiliriz
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

BaRiCeLLo 20 Aralık 2007 22:55
Cevap: IRC deki User Sayısını Web e Yansıtmak.
 
Caddeli msn ekle sen beni bi :) sohbetev [ @ ] hotmail [ . ] com


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:18.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk