tcl script giver problemer ..

jeg har på en eller anden måde fået dette bakset sammen.. og det virker sådan da .. der der sker er at når man skriver .speed i en irc kanal så kigger scripted på min ftpd(glftpd) og udskriver hvem der uploader/downloader (krypteret med blowfish).. men jeg vil oxo have det til at virke når man skriver feks .speed up

jeg kan selv se output fra et mirc script der også kører blowfish med samme key. jeg vil meget gerne have en precis kode at gå efter.

eksempel der virker:
[22:33:00] [T] <loadet> .speed
[22:33:03] [E] <[GBIT]> (SPEED) SiTE -> loadet Idle: 01:27:32 -> Shagu Dn: tcf-swep2a.r38 at 52.2K/sec -> loadet Idle: 59:08

ekspemel der ikkke virker:
[22:34:59] [T] <loadet> .speed up
(ingenting)




set dfnkey "test"
set speedtrigger ".speed"
set speedtrigger [encrypt $dfnkey $speedtrigger]
bind pub -|- "$speedtrigger" speed

#################################################################################
# POST SPEED                                                                    #
#################################################################################
proc speed {nick uhost hand chan args} {
global binary announce
set dfnkey "d4fTF4cTiOn1s4cr4z33m1n0r1ty"
set output "$announce(SPEED)"
if { [lindex $args 0] == "" } {
set data [exec $binary(SPEED) [lindex $args 0]]
lappend output "\037(\037\002SPEED\002\037)\037 \002SiTE\002 -> $data"
set output [string trim $output "{ }"]
set encoutput [encrypt $dfnkey $output]
putserv "PRIVMSG $chan : +DFNE $encoutput"
return 0
    }
if { [lindex $args 0] == "*" } {
lappend output "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 -> \002please type a login name\002"
set output [string trim $output "{ }"]
set encoutput [encrypt $dfnkey $output]
putserv "PRIVMSG $chan : +DFNE $encoutput"
return 0
    }
if { [lindex $args 0] == "up" } {
set data [exec $binary(SPEED) [lindex $args 0]]
    if { $data == "up\[offline\] hidden" } {
lappend output "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002UPLOADERS\002 -> No Uploaders"
set output [string trim $output "{ }"]
set encoutput [encrypt $dfnkey $output]
putserv "PRIVMSG $chan : +DFNE $encoutput"
        } else {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002UPLOADERS\002 -> $data"
        }
return 0
    }
if { [lindex $args 0] == "down" } {
set data [exec $binary(SPEED) [lindex $args 0]]
    if { $data == "down\[offline\] hidden" } {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002DOWNLOADERS\002 -> No Downloaders"
        } else {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002DOWNLOADERS\002 -> $data"
        }
return 0
    }
if { [lindex $args 0] == "down" } {
set data [exec $binary(SPEED) [lindex $args 0]]
    if { $data == "down\[offline\] hidden" } {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002DOWNLOADERS\002 -> No Downloaders"
        } else {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002DOWNLOADERS\002 -> $data"
        }
return 0
    }
if { [lindex $args 0] == "dn" } {
set data [exec $binary(SPEED) [lindex $args 0]]
    if { $data == "dn\[offline\] hidden" } {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002DOWNLOADERS\002 -> No Downloaders"
        } else {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002DOWNLOADERS\002 -> $data"
        }
return 0
    }
if { [lindex $args 0] == "idle" } {
set data [exec $binary(SPEED) [lindex $args 0]]
    if { $data == "idle\[offline\] hidden" } {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002iDLERS\002 -> No Idlers"
        } else {
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002iDLERS\002 -> $data"
        }
return 0
    }
set data [exec $binary(SPEED) [lindex $args 0]]
putserv "PRIVMSG $chan :\037(\037\002SPEED\002\037)\037 \002USER\002 -> $data"
return 0
set output [replacevar "$output" "%who" [lindex $data 0]]
set output [replacevar "$output" "%updnidle" [lindex $data 1]]
set output [replacevar "$output" "%action" [lindex $data 2]]
set output [replacevar "$output" "%crap" [lindex $data 3]]
set output [replacevar "$output" "%speed" [lindex $data 4]]
set output [basicreplace "$output" "SPEED"]
putserv "PRIVMSG $chan :$output"
}