procinfo (1:2.0.304-1) debian-dir only changes

Summary

 debian/README.Debian           |   13 ++
 debian/changelog               |  248 +++++++++++++++++++++++++++++++++++++++++
 debian/compat                  |    1 
 debian/control                 |   19 +++
 debian/copyright               |   43 +++++++
 debian/dirs                    |    1 
 debian/install                 |    4 
 debian/procinfo-old/lsdev      |   65 ++++++++++
 debian/procinfo-old/lsdev.8    |   66 ++++++++++
 debian/procinfo-old/socklist   |   98 ++++++++++++++++
 debian/procinfo-old/socklist.8 |   43 +++++++
 debian/rules                   |   78 ++++++++++++
 debian/watch                   |    3 
 13 files changed, 682 insertions(+)

    
download this patch

Patch contents

--- procinfo-2.0.304.orig/debian/dirs
+++ procinfo-2.0.304/debian/dirs
@@ -0,0 +1 @@
+usr/bin
--- procinfo-2.0.304.orig/debian/compat
+++ procinfo-2.0.304/debian/compat
@@ -0,0 +1 @@
+7
--- procinfo-2.0.304.orig/debian/watch
+++ procinfo-2.0.304/debian/watch
@@ -0,0 +1,3 @@
+version=3
+
+http://sf.net/procinfo-ng/procinfo-ng-(.*)\.tar\.bz2
--- procinfo-2.0.304.orig/debian/install
+++ procinfo-2.0.304/debian/install
@@ -0,0 +1,4 @@
+debian/procinfo-old/lsdev usr/bin
+debian/procinfo-old/lsdev.8 usr/share/man/man8
+debian/procinfo-old/socklist usr/bin
+debian/procinfo-old/socklist.8 usr/share/man/man8
--- procinfo-2.0.304.orig/debian/rules
+++ procinfo-2.0.304/debian/rules
@@ -0,0 +1,78 @@
+#!/usr/bin/make -f
+# -*- makefile -*-
+
+# Uncomment this to turn on verbose mode.
+#export DH_VERBOSE=1
+
+
+# These are used for cross-compiling and for saving the configure script
+# from having to guess our platform (since we know it already)
+DEB_HOST_GNU_TYPE   ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE)
+DEB_BUILD_GNU_TYPE  ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE)
+ifneq ($(DEB_HOST_GNU_TYPE),$(DEB_BUILD_GNU_TYPE))
+CROSS= --build $(DEB_BUILD_GNU_TYPE) --host $(DEB_HOST_GNU_TYPE)
+else
+CROSS= --build $(DEB_BUILD_GNU_TYPE)
+endif
+
+
+config.status: configure
+	dh_testdir
+ifneq "$(wildcard /usr/share/misc/config.sub)" ""
+	cp -f /usr/share/misc/config.sub config.sub
+endif
+ifneq "$(wildcard /usr/share/misc/config.guess)" ""
+	cp -f /usr/share/misc/config.guess config.guess
+endif
+	./configure $(CROSS) --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info CFLAGS="$(CFLAGS)" LDFLAGS="-Wl,-z,defs"
+
+
+build: build-stamp
+
+build-stamp:  config.status
+	dh_testdir
+	$(MAKE)
+	touch $@
+
+clean: 
+	dh_testdir
+	dh_testroot
+	rm -f build-stamp 
+	[ ! -f Makefile ] || $(MAKE) distclean
+	rm -f config.sub config.guess
+	dh_clean 
+
+install: build
+	dh_testdir
+	dh_testroot
+	dh_prep
+	dh_installdirs
+	$(MAKE) prefix=$(CURDIR)/debian/procinfo/usr install
+
+
+# Build architecture-independent files here.
+binary-indep: build install
+# We have nothing to do by default.
+
+# Build architecture-dependent files here.
+binary-arch: build install
+	dh_testdir
+	dh_testroot
+	dh_installchangelogs 
+	dh_installdocs
+	dh_installexamples
+	dh_install
+	dh_installman
+	dh_link
+	dh_strip
+	dh_compress
+	dh_fixperms
+	dh_makeshlibs
+	dh_installdeb
+	dh_shlibdeps
+	dh_gencontrol
+	dh_md5sums
+	dh_builddeb
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary install 
--- procinfo-2.0.304.orig/debian/README.Debian
+++ procinfo-2.0.304/debian/README.Debian
@@ -0,0 +1,13 @@
+procinfo for Debian
+-------------------
+
+Procinfo contain also two script, lsdev and socklist
+
+Lsdev is a Perl script that attempts to tabulate DMA, IRQ and I/O port
+allocation per kernel driver.
+
+Socklist is a Perl script that gives you a list of all open sockets,
+enumerating types, port, inode, uid, pid, fd and the program to which
+it belongs. Contributed by Larry Doolittle <ldoolitt@jlab.org>.
+
+ -- Giuseppe Iuculano <giuseppe@iuculano.it>  Tue, 20 Aug 2008 14:36:41 +0200
--- procinfo-2.0.304.orig/debian/changelog
+++ procinfo-2.0.304/debian/changelog
@@ -0,0 +1,248 @@
+procinfo (1:2.0.304-1) unstable; urgency=low
+
+  * [9413c06] New Upstream Version 2.0.304
+  * [8a7a2a3] debian/rules: use dh_prep instead of deprecated dh_clean -k
+  * [4298336] Updated to standards version 3.8.1 (No changes needed)
+  * [86e266b] debian/control: Added Homepage, DM-Upload-Allowed, and Vcs
+    control fields
+  * [0a8b833] debian/copyright: refer to /usr/share/common-licenses/GPL-2,
+    not /GPL.
+
+ -- Giuseppe Iuculano <giuseppe@iuculano.it>  Sun, 03 May 2009 23:34:49 +0200
+
+procinfo (1:2.0.217-1) unstable; urgency=low
+
+  * New upstream release
+    + kernel 2.6.24 added another column (actually, 2 columns) to /proc/stat,
+      and the position of cpuTotals in the vector was expected to be fixed
+      (Closes: #496023)
+
+ -- Giuseppe Iuculano <giuseppe@iuculano.it>  Fri, 22 Aug 2008 09:44:56 +0200
+
+procinfo (1:2.0.208-1) unstable; urgency=low
+
+  * New Upstream release (Closes: #492780), this is the new procinfo-ng
+    (Closes: #492780)
+    This version fixes:
+    + 32-bit wraparound (Closes: #285880)
+    + Times do not display on Alpha (Closes: #391420)
+    + reports gcc [can't parse] (Closes: #402620)
+    + Reports out by 10x; disk duplicated (Closes: #355623)
+    + garbles numbers on AMD64 (Closes: #379592)
+    + segfaults at fresh amd64 etch install (Closes: #421924)
+    + displays improper amount of context switches (Closes: #99827)
+    + shows non-existent disks (Closes: #99828)
+    + procinfo misses the second hard drive (Closes: #265131)
+    + unable to parse GCC version with GCC 3.3. (Closes: #247039)
+  * New maintainer, thanks to Antonio José Calderón for the prior work on
+    procinfo
+  * Bump epoch
+
+ -- Giuseppe Iuculano <giuseppe@iuculano.it>  Wed, 20 Aug 2008 09:45:06 +0200
+
+procinfo (18-2) unstable; urgency=low
+
+  * New maintainer (closes: #384633).
+
+ -- Antonio José Calderón <neo@neocalderon.net>  Wed, 10 Jan 2007 01:09:24 -0500
+
+procinfo (18-1) unstable; urgency=low
+
+  * The sysutils package previously contained the utilities
+    - memtester
+    - procinfo
+    - tofrodos
+    - bogomips
+    Except for the latter they are all split out into a separate package
+    now as those utilities are fairly disconnected. This will eventually
+    fix bug#253302.
+    bogomips will be just dropped, use "cat /proc/cpuinfo | grep ^bogo"
+    instead.
+  * debian/watch: added
+
+ -- Florian Ernst <florian@debian.org>  Thu, 29 Dec 2005 15:07:00 +0100
+
+sysutils (2.0.0-1) unstable; urgency=low
+
+  * A plethora of changes, so jumping to version 2.0.0 for now
+  * New maintainer, taking over with the previous maintainer's consent
+    + changing to non-native packaging for the time being
+    + follow current standards / best practices
+      - make sure the package includes a Section header (Closes: #226303)
+      - correct copyright reference and manpage placement (Closes: #127123)
+      - extend / clarify long description, thanks to Justin B Rye
+        (Closes: #332818)
+      - drop legacy Conflicts and Replaces that were once necessary for Potato
+    + using dpatch for any in-package adjustments
+  * New upstream releases of most subparts (Closes: #340153), like
+    + bogomips updated to 1.4.1
+      - supposedly doesn't just fail on error (Closes: #198757)
+    + memtester updated to 4.0.5
+      - doesn't segfault anymore on a 2.6 kernel (Closes: #287611)
+      - rewritten to be 64-bit clean (Closes: #126776)
+      - can be run as non-root user, thus allows special tests
+        (Closes: #259425), so also moving to /usr/bin
+    + tofrodos updated to 1.7.6 (Closes: #306191)
+      - dos2unix errors now go to stderr, not stdout (Closes: #140956)
+      - dos2unix now behaves as expected (Closes: #149116)
+      - clarifies symlinks (Closes: #180723)
+      - corrects -d and -u explanation in manpage (Closes: #177874)
+  * Further changes:
+    + procinfo:
+      - add 41_procinfo_use_HZ_from_kernel.dpatch, thanks to Guus Sliepen
+        (Closes: #94337)
+      - add 42_procinfo_paging_swap_disk_statistics_on_2.6.dpatch and
+        43_procinfo_fix_CPU_percentage_display_on_2.6.dpatch, thanks to
+        Arkadi Shishlov for the pointer and patch (Closes: #293429, #266589);
+        this combined with 48_procinfo_simplify_counting_CPUs.dpatch allows
+        procinfo to add up correctly on sparc, thanks to Peter Hunter
+        (Closes: #174645)
+      - add 44_procinfo_extend_load_average_in_manpage.dpatch, thanks to
+        Kingsley G. Morse Jr. (Closes: #153946)
+      - add 45_procinfo_prevent_buffer_overflows.dpatch, thanks to Benoit
+        Dejean (Closes: #319980)
+      - reinclude socklist utility, even though better alternatives such as
+        lsof exist (Closes: #161237)
+      - add 46_procinfo_manpage_typo.dpatch, thanks to A Costa
+        (Closes: #305960)
+    + tofrodos:
+      - correct one typo in manpage, the others are actually correct, by
+        adding 61_tofrodos_manpage_typo.dpatch (Closes: #305959)
+    + debian/copyright: updated according to changes
+    + debian/{postinst,prerm}: removed, not needed anymore; thus finally
+      finishing the /usr/doc transition (Closes: #320084, #322798)
+    + debian/sysutils.1: clarified (Closes: #305961)
+
+ -- Florian Ernst <florian@debian.org>  Wed, 23 Nov 2005 22:51:49 +0100
+
+sysutils (1.3.8.5.1) unstable; urgency=low
+
+  * Non-maintainer upload, with the maintainer's permission.
+  * Install /usr/doc symlink in the postinst and remove it in the prerm,
+    rather than directly in the .deb (closes: #120025, #124304).
+  * Call dh_clean in debian/rules' clean target.
+  * Add 'Section: utils' to control file.
+
+ -- Colin Watson <cjwatson@debian.org>  Fri, 11 Jan 2002 02:14:29 +0000
+
+sysutils (1.3.8.5) unstable; urgency=low
+
+  * Fixed missing /usr/doc symlink (closes: bug#96211)
+
+ -- Lonnie Sauter <sauter@debian.org>  Thu, 03 May 2001 15:41:07 -0600
+
+sysutils (1.3.8.4) unstable; urgency=low
+
+  * Fixed missing debhelper in Build-Depends (closes: bug#92267)
+  * New version of procinfo 18
+
+ -- Lonnie Sauter <sauter@debian.org>  Sun, 22 Apr 2001 15:41:07 -0600
+
+sysutils (1.3.8.3) unstable; urgency=low
+
+  * Fixed missing depends (closes: bug#93611)
+
+ -- Lonnie Sauter <sauter@debian.org>  Sat, 7 Apr 2001 15:41:07 -0600
+
+sysutils (1.3.8.2) unstable; urgency=low
+
+  * Fixed missing build depends in source package (closes: bug#92267)
+
+ -- Lonnie Sauter <sauter@debian.org>  Sat, 7 Apr 2001 15:41:07 -0600
+
+sysutils (1.3.8.1) stable; urgency=low
+
+  * New version of memtester (2.93.1)
+  * Fix typo in package description (closes: bug#74065)
+    Patch received from Raphael Manfredi <Raphael_Manfredi@pobox.com>
+
+ -- Lonnie Sauter <sauter@debian.org>  Thu, 1 Nov 2000 15:41:07 -0400
+
+sysutils (1.3.7.2) unstable; urgency=low
+
+  * patch to fix running "procinfo -d" on SMP kernels.
+    Patch received from Raphael Manfredi <Raphael_Manfredi@pobox.com>
+
+ -- Lonnie Sauter <sauter@debian.org>  Thu, 4 May 2000 15:41:07 -0400
+
+sysutils (1.3.7.1) unstable; urgency=low
+
+  * patch to fix SIGILL in procinfo on alpha/sparc/etc (closes: bug#46144).
+    Patch received from Jason Gunthorpe <jgg@auric.debian.org>.
+
+ -- Lonnie Sauter <sauter@debian.org>  Sat, 5 Feb 2000 15:41:07 -0400
+
+sysutils (1.3.7) unstable; urgency=low
+
+  * New version of memtest (closes: bug#52062)
+
+ -- Lonnie Sauter <sauter@debian.org>  Sun, 9 Jan 2000 15:41:07 -0400
+
+sysutils (1.3.6.2) unstable; urgency=low
+
+  * I just took over this package.
+
+ -- Lonnie Sauter <sauter@debian.org>  Sun, 9 Jan 2000 15:41:07 -0400
+
+sysutils (1.3.6.1) unstable; urgency=low
+
+  * Orphaned.  I only ever took it because it needed to be moved to
+    the new packaging scheme.  I don't use it.  I don't even have it
+    installed.
+
+ -- Michael Alan Dorman <mdorman@debian.org>  Sun, 10 Oct 1999 15:41:07 -0400
+
+sysutils (1.3.6) unstable; urgency=low
+
+  * Corrected perl dependency (closes: bug#41489, bug#41401)
+
+ -- Michael Alan Dorman <mdorman@debian.org>  Mon, 19 Jul 1999 09:44:42 -0400
+
+sysutils (1.3.5) unstable; urgency=low
+
+  * New version of procinfo. (closes: bug#37794, bug#36468, bug#33924)
+  * Perms bugs taken care of (closes: bug#36831) 
+  * Last update also corrected problems with absolute file names (closes: bug#29747)
+
+ -- Michael Alan Dorman <mdorman@debian.org>  Sun, 11 Jul 1999 16:24:24 -0400
+
+sysutils (1.3.4) unstable; urgency=low
+
+  * Close old fixed bug (closes: bug#5989)
+  * Close old fixed bug (closes: bug#7682)
+  * Code in procinfo should cope with no /proc/modules (closes: bug#13515)
+  * Updated procinfo (closes: bug#29392)
+  * Corrected description of included packages (closes: bug#30125)
+  * procinfo update prints all irqs (closes: bug#31036)
+  * tofrodos does work (closes: bug#33535)
+  * tofrodos now has switch to preserve ownership (closes: bug#35172)
+
+ -- Michael Alan Dorman <mdorman@debian.org>  Mon, 29 Mar 1999 14:02:41 -0500
+
+sysutils (1.3.3) unstable; urgency=low
+
+  * New release.
+  * Correct package description. (Bug#10375,18966)
+  * Update version of procinfo to latest. (Bug#12079,18269,19929,23010)
+  * Correct extention of manpage symlinks.  (Bug#18562,24952)
+  * Correct declaration of argv in memtest.  (Bug#23581)
+
+ -- Michael Alan Dorman <mdorman@debian.org>  Sun,  1 Nov 1998 14:59:59 -0500
+
+sysutils (1.3.2) unstable; urgency=low
+
+  * New release corrected a couple of debian/rules issues.
+
+ -- Michael Alan Dorman <mdorman@debian.org>  Sun, 17 Dec 2017 03:53:58 -0500
+
+sysutils (1.3.1) unstable; urgency=low
+
+  * Nonmaintainerrelease for libc6
+
+ -- Christoph Lameter <clameter@debian.org>  Thu, 13 Nov 1997 10:45:08 +0000
+
+sysutils (1.3) unstable; urgency=low
+
+  * New packaging scheme instituted
+
+ -- Michael Alan Dorman <mdorman@debian.org>  Fri,  4 Jul 1997 20:57:19 -0400
--- procinfo-2.0.304.orig/debian/copyright
+++ procinfo-2.0.304/debian/copyright
@@ -0,0 +1,43 @@
+This package was debianized by Giuseppe Iuculano <giuseppe@iuculano.it> on
+Fri, 01 Aug 2008 15:38:59 +0200.
+
+It was downloaded from:
+	http://sourceforge.net/project/showfiles.php?group_id=195336
+
+Upstream Author: Thaddeus Messenger <tabrisnet@users.sourceforge.net>
+
+Copyright: Copyright (C) 2008 Thaddeus Messenger
+
+License:
+
+    This package is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; version 2 of the License
+ 
+    This package is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+ 
+    You should have received a copy of the GNU General Public License
+    along with this package; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+On Debian systems, the complete text of the GNU General
+Public License can be found in `/usr/share/common-licenses/GPL-2'.
+
+The Debian packaging is © 2008, Giuseppe Iuculano <giuseppe@iuculano.it> and
+is licensed under the GPL version 2, see `/usr/share/common-licenses/GPL-2'.
+
+The source packages contains also:
+
+routines.cpp, timeRoutines.cpp, prettyPrint.cpp:
+	Copyright (C) 2008 Thaddeus Messenger
+	routines.cpp, timeRoutines.cpp, prettyPrint.cpp are free software;
+	you can redistribute it and or modify it under the terms of the GNU
+	Lesser General Public.
+	License as published by the Free Software Foundation; version 2.1.
+
+	On Debian systems, the complete text of the GNU Lesser General Public
+	License	can be found in `/usr/share/common-licenses/LGPL-2.1'.
+
--- procinfo-2.0.304.orig/debian/control
+++ procinfo-2.0.304/debian/control
@@ -0,0 +1,19 @@
+Source: procinfo
+Section: utils
+Priority: optional
+Maintainer: Giuseppe Iuculano <giuseppe@iuculano.it>
+Build-Depends: debhelper (>= 7), autotools-dev, libncurses5-dev
+Standards-Version: 3.8.1
+Homepage: http://procinfo-ng.sourceforge.net
+Vcs-Git: git://git.debian.org/git/users/derevko-guest/procinfo.git
+Vcs-Browser: http://git.debian.org/?p=users/derevko-guest/procinfo.git
+DM-Upload-Allowed: yes
+
+Package: procinfo
+Architecture: any
+Depends: ${shlibs:Depends}, ${misc:Depends}
+Provides: procinfo-ng
+Description: reporter for system information from /proc and /sys
+ Procinfo-NG is a small program that gathers some system information from
+ diverse files under /proc and /sys and prints it to the screen.
+ Procinfo-NG is a complete rewrite of the old system monitoring app procinfo.
--- procinfo-2.0.304.orig/debian/procinfo-old/socklist.8
+++ procinfo-2.0.304/debian/procinfo-old/socklist.8
@@ -0,0 +1,43 @@
+.TH SOCKLIST 8 "1998-02-09" "1st Release" "Linux System Manual"
+
+.SH NAME
+socklist \- display list of open sockets
+
+.SH SYNOPSIS
+.B socklist
+
+.SH DESCRIPTION
+
+.B socklist
+is a Perl script that gives you a list of all open sockets,
+enumerating types, port, inode, uid, pid, fd and the program to which
+it belongs.
+
+.SH OPTIONS
+None.
+
+.SH FILES
+.TP
+.BI /proc/*/fd/*
+File descriptors.
+
+.TP
+.BI /proc/net/tcp
+List of TCP sockets.
+
+.TP
+.BI /proc/net/udp
+List of UDP sockets.
+
+.TP
+.BI /proc/net/raw
+List of raw sockets.
+
+.SH BUGS
+None as yet.
+
+.SH SEE ALSO
+procinfo(8), netstat(8).
+
+.SH AUTHOR
+Larry Doolittle <ldoolitt@jlab.org>
--- procinfo-2.0.304.orig/debian/procinfo-old/lsdev.8
+++ procinfo-2.0.304/debian/procinfo-old/lsdev.8
@@ -0,0 +1,66 @@
+.TH LSDEV 8 "1998-05-31" "3rd Release" "Linux System Manual"
+
+.SH NAME
+lsdev \- display information about installed hardware
+
+.SH SYNOPSIS
+.B lsdev
+
+.SH DESCRIPTION
+.B lsdev
+gathers information about your computer's installed hardware from the
+.B interrupts,
+.B ioports
+and
+.B dma
+files in the
+.B /proc
+directory, thus giving you a quick overview of which hardware uses
+what I/O addresses and what IRQ and DMA channels.
+
+.SH OPTIONS
+None.
+
+.SH FILES
+.TP
+.BI /proc/interrupts
+IRQ channels.
+
+.TP
+.BI /proc/ioports
+I/O memory addresses.
+
+.TP
+.BI /proc/dma
+DMA channels.
+
+.SH BUGS
+.B lsdev
+can't always figure out which lines in the three examined files refer
+to one and the same device, because these files sometimes use
+different names for the same piece of hardware. For example, in some
+kernels the keyboard is referred to as `kbd' in
+.B /proc/ioports
+and as `keyboard' in
+.B /proc/interrupts.
+This should be fixed in the kernel, not in 
+.B lsdev
+(as has indeed happened for this particular example).
+
+The program does however try to match lines by stripping anything
+after a space or open parenthesis from the name, so that e.g. the
+`serial' lines from 
+.B /proc/interrupts
+match the `serial(set)' lines from
+.B /proc/ioports.
+This attempt at DWIM might be considered a bug in itself.
+
+This program only shows the kernel's 
+.BI idea
+of what hardware is present, not what's actually physically available.
+
+.SH SEE ALSO
+procinfo(8).
+
+.SH AUTHOR
+Sander van Malssen <svm@kozmix.cistron.nl>
--- procinfo-2.0.304.orig/debian/procinfo-old/socklist
+++ procinfo-2.0.304/debian/procinfo-old/socklist
@@ -0,0 +1,98 @@
+#!/usr/bin/perl
+
+# socklist
+# Simple and effective substitute for "lsof" for Linux with a proc filesystem.
+# Standard permissions on the proc filesystem make this program only
+# useful when run as root.
+
+# Larry Doolittle <ldoolitt@jlab.org>
+# September 1997
+
+# example output (with # added given the context of a perl program):
+#
+# type  port      inode     uid    pid   fd  name
+# tcp   1023     394218     425  23333    3  ssh
+# tcp   1022     394166     425  23312    3  ssh
+# tcp   6000     387833     313   3942    0  X
+# tcp   2049      81359       0  13296    4  rpc.nfsd
+# tcp    745      81322       0  13287    4  rpc.mountd
+# tcp    111      81282       0  13276    4  portmap
+# tcp     22      26710       0   7372    3  sshd
+# tcp     25      25902       0    156   18  inetd
+# tcp     80      20151       0   2827    4  boa-0.92
+# tcp     23       2003       0    156    5  inetd
+# udp    620     855681       0      0    0  
+# udp    655     394445       0      0    0  
+# udp   2049      81356       0  13296    3  rpc.nfsd
+# udp    743      81319       0  13287    3  rpc.mountd
+# udp    111      81281       0  13276    3  portmap
+# udp    707       2776       0      0    0  
+# udp    514       1861       0    124    1  syslogd
+# raw      1          0       0      0    0  
+#
+# It appears that each NFS mount generates an open udp port, which
+# is not associated with any process.  This is the origin of those
+# mysterious ports 620, 655, and 707 above.  I still don't understand
+# the meaning of raw port 1.
+
+# part 1: scan through the /proc filesystem building up
+# a list of what processes own what network "inodes".
+# result is associative array %sock_proc.
+
+opendir (PROC, "/proc") || die "proc";
+for $f (readdir(PROC)) {
+    next if (! ($f=~/[0-9]+/) );
+    if (! opendir (PORTS, "/proc/$f/fd")) {
+        # print "failed opendir on process $f fds\n";
+        closedir PORTS;
+        next;
+    }
+    for $g (readdir(PORTS)) {
+        next if (! ($g=~/[0-9]+/) );
+        $r=readlink("/proc/$f/fd/$g");
+
+# 2.0.33: [dev]:ino 
+#	($dev,$ino)=($r=~/^\[([0-9a-fA-F]*)\]:([0-9]*)$/);
+# 2.0.78: socket:[ino]
+#	($dev,$ino)=($r=~/^(socket):\[([0-9]*)\]$/);
+# -svm-
+	($dev,$ino)=($r=~/^(socket|\[[0-9a-fA-F]*\]):\[?([0-9]*)\]?$/);
+
+        # print "$f $g $r DEV=$dev INO=$ino\n";
+        if ($dev == "[0000]" || $dev == "socket") {$sock_proc{$ino}=$f.":".$g;}
+    }
+    closedir PORTS;
+}
+closedir PROC;
+
+# exit;
+
+# for $a (keys(%sock_proc)) {print "$a $sock_proc{$a}\n";}
+
+# part 2: read /proc/net/tcp, /proc/net/udp, and /proc/net/raw,
+# printing the answers as we go.
+
+print "type  port      inode     uid    pid   fd  name\n";
+sub scheck {
+    open(FILE,"/proc/net/".$_[0]) || die;
+    while (<FILE>) {
+        @F=split();
+        next if ($F[9]=~/uid/);
+        @A=split(":",$F[1]);
+        $a=hex($A[1]);
+        ($pid,$fd)=($sock_proc{$F[9]}=~m.([0-9]*):([0-9]*).);
+        $cmd = "";
+        if ($pid && open (CMD,"/proc/$pid/status")) {
+           $l = <CMD>;
+           ($cmd) = ( $l=~/Name:\s*(\S+)/ );
+           close(CMD);
+	}
+        printf "%s %6d %10d  %6d %6d %4d  %s\n",
+            $_[0], $a ,$F[9], $F[7], $pid, $fd, $cmd;
+    }
+    close(FILE);
+}
+
+scheck("tcp");
+scheck("udp");
+scheck("raw");
--- procinfo-2.0.304.orig/debian/procinfo-old/lsdev
+++ procinfo-2.0.304/debian/procinfo-old/lsdev
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+#
+#	lsdev.pl
+#
+#	Created by Sander van Malssen <svm@ava.kozmix.cistron.nl>
+#
+#	Date:        1996-01-22 19:06:22
+#	Last Change: 1998-05-31 15:26:58
+#
+# $Id: lsdev.pl,v 1.5 1999/05/15 22:16:03 svm Exp $
+#
+
+# MAIN #######################################################################
+
+open (IRQ, "</proc/interrupts") || die "can't open /proc/interrupts";
+while (<IRQ>) {
+    next if /^[ \t]*[A-Z]/;
+    chop;
+    if (/PIC/) {
+	$n = (@line = split());
+    } else {
+	$n = (@line = split(' [ +] '));
+    }
+    $name = $line[$n-1];
+    $device{$name} = $name;
+    @tmp = split(':', $line[0]);
+    $tmp0 = int($tmp[0]);
+    $irq{$name} = "$irq{$name} $tmp0";
+}
+close (IRQ);
+
+open (DMA, "</proc/dma") || die "can't open /proc/dma";
+while (<DMA>) {
+    chop;
+    @line = split(': ');
+    @tmp = split (/[ \(]/, $line[1]);
+    $name = $tmp[0];
+    $device{$name} = $name;
+    $dma{$name} = "$dma{$name}$line[0]";
+}
+close (DMA);
+
+open (IOPORTS, "</proc/ioports") || die "can't open /proc/ioports";
+while (<IOPORTS>) {
+    chop;
+    @line = split(' : ');
+    @tmp = split (/[ \(]/, $line[1]);
+    $name = $tmp[0];
+    $device{$name} = $name;
+    $port{$name} = "$port{$name} $line[0]";
+}
+close (IOPORTS);
+
+printf ("%-16s %4s%6s %s\n------------------------------------------------\n",
+	"Device", "DMA", "IRQ", " I/O Ports");
+
+foreach $name (sort { uc($a) cmp uc($b) } keys %device) {
+    printf ("%-16s %4s%6s %s\n",
+	    $name, $dma{$name}, $irq{$name}, $port{$name});
+}
+
+# The End ####################################################################
+
+# Local variables:
+# rm-trailing-spaces: t