usr/src/usr.sbin/amd/amd/nfs_subr.c

/*
 * $Id: nfs_subr.c,v 5.2 90/06/23 22:19:50 jsp Rel $
 *
 * Copyright (c) 1990 Jan-Simon Pendry
 * Copyright (c) 1990 Imperial College of Science, Technology & Medicine
 * Copyright (c) 1990 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Jan-Simon Pendry at Imperial College, London.
 *
 * Redistribution and use in source and binary forms are permitted provided
 * that: (1) source distributions retain this entire copyright notice and
 * comment, and (2) distributions including binaries display the following
 * acknowledgement:  ``This product includes software developed by the
 * University of California, Berkeley and its contributors'' in the
 * documentation or other materials provided with the distribution and in
 * all advertising materials mentioning features or use of this software.
 * Neither the name of the University nor the names of its contributors may
 * be used to endorse or promote products derived from this software without
 * specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 *
 *      @(#)nfs_subr.c  5.1 (Berkeley) 6/29/90
 */

#include "am.h"

/*
 * Convert from UN*X to NFS error code
 */
#ifdef NFS_ERROR_MAPPING
NFS_ERROR_MAPPING
#define nfs_error(e) \
        ((nfsstat)((e) > NFS_LOMAP && (e) < NFS_HIMAP ? \
        nfs_errormap[(e) - NFS_LOMAP] : (e)))
#else
#define nfs_error(e) ((nfsstat)(e))
#endif /* NFS_ERROR_MAPPING */

static char *do_readlink(mp, error_return, attrpp)
am_node *mp;
int *error_return;
struct attrstat **attrpp;
{
        char *ln;

        /*
         * If there is a readlink method, then use
         * that, otherwise if a link exists use
         * that, otherwise use the mount point.
         */
        if (mp->am_mnt->mf_ops->readlink) {
                int retry = 0;
                mp = (*mp->am_mnt->mf_ops->readlink)(mp, &retry);
                if (mp == 0) {
                        *error_return = retry;
                        return 0;
                }
                /*reschedule_timeout_mp();*/
        }
        if (mp->am_link) {
                ln = mp->am_link;
        } else {
                ln = mp->am_mnt->mf_mount;
        }
        if (attrpp)
                *attrpp = &mp->am_mnt->mf_attr;
        return ln;
}

/*ARGSUSED*/
voidp
nfsproc_null_2(argp, rqstp)
voidp argp;
struct svc_req *rqstp;
{
        static char res;

        return (voidp) &res;
}


/*ARGSUSED*/
struct attrstat *
nfsproc_getattr_2(argp, rqstp)
struct nfs_fh *argp;
struct svc_req *rqstp;
{
        static struct attrstat res;
        am_node *mp;
        int retry;

#ifdef DEBUG
        Debug(D_TRACE)
                plog(XLOG_DEBUG, "gettattr:");
#endif /* DEBUG */

        mp = fh_to_mp2(argp, &retry);
        if (mp == 0) {
#ifdef PRECISE_SYMLINKS
getattr_retry:
#endif /* PRECISE_SYMLINKS */

                if (retry < 0)
                        return 0;
                res.status = nfs_error(retry);
        } else {
                struct attrstat *attrp = &mp->am_mnt->mf_attr;
#ifdef PRECISE_SYMLINKS
                if (mp->am_mnt->mf_fattr.type == NFLNK) {
                        /*
                         * Make sure we can read the link,
                         * and then determine the length.
                         */
                        char *ln = do_readlink(mp, &retry, &attrp);
                        if (ln == 0)
                                goto getattr_retry;
                }
#endif /* PRECISE_SYMLINKS */
#ifdef DEBUG
                Debug(D_TRACE)
                        plog(XLOG_DEBUG, "\tstat(%s), size = %d", mp->am_path, attrp->attrstat_u.attributes.size);
#endif /* DEBUG */
                mp->am_stats.s_getattr++;
                return attrp;
        }

        return &res;
}


/*ARGSUSED*/
struct attrstat *
nfsproc_setattr_2(argp, rqstp)
struct sattrargs *argp;
struct svc_req *rqstp;
{
        static struct attrstat res;

        if (!fh_to_mp(&argp->file))
                res.status = nfs_error(ESTALE);
        else
                res.status = nfs_error(EROFS);

        return &res;
}


/*ARGSUSED*/
voidp
nfsproc_root_2(argp, rqstp)
voidp argp;
struct svc_req *rqstp;
{
        static char res;

        return (voidp)&res;
}


/*ARGSUSED*/
struct diropres *
nfsproc_lookup_2(argp, rqstp)
struct diropargs *argp;
struct svc_req *rqstp;
{
        static struct diropres res;
        am_node *mp;
        int retry;

#ifdef DEBUG
        Debug(D_TRACE)
                plog(XLOG_DEBUG, "lookup:");
#endif /* DEBUG */

        mp = fh_to_mp2(&argp->dir, &retry);
        if (mp == 0) {
                if (retry < 0)
                        return 0;
                res.status = nfs_error(retry);
        } else {
                int error;
                am_node *ap;
#ifdef DEBUG
                Debug(D_TRACE)
                        plog(XLOG_DEBUG, "\tlookuppn(%s, %s)", mp->am_path, argp->name);
#endif /* DEBUG */
                ap = (*mp->am_mnt->mf_ops->lookuppn)(mp, argp->name, &error, VLOOK_CREATE);
                if (ap == 0) {
                        if (error < 0) {
#ifdef DEBUG
                                dlog("Not sending RPC reply");
#endif /* DEBUG */
                                amd_stats.d_drops++;
                                return 0;
                        }
                        res.status = nfs_error(error);
                } else {
#ifdef DEBUG
                        if (ap->am_mnt->mf_fattr.size < 0)
                                dlog("\tERROR: size = %d!", ap->am_mnt->mf_fattr.size);
#endif /* DEBUG */
                        mp_to_fh(ap, &res.diropres_u.diropres.file);
                        res.diropres_u.diropres.attributes = ap->am_mnt->mf_fattr;
                        res.status = NFS_OK;
                }
                mp->am_stats.s_lookup++;
                /*reschedule_timeout_mp();*/
        }

        return &res;
}


/*ARGSUSED*/
struct readlinkres *
nfsproc_readlink_2(argp, rqstp)
struct nfs_fh *argp;
struct svc_req *rqstp;
{
        static struct readlinkres res;
        am_node *mp;
        int retry;

#ifdef DEBUG
        Debug(D_TRACE)
                plog(XLOG_DEBUG, "readlink:");
#endif /* DEBUG */

        mp = fh_to_mp2(argp, &retry);
        if (mp == 0) {
readlink_retry:
                if (retry < 0)
                        return 0;
                res.status = nfs_error(retry);
        } else {
                char *ln = do_readlink(mp, &retry, (struct attrstat *) 0);
                if (ln == 0)
                        goto readlink_retry;
                res.status = NFS_OK;
#ifdef DEBUG
                Debug(D_TRACE)
                        if (ln)
                                plog(XLOG_DEBUG, "\treadlink(%s) = %s", mp->am_path, ln);
#endif /* DEBUG */
                res.readlinkres_u.data = ln;
                mp->am_stats.s_readlink++;
        }

        return &res;
}


/*ARGSUSED*/
struct readres *
nfsproc_read_2(argp, rqstp)
struct readargs *argp;
struct svc_req *rqstp;
{
        static struct readres res;

        bzero((char *)&res, sizeof(res));

        res.status = nfs_error(EACCES);

        return &res;
}


/*ARGSUSED*/
voidp
nfsproc_writecache_2(argp, rqstp)
voidp argp;
struct svc_req *rqstp;
{
        static char res;

        return (voidp) &res;
}


/*ARGSUSED*/
struct attrstat *
nfsproc_write_2(argp, rqstp)
writeargs *argp;
struct svc_req *rqstp;
{
        static struct attrstat res;

        if (!fh_to_mp(&argp->file))
                res.status = nfs_error(ESTALE);
        else
                res.status = nfs_error(EROFS);

        return &res;
}


/*ARGSUSED*/
struct diropres *
nfsproc_create_2(argp, rqstp)
createargs *argp;
struct svc_req *rqstp;
{
        static struct diropres res;

        if (!fh_to_mp(&argp->where.dir))
                res.status = nfs_error(ESTALE);
        else
                res.status = nfs_error(EROFS);

        return &res;
}


/*ARGSUSED*/
static nfsstat *
unlink_or_rmdir(argp, rqstp, unlinkp)
struct diropargs *argp;
struct svc_req *rqstp;
{
        static nfsstat res;
        int retry;
        mntfs *mf;
        am_node *mp = fh_to_mp3(&argp->dir, &retry, VLOOK_DELETE);
        if (mp == 0) {
                if (retry < 0)
                        return 0;
                res = nfs_error(retry);
                goto out;
        }
        mf = mp->am_mnt;
        if (mf->mf_fattr.type != NFDIR) {
                res = nfs_error(ENOTDIR);
                goto out;
        }
#ifdef DEBUG
        Debug(D_TRACE)
                plog(XLOG_DEBUG, "\tremove(%s, %s)", mp->am_path, argp->name);
#endif /* DEBUG */
        mp = (*mp->am_mnt->mf_ops->lookuppn)(mp, argp->name, &retry, VLOOK_DELETE);
        if (mp == 0) {
                /*
                 * Ignore retries...
                 */
                if (retry < 0)
                        retry = 0;
                /*
                 * Usual NFS workaround...
                 */
                else if (retry == ENOENT)
                        retry = 0;
                res = nfs_error(retry);
        } else {
                forcibly_timeout_mp(mp);
                res = NFS_OK;
        }

out:
        return &res;
}


/*ARGSUSED*/
nfsstat *
nfsproc_remove_2(argp, rqstp)
struct diropargs *argp;
struct svc_req *rqstp;
{
        return unlink_or_rmdir(argp, rqstp, 1);
}

/*ARGSUSED*/
nfsstat *
nfsproc_rename_2(argp, rqstp)
renameargs *argp;
struct svc_req *rqstp;
{
        static nfsstat res;
        if (!fh_to_mp(&argp->from.dir) || !fh_to_mp(&argp->to.dir))
                res = nfs_error(ESTALE);
        /*
         * If the kernel is doing clever things with referenced files
         * then let it pretend...
         */
        else if (strncmp(argp->to.name, ".nfs", 4) == 0)
                res = NFS_OK;
        /*
         * otherwise a failure
         */
        else
                res = nfs_error(EROFS);
        return &res;
}


/*ARGSUSED*/
nfsstat *
nfsproc_link_2(argp, rqstp)
linkargs *argp;
struct svc_req *rqstp;
{
        static nfsstat res;
        if (!fh_to_mp(&argp->from) || !fh_to_mp(&argp->to.dir))
                res = nfs_error(ESTALE);
        else
                res = nfs_error(EROFS);

        return &res;
}


/*ARGSUSED*/
nfsstat *
nfsproc_symlink_2(argp, rqstp)
symlinkargs *argp;
struct svc_req *rqstp;
{
        static nfsstat res;
        if (!fh_to_mp(&argp->from.dir))
                res = nfs_error(ESTALE);
        else
                res = nfs_error(EROFS);

        return &res;
}


/*ARGSUSED*/
struct diropres *
nfsproc_mkdir_2(argp, rqstp)
createargs *argp;
struct svc_req *rqstp;
{
        static struct diropres res;
        if (!fh_to_mp(&argp->where.dir))
                res.status = nfs_error(ESTALE);
        else
                res.status = nfs_error(EROFS);

        return &res;
}


/*ARGSUSED*/
nfsstat *
nfsproc_rmdir_2(argp, rqstp)
struct diropargs *argp;
struct svc_req *rqstp;
{
        return unlink_or_rmdir(argp, rqstp, 0);
}


/*ARGSUSED*/
struct readdirres *
nfsproc_readdir_2(argp, rqstp)
readdirargs *argp;
struct svc_req *rqstp;
{
        static readdirres res;
        static entry e_res[2];
        am_node *mp;
        int retry;

#ifdef DEBUG
        Debug(D_TRACE)
                plog(XLOG_DEBUG, "readdir:");
#endif /* DEBUG */

        mp = fh_to_mp2(&argp->dir, &retry);
        if (mp == 0) {
                if (retry < 0)
                        return 0;
                res.status = nfs_error(retry);
        } else {
#ifdef DEBUG
                Debug(D_TRACE)
                        plog(XLOG_DEBUG, "\treaddir(%s)", mp->am_path);
#endif /* DEBUG */
                res.status = nfs_error((*mp->am_mnt->mf_ops->readdir)(mp, argp->cookie,
                                        &res.readdirres_u.reply, e_res));
                mp->am_stats.s_readdir++;
        }

        /* XXX - need to take argp->count into account */

        return &res;
}

/*ARGSUSED*/
struct statfsres *
nfsproc_statfs_2(argp, rqstp)
struct nfs_fh *argp;
struct svc_req *rqstp;
{
        static statfsres res;
        am_node *mp;
        int retry;

#ifdef DEBUG
        Debug(D_TRACE)
                plog(XLOG_DEBUG, "statfs:");
#endif /* DEBUG */

        mp = fh_to_mp2(argp, &retry);
        if (mp == 0) {
                if (retry < 0)
                        return 0;
                res.status = nfs_error(retry);
        } else {
                statfsokres *fp;
#ifdef DEBUG
                Debug(D_TRACE)
                        plog(XLOG_DEBUG, "\tstat_fs(%s)", mp->am_path);
#endif /* DEBUG */
                /*
                 * just return faked up file system information
                 */

                fp = &res.statfsres_u.reply;

                fp->tsize = 1024;
                fp->bsize = 4192;
                fp->blocks = 1;
                fp->bfree = 0;
                fp->bavail = 0;

                res.status = NFS_OK;
                mp->am_stats.s_statfs++;
        }

        return &res;
}