!basvuru kayıt tcl yardım lütfen - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

oguz8787 · 18 Aralık 2012, 14:08

Arkadasımla cok ugrastık ama bir türlü beceremedik

daha once kullandıgımız mirc kodunu tcl ye cevirebilicek varmi acaba

!ekle
!oku
!sil
mantıgıyla yapmaya calıstık ama yapamadık lütfen biri yardim etsin .

Kod: Kodu kopyalamak için üzerine çift tıklayın!


on *:text:*!basvuru*:#basvurukanal:{
  if ($strip($1) == !basvuru )  {
    .notice $nick 3,1»»--07 $nick 0Basvurunuz isleme alindi ... 
    .timer 1 2 notice $nick 3,1»»--0 Basvurunuz, Yetkililer tarafindan gözden gecirilecektir kabul edildiginde geri dönüs yapilir.7Lütfen 3PM7 atmayiniz ...
    .write basvuru.txt 4,1»» 0Basvuru 4 $nick 0 $+ : $2- 
  }
}
on *:text:*!basvurular*:#yetkilikanali:{
  .msg #yetkilikanali  3,1»»--0 Basvurular Yetkili7 $nick 0 tarafindan inceleniyor ...
  .timer 1 2 /play #yetkilikanali basvuru.txt 
} 

on *:text:*!del*:#yetkilikanali:{
  .msg #yetkilikanali 3,1»»--0 Basvurular Yetkili 7 $nick 0 tarafindan siliniyor ...
  .remove -b basvuru.txt
  .timer 1 3 .msg #yetkilikanali  3,1»»--0 Basvurular silindi!!!
}

saywhat · 18 Aralık 2012, 23:06

bir süredir tcl dökümanları toplamaya oluşturmaya + çevirmeye çalışıyorum. aşağıdaki örneklemeler faydalı olacaktır.

.dosya prosedürleri: [yazma,silme,okutma,degisme,vs..)

dosya kontrolü

kullanim:
dosyakontrol dosyaismi
dosyakontrol <dosyaismi>

return
1 dosya varsa,aksi halde 0

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc dosyakontrol {dosyaismi} {
    # dosyanin olup olmadigina bakiyoruz
    if [dosya exists $dosyaismi] then {
        # dosya var.
        return 1
    } else {
        # dosya yok.
        return "0"
    }
}

örnek:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {[dosyakontrol dosyaismi.txt]} then { set text "dosya var" } else { set text "dosya bulunamadi" }
set result [dosyakontrol dosyaismi.txt] ; #  0 yada 1 olarak $result ta donecektir.

-----------------------------------------------------------------------
okutma:

dosyadanoku dosyaismi ?satir?
dosyadanoku <dosyaismi> [satir]

Return:
hatada 0 aksi <else> halde postala

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc dosyadanoku {dosyaismi {satir 0}} {
    # dosyanin olup olmadigi ve okunabilirligi kontrol ediliyor.
    if {[dosya exists $dosyaismi] && [dosya readable $dosyaismi]} then {
        # okuma icin dosyayi aciyoruz
        set dosya [open $dosyaismi r]
        if {$satir!=1} then {
            # okuma islemi
            set oku [read -nonewline $dosya]
        } else {
            # satir oku
            set oku [get $dosya]
        }
        # postala ve dön
        close $dosya
        return $oku
    }
    # okunabilir degilse
    return 0
}

dosya okumayi tamamlar yada sadece ilk satirindan okur (satir 1 oldugunda*)

örnek:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc dosyadanoku {dosyaismi satirno {yontem 1}} {
    # okumaya satir 0'dan basla satir 1 satir 2...satir 90,91...devam et.
    proc Eofileokut {dosya satirno} {
        set okumano 0
        # eof (end of file) yani dosya sonuna gelinceye dek satirlari oku
        while ![eof $dosya] {
            set satir [gets $dosya]
            if {$satirno==$okumano} {return $satir}
            incr okumano
        }
        # hataliysa
        return 0
    }
    proc tamaminiokuvesirala {dosya satirno} {
        # tum dosyayi oku
        set okuyoz [read -nonewline $dosya]
        # listele
        set liste [split $okuyoz \n]
        # sonuc olarak ciktisi
        return [lindex $liste $satirno]
    }
 
# dosyayi ve yaptirmak istediklerimizi (parametreleri) kontrol et, hata varsa don geri.
    if {![dosya exist $dosyaismi] || ![dosya readable $dosyaismi] || ![string is digit $satirno]} {return 0}
    # dosyayi ac
    set dosya [open $dosyaismi r]
    if {$yontem!=1} {
        # ilk proseduru uygulat
        set satir [Eofileokut $dosya $satirno]
    } {
        # ikinci (tanimladigimiz) proseduru uygula (yani sirayla oku.adami ugrastirma aksam aksam..)
        set satir [tamaminiokuvesirala $dosya $satirno]
    }
    close $dosya
    return $satir
}

uygulamalar:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set text [dosyadanoku dosyaismi.txt]; foreach satir [split $text \n] { puthelp "privmsg #kanal :$satir" }
set ilksatir [dosyadanoku dosyaismi.txt 1]; # dosyaismi.txt teki ilk satiri oku
set ilksatir [dosyadansatiroku "eggdrop.conf" 0 0]; # eggdrop.conf taki ilk satirdan okutma  oku/siralat yontemiyle.   
set satir [dosyadansatiroku "eggdrop.conf" 50 0]; # eggdrop.conf satir 51 e kadar gets/eof yontemiyle daha yavasca oku (hafiza kullanimi icin daha iyi) .

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

yazdirma:

dosyabilgiyaz dosyaismi icerik ?otoekleme?
dosyabilgiyaz <dosyaismi> <icerik> [otoekleme]

return 1 # isler tikirindaysa...

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc dosyabilgiyaz {dosyaismi icerik {otoekleme 0} {yenisatir 1}} {
    # dosya yoksa yada oto ekleme/yazma olmuyorsa olusturma/usteyazma
    if {![dosya exists $dosyaismi] && $otoekleme!=1} then {
        # yazma yontemi icin dosyayi aciyoruz
        set dosya [open $dosyaismi w]
    } else {
        # ekleme yontemi icin aciyoruz
        set dosya [open $dosyaismi a]
    }
    # icerigi yazdiriyoruz
    if $yenisatir {puts $dosya $icerik} {puts -nonewline $dosya $icerik}
    # postalama ve yazdirma isleri tikirindaysa return 1 
    close $dosya
    return 1
}

dosyaismi - dosya ayarlarini otoekleme 1 ile geri ekler/yonlendirilir daha sonra icerik bu dosyada tutulur.

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

kopyalama ,kaldirma ,silme ,yeniden adlandirma:

kullanim sekli:

dosyailet dosyaismi ?tasi?
dosyailet <dosyaismi> [tasi]

olumluysa return 1 degilse 0

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc dosyailet {dosyaismi {tasi 0}} {
    if [dosya exists $dosyaismi] {
        if [dosya exists $dosyaismi.bak] {dosya delete $dosyaismi.bak}
        if {$tasi==1} {
            dosya rename  $dosyaismi $dosyaismi.bak  
        } {
            dosya copy $dosyaismi $dosyaismi.bak
        }
        return 1
    }
    return 0
}

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

satirlar işlemleri
:
kullanimi:

dosyasatirsil dosyaismi satirindan ?satirina? ?geriyukle?
dosyasatirsil <dosyaismi> <satirindan> [satirina] [geriyukle]

hersey yolundaysa return 1

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc dosyasatirisil {dosyaismi satirindan {satirina -1} {geriyukle 1}} {
    if {![dosya exist $dosyaismi] || ![dosya readable $dosyaismi]} {return 0}
    if {![string is digit $satirindan] || ![string is digit $satirina]} {return 0}
    if {$satirina==-1} {set satirina $satirindan}
    # dosyayi acalim ve listeden okutalim
    set dosya [open $dosyaismi r]
    set liste [split [read -nonewline $dosya] \n]
    close $dosya
    # satirlari listeden kaldiralim
    set liste [lreplace $liste $satirindan $satirina]
    # olustur [yoksa] geri yukle
    if {$geriyukle!=0} {
        # yeniden isimlendirme [zorlayarak yapacagiz cunku eski geri yuklemeler duruyor olabilir)
        dosya rename -force  $dosyaismi $dosyaismi.bak
    }
    # dosyanin ustune yazdirip geri koyuyoruz.
    set dosya [open $dosyaismi w]
    puts -nonewline $dosya [join $liste \n]
    close $dosya
    return 1
}

diger bir ornek: yukardaki alistirmadaki gibi yazdirma okutma proseduruyle .

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc baskasatirsil {dosyaismi satirindan {satirina -1} {geriyukle 1}} {
    if {![string is digit $satirindan] || ![string is digit $satirina]} {return 0}
    set yukleme [split [dosyaoku $dosyaismi] \n]
    if {$yukleme!=0} {
        set yukleme [lreplace $yukle $satirindan $satirina]
        if {$geriyukle==1} {dosyageriyukle $dosyaismi 1}
        # yeni bir satir yada ekleme olmaksizin yuklemeyi yazdirma
        set sonuc [dosyayazdir $dosyaismi [join $yukleme \n] 0 0]
        if {$sonuc!=1} {
            # hataliysa
            return 0
        }
        # tamamsa
        return 1
    }
    # olmadiysa
    return 0
}

dosyadan siralama gozetmeksizin (random) satir okutma:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

# dosyadan herhangi bir satiri dondurur (mevcud degilse hata verecektir.)
proc satirlar {dosya} {
    set fs [open $dosya r]
    set bilgi [read -nonewline $fs]
    close $fs
    # simdi bilgilerin depolandigi dosyanin tum icerigini gosterecegiz
    set bilgi [split $bilgi \n]
    # burda satirlari listeleyip eggdrop'un "rand" isleviyle yani siralama gozetmeksizin dosya icindeki elemanlari cekecegiz(ve dondurucez))
    #return [lindex $bilgi [rand [llength $bilgi]]]
    # yada tcl'deki "rand" fonksiyonu-isleviyle degisilebilir.
    return [lindex $bilgi [expr {int(rand()*[llength $bilgi])}]]
}

dosyadaki belirli bir satiri baskasiyle degismek-ustune yazma:

!degis
set satir1 [satirdegis "$dosya" 0 0]
putserv "privmsg $chan :satir $satir1 degistirildi."
gibi olacak...

örnek:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc dosyasatirdegis {dosyaismi satirno yenitxt {geriyukle 1}} {
    if {![dosya exist $dosyaismi] || ![dosya readable $dosyaismi]} {return 0}
    if {![string is digit $satirno]} {return 0}
    # dosyayi acip  listeden okutalim
    set dosya [open $dosyaismi r]
    set liste [split [read -nonewline $dosya] \n]
    close $dosya
    # listedeki texti degistirelim
    set liste [lreplace $liste $satirno $satirno $yenitxt]
    # olustur (yoksa) geri yukle
    if {$geriyukle!=0} {
        # dosyayi yeniden isimlendiriyoruz (buna zorluyoruz eski geri yuklemeler hala duruyor olabilir)
        dosya rename -force  $dosyaismi $dosyaismi.bak
    }
    # dosyanin üstünden yazdirip geri yuklemeleri koyuyoruz.
    set dosya [open $dosyaismi w]
    puts -nonewline $dosya [join $liste \n]
    close $dosya
    return 1
}

şimdilik bu kadar.umarım işinize yarar.

oguz8787 · 19 Aralık 2012, 18:10

yapamadık bir türlü eline saglık cok guzel anlatmıssında biz beceremiyoz bu tcl isini :S
yokmu yazabılcek bır arkadas lütfen :S

CLubber · 20 Aralık 2012, 02:31

Kod: Kodu kopyalamak için üzerine çift tıklayın!

###############   K O M U T L A R  B Ö L Ü M Ü   #############
##                                                          ##
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##
##      kendinize özel yapabilir yada asla değiştirmeden    ##
##             mevcut hali ile kullanabilirsiniz            ##
##                                                          ##
##############################################################

set basvuru(kanal) "#Basvuru"

set basvuru(oper) "#Opers"

set basvuru(komut) "!basvuru"

set basvuru(dizin) "scripts/basvuru.txt"

bind pub - $basvuru(komut) basvuru:ekle
proc basvuru:ekle {nick uhost handle chan text} {
  global botnick basvuru
  set status [lindex $text 0]
  set kanal [lindex $text 1]
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && [string match -nocase "" $kanal]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && ![string match -nocase "" $kanal]} {
    putquick "PRIVMSG $basvuru(kanal) › $kanal kanalı başvurunuz listeye eklenmiştir, teşekkürler." 
    set message "› $kanal kanalı başvurusu ($nick)"
    set liste [open $basvuru(dizin) "a"] 
    puts $liste $message
    close $liste 
  }
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(oper) :Kanal başvurularını silmek veya kontrol etmek için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) sil/listele>";return}
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "sil" $status]} {
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları temizlenmiştir, teşekkürler." 
    set liste [open $basvuru(dizin) "w"] 
    close $liste
  }
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "listele" $status]} {
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listesi" 
    putquick "PRIVMSG $basvuru(oper) \002" 
    set file [open $basvuru(dizin) r]
    set listfile [split [subst -nocommands [read $file]] "\n"]
    foreach basvurular $listfile { 
      putquick "privmsg $basvuru(oper) $basvurular"
    } 
    close $file
    putquick "PRIVMSG $basvuru(oper) \002"
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir."
  } 
}

putlog "Kanal Basvuru TCL - Written By CLubber"

* #Basvuru kanalında kullanıcılar !basvuru ekle #kanal komutu ile kanal başvurusu yapabilirler.

* #Opers kanalında ise !basvuru listele komutu ile kanal başvurularını listeleyebilir, !basvuru sil komutu ile listeyi temizleyebilirsin.

oguz8787 · 20 Aralık 2012, 20:27

tesekkurler CLubber
bunu ekledik ama txt ye basvurulari eklemiyor elle yazinca txt e okuyor ama txt kaydetme kısmı calısmıyor ?

CLubber · 20 Aralık 2012, 20:40

oguz8787 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

tesekkurler CLubber
bunu ekledik ama txt ye basvurulari eklemiyor elle yazinca txt e okuyor ama txt kaydetme kısmı calısmıyor ?

TCL'de herhangi bir sorun yok, dün bizzat kendim denedim.

#Basvuru kanalında !basvuru ekle #kanal şeklinde kullanabilirsin, farklı bir kanalda çalışmaz.

oguz8787 · 20 Aralık 2012, 21:03

valla sende nasıl calısıyor anlamadık bizdeki botmu bozuk
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

mesela

(2011:3611:2611) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: !basvuru sil
(2011:3611:2611) @Help-TR7: teþekkürler.
(19:37:38) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: !basvuru listele
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listesi
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listelenmiþtir.

gibi calisti
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

!basvuru ekle #kanal yazdıgımızda ise hic bii tepkı almıyoruz :S
kendımız txt ekledıgımızda cevap altta
(19:45:17) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: !basvuru listele
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listesi
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: selam
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: merhaba
(19:45:19) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: naber
(19:45:24) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:45:26) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listelenmiþtir.

z0nE · 20 Aralık 2012, 21:08

bende denedm bunu banada böyle bi script lazımdı ,

putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir."

Bu sekilde kullandigimda sonunu atıyor Listelenmistir

putquick "PRIVMSG $basvuru(oper) : Kanal başvuruları listelenmiştir."

bu sekilde düzelttim tamamini atti fakat txt ye bir türlü ekletemedim , elle yazip basvuru listele diyince sorun yaratmiyor sil deyincede sorun yok sadece ekle de sorun yasiyorum biraz düzeltmeye calistim ama basarili olamadım.

CLubber · 20 Aralık 2012, 21:19

#Basvuru kanalında;

<CLubber> !basvuru ekle #Sohbet
<L-BOT> › #Sohbet kanalı başvurunuz listeye eklenmiştir, teşekkürler.

#Opers kanalında;

<CLubber> !basvuru listele
<L-BOT> › Kanal başvuruları listesi
<L-BOT>
<L-BOT> #Sohbet kanalı başvurusu (CLubber)
<L-BOT>
<L-BOT> › Kanal başvuruları listelenmiştir.

<CLubber> !basvuru sil
<L-BOT> › Kanal başvuruları temizlenmiştir, teşekkürler.

Herhangi bir sorun yok. Kanal isminde türkçe karakter kullanmayın, bu yüzden de olabilir. #Başvuru yerine, #Basvuru kanalını kullanın.

MesqeN · 21 Aralık 2012, 22:35

Kod: Kodu kopyalamak için üzerine çift tıklayın!

###############   K O M U T L A R  B Ö L Ü M Ü   #############
##                                                          ##
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##
##      kendinize özel yapabilir yada asla değiştirmeden    ##
##             mevcut hali ile kullanabilirsiniz            ##
##                                                          ##
##############################################################
 
set basvuru(kanal) "#Basvuru"
 
set basvuru(oper) "#Opers"
 
set basvuru(komut) "!basvuru"
 
set basvuru(dizin) "basvuru.txt"
 
bind pub - $basvuru(komut) basvuru:ekle
proc basvuru:ekle {nick uhost handle chan text} {
  global botnick basvuru
  set status [lindex $text 0]
  set kanal [lindex $text 1]
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && [string match -nocase "" $kanal]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}
  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && ![string match -nocase "" $kanal]} {
    putquick "PRIVMSG $basvuru(kanal) › $kanal kanalı başvurunuz listeye eklenmiştir, teşekkürler." 
    set message "› $kanal kanalı başvurusu ($nick)"
    set liste [open $basvuru(dizin) "a"] 
    puts $liste $message
    close $liste 
  }
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(oper) :Kanal başvurularını silmek veya kontrol etmek için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) sil/listele>";return}
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "sil" $status]} {
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları temizlenmiştir, teşekkürler." 
    set liste [open $basvuru(dizin) "w"] 
    close $liste
  }
  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "listele" $status]} {
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listesi" 
    putquick "PRIVMSG $basvuru(oper) \002" 
    set file [open $basvuru(dizin) r]
    set listfile [split [subst -nocommands [read $file]] "\n"]
    foreach basvurular $listfile { 
      putquick "privmsg $basvuru(oper) $basvurular"
    } 
    close $file
    putquick "PRIVMSG $basvuru(oper) \002"
    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir."
  } 
}
 
putlog "Kanal Basvuru TCL - Written By CLubber"

set basvuru(dizin) "scripts/basvuru.txt"

Scripts/ kısmını sildiginizde Kod calışcaktır.

detaylı görmek isterseniz. /server 195.244.34.135 -j #KLBK,#Opers

Sunucusunda görebilirsiniz 2 gün sonra ip silincektir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kanal YasakLama ve Basvuru-Kayıt Sistemi ( Unreal - IRCservices - Eggdrop triosuyLa )	Raw	Unreal IRCd	27	09 Şubat 2013 02:04
Eschat v3.9 da Nick kayıt et uyarısı yardım.	mesutozturk	Eggdrop, NeoStats, BNC	0	18 Şubat 2011 18:01
Nick uyarıcısı Loglarını txt'e kayıt..yardım	Zifiri	mIRC Scripting Sorunları	1	20 Ocak 2011 12:27
Diyez kanalı kayıt edilemiyor yardım?	BaharGulu	Unreal IRCd	13	31 Mart 2010 02:48

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.