PubCMD

set pubcmdfile "scripts/trigger.txt"
set pubcmd ""

if {![file exists $pubcmdfile]} {
   putlog "\002FILE TRIGGER :\002 First start of the PUBCMD script, creating the trigger.txt file. The trigger is by default \" \002!\002 \". To change it on channel: !trigger + choice."
   set filePUBCMD [open $pubcmdfile w]
   puts $filePUBCMD "!"
   close $filePUBCMD
} else {
   set filePUBCMD [open $pubcmdfile r]
   set trigger [gets $filePUBCMD]
   close $filePUBCMD
   set pubcmd $trigger
}

proc do_trigger { nick uhost hand chan text } {
   global pubcmdfile pubcmd
   set trigger [lindex [split $text] 0 ]
   if {[string equal -nocase $trigger $::pubcmd]} {
      putserv "privmsg $chan :The trigger is already \"$::pubcmd\""
      return 0
   } else {
      if {$trigger !=""} {
         set filePUBCMD [open $pubcmdfile w]
         puts $filePUBCMD $trigger
         close $filePUBCMD
         unset pubcmd
         catch {unbind *}
         putserv "privmsg $chan :The trigger is \"$trigger\" now."
         putserv "privmsg $chan :I need to restart ... I will come back :)"
         restart         
      } else {
         putserv "privmsg $chan :ERROR SYNTAXE: ${pubcmd}trigger trigger(?+!-.)."
      }
   }
}

bind pub ${topflag} ${pubcmd}trigger do_trigger

proc do_mode {nick uhost hand chan text} {
    if {![botisop $chan]} {
        putserv "privmsg $chan :Désolé mais je ne suis pas @ sur $chan"
    } else {
        set a2modes [join [lindex [split $text] 0]]
        if {[string first - $a2modes] >=0} {
            set chanmodes [getchanmode $chan]
            set modes [join [lindex [split $chanmodes] 0]]
            if {[string first k $modes]>0} {
                putserv "MODE $chan $text [join [lindex [split $chanmodes] 1]]"
            } else {
                putserv "MODE $chan $text"
            }
        } else {
            putserv "MODE $chan $text"
        }
    }
}