Manuz.Com 김형원입니다

bind pub - !rank pub:rank

proc pub:rank {nick output binary chan text} {
set binary {/glftpd/bin/stats}

set mooutput [exec $binary -umx 100]
set weoutput [exec $binary -uwx 100]
set daoutput [exec $binary -utx 100]

set ranktitle "$text RANK :"
set rankout ""
set activate 0
set moactivate 0
set weactivate 0
set daavtivate 0
set rank 0
foreach line [split $mooutput \n] {
regsub -all {\[|\]} $line "" line
if {[string match *\[01\]* $line]} {
set activate 1
}
if {$activate==1} {
incr rank
set user [lindex $line 1]
if {$user==$text} {
set speed [lindex $line end]
regsub -all $speed $line "" line
set size [lindex $line end]
append rankout " Month Up #$rank. \[ $size \]"
set moactivate 1
set activate 0
break
}
}
}

foreach line [split $weoutput \n] {
regsub -all {\[|\]} $line "" line
if {[string match *\[01\]* $line]} {
set activate 1
}
if {$activate==1} {
incr rank
set user [lindex $line 1]
if {$user==$text} {
set speed [lindex $line end]
regsub -all $speed $line "" line
set size [lindex $line end]
append rankout " Week Up #$rank. \[ $size \]"
set weactivate 1
set activate 0
break
}
}
}

foreach line [split $daoutput \n] {
regsub -all {\[|\]} $line "" line
if {[string match *\[01\]* $line]} {
set activate 1
}
if {$activate==1} {
incr rank
set user [lindex $line 1]
if {$user==$text} {
set speed [lindex $line end]
regsub -all $speed $line "" line
set size [lindex $line end]
append rankout " Day Up #$rank. \[ $size \]"
set daactivate 1
set activate 0
break
}
}
}
if {$rankout==""} {
putserv "PRIVMSG $chan :RANK : $text is not our user. :P"
return 0
}
putserv "PRIVMSG $chan :$ranktitle $rankout"
}

putlog "RANKCHECK v1.0 by Manu loaded"

set mooutput [exec $binary -umx 100]
set weoutput [exec $binary -uwx 100]
set daoutput [exec $binary -utx 100]