i need help whit a script

[xuser]

i need help with a little script, the script works but for all channels and
i want to make it work just for 1 channel, but i made somethig wrong and I don't no where is the mistake

here is the code, maybe you can help me

Code: Select all

set addqpubprefix !

set addqchan "#somethinghere"

set addqfile scripts/questions.txt


#######################################
#           THIS IS CODE              #
#######################################

if { ![info exists toolbox_loaded] } { source scripts/alltools.tcl }

bind pub - [string trim $addqpubprefix]addquestion addq:pub:addquestion


proc addq:pub:addquestion {nick uhost hand chan arg} {
 global addqchan addqfile 
 if { $arg == "" } {
  putnotc $nick "Usage: !addquestion <Question here>"
  return 0
 }
 set file [open $addqfile a]
 puts $file "$arg"
 close $file
 putnotc $nick "Added Question...$arg"
 return 1
}

Thanks

[CrazyCat]

Code: Select all

set addqpubprefix !
set addqchan "#somethinghere"
set addqfile scripts/questions.txt

if { ![info exists toolbox_loaded] } {
   source scripts/alltools.tcl
}

bind pub - [string trim $addqpubprefix]addquestion addq:pub:addquestion

proc addq:pub:addquestion {nick uhost hand chan arg} {
   if {[string tolower $chan] != [string tolower $::addqchan]} {
      putserv "NOTICE $nick :You're not in the good channel, try it in $::addqchan"
      return 0
   }
   if { $arg == "" } {
      putserv "NOTICE $nick :Usage: !addquestion <Question here>"
      return 0
   }
   set file [open $::addqfile a]
   puts $file "$arg"
   close $file
   putserv "NOTICE $nick :Added Question...$arg"
   return 1
}

[xuser]

Ok, it's realy works
Thanks