14 lines
468 B
Plaintext
14 lines
468 B
Plaintext
IMPORT os
|
|
|
|
PUBLIC FUNCTION recepcion( fname STRING ATTRIBUTES(WSAttachment, WSMedia="text/xml") )
|
|
ATTRIBUTES (WSPost,
|
|
WSPath="/api/ecf")
|
|
|
|
RETURNS STRING ATTRIBUTE(WSMedia="text/plain")
|
|
DEFINE ret, new_fname STRING
|
|
DEFINE ok INTEGER
|
|
LET new_fname = os.Path.pwd()||os.Path.separator()||new_fname
|
|
LET ok = os.Path.rename(fname,new_fname)
|
|
LET ret = SFMT("Got file: %1",new_fname)
|
|
RETURN ret
|
|
END FUNCTION |