555 lines
14 KiB
C
555 lines
14 KiB
C
/*
|
|
* Copyright (c) 1999, 2000, 2001 Boris Popov
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. All advertising materials mentioning features or use of this software
|
|
* must display the following acknowledgement:
|
|
* This product includes software developed by Boris Popov.
|
|
* 4. Neither the name of the author nor the names of any co-contributors
|
|
* may be used to endorse or promote products derived from this software
|
|
* without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*
|
|
* $FreeBSD$
|
|
*/
|
|
#include <sys/param.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/sysproto.h>
|
|
#include <sys/sysent.h>
|
|
#include <sys/proc.h>
|
|
#include <sys/kernel.h>
|
|
#include <sys/sysctl.h>
|
|
#include <sys/malloc.h>
|
|
#include <sys/uio.h>
|
|
|
|
#include <netncp/ncp.h>
|
|
#include <netncp/ncp_conn.h>
|
|
#include <netncp/ncp_subr.h>
|
|
#include <netncp/ncp_ncp.h>
|
|
#include <netncp/ncp_user.h>
|
|
#include <netncp/ncp_rq.h>
|
|
#include <netncp/ncp_nls.h>
|
|
|
|
int ncp_version = NCP_VERSION;
|
|
|
|
static int ncp_sysent;
|
|
|
|
SYSCTL_NODE(_net, OID_AUTO, ncp, CTLFLAG_RW, NULL, "NetWare requester");
|
|
SYSCTL_INT(_net_ncp, OID_AUTO, sysent, CTLFLAG_RD, &ncp_sysent, 0, "");
|
|
SYSCTL_INT(_net_ncp, OID_AUTO, version, CTLFLAG_RD, &ncp_version, 0, "");
|
|
|
|
MODULE_VERSION(ncp, 1);
|
|
MODULE_DEPEND(ncp, libmchain, 1, 1, 1);
|
|
|
|
static int
|
|
ncp_conn_frag_rq(struct ncp_conn *conn, struct proc *p, struct ncp_conn_frag *nfp);
|
|
|
|
/*
|
|
* Attach to NCP server
|
|
*/
|
|
struct sncp_connect_args {
|
|
struct ncp_conn_args *li;
|
|
int *connHandle;
|
|
};
|
|
|
|
static int
|
|
sncp_connect(struct proc *p, struct sncp_connect_args *uap)
|
|
{
|
|
int connHandle = 0, error;
|
|
struct ncp_conn *conn;
|
|
struct ncp_handle *handle;
|
|
struct ncp_conn_args li;
|
|
|
|
checkbad(copyin(uap->li,&li,sizeof(li)));
|
|
checkbad(copyout(&connHandle,uap->connHandle,sizeof(connHandle))); /* check before */
|
|
li.password = li.user = NULL;
|
|
error = ncp_conn_getattached(&li, p, p->p_ucred, NCPM_WRITE | NCPM_EXECUTE, &conn);
|
|
if (error) {
|
|
error = ncp_conn_alloc(&li, p, p->p_ucred, &conn);
|
|
if (error)
|
|
goto bad;
|
|
error = ncp_conn_reconnect(conn);
|
|
if (error)
|
|
ncp_conn_free(conn);
|
|
}
|
|
if (!error) {
|
|
error = ncp_conn_gethandle(conn, p, &handle);
|
|
copyout(&handle->nh_id, uap->connHandle, sizeof(uap->connHandle));
|
|
ncp_conn_unlock(conn,p);
|
|
}
|
|
bad:
|
|
p->p_retval[0]=error;
|
|
return error;
|
|
}
|
|
|
|
struct sncp_request_args {
|
|
int connHandle;
|
|
int fn;
|
|
struct ncp_buf *ncpbuf;
|
|
};
|
|
|
|
static int ncp_conn_handler(struct proc *p, struct sncp_request_args *uap,
|
|
struct ncp_conn *conn, struct ncp_handle *handle);
|
|
|
|
static int
|
|
sncp_request(struct proc *p, struct sncp_request_args *uap)
|
|
{
|
|
struct ncp_rq *rqp;
|
|
struct ncp_conn *conn;
|
|
struct ncp_handle *handle;
|
|
int error = 0, rqsize;
|
|
|
|
error = ncp_conn_findhandle(uap->connHandle,p,&handle);
|
|
if (error)
|
|
return error;
|
|
conn = handle->nh_conn;
|
|
if (uap->fn == NCP_CONN)
|
|
return ncp_conn_handler(p, uap, conn, handle);
|
|
error = copyin(&uap->ncpbuf->rqsize, &rqsize, sizeof(int));
|
|
if (error)
|
|
return(error);
|
|
error = ncp_rq_alloc(uap->fn, conn, p, p->p_ucred, &rqp);
|
|
if (error)
|
|
return error;
|
|
if (rqsize) {
|
|
error = mb_put_mem(&rqp->rq, (caddr_t)uap->ncpbuf->packet,
|
|
rqsize, MB_MUSER);
|
|
if (error)
|
|
goto bad;
|
|
}
|
|
rqp->nr_flags |= NCPR_DONTFREEONERR;
|
|
error = ncp_request(rqp);
|
|
if (error == 0 && rqp->nr_rpsize)
|
|
error = md_get_mem(&rqp->rp, (caddr_t)uap->ncpbuf->packet,
|
|
rqp->nr_rpsize, MB_MUSER);
|
|
copyout(&rqp->nr_cs, &uap->ncpbuf->cs, sizeof(rqp->nr_cs));
|
|
copyout(&rqp->nr_cc, &uap->ncpbuf->cc, sizeof(rqp->nr_cc));
|
|
copyout(&rqp->nr_rpsize, &uap->ncpbuf->rpsize, sizeof(rqp->nr_rpsize));
|
|
bad:
|
|
ncp_rq_done(rqp);
|
|
return error;
|
|
}
|
|
|
|
static int
|
|
ncp_mod_login(struct ncp_conn *conn, char *user, int objtype, char *password,
|
|
struct proc *p, struct ucred *cred)
|
|
{
|
|
int error;
|
|
|
|
if (ncp_suser(cred) != 0 && cred->cr_uid != conn->nc_owner->cr_uid)
|
|
return EACCES;
|
|
conn->li.user = ncp_str_dup(user);
|
|
if (conn->li.user == NULL)
|
|
return ENOMEM;
|
|
conn->li.password = ncp_str_dup(password);
|
|
if (conn->li.password == NULL) {
|
|
error = ENOMEM;
|
|
goto bad;
|
|
}
|
|
ncp_str_upper(conn->li.user);
|
|
if ((conn->li.opt & NCP_OPT_NOUPCASEPASS) == 0)
|
|
ncp_str_upper(conn->li.password);
|
|
conn->li.objtype = objtype;
|
|
error = ncp_conn_login(conn, p, cred);
|
|
return error;
|
|
bad:
|
|
if (conn->li.user) {
|
|
free(conn->li.user, M_NCPDATA);
|
|
conn->li.user = NULL;
|
|
}
|
|
if (conn->li.password) {
|
|
free(conn->li.password, M_NCPDATA);
|
|
conn->li.password = NULL;
|
|
}
|
|
return error;
|
|
}
|
|
|
|
static int
|
|
ncp_conn_handler(struct proc *p, struct sncp_request_args *uap,
|
|
struct ncp_conn *conn, struct ncp_handle *hp)
|
|
{
|
|
int error=0, rqsize, subfn;
|
|
struct ucred *cred;
|
|
|
|
char *pdata;
|
|
|
|
cred = p->p_ucred;
|
|
error = copyin(&uap->ncpbuf->rqsize, &rqsize, sizeof(int));
|
|
if (error) return(error);
|
|
error = 0;
|
|
pdata = uap->ncpbuf->packet;
|
|
subfn = *(pdata++) & 0xff;
|
|
rqsize--;
|
|
switch (subfn) {
|
|
case NCP_CONN_READ: case NCP_CONN_WRITE: {
|
|
struct ncp_rw rwrq;
|
|
struct uio auio;
|
|
struct iovec iov;
|
|
|
|
if (rqsize != sizeof(rwrq)) return (EBADRPC);
|
|
error = copyin(pdata,&rwrq,rqsize);
|
|
if (error) return (error);
|
|
iov.iov_base = rwrq.nrw_base;
|
|
iov.iov_len = rwrq.nrw_cnt;
|
|
auio.uio_iov = &iov;
|
|
auio.uio_iovcnt = 1;
|
|
auio.uio_offset = rwrq.nrw_offset;
|
|
auio.uio_resid = rwrq.nrw_cnt;
|
|
auio.uio_segflg = UIO_USERSPACE;
|
|
auio.uio_rw = (subfn == NCP_CONN_READ) ? UIO_READ : UIO_WRITE;
|
|
auio.uio_procp = p;
|
|
if (subfn == NCP_CONN_READ)
|
|
error = ncp_read(conn, &rwrq.nrw_fh, &auio, cred);
|
|
else
|
|
error = ncp_write(conn, &rwrq.nrw_fh, &auio, cred);
|
|
rwrq.nrw_cnt -= auio.uio_resid;
|
|
p->p_retval[0] = rwrq.nrw_cnt;
|
|
break;
|
|
} /* case int_read/write */
|
|
case NCP_CONN_SETFLAGS: {
|
|
u_int16_t mask, flags;
|
|
|
|
error = copyin(pdata,&mask, sizeof(mask));
|
|
if (error) return error;
|
|
pdata += sizeof(mask);
|
|
error = copyin(pdata,&flags,sizeof(flags));
|
|
if (error) return error;
|
|
error = ncp_conn_lock(conn,p,cred,NCPM_WRITE);
|
|
if (error) return error;
|
|
if (mask & NCPFL_PERMANENT) {
|
|
conn->flags &= ~NCPFL_PERMANENT;
|
|
conn->flags |= (flags & NCPFL_PERMANENT);
|
|
}
|
|
if (mask & NCPFL_PRIMARY) {
|
|
error = ncp_conn_setprimary(conn, flags & NCPFL_PRIMARY);
|
|
if (error) {
|
|
ncp_conn_unlock(conn,p);
|
|
break;
|
|
}
|
|
}
|
|
ncp_conn_unlock(conn,p);
|
|
break;
|
|
}
|
|
case NCP_CONN_LOGIN: {
|
|
struct ncp_conn_login la;
|
|
|
|
if (rqsize != sizeof(la))
|
|
return EBADRPC;
|
|
if (conn->flags & NCPFL_LOGGED)
|
|
return EALREADY;
|
|
if ((error = copyin(pdata,&la,rqsize)) != 0)
|
|
break;
|
|
error = ncp_conn_lock(conn, p, cred, NCPM_EXECUTE | NCPM_WRITE);
|
|
if (error) return error;
|
|
error = ncp_mod_login(conn, la.username, la.objtype, la.password, p, p->p_ucred);
|
|
ncp_conn_unlock(conn, p);
|
|
p->p_retval[0] = error;
|
|
break;
|
|
}
|
|
case NCP_CONN_GETINFO: {
|
|
struct ncp_conn_stat ncs;
|
|
int len = sizeof(ncs);
|
|
|
|
error = ncp_conn_lock(conn, p, p->p_ucred, NCPM_READ);
|
|
if (error) return error;
|
|
ncp_conn_getinfo(conn, &ncs);
|
|
copyout(&len, &uap->ncpbuf->rpsize, sizeof(int));
|
|
error = copyout(&ncs, &uap->ncpbuf->packet, len);
|
|
ncp_conn_unlock(conn, p);
|
|
break;
|
|
}
|
|
case NCP_CONN_GETUSER: {
|
|
int len;
|
|
|
|
error = ncp_conn_lock(conn, p, p->p_ucred, NCPM_READ);
|
|
if (error) return error;
|
|
len = (conn->li.user) ? strlen(conn->li.user) + 1 : 0;
|
|
copyout(&len, &uap->ncpbuf->rpsize, sizeof(int));
|
|
if (len) {
|
|
error = copyout(conn->li.user, &uap->ncpbuf->packet, len);
|
|
}
|
|
ncp_conn_unlock(conn, p);
|
|
break;
|
|
}
|
|
case NCP_CONN_CONN2REF: {
|
|
int len = sizeof(int);
|
|
|
|
error = ncp_conn_lock(conn, p, p->p_ucred, NCPM_READ);
|
|
if (error) return error;
|
|
copyout(&len, &uap->ncpbuf->rpsize, sizeof(int));
|
|
if (len) {
|
|
error = copyout(&conn->nc_id, &uap->ncpbuf->packet, len);
|
|
}
|
|
ncp_conn_unlock(conn, p);
|
|
break;
|
|
}
|
|
case NCP_CONN_FRAG: {
|
|
struct ncp_conn_frag nf;
|
|
|
|
if (rqsize != sizeof(nf)) return (EBADRPC);
|
|
if ((error = copyin(pdata, &nf, rqsize)) != 0) break;
|
|
error = ncp_conn_lock(conn, p, cred, NCPM_EXECUTE);
|
|
if (error) return error;
|
|
error = ncp_conn_frag_rq(conn, p, &nf);
|
|
ncp_conn_unlock(conn, p);
|
|
copyout(&nf, &pdata, sizeof(nf));
|
|
p->p_retval[0] = error;
|
|
break;
|
|
}
|
|
case NCP_CONN_DUP: {
|
|
struct ncp_handle *newhp;
|
|
int len = sizeof(NWCONN_HANDLE);
|
|
|
|
error = ncp_conn_lock(conn, p, cred, NCPM_READ);
|
|
if (error) break;
|
|
copyout(&len, &uap->ncpbuf->rpsize, len);
|
|
error = ncp_conn_gethandle(conn, p, &newhp);
|
|
if (!error)
|
|
error = copyout(&newhp->nh_id, uap->ncpbuf->packet, len);
|
|
ncp_conn_unlock(conn,p);
|
|
break;
|
|
}
|
|
case NCP_CONN_CONNCLOSE: {
|
|
error = ncp_conn_lock(conn, p, cred, NCPM_EXECUTE);
|
|
if (error) break;
|
|
ncp_conn_puthandle(hp, p, 0);
|
|
error = ncp_conn_free(conn);
|
|
if (error)
|
|
ncp_conn_unlock(conn, p);
|
|
break;
|
|
}
|
|
default:
|
|
error = EOPNOTSUPP;
|
|
}
|
|
return error;
|
|
}
|
|
|
|
struct sncp_conn_scan_args {
|
|
struct ncp_conn_args *li;
|
|
int *connHandle;
|
|
};
|
|
|
|
static int
|
|
sncp_conn_scan(struct proc *p, struct sncp_conn_scan_args *uap)
|
|
{
|
|
int connHandle = 0, error;
|
|
struct ncp_conn_args li, *lip;
|
|
struct ncp_conn *conn;
|
|
struct ncp_handle *hp;
|
|
char *user = NULL, *password = NULL;
|
|
|
|
if (uap->li) {
|
|
if (copyin(uap->li,&li,sizeof(li))) return EFAULT;
|
|
lip = &li;
|
|
} else {
|
|
lip = NULL;
|
|
}
|
|
|
|
if (lip != NULL) {
|
|
lip->server[sizeof(lip->server)-1]=0; /* just to make sure */
|
|
ncp_str_upper(lip->server);
|
|
if (lip->user) {
|
|
user = ncp_str_dup(lip->user);
|
|
if (user == NULL) return EINVAL;
|
|
ncp_str_upper(user);
|
|
}
|
|
if (lip->password) {
|
|
password = ncp_str_dup(lip->password);
|
|
if (password == NULL) {
|
|
if (user)
|
|
free(user, M_NCPDATA);
|
|
return EINVAL;
|
|
}
|
|
ncp_str_upper(password);
|
|
}
|
|
lip->user = user;
|
|
lip->password = password;
|
|
}
|
|
error = ncp_conn_getbyli(lip,p,p->p_ucred,NCPM_EXECUTE,&conn);
|
|
if (!error) { /* already have this login */
|
|
ncp_conn_gethandle(conn, p, &hp);
|
|
connHandle = hp->nh_id;
|
|
ncp_conn_unlock(conn,p);
|
|
copyout(&connHandle,uap->connHandle,sizeof(connHandle));
|
|
}
|
|
if (user) free(user, M_NCPDATA);
|
|
if (password) free(password, M_NCPDATA);
|
|
p->p_retval[0] = error;
|
|
return error;
|
|
|
|
}
|
|
|
|
int
|
|
ncp_conn_frag_rq(struct ncp_conn *conn, struct proc *p, struct ncp_conn_frag *nfp)
|
|
{
|
|
NW_FRAGMENT *fp;
|
|
struct ncp_rq *rqp;
|
|
u_int32_t fsize;
|
|
int error, i, rpsize;
|
|
|
|
error = ncp_rq_alloc(nfp->fn, conn, p, p->p_ucred, &rqp);
|
|
if (error)
|
|
return error;
|
|
for(fp = nfp->rqf, i = 0; i < nfp->rqfcnt; i++, fp++) {
|
|
error = mb_put_mem(&rqp->rq, (caddr_t)fp->fragAddress, fp->fragSize, MB_MUSER);
|
|
if (error)
|
|
goto bad;
|
|
}
|
|
rqp->nr_flags |= NCPR_DONTFREEONERR;
|
|
error = ncp_request(rqp);
|
|
if (error)
|
|
goto bad;
|
|
rpsize = rqp->nr_rpsize;
|
|
if (rpsize && nfp->rpfcnt) {
|
|
for(fp = nfp->rpf, i = 0; i < nfp->rpfcnt; i++, fp++) {
|
|
error = copyin(&fp->fragSize, &fsize, sizeof (fsize));
|
|
if (error)
|
|
break;
|
|
fsize = min(fsize, rpsize);
|
|
error = md_get_mem(&rqp->rp, (caddr_t)fp->fragAddress, fsize, MB_MUSER);
|
|
if (error)
|
|
break;
|
|
rpsize -= fsize;
|
|
error = copyout(&fsize, &fp->fragSize, sizeof (fsize));
|
|
if (error)
|
|
break;
|
|
}
|
|
}
|
|
nfp->cs = rqp->nr_cs;
|
|
nfp->cc = rqp->nr_cc;
|
|
bad:
|
|
ncp_rq_done(rqp);
|
|
return error;
|
|
}
|
|
|
|
/*
|
|
* Internal functions, here should be all calls that do not require connection.
|
|
* To simplify possible future movement to cdev, we use IOCTL macros.
|
|
* Pretty much of this stolen from ioctl() function.
|
|
*/
|
|
struct sncp_intfn_args {
|
|
u_long com;
|
|
caddr_t data;
|
|
};
|
|
|
|
static int
|
|
sncp_intfn(struct proc *p, struct sncp_intfn_args *uap)
|
|
{
|
|
return ENOSYS;
|
|
}
|
|
/*
|
|
* define our new system calls
|
|
*/
|
|
static struct sysent newent[] = {
|
|
{2, (sy_call_t*)sncp_conn_scan},
|
|
{2, (sy_call_t*)sncp_connect},
|
|
{2, (sy_call_t*)sncp_intfn},
|
|
{3, (sy_call_t*)sncp_request}
|
|
};
|
|
|
|
#define SC_SIZE sizeof(newent)/sizeof(struct sysent)
|
|
/*
|
|
* Miscellaneous modules must have their own save areas...
|
|
*/
|
|
static struct sysent oldent[SC_SIZE]; /* save are for old callslot entry*/
|
|
|
|
/*
|
|
* Number of syscall entries for a.out executables
|
|
*/
|
|
/*#define nsysent SYS_MAXSYSCALL*/
|
|
#define nsysent (aout_sysvec.sv_size)
|
|
|
|
|
|
static int
|
|
ncp_load(void) {
|
|
int i, ff, scnt, err=0;
|
|
|
|
while(1) {
|
|
/* Search the table looking for an enough number of slots... */
|
|
for (scnt=0, ff = -1, i = 0; i < nsysent; i++) {
|
|
if (sysent[i].sy_call == (sy_call_t *)lkmnosys) {
|
|
if (ff == -1) {
|
|
ff = i;
|
|
scnt = 1;
|
|
} else {
|
|
scnt++;
|
|
if (scnt == SC_SIZE) break;
|
|
}
|
|
} else {
|
|
ff = -1;
|
|
}
|
|
}
|
|
/* out of allocable slots?*/
|
|
if(i == nsysent || ff == -1) {
|
|
err = ENFILE;
|
|
break;
|
|
}
|
|
err = ncp_init();
|
|
if (err) break;
|
|
bcopy(&sysent[ff], &oldent, sizeof(struct sysent)*SC_SIZE);
|
|
bcopy(&newent, &sysent[ff], sizeof(struct sysent)*SC_SIZE);
|
|
ncp_sysent = ff; /* slot in sysent[]*/
|
|
printf("ncp_load: [%d-%d]\n",ff,i);
|
|
break;
|
|
}
|
|
|
|
return( err);
|
|
}
|
|
|
|
static int
|
|
ncp_unload(void)
|
|
{
|
|
int error;
|
|
|
|
error = ncp_done();
|
|
if (error)
|
|
return error;
|
|
bcopy(&oldent, &sysent[ncp_sysent], sizeof(struct sysent) * SC_SIZE);
|
|
printf( "ncp_unload: unloaded\n");
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
ncp_mod_handler(module_t mod, int type, void *data)
|
|
{
|
|
int error;
|
|
|
|
switch (type) {
|
|
case MOD_LOAD:
|
|
error = ncp_load();
|
|
break;
|
|
case MOD_UNLOAD:
|
|
error = ncp_unload();
|
|
break;
|
|
default:
|
|
error = EINVAL;
|
|
}
|
|
return error;
|
|
}
|
|
\
|
|
static moduledata_t ncp_mod = {
|
|
"ncp",
|
|
ncp_mod_handler,
|
|
NULL
|
|
};
|
|
DECLARE_MODULE(ncp, ncp_mod, SI_SUB_PROTO_DOMAIN, SI_ORDER_ANY);
|