###############
# Control TCL #
###############

# Log kanalini belirtiniz.
set vrsy(knal) "#Opers"

# Portu belirtiniz.
set vrsy(port) "8000"

# Zline suresini belirtiniz.
# 1h = 1 saat.
# 30m = 30 dakika.
# 30s = 30 saniye.
set vrsy(sure) "30m"

# Zline ile uzaklastirma sebebini belirtiniz.
set vrsy(rasn) "Lutfen 30 dakika sonra 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden tekrar giris yapiniz."

# Cevap vermeyen client programlarini ne kadar sure beklesin ? (Saniye cinsinden.)
set vrsy(tmrs) "10"

# Sunucuya girenler hakkinda log kanal'ina bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcon) "0"

# Log kanalina versiyon korumasindan gecemeyenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lmsg) "1"

# Web portundan giriste kullaniciya versiyon kontrolunden basarili bir sekilde gectigine dair notice atilmasi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(unot) "0"

# Log kanalina versiyon korumasindan basariyla gecenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcok) "0"

# Log kanalina cevap vermeyen client baglantilarini uzaklastirdigina dair bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lnvr) "0"

#################
# ELLEME CISS ! #
#################

bind raw * notice connect:user
proc connect:user {from keyword arg} { 
global botnick vrsy appver appfin
	if {[string match -nocase "*Client connecting*" $arg]} {
	set nick [lindex $arg 9]
	set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
	set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
	set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
	set appver([string tolower $nick]) 1
	set appfin([string tolower $nick]) 1
		if {$port == $vrsy(port)} {
			if {$vrsy(lcon) == "0"} {
				bind ctcr - VERSION applet:version
				bind ctcr - FINGER applet:finger
				putquick "PRIVMSG $nick :\1FINGER\1"
				putquick "PRIVMSG $nick :\1VERSION\1"
				utimer $vrsy(tmrs)[list applet:no:version $nick]
				utimer $vrsy(tmrs)[list applet:no:finger $nick]
			}
			if {$vrsy(lcon) == "1"} {
				bind ctcr - VERSION applet:version
				bind ctcr - FINGER applet:finger
				putquick "PRIVMSG $nick :\1FINGER\1"
				putquick "PRIVMSG $nick :\1VERSION\1"
				putquick "PRIVMSG $vrsy(knal) :*** \002CONNECT\002 - \002$nick ($ident@$host)\002 su anda WEB portundan sunucuya giris yapti, client program kontrolu yapiliyor."
				utimer $vrsy(tmrs)[list applet:no:version $nick]
				utimer $vrsy(tmrs)[list applet:no:finger $nick]
			}
		}
		if {[string match -nocase "*changed his/her nickname*" $arg]} {
		set nick [lindex $arg 4]
		set newnick [lindex $arg 11]
			if {![info exists appver([string tolower $nick])]} {
				set appver([string tolower $newnick]) 1
				utimer $vrsy(tmrs)[list applet:no:version $newnick]
			}
		}
	}
}

proc applet:version {nick uhost handle {dest ""} keyword arg} {
global botnick vrsy appver
	if {$vrsy(lmsg) == "0" && $vrsy(unot) == "0" && $vrsy(lcok) == "0"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "0" && $vrsy(lcok) == "0"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "1" && $vrsy(lcok) == "0"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "1" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "0" && $vrsy(unot) == "1" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "0" && $vrsy(unot) == "0" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
	if {$vrsy(lmsg) == "1" && $vrsy(unot) == "0" && $vrsy(lcok) == "1"} {
		if {![string match -nocase "*esChat*v3*9b*2009*" " $arg]} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
		} else {
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
			unset appver([string tolower $nick])
			unbind ctcr - VERSION applet:version
		}
	}
}

proc applet:no:version {nick} {
global botnick appver
	if {[info exists appver([string tolower $nick])]} {
		if {$vrsy(lnvr) == "0"} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			unset appver([string tolower $nick])
		}
		if {$vrsy(lnvr) == "1"} {
			putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
			putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION cevabi vermedigi icin sunucudan uzaklastirildi."
			unset appver([string tolower $nick])
		}
	}
}

proc applet:finger {nick uhost handle {dest ""} keyword arg} {
global botnick appfin
	if {[string match -nocase "*" $arg]} {
		putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		unset appfin([string tolower $nick])
		unbind ctcr - FINGER applet:finger
	} else {
		unset appfin([string tolower $nick])
		unbind ctcr - FINGER applet:finger
	}
}

################################
putlog "TCL basariyla yuklendi."
putlog "control.tcl by Namesis."
################################