diff options
Diffstat (limited to 'cddl/contrib/dtracetoolkit/rwsnoop')
| -rwxr-xr-x | cddl/contrib/dtracetoolkit/rwsnoop | 234 |
1 files changed, 234 insertions, 0 deletions
diff --git a/cddl/contrib/dtracetoolkit/rwsnoop b/cddl/contrib/dtracetoolkit/rwsnoop new file mode 100755 index 0000000..9d49324 --- /dev/null +++ b/cddl/contrib/dtracetoolkit/rwsnoop @@ -0,0 +1,234 @@ +#!/usr/bin/ksh +# +# rwsnoop - snoop read/write events. +# Written using DTrace (Solaris 10 3/05). +# +# This is measuring reads and writes at the application level. This matches +# the syscalls read, write, pread and pwrite. +# +# $Id: rwsnoop 3 2007-08-01 10:50:08Z brendan $ +# +# USAGE: rwsnoop [-jPtvZ] [-n name] [-p pid] +# +# rwsnoop # default output +# +# -j # print project ID +# -P # print parent process ID +# -t # print timestamp, us +# -v # print time, string +# -Z # print zone ID +# -n name # this process name only +# -p PID # this PID only +# eg, +# rwsnoop -Z # print zone ID +# rwsnoop -n bash # monitor processes named "bash" +# rwsnoop > out.txt # recommended +# +# NOTE: +# rwsnoop usually prints plenty of output, which itself will cause +# more output. It can be better to redirect the output of rwsnoop +# to a file to prevent this. +# +# FIELDS: +# TIME Timestamp, us +# TIMESTR Time, string +# ZONE Zone ID +# PROJ Project ID +# UID User ID +# PID Process ID +# PPID Parent Process ID +# CMD Process name +# D Direction, Read or Write +# BYTES Total bytes during sample, -1 for error +# FILE Filename, if file based +# +# Reads and writes that are not file based, for example with sockets, will +# print "<unknown>" as the filename. +# +# SEE ALSO: rwtop +# +# COPYRIGHT: Copyright (c) 2005 Brendan Gregg. +# +# CDDL HEADER START +# +# The contents of this file are subject to the terms of the +# Common Development and Distribution License, Version 1.0 only +# (the "License"). You may not use this file except in compliance +# with the License. +# +# You can obtain a copy of the license at Docs/cddl1.txt +# or http://www.opensolaris.org/os/licensing. +# See the License for the specific language governing permissions +# and limitations under the License. +# +# CDDL HEADER END +# +# TODO: +# Track readv and writev. +# +# Author: Brendan Gregg [Sydney, Australia] +# +# 24-Jul-2005 Brendan Gregg Created this. +# 17-Sep-2005 " " Increased switchrate. +# 17-Sep-2005 " " Last update. +# + + +############################## +# --- Process Arguments --- +# + +### default variables +opt_name=0; opt_pid=0; opt_proj=0; opt_zone=0; opt_time=0; opt_timestr=0 +opt_bytes=1; filter=0; pname=.; pid=0; opt_ppid=0 + +### process options +while getopts n:Pp:jtvZ name +do + case $name in + n) opt_name=1; pname=$OPTARG ;; + p) opt_pid=1; pid=$OPTARG ;; + P) opt_ppid=1 ;; + j) opt_proj=1 ;; + t) opt_time=1 ;; + v) opt_timestr=1 ;; + Z) opt_zone=1 ;; + h|?) cat <<-END >&2 + USAGE: rwsnoop [-jPtvZ] [-n name] [-p pid] + + -j # print project ID + -P # print parent process ID + -t # print timestamp, us + -v # print time, string + -Z # print zone ID + -n name # this process name only + -p PID # this PID only + eg, + rwsnoop # default output + rwsnoop -Z # print zone ID + rwsnoop -n bash # monitor processes named "bash" + END + exit 1 + esac +done + +shift $(( $OPTIND - 1 )) + +### option logic +if (( opt_name || opt_pid )); then + filter=1 +fi + + + +################################# +# --- Main Program, DTrace --- +# +/usr/sbin/dtrace -n ' + /* + * Command line arguments + */ + inline int OPT_proj = '$opt_proj'; + inline int OPT_zone = '$opt_zone'; + inline int OPT_bytes = '$opt_bytes'; + inline int OPT_name = '$opt_name'; + inline int OPT_ppid = '$opt_ppid'; + inline int OPT_pid = '$opt_pid'; + inline int OPT_time = '$opt_time'; + inline int OPT_timestr = '$opt_timestr'; + inline int FILTER = '$filter'; + inline int PID = '$pid'; + inline string NAME = "'$pname'"; + + #pragma D option quiet + #pragma D option switchrate=10hz + + /* + * Print header + */ + dtrace:::BEGIN + { + /* print header */ + OPT_time ? printf("%-14s ", "TIME") : 1; + OPT_timestr ? printf("%-20s ", "TIMESTR") : 1; + OPT_proj ? printf("%5s ", "PROJ") : 1; + OPT_zone ? printf("%5s ", "ZONE") : 1; + OPT_ppid ? printf("%6s ", "PPID") : 1; + printf("%5s %6s %-12s %1s %7s %s\n", + "UID", "PID", "CMD", "D", "BYTES", "FILE"); + } + + /* + * Check event is being traced + */ + syscall::*read:entry, + syscall::*write:entry + /pid != $pid/ + { + /* default is to trace unless filtering, */ + self->ok = FILTER ? 0 : 1; + + /* check each filter, */ + (OPT_name == 1 && NAME == execname)? self->ok = 1 : 1; + (OPT_pid == 1 && PID == pid) ? self->ok = 1 : 1; + + /* save file descriptor */ + self->fd = self->ok ? arg0 : 0; + } + + /* + * Save read details + */ + syscall::*read:return + /self->ok/ + { + self->rw = "R"; + self->size = arg0; + } + + /* + * Save write details + */ + syscall::*write:entry + /self->ok/ + { + self->rw = "W"; + self->size = arg2; + } + + /* + * Process event + */ + syscall::*read:return, + syscall::*write:entry + /self->ok/ + { + /* + * Fetch filename + */ + this->filistp = curthread->t_procp->p_user.u_finfo.fi_list; + this->ufentryp = (uf_entry_t *)((uint64_t)this->filistp + + (uint64_t)self->fd * (uint64_t)sizeof(uf_entry_t)); + this->filep = this->ufentryp->uf_file; + this->vnodep = this->filep != 0 ? this->filep->f_vnode : 0; + self->vpath = this->vnodep ? (this->vnodep->v_path != 0 ? + cleanpath(this->vnodep->v_path) : "<unknown>") : "<unknown>"; + + /* + * Print details + */ + OPT_time ? printf("%-14d ", timestamp / 1000) : 1; + OPT_timestr ? printf("%-20Y ", walltimestamp) : 1; + OPT_proj ? printf("%5d ", curpsinfo->pr_projid) : 1; + OPT_zone ? printf("%5d ", curpsinfo->pr_zoneid) : 1; + OPT_ppid ? printf("%6d ", ppid) : 1; + printf("%5d %6d %-12.12s %1s %7d %s\n", + uid, pid, execname, self->rw, (int)self->size, self->vpath); + + self->ok = 0; + self->fd = 0; + self->rw = 0; + self->size = 0; + self->vpath = 0; + } +' |
