TCL source:
PHP Code:
## - WhoBug.itcl
##
## Usage:
## [FTP_Custom_Commands]
## whobug = TCL ..\\scripts\\WhoBug.itcl
##
proc WhoBug {} {
if {[client who init "CID" "REALPATH"] == 0} {
while {1} {
if {[set WhoData [client who fetch]] == ""} {break}
set ClientID [lindex $WhoData 0]
set RealPath [lindex $WhoData 1]
iputs "ClientID = \"$ClientID\""
iputs "RealPath = \"$RealPath\""
}
} else {
iputs "Unable to retrieve online users."
}
}
WhoBug
Output:
Code:
site whobug
200-ClientID = "0"
200-RealPath = "E:/ioFTPD/site
200 Command successful.
When using the "REALPATH" field in the
client who command, the return value of
client who fetch contains a NULL character in the second list item (for REALPATH).