Update docs and dependency list

And a magic tool of nastyness to get that list from a functional system.

2 files changed, 63 insertions, 0 deletions

diff --git a/README.md b/README.md
index cde5b19..2cd7bb5 100644
--- a/README.md
+++ b/README.md
@@ -3,3 +3,44 @@
 Tools, hacks, scripts and other things used by Tech:Server to keep things running smoothly during The Gathering.
 
 Licensed under the GNU GPL, version 2. See the included COPYING file.
+
+# Dependencies
+
+For the perl stuff, you may need the following Debian packages:
+
+- libcapture-tiny-perl
+- libcgi-pm-perl
+- libcommon-sense-perl
+- libdata-dumper-simple-perl
+- libdbi-perl
+- libdigest-perl
+- libgd-perl
+- libgeo-ip-perl
+- libhtml-parser-perl
+- libhtml-template-perl
+- libimage-magick-perl
+- libimage-magick-q16-perl
+- libjson-perl
+- libjson-xs-perl
+- libnetaddr-ip-perl
+- libnet-cidr-perl
+- libnet-ip-perl
+- libnet-openssh-perl
+- libnet-oping-perl
+- libnet-rawip-perl
+- libnet-telnet-cisco-perl
+- libnet-telnet-perl
+- libsnmp-perl
+- libsocket6-perl
+- libsocket-perl
+- libswitch-perl
+- libtimedate-perl
+- perl
+- perl-base
+- perl-modules
+
+`apt-get install libcapture-tiny-perl libcgi-pm-perl libcommon-sense-perl libdata-dumper-simple-perl libdbi-perl libdigest-perl libgd-perl libgeo-ip-perl libhtml-parser-perl libhtml-template-perl libimage-magick-perl libimage-magick-q16-perl libjson-perl libjson-xs-perl libnetaddr-ip-perl libnet-cidr-perl libnet-ip-perl libnet-openssh-perl libnet-oping-perl libnet-rawip-perl libnet-telnet-cisco-perl libnet-telnet-perl libsnmp-perl libsocket6-perl libsocket-perl libswitch-perl libtimedate-perl perl perl-base perl-modules`
+
+You will also need SNMP mibs. For conveneince:
+
+`tools/get_mibs.sh`
diff --git a/tools/deplist.sh b/tools/deplist.sh
new file mode 100755
index 0000000..cd2ecc0
--- /dev/null
+++ b/tools/deplist.sh
@@ -0,0 +1,22 @@
+#!/bin/bash
+
+# Generate a dependency list for debian packages needed to work
+#
+# This is ... somewhat extensive. And a good incentive for people to clean
+# up their mess.
+
+(
+cat <<_EOF_
+use lib '../include';
+use lib '../web/streamlib';
+_EOF_
+find ../ -name '*pl' -exec egrep '^use ' {} \; | sort | uniq
+cat <<_EOF_
+foreach my \$key (keys %INC) {
+	if (\$INC{\$key} =~ m/^\./) {
+		next;
+	}
+	print \$INC{\$key} . "\n";
+}
+_EOF_
+) |  perl 2>/dev/null | xargs realpath | xargs dpkg -S | awk '{print $1}' | sed 's/:$//' | sort | uniq