set global-chanset +nodesynch

proc is:infile {filename args} {
	if {[file exists $filename]} {
	set dosya [open $filename r]
		while {![eof $dosya]} {
		catch {set argn0 [gets $dosya]}
			if {$argn0 == $args} {
			catch {close $dosya}
			return 1
			}
		}
	catch {close $dosya}
	}
return 0
}

proc is:operchan {args} {
global file_channel_oper
	if {[is:infile $file_channel_oper $args] == "1"} {
	return 1
	}
return 0
}

proc is:userchan {args} {
global file_channel
	if {[is:infile $file_channel $args] == "1"} {
	return 1
	}
return 0
}

bind pub - !kanalx com:kanal
proc com:kanal {nick host hand chan text} {
global file_channel me
	if {[is:operchan $chan] == "1"} {
	set argn0 [lindex $text 0]
	set argn1 [lindex $text 1]

		if {$argn0 == "ekle" && $argn1 != ""} {
			if {[is:muafchan $argn1] == "1"} {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı muaf listesinde bulunuyor."
			} elseif {[is:userchan $argn1] == "1"} {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı zaten listede bulunuyor."
			} else {
			set dosya [open $file_channel a]
			puts $dosya $argn1
				channel add $argn1 {
				need-op { putserv "MODE $argn1 +h $me" }
				}
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı listeye eklendi."
			close $dosya
			}
		} elseif {$argn0 == "list"} {
			putquick "PRIVMSG $chan :Kayıtlı kanallar listeleniyor;"
			putquick "PRIVMSG $chan :\2"
			if {[file exists $file_channel]} {
			set dosya [open $file_channel r]
				while {![eof $dosya]} {
				catch {set argn2 [gets $dosya]}
					if {$argn2 != ""} {
					putquick "PRIVMSG $chan :Kanal: \2$argn2\2"
					}
				}
			catch {close $dosya}
			putquick "PRIVMSG $chan :\2"
			putquick "PRIVMSG $chan :Kayıtlı kanallar listelendi."
			}
		} elseif {$argn0 == "test" && $argn1 != ""} {
			if {[is:infile $file_channel $argn1] == "1"} then {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı listede bulunuyor."
			} else {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı listede bulunmuyor."
			}
		}
	}
return 0
}

set file_channel "hamit/database/channel.dat"
if {[file exists $file_channel]} {
set dosya [open $file_channel r]
	while {![eof $dosya]} {
	catch {set args [gets $dosya]}
		if {$args != ""} {
			channel add $args {
  			need-op { putserv "MODE $args +h Bot" }
			}
		}
	}
	catch {close $dosya}
}