ftpd::Session method file format mlst (protected)

 <instance of ftpd::Session[i]> file format mlst file

Defined in

MLST size*;type*;perm*;create*;modify*;

Parameters:
file (required)

Testcases:
No testcase defined.
Source code:
set perm ""
file stat $file stat

if {[file isdirectory $file]} {
    # maybe distinguish between dir/cdir/pdir rfc3659 7.5.1
    set type dir
    if {[file readable $file]} {append perm "l"}
    if {[file executable $file]} {append perm "e"}
    if {[file writable $file]} {append perm "cdm"}

} else {
    set type file
    if {[file readable $file]} {append perm "r"}
    if {[file writable $file]} {append perm "fwd"}
}
set ctime [clock format $stat(ctime) -format "%Y%m%d%H%M%S"]
set mtime [clock format $stat(mtime) -format "%Y%m%d%H%M%S"]
append result  "Size=[file size $file];"  "Type=$type;"  "Perm=$perm;"  "Create=$ctime;"  "Modify=$mtime;"  " " [file tail $file]
return $result
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: