set cmds(update) "!update"
set cmds(start) "!start"

#binding commands
bind PUB - $cmds(update) ::upprox
bind PUB - $cmds(start) ::start

proc upprox { nick host handle chan text } {
    set fichier "/home/gogaz/codaz/eggdrop/test.txt"
    set fp [open $fichier r]
    set data [read $fp]
    close $fp
    set data [split $data "\n"]
    set proxylist [list ""]
#    set myreg "([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})"
    foreach line $data {
        set proxy [regexp "((\[0-9\]{1,3})\.){4}" $line ip]
        append proxylist "$proxy"
    }
    global $proxylist
}

proc start { nick host handle chan text } {
#   set liste [::proxylist "/home/gogaz/codaz/eggdrop/test.txt"]
   set msg_s [lindex $proxyliste [expr {int(rand() * ([llength $proxyliste] - 1))}]]
#   set a "#xchat-fr"
   puthelp "PRIVMSG $chan:$nick: $msg_s"
}