#815 default fsCmd fails to store.

[Anonymous]

The default fsCmd cannot STORE when a new file must be
created.

Problem is on line 262 of ftpd.tcl version 1.8, in proc
::ftpd::fileAuth:

if {[Fs exists [file dirname $path]]} {

By the definition of "fsCmd exists" (... returns a 1 if
the path specified exists and the path is not a
directory) this is always false.
As a consequence, the test on line 268 fails, and
"return 0" on line 275 gets executed!

The test intends to assure write perms on the directory
if the file must be created.