bind raw - "322" kanal_listele

set listzaman 30

if {![string match "*kanal_listesi*" [utimers]]} {

	utimer $listzaman kanal_listesi

}

proc kanal_listesi {} {

	global listzaman

	putserv "LIST"

	utimer $listzaman kanal_listesi

	return 1

}

proc kanal_listele {from keyword arg} {

	global usersayisi globalkanallar botnick

	set listekanaladi [lindex $arg 1]

	set guncelsayi [lindex $arg 2]

	if {[lsearch -exact $globalkanallar [string tolower $listekanaladi]] != -1} {return 0}

	if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {

		channel add $listekanaladi { +nodesynch flood-chan 10:2 }

	}

	if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {

		channel remove $listekanaladi

	} else {

		return 0

	}

}

 
set rss(theregister) {

		"url"			"http://haber.mynet.com/rss/rssconverter.asp?type=flash"

		"channels"		"#haber"

		"output"		"\\[2,8Son Dakika\\]  @@item!title@@  @@item!description@@ 14 @@item!link@@  - \[::rss-synd::urldecode \[lindex \[regexp -inline -- {url=(.[^&]*)} {@@item!link@@}\] 1\]\]"

		"database"		"./scripts/sondakika.db"

		"trigger"		"!Sondakika"

		"evaluate-tcl"	1

	}

	set default {

		"announce-output"	12

		"trigger-output"	12

		"remove-empty"		1

		"trigger-type"		0:1

		"announce-type"		1

		"max-depth"		5

		"evaluate-tcl"		0

		"update-interval"	5

		"output-order"		1

		"timeout"			60000

		"channels"			"#haber"

		"trigger"			"!sondakika @@feedid@@"

		"output"			"\[\002@@!rss!title@@@@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]@@\002\] @@item!title@@@@entry!title@@ - @@item!link@@@@entry!link!=href@@"