#ifdef TPLTER

SetOwner = {

    MinVersion = "39";

    SHORT = {{ change ownership of a FS object }};

    DESCRIPTION = {{
	change the ownerid of a certain FileSystem
	Object.

	Currently this command is not very senseful,
	since it does not accept things like OwnerName
	or GroupName, to evaluate the OwnerID, and since
	it does not act on FilePatterns

     RESULT
	none (except for error messages)
    }};

    NOTES = {{
	needs _v39_ or better

	This command is IMHO senseless for everyday
	usage.
	(I needed it when playing w/ a ramdisk, since
	I could not find docs about ACTION_SETOWNER)
    }};

    EXAMPLES = {{
	>SetOwner Work:Data
    }};

    TODO = {{
	we should better add
	* access to an id database instead of simple ownership id
    }};

    HISTORY = {{
	26-03-95 b_noll created
	19-08-95 b_noll created .data file
    }};


    Template = "PATH/M/A,OWNERID/N/A";
    Arguments = {{
	STRPTR *path;
	ULONG  *ownerid;
    }};

    version = "1.0";

    body = {{
	    if (((struct Library *)DOSBase)->lib_Version >= 39) {
		int i;
		retval = RETURN_OK;
		for (i = 0; argv->path[i] && !retval; ++i) {
		    if (!SetOwner (argv->path[i], *argv->ownerid))
			retval = RETURN_ERROR;
		} /* for */
	    } else
		SetIoErr(ERROR_INVALID_RESIDENT_LIBRARY);
    }};
};

#endif