dunigan@ORNL-MSR.arpa (Tom Dunigan 576-2522) (04/24/87)
#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# README
# Makefile
# ofiles.c
# ofiles.8
# This archive created: Wed Apr 22 12:25:05 1987
# By: Tom Dunigan 576-2522 ()
export PATH; PATH=/bin:$PATH
if test -f 'README'
then
echo shar: over-writing existing file "'README'"
fi
cat << \SHAR_EOF > 'README'
ofiles.c
display process ids and other info on processes that have
files open on given device.
original author of 4.2 version cspencer@???
this version has been tested with vnode file systems, sun 3.2,
unix 4.3bsd/nfs (mt xinu), sequent (dynix 2.1)
ofiles will need read privileges to /dev/mem kmem and drum
for sun 3.2, you will need to hack /usr/include/sys/file.h
taking out the #ifdef KERNEL stuff around the #include <sys/fcntl.h>
SHAR_EOF
if test -f 'Makefile'
then
echo shar: over-writing existing file "'Makefile'"
fi
cat << \SHAR_EOF > 'Makefile'
# $Header: Makefile,v 1.1 85/05/06 19:32:13 cspencer Exp $
CFLAGS= -O
INSTALL=/usr/local/bin/install
DESTDIR=/usr/local/bin
all: ofiles
ofiles: ofiles.o
cc ofiles.o ${LIBES} -o ofiles
all.install: ofiles
${INSTALL} ofiles ${DESTDIR} -m 755 -u root -g bin
rmobjects clobber clean:
rm -f ofiles *.o *.out *.log core
SHAR_EOF
if test -f 'ofiles.c'
then
echo shar: over-writing existing file "'ofiles.c'"
fi
cat << \SHAR_EOF > 'ofiles.c'
/* ofiles.c
* ofiles [-p] file
* determine which processes have given file (or file system) open
* reports owner, process and inode number
* -p gives brief (pids only) report
* -d level can be used for debugging info
* we stat the file, then step through the process table
* looking at open files for each process to see if we have a match
* user table is fetched for reporting
*
* doesn't handlle remote NFS files yet.
*/
#ifndef lint
static char rcsid[]="$Header: ofiles.c,v 1.1 85/06/30 03:19:30 root Exp $";
#endif lint
#include <sys/param.h>
#include <sys/dir.h>
#include <sys/user.h>
#ifdef sequent
#define KERNEL
#include <sys/file.h>
#include <sys/vnode.h>
#include <sys/inode.h>
#undef KERNEL
#else
#define KERNEL
#include <sys/file.h>
#undef KERNEL
#include <sys/vnode.h>
#include <ufs/inode.h>
#endif
#include <machine/pte.h>
#include <sys/proc.h>
#include <nlist.h>
#include <sys/stat.h>
#include <pwd.h>
#include <fstab.h>
#include <sys/vmmac.h>
#include <stdio.h>
#define CDIR 01
#define OFILE 02
#define RDIR 04
long eseek();
int nproc; /* number of entries in proc table */
int mem; /* fd for /dev/mem */
int kmem;
int swap; /* fd for /dev/swap */
struct pte *usrpt, *Usrptma;
long procbase;
int opninode; /* save inode of open file */
int pids_only = 0; /* if non-zero, only output process ids */
char *progname;
struct nlist nl[] = {
#define X_PROC 0
{"_proc"},
#define X_NPROC 1
{"_nproc"},
#define X_USRPTMA 2
{"_Usrptmap"},
#define X_USRPT 3
{"_usrpt"},
{0}
};
int debug;
main(argc, argv)
int argc;
char *argv[];
{
struct inode *i,*getinode();
struct stat s;
struct user *u, *getuser();
struct proc p;
register int filen, flags, procn;
register char *filename, *fsname;
struct fstab *fs, *getfsfile(), *getfsspec();
progname = argv[0];
if(argc == 1) {
fprintf(stderr,"usage: %s [-p] files\n", progname);
exit(1);
}
/* check for -p flag */
if(strcmp(argv[1],"-p") == 0) {
pids_only++;
--argc;
++argv;
}
if(strcmp(argv[1],"-d") == 0) {
--argc;
++argv;
debug = atoi(argv[1]);
--argc;
++argv;
}
if((mem = open("/dev/mem", 0)) < 0)
error("can't open /dev/mem. ");
if((kmem = open("/dev/kmem", 0)) < 0)
error("can't open /dev/kmem. ");
if((swap = open("/dev/drum", 0)) < 0)
error("can't open /dev/drum. ");
getsyms();
while(--argc) {
/* assume arg is a filesystem */
if((fs = getfsfile(*++argv)) != NULL) {
fsname = *argv;
filename = fs->fs_spec;
}
/* maybe it's the device name for a filesystem */
else if ((fs = getfsspec(*argv)) != NULL) {
filename = *argv;
fsname = fs->fs_file;
}
/* probably a regular file */
else {
filename = *argv;
fsname = "";
}
if(stat(filename, &s)) {
fprintf(stderr,"can't stat %s. ",filename);
perror("");
continue;
}
if ( debug > 5) printf("stat dev %x ino %d mode %x rdev %x\n",
s.st_dev,s.st_ino,s.st_mode,s.st_rdev);
if(! pids_only) {
printf("%s\t%s\n", filename,fsname);
printf("%-8.8s\tpid\ttype\tcmd\t\tino\n", "user");
}
for(procn = 0; procn < nproc; procn++){
procslot(procn, &p);
flags = 0;
if(p.p_stat == 0 || p.p_stat == SZOMB)
continue;
u = getuser(&p);
if ( u == (struct user *)NULL)
continue;
if (debug > 10 )printf("pid %d uid %d cmd %s\n",p.p_pid,
p.p_uid, u->u_comm);
if (u->u_rdir != NULL){
i = getinode(u->u_rdir, "rdir");
if(check(&s,i)) flags |= RDIR;
}
if (u->u_cdir != NULL){
i = getinode(u->u_cdir, "cdir");
if(check(&s,i)) flags |= CDIR;
}
for(filen = 0; filen < NOFILE; filen++) {
struct file f;
if(u->u_ofile[filen] == NULL)
continue;
eseek(kmem,(long)u->u_ofile[filen],0,"file");
eread(kmem,(char *)&f, sizeof(f), "file");
if(f.f_count > 0) {
if (f.f_type != DTYPE_VNODE)
continue;
i = getinode((char *)f.f_data, "ofile");
if(check(&s,i)){
opninode = i->i_number;
flags |= OFILE;
}
}
}
if(flags) gotone(u,&p,flags);
}
if(! pids_only)
printf("\n");
}
}
/*
* print the name of the user owning process "p" and the pid of that process
*/
gotone(u,p,f)
struct user *u;
struct proc *p;
int f;
{
register struct passwd *pw;
struct passwd *getpwuid();
/* only print pids and return */
if(pids_only) {
printf("%d ",p->p_pid);
fflush(stdout);
return;
}
pw = getpwuid(p->p_uid);
if(pw)
printf("%-8.8s\t", pw->pw_name );
else
printf("(%d)\t", p->p_uid);
printf("%d\t", p->p_pid);
if(f & OFILE) putchar('f'); /* proc has a file */
if(f & CDIR) putchar('p'); /* proc's current dir is on device */
if(f & RDIR) putchar('r'); /* proc's root dir is on device */
printf("\t");
printf("%-14.14s", u->u_comm);
if (f & OFILE) printf("\t%d",opninode);
printf("\n");
}
/*
* is inode "i" on device "s"? returns TRUE or FALSE
*/
check(s, i)
struct stat *s;
struct inode *i;
{
if ((s->st_mode & S_IFMT) == S_IFBLK && s->st_rdev == i->i_dev)
return 1;
else if((s->st_dev == i->i_dev) && (s->st_ino == i->i_number))
return 1;
#ifdef sun
else if (s->st_rdev == i->i_dev && i->i_number == 0)
return 1;
#endif
else return 0;
}
/*
* getinode - read an inode from from mem at address "addr"
* return pointer to inode struct.
*/
struct inode *getinode(ip,s)
struct vnode *ip;
char *s;
{
static struct inode i;
static struct vnode v;
if (ip == NULL) return(NULL);
eseek(kmem, (long)ip, 0, "vnode");
eread(kmem, (char *)&v, sizeof(v), "vnode");
if (debug > 20) printf(" vnode %s at %x %x dev=%x vtype=%d inode@%x\n",
s,ip,v.v_flag,v.v_rdev,v.v_type,v.v_data);
eseek(kmem, (long)v.v_data, 0, "inode");
eread(kmem, (char *)&i, sizeof(i), "inode");
if (debug > 20) printf(" inode %s at %x %x dev=%x inode=%d vtype=%x\n",
s,v.v_data,i.i_flag,i.i_dev,i.i_number,i.i_vnode.v_type);
return &i;
}
/*
* get user page for proc "p" from core or swap
* return pointer to user struct
*/
struct user *getuser(p)
struct proc *p;
{
struct pte *ptep, apte;
struct pte mypgtbl[UPAGES];
int n, nbytes;
int upage;
char *up;
static struct user user;
/* easy way */
if ((p->p_flag & SLOAD) == 0) {
(void) lseek(swap, (long)dtob(p->p_swaddr), 0);
if (read(swap, (char *)&user, sizeof(struct user)) <= 0){
if (debug)
fprintf(stderr,"error: can't get swapped user page pid %d\n",p->p_pid);
return (struct user *)NULL;
}
if (debug > 50) printf("read swap\n");
} else { /* boo */
/* now get user page tbl */
#ifdef sequent
eseek(mem,p->p_upte,0);
if (read(mem, mypgtbl, sizeof(mypgtbl))!= sizeof(mypgtbl)){
#else
eseek(kmem,p->p_addr,0);
if (read(kmem, mypgtbl, sizeof(mypgtbl))!= sizeof(mypgtbl)){
#endif
if (debug)
fprintf(stderr,"error: can't get mypgtbl pid %d\n",
p->p_pid);
return (struct user *)NULL;
}
/* now collect pages of u area */
up = (char *)&user;
ptep = mypgtbl;
for(nbytes = sizeof(struct user); nbytes>0; nbytes -= NBPG){
eseek(mem,ptep++->pg_pfnum * NBPG,0);
n = MIN(nbytes, NBPG);
if (read(mem,up,n) != n){
if (debug)
fprintf(stderr,"cant get user tbl pid %d\n",p->p_pid);
return (struct user *)NULL;
}
up += n;
}
}
return &user;
}
/*
* read with error checking
*/
eread( fd, p, size, s)
int fd;
char *p;
int size;
char *s;
{
int n;
char buf[100];
if(( n = read(fd, p, size)) != size){
sprintf(buf, "read error for %s. ", s);
error(buf);
}
return n;
}
/*
* seek with error checking
*/
long eseek(fd, off, whence, s)
int fd;
long off;
int whence;
char *s;
{
long lseek();
long ret;
char buf[100];
if(( ret = lseek(fd, off, whence)) != off) {
sprintf(buf, "seek for %s failed, wanted %o, got %o. ",
s, off, ret);
error(buf);
}
return ret;
}
/*
* print mesg "s" followed by system erro msg. exit.
*/
error(s)
char *s;
{
if (s)
fprintf(stderr,s);
perror("");
exit(1);
}
/*
* get some symbols form the kernel
*/
getsyms()
{
register i;
#ifdef sequent
nlist("/dynix", nl);
#else
nlist("/vmunix", nl);
#endif
for(i = 0; i < (sizeof(nl)/sizeof(nl[0]))-1; i++)
if(nl[i].n_value == 0) {
fprintf(stderr,"%s: can't nlist for %s.\n",
nl[i].n_value);
exit(1);
}
eseek(kmem, (long)nl[X_PROC].n_value, 0);
eread(kmem, &procbase, sizeof(procbase), "procbase 1");
eseek(kmem, (long)nl[X_NPROC].n_value, 0);
eread(kmem, &nproc, sizeof(nproc), "nproc");
Usrptma = (struct pte *)nl[X_USRPTMA].n_value;
usrpt = (struct pte *)nl[X_USRPT].n_value; /* used by <vmmac.h>*/
return;
}
/*
* read proc table entry "n" into buffer "p"
*/
procslot(n, p)
int n;
struct proc *p;
{
eseek(kmem, procbase + (long)(n * sizeof(struct proc)), 0);
eread(kmem, (char *)p, sizeof(struct proc), "proc");
return;
}
SHAR_EOF
if test -f 'ofiles.8'
then
echo shar: over-writing existing file "'ofiles.8'"
fi
cat << \SHAR_EOF > 'ofiles.8'
.TH OFILES 8 BBN
.UC
.SH NAME
ofiles \- who has a file open
.SH SYNOPSIS
.B /systools/ofiles
[
.B \-p
]
files . . .
.br
.SH DESCRIPTION
.I Ofiles
displays the owner and id of any process accessing a specified device.
The type of access is defined by the
.I type
field which can contain:
.IP
.TP 8
.B p
if
.I device
is a mounted file system and the
proccess has a current directory there.
.br
.TP 8
.B f
if the proccess has a file on
.I device
open.
.br
.TP 8
.B r
if
.I device
contains a mounted file system and the proccess has
it's root directory there.
.LP
In the case of special files,
.I device
can be specified by device or file system. i.e.
.IP
.I ofiles
/dev/disk07
.br
.I ofiles
/usr
.LP
If
.I ofiles
is invoked with the
.B \-p
option, only the process id will be output,
so that the output of
.I ofiles
may be piped to
.I "kill(1)" .
.SH "SEE ALSO"
mount(1) kill(1)
.SH DIAGNOSTICS
\*(OQcannot stat . . .\*(CQ when a file cannot be accessed.
.br
SHAR_EOF
# End of shell archive
exit 0