Date: Wed, 30 Aug 2000 13:13:50 +0300 From: Ruslan Ermilov <ru@sunbay.com> To: Dag-Erling Smorgrav <des@FreeBSD.org> Cc: cvs-committers@FreeBSD.org, cvs-all@FreeBSD.org Subject: Re: cvs commit: src/usr.bin/sockstat sockstat.pl Message-ID: <20000830131350.A63388@sunbay.com> In-Reply-To: <200008300918.CAA69367@freefall.freebsd.org>; from des@FreeBSD.org on Wed, Aug 30, 2000 at 02:18:20AM -0700 References: <200008300918.CAA69367@freefall.freebsd.org>
next in thread | previous in thread | raw e-mail | index | archive | help
[-- Attachment #1 --] On Wed, Aug 30, 2000 at 02:18:20AM -0700, Dag-Erling Smorgrav wrote: > des 2000/08/30 02:18:20 PDT > > Modified files: > usr.bin/sockstat sockstat.pl > Log: > Invoke netstat(1) and fstat(1) with full path. > > Revision Changes Path > 1.7 +3 -3 src/usr.bin/sockstat/sockstat.pl > While we are on this topic, how about the following patch? It restores your surname and support for displaying "raw" IPv4 sockets (both were broken in rev 1.6). Cheers, -- Ruslan Ermilov Oracle Developer/DBA, ru@sunbay.com Sunbay Software AG, ru@FreeBSD.org FreeBSD committer, +380.652.512.251 Simferopol, Ukraine http://www.FreeBSD.org The Power To Serve http://www.oracle.com Enabling The Information Age [-- Attachment #2 --] Index: sockstat.pl =================================================================== RCS file: /home/ncvs/src/usr.bin/sockstat/sockstat.pl,v retrieving revision 1.6 diff -u -p -r1.6 sockstat.pl --- sockstat.pl 2000/03/11 11:25:00 1.6 +++ sockstat.pl 2000/08/30 10:11:23 @@ -1,6 +1,6 @@ #!/usr/bin/perl5 #- -# Copyright (c) 1999 Dag-Erling Coïdan Smgrav +# Copyright (c) 1999 Dag-Erling Coïdan Smørgrav # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -56,7 +56,7 @@ open FSTAT, "fstat |" or die "'fstat' fa while (<FSTAT>) { ($user, $cmd, $pid, $fd, $inet, $type, $proto, $sock) = split; chop $fd; - next unless ($inet =~ m/^internet6?$/) && ($type ne "raw"); + next unless ($inet eq "internet") || ($inet eq "internet6") && ($type ne "raw"); ($proto, $laddr, $faddr) = ($proto{$sock}, $myaddr{$sock}, $hisaddr{$sock}); write STDOUT;
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20000830131350.A63388>