ms-nfs41-client/daemon/setattr.c

/* Copyright (c) 2010
 * The Regents of the University of Michigan
 * All Rights Reserved
 *
 * Permission is granted to use, copy and redistribute this software
 * for noncommercial education and research purposes, so long as no
 * fee is charged, and so long as the name of the University of Michigan
 * is not used in any advertising or publicity pertaining to the use
 * or distribution of this software without specific, written prior
 * authorization.  Permission to modify or otherwise create derivative
 * works of this software is not granted.
 *
 * This software is provided as is, without representation or warranty
 * of any kind either express or implied, including without limitation
 * the implied warranties of merchantability, fitness for a particular
 * purpose, or noninfringement.  The Regents of the University of
 * Michigan shall not be liable for any damages, including special,
 * indirect, incidental, or consequential damages, with respect to any
 * claim arising out of or in connection with the use of the software,
 * even if it has been or is hereafter advised of the possibility of
 * such damages.
 */

#include <Windows.h>
#include <stdio.h>
#include <strsafe.h>

#include "from_kernel.h"
#include "nfs41_ops.h"
#include "name_cache.h"
#include "upcall.h"
#include "util.h"
#include "daemon_debug.h"


int parse_setattr(unsigned char *buffer, uint32_t length, nfs41_upcall *upcall)
{
    int status;
    setattr_upcall_args *args = &upcall->args.setattr;

    status = get_name(&buffer, &length, &args->path);
    if (status) goto out;
    status = safe_read(&buffer, &length, &args->set_class, sizeof(args->set_class));
    if (status) goto out;
    status = safe_read(&buffer, &length, &args->buf_len, sizeof(args->buf_len));
    if (status) goto out;
    args->buf = malloc(args->buf_len);
    if (args->buf == NULL) {
        status = GetLastError();
        goto out;
    }
    status = safe_read(&buffer, &length, args->buf, args->buf_len);
    if (status) goto out_free;
    status = safe_read(&buffer, &length, &args->root, sizeof(args->root));
    if (status) goto out_free;
    status = safe_read(&buffer, &length, &args->state, sizeof(args->state));
    if (status) goto out_free;
    status = safe_read(&buffer, &length, &args->open_owner_id, sizeof(ULONG));
    if (status) goto out_free;
    status = safe_read(&buffer, &length, &args->access_mask, sizeof(ULONG));
    if (status) goto out_free;
    status = safe_read(&buffer, &length, &args->access_mode, sizeof(ULONG));
    if (status) goto out_free;

    dprintf(1, "parsing NFS41_FILE_SET: filename='%s' info_class=%d "
        "buf_len=%d root=%p open_state=%p\nopen_owner_id=%d "
        "access_mask=%x access_mode=%x\n", args->path, args->set_class, 
        args->buf_len, args->root, args->state, args->open_owner_id,
        args->access_mask, args->access_mode);
out:
    return status;
out_free:
    free(args->buf);
    goto out;
}

static void remove_unsupported_attrs(
    IN const bitmap4 *supported_attrs,
    IN OUT bitmap4 *attrs)
{
    uint32_t i, count = 0;
    dprintf(2, "remove_unsupported_attrs\n");
    for (i = 0; i < 3; i++) {
        dprintf(2, "\tmask[%d] = %12u", i, attrs->arr[i]);
        dprintf(2, " & %12u", supported_attrs->arr[i]);

        attrs->arr[i] &= supported_attrs->arr[i];
        if (attrs->arr[i])
            count = i+1;

        dprintf(2, " = %12d\n", attrs->arr[i]);
    }
    attrs->count = min(attrs->count, count);
    dprintf(2, "\tcount   = %d\n", attrs->count);
}

static int handle_nfs41_setattr(setattr_upcall_args *args)
{
    PFILE_BASIC_INFO basic_info = (PFILE_BASIC_INFO)args->buf;
    nfs41_open_state *state = args->state;
    nfs41_superblock *superblock = state->file.fh.superblock;
    stateid4 stateid, *pstateid;
    nfs41_file_info info;
    int status = NO_ERROR;

    pstateid = nfs41_lock_stateid_copy(&state->last_lock, &stateid);
    if (pstateid == NULL)
        pstateid = &state->stateid;

    ZeroMemory(&info, sizeof(info));

    /* hidden */
    info.hidden = basic_info->FileAttributes & FILE_ATTRIBUTE_HIDDEN ? 1 : 0;
    info.attrmask.arr[0] |= FATTR4_WORD0_HIDDEN;
    info.attrmask.count = 1;

    if (superblock->cansettime) {
        /* set the time_delta so xdr_settime4() can decide
         * whether or not to use SET_TO_SERVER_TIME4 */
        info.time_delta = &superblock->time_delta;

        /* time_create */
        if (basic_info->CreationTime.QuadPart > 0) {
            file_time_to_nfs_time(&basic_info->CreationTime,
                &info.time_create);
            info.attrmask.arr[1] |= FATTR4_WORD1_TIME_CREATE;
            info.attrmask.count = 2;
        }
        /* time_access_set */
        if (basic_info->LastAccessTime.QuadPart > 0) {
            file_time_to_nfs_time(&basic_info->LastAccessTime,
                &info.time_access);
            info.attrmask.arr[1] |= FATTR4_WORD1_TIME_ACCESS_SET;
            info.attrmask.count = 2;
        }
        /* time_modify_set */
        if (basic_info->LastWriteTime.QuadPart > 0) {
            file_time_to_nfs_time(&basic_info->LastWriteTime,
                &info.time_modify);
            info.attrmask.arr[1] |= FATTR4_WORD1_TIME_MODIFY_SET;
            info.attrmask.count = 2;
        }
    }

    /* mode */
    if (basic_info->FileAttributes & FILE_ATTRIBUTE_READONLY) {
        info.mode = 0444;
        info.attrmask.arr[1] |= FATTR4_WORD1_MODE;
        info.attrmask.count = 2;
    }

    /* only ask for attributes that are supported by the filesystem */
    AcquireSRWLockShared(&superblock->lock);
    remove_unsupported_attrs(&superblock->supported_attrs, &info.attrmask);
    ReleaseSRWLockShared(&superblock->lock);

    if (!info.attrmask.count)
        goto out;

    status = nfs41_setattr(state->session, &state->file, pstateid, &info);
    if (status) {
        dprintf(1, "nfs41_setattr() failed with error %s.\n",
            nfs_error_string(status));
        status = nfs_to_windows_error(status, ERROR_NOT_SUPPORTED);
    }
out:
    return status;
}

static int handle_nfs41_remove(setattr_upcall_args *args)
{
    nfs41_open_state *state = args->state;
    int status;

    status = nfs41_remove(state->session, &state->parent,
        &state->file.name);
    if (status)
        dprintf(1, "nfs41_remove() failed with error %s.\n",
            nfs_error_string(status));

    return nfs_to_windows_error(status, ERROR_ACCESS_DENIED);
}

static void open_state_rename(
    OUT nfs41_open_state *state,
    IN const nfs41_abs_path *path)
{
    AcquireSRWLockExclusive(&state->path.lock);

    abs_path_copy(&state->path, path);
    last_component(state->path.path, state->path.path + state->path.len,
        &state->file.name);
    last_component(state->path.path, state->file.name.name,
        &state->parent.name);

    ReleaseSRWLockExclusive(&state->path.lock);
}

static int handle_nfs41_rename(setattr_upcall_args *args)
{
    nfs41_open_state *state = args->state;
    PFILE_RENAME_INFO rename = (PFILE_RENAME_INFO)args->buf;
    nfs41_abs_path dst_path;
    nfs41_path_fh dst_dir;
    nfs41_component dst_name, *src_name;
    int status;

    ZeroMemory(&dst_path, sizeof(dst_path));
    src_name = &state->file.name;

    if (rename->FileNameLength == 0) {
        /* start from state->path instead of args->path, in case we got
         * the file from a referred server */
        AcquireSRWLockShared(&state->path.lock);
        abs_path_copy(&dst_path, &state->path);
        ReleaseSRWLockShared(&state->path.lock);

        path_fh_init(&dst_dir, &dst_path);
        fh_copy(&dst_dir.fh, &state->parent.fh);

        create_silly_rename(&dst_path, &state->file.fh, &dst_name);
        dprintf(1, "silly rename: %s -> %s\n", src_name->name, dst_name.name);

        status = nfs41_rename(state->session,
            &state->parent, src_name,
            &dst_dir, &dst_name);
        if (status) {
            dprintf(1, "nfs41_rename() failed with error %s.\n",
                nfs_error_string(status));
            status = nfs_to_windows_error(status, ERROR_ACCESS_DENIED);
        } else {
            /* rename state->path on success */
            open_state_rename(state, &dst_path);
        }
        goto out;
    }

    dst_path.len = (unsigned short)WideCharToMultiByte(CP_UTF8, 0,
        rename->FileName, rename->FileNameLength/sizeof(WCHAR),
        dst_path.path, NFS41_MAX_PATH_LEN, NULL, NULL);
    if (dst_path.len == 0) {
        eprintf("WideCharToMultiByte failed to convert destination "
            "filename %S.\n", rename->FileName);
        status = ERROR_INVALID_PARAMETER;
        goto out;
    }
    path_fh_init(&dst_dir, &dst_path);

    /* the destination path is absolute, so start from the root session */
    status = nfs41_lookup(args->root, nfs41_root_session(args->root),
        &dst_path, &dst_dir, NULL, NULL, NULL);

    /* get the components after lookup in case a referral changed its path */
    last_component(dst_path.path, dst_path.path + dst_path.len, &dst_name);
    last_component(dst_path.path, dst_name.name, &dst_dir.name);

    if (status == NO_ERROR) {
        if (!rename->ReplaceIfExists) {
            status = ERROR_FILE_EXISTS;
            goto out;
        }
    } else if (status != ERROR_FILE_NOT_FOUND) {
        dprintf(1, "nfs41_lookup('%s') failed to find destination "
            "directory with %d\n", dst_path.path, status);
        goto out;
    }

    /* http://tools.ietf.org/html/rfc5661#section-18.26.3
     * "Source and target directories MUST reside on the same
     * file system on the server." */
    if (state->parent.fh.superblock != dst_dir.fh.superblock) {
        status = ERROR_NOT_SAME_DEVICE;
        goto out;
    }

    status = nfs41_rename(state->session,
        &state->parent, src_name,
        &dst_dir, &dst_name);
    if (status) {
        dprintf(1, "nfs41_rename() failed with error %s.\n",
            nfs_error_string(status));
        status = nfs_to_windows_error(status, ERROR_ACCESS_DENIED);
    } else {
        /* rename state->path on success */
        open_state_rename(state, &dst_path);
    }
out:
    return status;
}

static int handle_nfs41_set_size(setattr_upcall_args *args)
{
    nfs41_open_state *state = args->state;
    int status;

    /* note: this is called with either FILE_END_OF_FILE_INFO or
     * FILE_ALLOCATION_INFO, both of which contain a single LARGE_INTEGER */
    PLARGE_INTEGER size = (PLARGE_INTEGER)args->buf;
    stateid4 stateid, *pstateid;
    nfs41_file_info info;

    pstateid = nfs41_lock_stateid_copy(&state->last_lock, &stateid);
    if (pstateid == NULL)
        pstateid = &state->stateid;

    ZeroMemory(&info, sizeof(info));
    info.size = size->QuadPart;

    info.attrmask.count = 1;
    info.attrmask.arr[0] = FATTR4_WORD0_SIZE;

    dprintf(2, "calling setattr() with size=%lld\n", info.size);
    status = nfs41_setattr(state->session, &state->file, pstateid, &info);
    if (status)
        dprintf(1, "nfs41_setattr() failed with error %s.\n",
            nfs_error_string(status));

    return status = nfs_to_windows_error(status, ERROR_NOT_SUPPORTED);
}

int handle_nfs41_link(setattr_upcall_args *args)
{
    nfs41_open_state *state = args->state;
    PFILE_LINK_INFORMATION link = (PFILE_LINK_INFORMATION)args->buf;
    nfs41_abs_path dst_path;
    nfs41_path_fh dst_dir;
    nfs41_component dst_name;
    int status;

    ZeroMemory(&dst_path, sizeof(dst_path));

    dst_path.len = (unsigned short)WideCharToMultiByte(CP_UTF8, 0,
        link->FileName, link->FileNameLength/sizeof(WCHAR),
        dst_path.path, NFS41_MAX_PATH_LEN, NULL, NULL);
    if (dst_path.len == 0) {
        eprintf("WideCharToMultiByte failed to convert destination "
            "filename %S.\n", link->FileName);
        status = ERROR_INVALID_PARAMETER;
        goto out;
    }
    path_fh_init(&dst_dir, &dst_path);

    /* the destination path is absolute, so start from the root session */
    status = nfs41_lookup(args->root, nfs41_root_session(args->root),
        &dst_path, &dst_dir, NULL, NULL, NULL);

    /* get the components after lookup in case a referral changed its path */
    last_component(dst_path.path, dst_path.path + dst_path.len, &dst_name);
    last_component(dst_path.path, dst_name.name, &dst_dir.name);

    if (status == NO_ERROR) {
        if (!link->ReplaceIfExists) {
            status = ERROR_FILE_EXISTS;
            goto out;
        }
    } else if (status != ERROR_FILE_NOT_FOUND) {
        dprintf(1, "nfs41_lookup('%s') failed to find destination "
            "directory with %d\n", dst_path.path, status);
        goto out;
    }

    /* http://tools.ietf.org/html/rfc5661#section-18.9.3
     * "The existing file and the target directory must reside within
     * the same file system on the server." */
    if (state->file.fh.superblock != dst_dir.fh.superblock) {
        status = ERROR_NOT_SAME_DEVICE;
        goto out;
    }

    if (status == NO_ERROR) {
        /* LINK will return NFS4ERR_EXIST if the target file exists,
         * so we have to remove it ourselves */
        status = nfs41_remove(state->session, &dst_dir, &dst_name);
        if (status) {
            dprintf(1, "nfs41_remove() failed with error %s.\n",
                nfs_error_string(status));
            status = ERROR_FILE_EXISTS;
            goto out;
        }
    }

    status = nfs41_link(state->session, &state->file,
        &dst_dir, &dst_name, NULL);
    if (status) {
        dprintf(1, "nfs41_link() failed with error %s.\n",
            nfs_error_string(status));
        status = nfs_to_windows_error(status, ERROR_INVALID_PARAMETER);
    }
out:
    return status;
}

int handle_setattr(nfs41_upcall *upcall)
{
    setattr_upcall_args *args = &upcall->args.setattr;
    nfs41_open_state *state = args->state;
    int status;

    switch (args->set_class) {
    case FileAllocationInformation:
    case FileEndOfFileInformation:
        if (!state->do_close) {
            // get a stateid
            uint32_t allow = 0, deny = 0;
            StringCchPrintfA((LPSTR)state->owner.owner, NFS4_OPAQUE_LIMIT,
                "%u", args->open_owner_id);
            state->owner.owner_len = (uint32_t)strlen(
                (const char*)state->owner.owner);
            map_access_2_allowdeny(args->access_mask, args->access_mode, &allow, &deny);
            status = nfs41_open(state->session, allow, deny,
                OPEN4_NOCREATE, 0, state, NULL);
            if (status) {
                dprintf(1, "nfs41_open() failed with %s\n", nfs_error_string(status));
                status = nfs_to_windows_error(status, ERROR_FILE_NOT_FOUND);
                goto out;
            }
            state->do_close = 1;
        }
    }

    switch (args->set_class) {
    case FileBasicInformation:
        status = handle_nfs41_setattr(args);
        break;
    case FileDispositionInformation:
        status = handle_nfs41_remove(args);
        break;
    case FileRenameInformation:
        status = handle_nfs41_rename(args);
        break;
    case FileAllocationInformation:
    case FileEndOfFileInformation:
        status = handle_nfs41_set_size(args);
        break;
    case FileLinkInformation:
        status = handle_nfs41_link(args);
        break;
    default:
        eprintf("unknown set_file information class %d\n",
            args->set_class);
        status = ERROR_NOT_SUPPORTED;
        break;
    }

out:
    free(args->buf);
    return status;
}

int marshall_setattr(unsigned char *buffer, uint32_t *length, nfs41_upcall *upcall)
{
    return NO_ERROR;
}

int parse_setexattr(unsigned char *buffer, uint32_t length, nfs41_upcall *upcall)
{
    int status;
    setexattr_upcall_args *args = &upcall->args.setexattr;

    status = safe_read(&buffer, &length, &args->root, sizeof(args->root));
    if (status) goto out;
    status = safe_read(&buffer, &length, &args->state, sizeof(args->state));
    if (status) goto out;
    status = safe_read(&buffer, &length, &args->mode, sizeof(args->mode));
    if (status) goto out;

    dprintf(1, "parsing NFS41_EA_SET: root=%p open_state=%p mode=%o\n", 
        args->root, args->state, args->mode);
out:
    return status;
}

int handle_setexattr(nfs41_upcall *upcall)
{
    int status;
    setexattr_upcall_args *args = &upcall->args.setexattr;
    nfs41_open_state *state = args->state;
    stateid4 stateid, *pstateid;
    nfs41_file_info info;

    pstateid = nfs41_lock_stateid_copy(&state->last_lock, &stateid);
    if (pstateid == NULL)
        pstateid = &state->stateid;

    ZeroMemory(&info, sizeof(info));

    /* mode */
    info.mode = args->mode;
    info.attrmask.arr[1] |= FATTR4_WORD1_MODE;
    info.attrmask.count = 2;

    status = nfs41_setattr(state->session, &state->file, pstateid, &info);
    if (status)
        dprintf(1, "nfs41_setattr() failed with error %s.\n",
            nfs_error_string(status));

    return nfs_to_windows_error(status, ERROR_NOT_SUPPORTED);
}

int marshall_setexattr(unsigned char *buffer, uint32_t *length, nfs41_upcall *upcall)
{
    return NO_ERROR;
}