From 5827850902d0b57d6f1f52a9eee113b6138b3e3b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dag-Erling=20Sm=C3=B8rgrav?= Date: Thu, 15 Apr 1999 13:40:43 +0000 Subject: [PATCH] Rename lsock(1) to sockstat(1). Suggested by: Sheldon Hearn Approved by: Peter Wemm --- usr.bin/sockstat/Makefile | 10 +++++ usr.bin/sockstat/sockstat.1 | 73 ++++++++++++++++++++++++++++++++++++ usr.bin/sockstat/sockstat.pl | 63 +++++++++++++++++++++++++++++++ 3 files changed, 146 insertions(+) create mode 100644 usr.bin/sockstat/Makefile create mode 100644 usr.bin/sockstat/sockstat.1 create mode 100644 usr.bin/sockstat/sockstat.pl diff --git a/usr.bin/sockstat/Makefile b/usr.bin/sockstat/Makefile new file mode 100644 index 000000000000..eafc337e1d54 --- /dev/null +++ b/usr.bin/sockstat/Makefile @@ -0,0 +1,10 @@ +# $Id: Makefile,v 1.1 1999/04/14 16:17:34 des Exp $ + +MAINTAINER= des@freebsd.org +MAN1= sockstat.1 + +beforeinstall: + ${INSTALL} -c -o ${BINOWN} -g ${BINGRP} -m ${BINMODE} \ + ${.CURDIR}/sockstat.pl ${DESTDIR}${BINDIR}/sockstat + +.include diff --git a/usr.bin/sockstat/sockstat.1 b/usr.bin/sockstat/sockstat.1 new file mode 100644 index 000000000000..f2540aead6c0 --- /dev/null +++ b/usr.bin/sockstat/sockstat.1 @@ -0,0 +1,73 @@ +.\"- +.\" Copyright (c) 1999 Dag-Erling Coïdan Smørgrav +.\" 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 +.\" in this position and unchanged. +.\" 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. The name of the author may not be used to endorse or promote products +.\" derived from this software without specific prior written permission. +.\" +.\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 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. +.\" +.\" $Id: lsock.1,v 1.1 1999/04/14 16:17:34 des Exp $ +.\" +.Dd April 13, 1999 +.Dt LSOCK 1 +.Sh NAME +.Nm sockstat +.Nd list open Internet sockets +.Sh SYNOPSIS +.Nm +.Sh DESCRIPTION +The +.Nm +command lists open Internet sockets. The information listed for each +socket is: +.Bl -tag -width FOREIGN_ADDRESS +.It Li USER +The user who owns the socket. +.It Li COMMAND +The command which holds the socket. +.It Li PID +The process ID of the command which holds the socket. +.It Li FD +The file descriptor number of the socket. +.It Li PROTO +The transport protocol (udp or tcp) associated with the socket. +.It Li LOCAL ADDRESS +The address the local end of the socket is bound to (see +.Xr getsockname 2 ). +.It Li FOREIGN ADDRESS +The address the foreign end of the socket is bound to (see +.Xr getpeername 2 ). +.El +.Sh SEE ALSO +.Xr fstat 1 , +.Xr inet 4 , +.Xr netstat 1 . +.Sh HISTORY +The +.Nm +command appeared in +.Fx 3.1 . +.Sh AUTHORS +The +.Nm +command and this manual page were written by +.An Dag-Erling Smørgrav Aq des@freebsd.org . diff --git a/usr.bin/sockstat/sockstat.pl b/usr.bin/sockstat/sockstat.pl new file mode 100644 index 000000000000..c9d67f4c770d --- /dev/null +++ b/usr.bin/sockstat/sockstat.pl @@ -0,0 +1,63 @@ +#!/usr/bin/perl5 +#- +# Copyright (c) 1999 Dag-Erling Coïdan Smørgrav +# 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 +# in this position and unchanged. +# 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. The name of the author may not be used to endorse or promote products +# derived from this software without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 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. +# +# $Id: lsock.pl,v 1.1 1999/04/14 16:17:34 des Exp $ +# + +my (%myaddr, %hisaddr); +my ($user, $cmd, $pid, $fd, $inet, $type, $proto, $sock, $laddr, $faddr); + +format STDOUT_TOP = +USER COMMAND PID FD PROTO LOCAL ADDRESS FOREIGN ADDRESS +. +format STDOUT = +@<<<<<<< @<<<<<<<<< @>>>> @>>> @<< @<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<< +$user, $cmd, $pid, $fd, $proto,$laddr, $faddr +. + +open NETSTAT, "netstat -Aan |" or die "'netstat -Aan' failed: $!"; + +while () { + my ($sock, $proto, $recvq, $sendq, $laddr, $faddr, $state) = split; + next unless ($proto =~ m/tcp|udp/); + ($myaddr{$sock}, $hisaddr{$sock}) = ($laddr, $faddr); +} + +close NETSTAT; + +open FSTAT, "fstat |" or die "'fstat' failed: $!\n"; + +while () { + ($user, $cmd, $pid, $fd, $inet, $type, $proto, $sock) = split; + chop $fd; + next unless ($inet eq "internet"); + ($laddr, $faddr) = ($myaddr{$sock}, $hisaddr{$sock}); + write STDOUT; +} + +close FSTAT;