help needed

[lenooxx]

heya , i need help , i have tried creating a script , but it dosent work for me , someone know whats wrong? Thank you

Code: Select all

set urls {
"http://whaterver.com"
}

set posting_chans "*"

bind time  10  posting

proc posting {nick uhost hand chan arg} {
	global urls posting_chans
	foreach chan [channels] {if {(([lsearch -exact [string tolower $posting_chans] [string tolower $chan]] != -1) || ($posting_chans == "*"))} {putserv "PRIVMSG $chan :[lindex $urls [rand [llength $urls]]]"}}
}

[Sir_Fz]

I'm in a hurry, so I'm just going to comment on the binding (without checking the code inside the procedure). If you want it to execute every 10 minutes, then this is the proper binding:

Code: Select all

bind time - {?0 *} posting

[lenooxx]

thank you very much ^^

[Sir_Fz]

Also, you're using [lsearch] to search in a string (which is never recommended), $posting_chans should be a list. Wildcards in [lsearch] can only be used with -glob switch and the wildcards are specified in the third argument (the search string).