Add .gitignore files

A file might be deleted between the time we read the directory and the
time we get around to check it, so if we can't lstat it, assume that is
what has happened. (It might also have been renamed, but that's
equivalent to this file being deleted and another being created, so we
don't have to treat this specially)

.gitignore

@@ -0,0 +1,3 @@
+GNUmakerules
+GNUmakevars
+*.o

agestat/GNUmakefile

@@ -0,0 +1,35 @@
+include GNUmakevars
+
+BINDIR=/usr/local/bin
+
+all: agestat
+
+clean:
+	rm -f agestat customize
+
+distclean: clean
+	rm -f GNUmakevars GNUmakerules
+
+install: $(BINDIR) $(BINDIR)/agestat
+
+%: %.pl customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+%: %.sh customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+customize: configure
+	sh ./configure
+
+$(BINDIR):
+	mkdir -p $@
+
+GNUmakevars: GNUmakevars.sh
+	sh ./$^ > $@
+GNUmakerules: GNUmakerules.sh
+	sh ./$^ > $@
+
+
+include GNUmakerules

agestat/GNUmakerules.sh

@@ -0,0 +1,5 @@
+#!/bin/sh
+echo "\$(BINDIR)/%: %"
+echo "	cp \$^ \$@"
+echo "\$(MAN1DIR)/%: %"
+echo "	cp \$^ \$@"

agestat/GNUmakevars.sh

@@ -0,0 +1,15 @@
+#!/bin/sh
+prefix=${prefix:-/usr/local}
+echo "BINDIR=$prefix/bin"
+
+for i in "$prefix/share/man/man1" "$prefix/man/man1"
+do
+	if [ -d "$i" -a -w "$i" ]
+	then
+		echo "MAN1DIR=$i"
+		break;
+	fi
+done
+
+echo
+echo "all:"

agestat/agestat.pl

@@ -0,0 +1,137 @@
+#!@@@perl@@@ -w
+#
+# $Id: agestat.pl,v 1.10 2015-08-25 16:00:39 hjp Exp $
+#
+
+use strict;
+use File::stat;
+use File::Find;
+use Getopt::Long;
+
+sub usage {
+    print STDERR "Usage: $0 [-atime|-mtime] [-scale=(k|M)] [-buckets=(cal|log2)]\n";
+    exit 1;
+}
+
+my $now = time();
+my @bucket_max;
+
+my %opts = (buckets => 'log2');
+GetOptions(\%opts, "atime", "mtime", "scale=s", "buckets=s") or usage();
+my $scale;
+if (!defined($opts{scale})) {
+    $scale = 1;
+} elsif ($opts{scale} eq 'k') {
+    $scale = 1024;
+} elsif ($opts{scale} eq 'M') {
+    $scale = 1024*1024;
+} else {
+    usage();
+}
+
+if ($opts{buckets} eq "log2") {
+    for (my ($b, $s) = (0, 1); $b < 32; $b++, $s *= 2) {
+	$bucket_max[$b] = $s;
+    }
+} elsif ($opts{buckets} eq "cal") {
+    @bucket_max = (
+	3600,
+	86400,
+	7 * 86400,
+	30 * 86400,
+	182 * 86400,
+	1 * 365.2422 * 86400,
+	2 * 365.2422 * 86400,
+	3 * 365.2422 * 86400,
+	4 * 365.2422 * 86400,
+	5 * 365.2422 * 86400,
+    );
+} elsif ($opts{buckets} =~ /^days=(\d+)/) {
+    @bucket_max = map $_ * 86400, (1 .. $1);
+} else {
+    usage();
+}
+
+
+my @hist;
+
+sub wanted {
+
+    my $st = lstat($_);
+    return unless $st;
+    my $age = $now - (
+	$opts{atime} ? $st->atime :
+	$opts{mtime} ? $st->mtime :
+		       (! -d && $st->atime > $st->mtime ? $st->atime
+		                                        : $st->mtime ));
+    my $b = 0;
+    while ($b <= $#bucket_max && $age > $bucket_max[$b]) { $b++ };
+    #print $File::Find::name, ": $age sec, ", $st->size, " bytes, ", $st->nlink, " links, bucket $b\n";
+    $hist[$b] += $st->size / $st->nlink;
+}
+
+sub time2str {
+    my ($t) = (@_);
+
+    if ($t < 60) {
+	return sprintf ("%6.1f s", $t);
+    } elsif ($t < 3600) {
+	return sprintf ("%6.1f m", $t/60);
+    } elsif ($t < 3600 * 24) {
+	return sprintf ("%6.1f h", $t/3600);
+    } elsif ($t < 3600 * 24 * 365.2422) {
+	return sprintf ("%6.1f d", $t/(3600*24));
+    } else {
+	return sprintf ("%6.1f y", $t/(3600*24*365.2422));
+    }
+}
+
+
+
+if (@ARGV == 0) { push (@ARGV, "."); }
+find(\&wanted, @ARGV);
+
+print "\n\n";
+
+my $sum = 0;
+
+for (my $i = 0; $i <= $#hist; $i++) {
+    $sum += ($hist[$i] || 0);
+}
+
+
+my $c = 0;
+for (my $i = 0; $i <= $#hist; $i++) {
+    my $h = ($hist[$i] || 0);
+    $c += $h;
+    printf("%2d\t%s\t%12.0f\t%5.1f\t%12.0f\t%5.1f\n",
+	   $i,
+	   $i <= $#bucket_max ? time2str($bucket_max[$i]) : "infinity",
+	   $h/$scale, $h * 100 / $sum, $c/$scale, $c * 100 / $sum);
+}
+
+# $Log: agestat.pl,v $
+# Revision 1.10  2015-08-25 16:00:39  hjp
+# New bucket type days
+#
+# Revision 1.9  2012-10-22 09:20:05  hjp
+# fixed usage message
+#
+# Revision 1.8  2007-02-09 15:36:37  hjp
+# Automatically create GNUmakerules and GNUmakevars if they don't exist.
+# Print usage if unknown option is given.
+#
+# Revision 1.7  2006/02/17 13:50:23  hjp
+# Fixed error when oldest file was older than oldest bucket.
+# Realigned columns.
+#
+# Revision 1.6  2006/02/17 13:31:41  hjp
+# Added option --buckets.
+#
+# Revision 1.5  2002/03/18 20:33:46  hjp
+# Ignore atime for directories
+#
+# Revision 1.4  2001/01/19 19:06:01  hjp
+# Removed superfluous "total" line.
+# Fixed usage message.
+#

agestat/configure

@@ -0,0 +1,30 @@
+#!/bin/sh
+#
+echo "#!/bin/sh" > customize.$$
+echo "sed \\" >> customize.$$
+chmod +x customize.$$
+
+################################################################
+# find a working perl:
+#
+for i in /usr/bin/perl /usr/local/bin/perl /usr/bin/perl5 /usr/local/bin/perl5
+do
+    if $i -e 'exit ($] < 5.000)'
+    then
+	echo $i works
+	perl="$i"
+	break
+    fi
+done
+if [ -z "$perl" ]
+then
+    could not find a working perl command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@perl@@@,$perl,g' \\" >> customize.$$
+
+
+echo  >> customize.$$
+
+mv customize.$$ customize
+

base64/GNUmakefile

@@ -0,0 +1,13 @@
+include GNUmakevars
+include GNUmakerules
+
+base64: base64.o
+	$(CC) $^ -lant -o $@
+
+clean:
+	rm -f *.o base64 core foo bar
+
+install: $(BINDIR)/base64
+
+distclean: clean
+	rm -f *.bak *.d

base64/base64.c

@@ -0,0 +1,55 @@
+#include <ant/base64.h>
+#include <unistd.h>
+#include <assert.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+char *cmnd;
+
+static void usage(void) {
+    fprintf(stderr, "Usage: %s [-d|-e]\n", cmnd);
+    exit(1);
+}
+
+int main(int argc, char **argv) {
+    char buf1[1024+1];
+    char buf2[1024+1];
+    enum { NONE, ENCODE, DECODE} mode = NONE;
+    int c;
+    int r1, r2;
+    cmnd = argv[0];
+    while ((c = getopt(argc, argv, "de")) != EOF) {
+	switch(c) {
+	    case 'd':
+		mode = DECODE;
+		break;
+	    case 'e':
+		mode = ENCODE;
+		break;
+	    case '?':
+		usage();
+	    default:
+		assert(0);
+	}
+    }
+    switch(mode) {
+	case NONE:
+	    usage();
+	case ENCODE:
+	    while ((r1 = fread(buf1, 1, 57, stdin)) > 0) {
+		r2 = base64_encode(buf2, sizeof(buf2), buf1, r1, 76);
+		fwrite(buf2, 1, r2, stdout);
+		putchar('\n');
+	    }
+	    break;
+	case DECODE:
+	    while (fgets(buf1, sizeof(buf1), stdin)) {
+		r1 = strlen(buf1);
+		if (buf1[r1-1] == '\n') r1--;
+		r2 = base64_decode(buf2, sizeof(buf2), buf1, r1);
+		fwrite(buf2, 1, r2, stdout);
+	    }
+    }
+    return 0;
+}

cgigw/cgigw.cgi

@@ -0,0 +1,106 @@
+#!/usr/bin/perl
+#
+# $Id: cgigw.cgi,v 1.1 1998-04-28 22:01:23 hjp Exp $
+#
+# This is a simpe CGI gateway script.
+#
+# It can be used to access CGI scripts on a different server and/or
+# port.
+# Possible scenarios where this is useful:
+# * Your real CGI scripts have to run on a machine behind a firewall.
+#    In this case you may also want to modify this script to check
+#    parameters.
+# * Your real CGI scripts have to run on a different server (e.g., one 
+#   with some special database installed), but you don't want to expose
+#   that server's address in your URLs.
+# * Your real CGI scripts have to run on a Web server which doesn't 
+#   speak SSL.
+#
+# Usage: Change the customization section to point to the script which 
+#        you really want to call. Install this script in some convenient
+#        place. Make sure the target script generates only links to your
+#        "official" server (If this is not possible, you might want to
+#        tweak its output just before "print @rest;" at the very bottom
+#        of this script.
+#
+# $Log: cgigw.cgi,v $
+# Revision 1.1  1998-04-28 22:01:23  hjp
+# Initial release.
+# Only tested with a few CGIs and the Roxen web server.
+#
+#
+
+use IO::Socket;
+
+# BEGIN customization section
+$serv_addr = "internal.host.com";
+$serv_port = 80;
+$serv_script = "/some/script.cgi";
+# END customization section
+
+$sock = IO::Socket::INET->new(PeerAddr => $serv_addr,
+			      PeerPort => $serv_port);
+if (!$sock) {
+    print "Status: 500\r\n";
+    print "Content-type: text/html\r\n";
+    print "\r\n";
+    print "<html><body>\n";
+    print "<h1>Internal error</h1>\n";
+    print "Connection to $serv_addr:$serv_port failed: $!\n";
+    print "</body></html>\n";
+}
+
+$method = $ENV{REQUEST_METHOD};
+$query_string = $ENV{QUERY_STRING};
+print STDERR "$0: method = $method\n";
+
+$sock->print("$method $serv_script");
+if ($query_string ne "") {
+    $sock->print("?$query_string");
+}
+$sock->print(" HTTP/1.0\r\n");
+for $i (keys(%ENV)) {
+    if ($i =~ m/^HTTP_(.*)/) {
+	$key = $1;
+	$key =~ s/_/-/g;
+	$val = $ENV{$i};
+	$sock->print("$key: $val\r\n");
+	print STDERR "$0: Header: $key: $val\n";
+    } else {
+	$val = $ENV{$i};
+	print STDERR "$0: Env: $i: $val\n";
+    }
+}
+$content_length = $ENV{CONTENT_LENGTH};
+if ($content_length) {
+    $sock->print("Content-Length: ", $content_length, "\r\n\r\n");
+    for ($i = 0; $i < $content_length; $i++) {
+	read(STDIN, $c, 1);
+	print STDERR "$0: Body: $i of $content_length: $c\n";
+	$sock->print($c);
+    }
+    # padding:
+    $sock->print("\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n");
+} else {
+    $sock->print("\r\n");
+}
+$sock->flush();
+print STDERR "$0: Flushing\n";
+
+$status = $sock->getline();
+print STDERR "$0: Status: $status\n";
+if ($status =~ m|^HTTP/\d+\.\d+ (\d+) |) {
+    print "Status: $1\r\n";
+} elsif ($status =~ m|:|) {
+    # error: Assume this is a header and just pass it on
+    print $status;
+} else {
+    # error: not a header. Assume this is HTML
+    print "Content-Type: text/html\r\n";
+    print "\r\n";
+    print $status;
+}
+@rest = $sock->getlines;
+print @rest;
+
+print STDERR "$0: Finished\n";

charhist/.gitignore

@@ -0,0 +1 @@
+charhist

charhist/GNUmakefile

@@ -0,0 +1,21 @@
+include GNUmakevars
+include GNUmakerules
+
+all: charhist
+
+charhist: charhist.pl
+	cp $^ $@
+
+chartab:
+clean:
+	rm -f charhist core foo bar baz
+
+distclean: clean
+	rm -f GNUmakerules GNUmakevars
+
+GNUmakevars: GNUmakevars.sh
+	sh ./$^ > $@
+GNUmakerules: GNUmakerules.pl
+	perl ./$^ > $@
+
+install: $(BINDIR)/charhist

charhist/GNUmakerules.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+print "\$(BINDIR)/%: %\n";
+print "\tinstall -m 755 \$^ \$@\n";
+print "\$(MAN1DIR)/%: %\n";
+print "\tinstall -m 644 \$^ \$@\n";

charhist/GNUmakevars.sh

@@ -0,0 +1,5 @@
+#!/bin/sh
+prefix=${prefix:-/usr/local}
+echo "BINDIR=$prefix/bin"
+echo
+echo "all:"

charhist/charhist.c

@@ -0,0 +1,21 @@
+#include <ctype.h>
+#include <locale.h>
+#include <stdio.h>
+#include <limits.h>
+
+long hist[UCHAR_MAX+1];
+
+int main (int argc, char **argv) {
+    int c;
+
+    setlocale(LC_ALL, "");
+    while ((c = getchar()) != EOF) {
+	hist[c]++;
+    }
+    for (c = 0; c <= UCHAR_MAX; c++) {
+	if (hist[c]) {
+	    printf ("%x %d %o %c\t%ld\n", c, c, c, isprint(c) ? c : '.', hist[c]);
+	}
+    }
+    return 0;
+}

charhist/charhist.pl

@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use autodie;
+
+use Getopt::Long;
+use I18N::Langinfo qw(langinfo CODESET);
+use Pod::Usage;
+
+my $encoding = langinfo(CODESET);
+
+GetOptions('encoding=s', \$encoding) or pod2usage();
+
+my %hist;
+if (@ARGV) {
+    readfile($_) for @ARGV;
+} else {
+    readfile();
+}
+
+my $total = 0;
+$total += $_ for values %hist;
+
+binmode STDOUT, ":encoding(UTF-8)";
+for (sort keys %hist) {
+    my $cp = ord;
+    printf("%x\t%d\t%o\t%s\t%7d\t%f\n",
+           $cp, $cp, $cp, /\p{Graph}/ ? $_ : ".", $hist{$_}, $hist{$_} / $total);
+}
+
+sub readfile {
+    my ($filename) = @_;
+    my $fh;
+    if (defined $filename) {
+        open $fh, "<", $filename;
+    } else {
+        $fh = \*STDIN;
+
+    }
+    binmode $fh, ":encoding($encoding)";
+    while (<$fh>) {
+        for my $c (split(//)) {
+            $hist{$c}++;
+        }
+    }
+}

chartab/GNUmakefile

@@ -0,0 +1,11 @@
+include GNUmakevars
+
+all: chartab ctype-test
+
+chartab:
+ctype-test:
+clean:
+	rm chartab
+install: $(BINDIR)/chartab $(BINDIR)/ctype-test
+
+include GNUmakerules

chartab/chartab.c

@@ -0,0 +1,10 @@
+#include <stdio.h>
+
+int main (int argc, char **argv) {
+	int i;
+	for (i = 0; i < 256; i++) {
+		printf ("%x %d %o %c\t", i, i, i, i);
+		if (i % 4 == 3) printf ("\n");
+	}
+	return 0;
+}

chartab/chartab.pl

@@ -0,0 +1,28 @@
+#!/usr/bin/perl 
+use warnings;
+use strict;
+use charnames ();
+
+use Getopt::Long;
+use Pod::Usage;
+
+my $all;
+
+GetOptions(
+    'all' => \$all
+) or pod2usage(2);
+
+binmode STDOUT, ":encoding(UTF-8)";
+for my $c (0 .. 0xFFFF) {
+    my $cc = pack('U', $c);
+    if (charnames::viacode($c) || $all) {
+	printf("%04x %5d %06o %s %s\n",
+	       $c,
+	       $c,
+	       $c,
+	       (($cc =~ /[[:print:]]/) ? $cc : '.'),
+	       charnames::viacode($c) || ''
+	);
+    }
+}
+print "\n";

chartab/ctype-test.c

@@ -0,0 +1,17 @@
+#include <ctype.h>
+#include <locale.h>
+#include <limits.h>
+#include <stdio.h>
+
+int main(int argc, char **argv) {
+    int i;
+
+    setlocale(LC_ALL, "");
+
+    for (i = 0; i <= UCHAR_MAX; i++) {
+	printf ("%2x: ", i);
+	printf("%c ", isprint(i) ? i : '.');
+	printf("\n");
+    }
+    return 0;
+}

cleandir/.vimrc

@@ -0,0 +1,6 @@
+version 5.0
+map!  >I<yypa/O
+set autoindent
+set exrc
+set number
+set shiftwidth=4

cleandir/GNUmakefile

@@ -0,0 +1,47 @@
+include GNUmakevars
+
+TARGETS = cleandir cleandir.1
+CONFDIR=../../configure
+CONFDIR_exists=$(shell [ -d $(CONFDIR) ] && echo ok)
+
+all: configure $(TARGETS)
+
+clean:
+	rm -f $(TARGETS) *.bak core foo bar baz *.ps
+
+distclean: clean
+	rm -f customize
+
+install: $(BINDIR) $(BINDIR)/cleandir $(MAN1DIR)/cleandir.1
+
+%.1: %.pl
+	pod2man $< > $@
+
+%: %.pl customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+%: %.sh customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+customize: configure
+	sh ./configure
+
+$(SBINDIR):
+	mkdir -p $@
+
+ifeq ($(CONFDIR_exists),ok)
+
+configure: $(CONFDIR)/start $(CONFDIR)/perl $(CONFDIR)/finish
+	cat $^ > $@
+
+endif
+
+GNUmakevars: GNUmakevars.sh
+	sh ./$^ > $@
+GNUmakerules: GNUmakerules.sh
+	sh ./$^ > $@
+
+
+include GNUmakerules

cleandir/GNUmakerules.sh

@@ -0,0 +1,5 @@
+#!/bin/sh
+echo "\$(BINDIR)/%: %"
+echo -e "\tcp \$^ \$@"
+echo "\$(MAN1DIR)/%: %"
+echo -e "\tcp \$^ \$@"

cleandir/GNUmakevars.sh

@@ -0,0 +1,15 @@
+#!/bin/sh
+prefix=${prefix:-/usr/local}
+echo "BINDIR=$prefix/bin"
+
+for i in "$prefix/share/man/man1" "$prefix/man/man1"
+do
+	if [ -d "$i" -a -w "$i" ]
+	then
+		echo "MAN1DIR=$i"
+		break;
+	fi
+done
+
+echo
+echo "all:"

cleandir/cleandir.pl

@@ -0,0 +1,282 @@
+#!@@@perl@@@ -w
+
+=head1 NAME
+
+cleandir - remove unused files from directory
+
+=head1 SYNOPSIS
+
+cleandir [-d days] [-n] [-m] [-v] [-s] [-i|-x regex] directory...
+
+=head1 DESCRIPTION
+
+cleandir recursively searches each directory given on the commandline
+for files and subdirectories which have not been accessed for n days and
+deletes them. It is intended to be used on /tmp and other world-writable
+directories and implements a number of checks to prevent symlink or
+directory switching attacks. It also does not cross mount points.
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-d days>
+
+Delete files which have not been accessed for the given number of days.
+The default is 14.
+
+=item B<-m>
+
+Consider only the last modification time of the file, not the last access time.
+
+=item B<-c>
+
+Consider only the inode change time of the file.
+
+=item B<-n>
+
+No-op. Don't delete any files.
+
+=item B<-s>
+
+Skip sockets and named pipes. Some programs (notably X11 and some
+databases) create sockets and named pipes in /tmp and foolishly expect 
+them to survive. This option exists to humour them.
+
+=item B<-v>
+
+Verbose. Can be repeated to increase verbosity.
+
+=item B<-i>|B<-x> regex
+
+Include and exclude patterns. The filenames (not the complete path) of
+all files and directories to be removed are compared against these
+patterns in order. The first hit determines the action. These patterns
+can also be used to override the -s option and to cross mount points.
+
+=back
+
+=head1 AUTHOR
+
+Peter J. Holzer <hjp@hjp.at>. Thanks to Chris Mason for some
+enhancements.
+
+=cut
+
+use strict;
+use File::stat;
+use POSIX;
+use Getopt::Long;
+use Pod::Usage;
+use List::Util qw(max);
+
+my $verbose = 0;
+my $nop = 0;
+my $skip_fifos = 0;
+my $mtime_only = 0;
+my $ctime_only = 0;
+
+
+sub cleandir {
+    my ($dir, $since, $level, $inex) = (@_);
+    my $notremoved = 0;
+
+    if ($verbose > 1) {
+	print STDERR "$0:", " " x $level, " cleandir $dir $since {\n";
+    }
+    if (!opendir(DIR, ".")) {
+	printf STDERR "$0:", " " x $level, " cannot opendir $dir: $!";
+	return;
+    }
+    my $std = lstat(".");
+    my $fs = $std->dev;
+
+    for my $i (readdir(DIR)) {
+	if ($i eq "." || $i eq "..") {next}
+	if ($verbose > 2) {
+	    print STDERR "$0:", " " x $level, " checking $dir/$i\n";
+	}
+	my $st = lstat("$i");
+        if (!defined($st)) {
+            # file has vanished
+            next;
+        }
+
+	my $action = 'i';
+	# Skip anything on a different filesystem
+	if ($st->dev != $fs) {
+		$action = 'x';
+	}
+
+	# Skip sockets and pipes
+	if ($skip_fifos && (-p _ || -S _)) {
+		$action = 'x';
+	}
+
+	for (@$inex) {
+	    if ($i =~ /$_->[0]/) {
+		$action = $_->[1];
+		last;
+	    }
+	}
+	if ($action eq 'x') {
+		$notremoved++;
+		next;
+	}
+
+	if ($verbose > 3) {
+	    print STDERR "$0:", " " x $level, " mtime=", $st->mtime, " atime=", $st->atime, " ctime=", $st->ctime, "\n";
+	}
+	if (-d _) {
+	    my $cwd = getcwd();
+	    if (chdir($i)) {
+		my $remaining = -1;
+		my $st1 = lstat(".");
+		if ($st->dev == $st1->dev && $st->ino == $st1->ino) {
+		    $remaining = cleandir("$dir/$i", $since, $level+1, $inex);
+		} else {
+		    print STDERR "$0:", " " x $level,
+		    		 " $dir/$i changed dev/inode from ",
+				 $st->dev, "/", $st->ino,
+				 " to ",
+				 $st1->dev, "/", $st1->ino,
+				 "\n";
+		}
+		chdir($cwd);
+		my $std1 = lstat(".");
+		if (!($std->dev == $std1->dev && $std->ino == $std1->ino)) {
+		    print STDERR "$0:", " " x $level,
+		    		 " $cwd changed dev/inode from ",
+				 $std->dev, "/", $std->ino,
+				 " to ",
+				 $std1->dev, "/", $std1->ino,
+				 "\n";
+		    return ++$notremoved;
+		}
+		my $rtime = $ctime_only ? $st->ctime : $st->mtime;
+		if ($remaining == 0 && $rtime < $since) {
+		    if ($verbose > 0) {
+			print STDERR "$0:", " " x $level, "rmdir $dir/$i\n";
+		    }
+		    unless ($nop) {
+			if (rmdir("$i")) {next}
+			print STDERR "$0:", " " x $level, "rmdir $dir/$i failed: $!\n";
+		    }
+		} 
+	    } else {
+		print STDERR "$0:", " " x $level, " chdir $dir/$i failed: $!\n";
+	    }
+	    
+	} else {
+	    my $rtime = $ctime_only ? $st->ctime :
+	                $mtime_only ? $st->mtime :
+			              max($st->mtime, $st->atime);
+	    if ($rtime < $since) {
+		if ($verbose > 0) {
+		    print STDERR "$0:", " " x $level, " removing $dir/$i\n";
+		}
+		unless ($nop) {
+		    if (unlink("$i")) {next}
+		    print STDERR "$0:", " " x $level, " removing $dir/$i failed: $!\n";
+		}
+	    } 
+	}
+	$notremoved++;
+    }
+    if ($verbose > 1) {
+	print STDERR "$0:", " " x $level, " cleandir: $notremoved }\n";
+    }
+    return $notremoved;
+}
+
+sub main {
+    my $since = time() - 14 * 86400;;
+    my $help;
+    my @inex;
+
+    GetOptions('help|?' => \$help,
+               'days|d=f' => sub { $since = time() - $_[1] * 86400; },
+               'verbose|v' => sub { $verbose++ },
+	       'nop|n' => \$nop,
+	       'skip-fifos|s' => \$skip_fifos,
+	       'mtime-only|m' => \$mtime_only,
+	       'ctime-only|c' => \$ctime_only,
+	       'include|i=s' => sub { push @inex, [ $_[1], 'i' ] },
+	       'exclude|x=s' => sub { push @inex, [ $_[1], 'x' ] },
+	      ) or pod2usage(2);
+    pod2usage(1) if $help;
+    pod2usage(2) unless (@ARGV);
+    
+
+    while (my $i = shift(@ARGV)) {
+	my $cwd = getcwd();
+	if (chdir($i)) {
+	    cleandir($i, $since, 0, \@inex);
+	    chdir($cwd);
+	}
+    }
+    exit(0);
+}
+
+main();
+
+# $Log: cleandir.pl,v $
+# Revision 1.10  2012-03-02 11:29:42  hjp
+# (Nov 12  2009)
+# Implemented option -c  Consider only the inode change time of the file.
+#
+# Revision 1.9  2006-08-25 09:57:10  hjp
+# Added --include (-i) and --exclude (-x) options.
+#
+# Revision 1.8  2005/04/04 16:05:40  hjp
+# Print whole directory at rmdir with verbose output.
+#
+# Revision 1.7  2004/11/02 09:01:12  hjp
+# Critical bug fix: Empty directories were removed even with -n.
+# Minor cleanup: Message "removing ..." is now the same with and without -n.
+#
+# Revision 1.6  2003/05/16 14:44:58  hjp
+# Added -m option to synopsis.
+#
+# Revision 1.5  2003/05/16 13:38:25  hjp
+# Included -m (mtime-only) option (CVS is nice, but only if it used).
+# Improved pod a bit.
+#
+# Revision 1.4  2003/05/15 10:49:33  hjp
+# Changed tests on skip_fifo to use _ instead of $i. The latter caused
+# extra calls to stat which clobbered the state of _ which caused spurious
+# errors/warnings on symlinks.
+#
+# Revision 1.3  2003/05/14 11:49:56  hjp
+# Added yet another patch by Chris Mason.
+#
+# Added POD.
+#
+# Changed option processing to use Getopt::Long and Pod::Usage.
+#
+# Revision 1.2  2002/02/25 23:33:29  hjp
+# Applied patch from "Chris L. Mason" <cmason@somanetworks.com> to prevent
+# filesystem traversal.
+#
+# Return immediately if we cannot chdir back to the directory we came
+# from.
+#
+# Revision 1.1  2001/06/25 17:55:03  hjp
+# Added configure script to figure out perl location.
+#
+# Revision 1.4  2000/11/20 21:10:08  hjp
+# Checks introduced in last version prevented deletion of unused subdirs.
+# Fixed.
+#
+# revision 1.3
+# date: 2000/09/10 16:16:41;  author: hjp;  state: Exp;  lines: +37 -6
+# Added checks to detect directory/symlink switching attacks.
+# ----------------------------
+# revision 1.2
+# date: 1999/08/21 12:37:53;  author: hjp;  state: Exp;  lines: +25 -13
+# More levels of verbosity.
+# ----------------------------
+# revision 1.1
+# date: 1999/07/09 21:05:26;  author: hjp;  state: Exp;
+# Added cleandir
+# 

cleandir/configure

@@ -0,0 +1,34 @@
+#!/bin/sh
+#
+echo "#!/bin/sh" > customize.$$
+echo "sed \\" > customize.$$
+chmod +x customize.$$
+
+################################################################
+# find a working perl:
+#
+for i in /usr/bin/perl /usr/local/bin/perl /usr/bin/perl5 /usr/local/bin/perl5
+do
+    if $i -e 'exit ($] < 5.000)'
+    then
+	echo $i works
+	perl="$i"
+	break
+    fi
+done
+if [ -z "$perl" ]
+then
+    echo could not find a working perl command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@perl@@@,$perl,g' \\" >> customize.$$
+
+
+################################################################
+# finish
+#	Add trailing newline and rename temp file to final name
+#
+echo  >> customize.$$
+
+mv customize.$$ customize
+

collatz/GNUmakefile

@@ -0,0 +1,10 @@
+CFLAGS = -Wall -O9
+all: collatz collatz2 collatz3 modf
+
+collatz:
+
+collatz2: collatz2.o
+	$(CC) -o $@ $^ -lm
+
+clean:
+	rm -f collatz collatz2 collatz3 modf *.o core

collatz/collatz.c

@@ -0,0 +1,40 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+typedef int T;
+#define FT "%d"
+
+int main(void) {
+    T i = 1;
+    long c_max = 0;
+
+    for(;;) {
+	T j = i;
+	long c = 0;
+	while (j != 1) {
+	    if (j % 2 == 1) {
+		T j2 = j * 3 + 1;
+		if ((j2 - 1) / 3 != j) {
+		    printf(FT " is not 3 * " FT " + 1 at starting point " FT, j2, j, i);
+		    exit(1);
+		} 
+		j = j2;
+	    } else {
+		j = j / 2;
+	    }
+	    c++;
+	}
+	if (c > c_max) {
+	    printf("new longest sequence starting at " FT ": %ld steps\n", i, c);
+	    c_max = c;
+	}
+
+	if (i + 1 > i) {
+	    i = i + 1;
+	} else {
+	    printf(FT " is not greater than " FT "\n", i + 1, i);
+	    exit(1);
+	}
+
+    }
+}

collatz/collatz2.c

@@ -0,0 +1,49 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+
+#define USE_DOUBLE 1
+
+#ifdef USE_INT
+    typedef int T;
+    #define FT "%d"
+    #define even(x) ((x) % 2 == 0)
+#elif USE_LONG
+    typedef long T;
+    #define FT "%ld"
+    #define even(x) ((x) % 2 == 0)
+#elif USE_LONG_LONG
+    typedef long long T;
+    #define FT "%lld"
+    #define even(x) ((x) % 2 == 0)
+#elif USE_DOUBLE
+    typedef double T;
+    #define FT "%20.1f"
+    #ifdef USE_FLOOR
+	#define even(x) (floor((x) / 2) == ((x) / 2))
+    #else
+	#define even(x) (fmod((x), 2.0) == 0.0)
+    #endif
+#endif
+
+long collatz(T j) {
+
+    long c = 0;
+    while (j != 1) {
+	printf("%ld: " FT "\n", c, j);
+	if (even(j)) {
+	    j = j / 2;
+	} else {
+	    j = j * 3 + 1;
+	}
+	c++;
+    }
+    return c;
+}
+
+int main(void) {
+    T i = 113383;
+    long c = collatz(i);
+    printf("%ld\n", c);
+    return 0;
+}

collatz/collatz3.c

@@ -0,0 +1,40 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+#define USE_INT 1
+
+#ifdef USE_INT
+    typedef int T;
+    #define FT "%d"
+    #define odd(x) ((x) % 2 == 1)
+#elif USE_LONG
+    typedef long T;
+    #define FT "%ld"
+    #define odd(x) ((x) % 2 == 1)
+#elif USE_DOUBLE
+    typedef double T;
+    #define FT "%20g"
+    #define odd(x) (floor((x) / 2) != ((x) / 2))
+#endif
+
+long collatz(T j) {
+
+    long c = 0;
+    while (j != 1) {
+	printf("%ld: " FT "\n", c, j);
+	if (odd(j)) {
+	    j = j * 3 + 1;
+	} else {
+	    j = j / 2;
+	}
+	c++;
+    }
+    return c;
+}
+
+int main(void) {
+    T i = 113383;
+    long c = collatz(i);
+    printf("%ld\n", c);
+    return 0;
+}

collatz/modf.c

@@ -0,0 +1,15 @@
+#include <stdio.h>
+#include <math.h>
+
+int main(void) {
+    double x = 3.14;
+    double y, z;
+
+    y = modf(x, &z);
+    printf("%g, %g\n", y, z);
+
+    y = modf(x, NULL);
+    printf("%g, %g\n", y, z);
+
+    return 0;
+}

collatz/ulam.txt

@@ -0,0 +1,4 @@
+Ich kannte dieses Problem ursprünglich als "Ulams Vermutung".
+
+Laut http://de.wikipedia.org/wiki/Collatz-Problem stammt es aber
+ursprünglich von Lothar Collatz.

count/GNUmakefile

@@ -0,0 +1,22 @@
+include GNUmakerules
+include GNUmakevars
+
+count:
+
+install: $(ROOT)/usr/local/bin/count 
+
+install_all:
+	$(MAKE) install ROOT=/nfs/wsrdb
+	$(MAKE) install ROOT=/nfs/wsrcom
+	$(MAKE) install ROOT=/nfs/wifosv
+	$(MAKE) install ROOT=/nfs/ihssv
+	$(MAKE) install ROOT=/nfs/wsrtest
+
+$(ROOT)/usr/local/bin/%: %
+	$(INSTALL) $< $@
+
+$(ROOT)/usr/local/man/man8/%.8: %.man
+	$(INSTALL) $< $@
+
+clean:
+	rm count

count/count.c

@@ -0,0 +1,30 @@
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+int main(int argc, char **argv) {
+    unsigned long start = 0;
+    unsigned long stop = ULONG_MAX;
+    unsigned long i;
+
+    switch (argc) {
+    case 0:
+    case 1:
+	break;
+    case 2:
+	stop = strtoul(argv[1], NULL, 0);
+	break;
+    case 3:
+	start = strtoul(argv[1], NULL, 0);
+	stop = strtoul(argv[2], NULL, 0);
+	break;
+    default:
+	fprintf(stderr, "Usage: %s [[start] stop]\n", argv[0]);
+	exit(1);
+    }
+
+    for (i = start; i < stop; i++) {
+	printf("%ld\n", i);
+    }
+    return 0;
+}

cvsdiffmin/.vimrc

@@ -0,0 +1,6 @@
+version 5.0
+map!  >I<yypa/O
+set autoindent
+set exrc
+set ruler
+set shiftwidth=4

cvsdiffmin/GNUmakefile

@@ -0,0 +1,24 @@
+include GNUmakevars
+
+all: cvsdiffmin
+
+clean:
+	rm cvsdiffmin customize
+
+install: $(BINDIR) $(BINDIR)/cvsdiffmin
+
+%: %.pl customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+%: %.sh customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+customize: configure
+	sh ./configure
+
+$(BINDIR):
+	mkdir -p $@
+
+include GNUmakerules

cvsdiffmin/configure

@@ -0,0 +1,68 @@
+#!/bin/sh
+#
+echo "#!/bin/sh" > customize.$$
+echo "sed \\" > customize.$$
+chmod +x customize.$$
+
+################################################################
+# find a working perl:
+#
+for i in /usr/bin/perl /usr/local/bin/perl /usr/bin/perl5 /usr/local/bin/perl5
+do
+    if $i -e 'exit ($] < 5.000)'
+    then
+	echo $i works
+	perl="$i"
+	break
+    fi
+done
+if [ -z "$perl" ]
+then
+    could not find a working perl command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@perl@@@,$perl,g' \\" >> customize.$$
+
+
+################################################################
+# find a diff which understands --changed-group-format
+# and related options (like gnu diff)
+#
+echo 'a
+b
+c' > diff_format-test.$$.1
+echo 'a
+B
+c' > diff_format-test.$$.2
+
+wanted="<b
+=B
+>"
+for i in /usr/bin/diff /usr/local/bin/diff
+do
+    a="`$i --unchanged-group-format='' --changed-group-format='<%<=%>>' diff_format-test.$$.1 diff_format-test.$$.2`"
+    echo "$a"
+
+    if [ "x$a" = "x$wanted" ]
+    then
+	echo $i works
+	diff_format="$i"
+    fi
+done
+if [ -z "$diff_format" ]
+then
+    echo could not find a working diff_format command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@diff_format@@@,$diff_format,g' \\" >> customize.$$
+rm diff_format-test.$$.?
+
+
+################################################################
+# finish
+#	Add trailing newline and rename temp file to final name
+#
+echo  >> customize.$$
+
+mv customize.$$ customize
+

cvsdiffmin/cvsdiffmin.pl

@@ -0,0 +1,69 @@
+#!@@@perl@@@ -w
+#
+# $Id: cvsdiffmin.pl,v 1.3 2000-02-08 17:21:38 hjp Exp $
+#
+# cvsdiffmin - minimize output of cvs diff
+#
+
+use strict;
+
+use File::Slurp;
+
+my $diff = "@@@diff_format@@@";
+
+my $state = 'EQ';
+my %text = ();
+my %cap = ();
+my $count = 0;
+
+local $| = 1;
+
+while (<>) {
+
+    if ($state eq 'EQ' && /^\<{7} /) {
+	$state = 'V1';
+	$text{$state} = "";
+	s/'/_/g;
+	$cap{$state} = $_;
+	next;
+    }
+    if ($state eq 'V1' && /^\={7}$/) {
+	$state = 'V2';
+	$text{$state} = "";
+	next;
+    }
+    if ($state eq 'V2' && /^\>{7} /) {
+	s/'/_/g;
+	$cap{$state} = $_;
+	write_file("cvsdiffmin.$$.$count.1", $text{V1});
+	write_file("cvsdiffmin.$$.$count.2", $text{V2});
+	open (DIFF,
+	    "$diff " .
+	        " --unchanged-group-format='\%='" .
+	        " --changed-group-format='${cap{V1}}\%<=======\n\%>${cap{V2}}'" .
+	        " --old-group-format='${cap{V1}}\%<=======\n\%>${cap{V2}}'" .
+	        " --new-group-format='${cap{V1}}\%<=======\n\%>${cap{V2}}'" .
+		" cvsdiffmin.$$.$count.1" .
+		" cvsdiffmin.$$.$count.2" .
+		"|") or die "cannot invoke diff: $!";
+	while (<DIFF>) {
+	    print;
+	}
+	close(DIFF);
+	unlink ("cvsdiffmin.$$.$count.1", "cvsdiffmin.$$.$count.2")
+	    or die "cannot unlink temporary files cvsdiffmin.$$.$count.1, cvsdiffmin.$$.$count.2: $!";
+
+	
+	$state = 'EQ';
+	$count++;
+	next;
+    }
+    if ($state eq 'EQ') {
+	print;
+    } else {
+	$text{$state} .= $_;
+    }
+    
+}
+
+# vim:sw=4

cvstools/GNUmakefile

@@ -0,0 +1,38 @@
+include GNUmakevars
+
+CONFDIR=../../configure
+CONFDIR_exists=$(shell [ -d $(CONFDIR) ] && echo ok)
+
+all: configure find_cvs_not_up_to_date
+
+clean:
+	rm -f find_cvs_not_up_to_date customize
+
+distclean: clean
+
+
+install: $(BINDIR) $(BINDIR)/find_cvs_not_up_to_date
+
+%: %.pl customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+%: %.sh customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+customize: configure
+	sh ./configure
+
+ifeq ($(CONFDIR_exists),ok)
+
+configure: $(CONFDIR)/start $(CONFDIR)/perl $(CONFDIR)/finish
+	cat $^ > $@
+
+endif
+
+$(BINDIR):
+	mkdir -p $@
+
+include GNUmakerules
+

cvstools/configure

@@ -0,0 +1,34 @@
+#!/bin/sh
+#
+echo "#!/bin/sh" > customize.$$
+echo "sed \\" > customize.$$
+chmod +x customize.$$
+
+################################################################
+# find a working perl:
+#
+for i in /usr/bin/perl /usr/local/bin/perl /usr/bin/perl5 /usr/local/bin/perl5
+do
+    if $i -e 'exit ($] < 5.000)'
+    then
+	echo $i works
+	perl="$i"
+	break
+    fi
+done
+if [ -z "$perl" ]
+then
+    could not find a working perl command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@perl@@@,$perl,g' \\" >> customize.$$
+
+
+################################################################
+# finish
+#	Add trailing newline and rename temp file to final name
+#
+echo  >> customize.$$
+
+mv customize.$$ customize
+

cvstools/find_cvs_not_up_to_date.pl

@@ -0,0 +1,28 @@
+#!@@@perl@@@ -w 
+use strict;
+use File::Find;
+use Getopt::Long;
+
+my $debug = 0;
+
+sub check_cvs {
+    local $/ =
+    "===================================================================\n";
+    return unless (-d "$_/CVS");
+    print STDERR "checking $File::Find::dir/$_\n" if ($debug);
+
+    # $_ is a CVS working dir
+
+    open (CVSSTATUS, "cd $_ && cvs -q status|");
+    while(<CVSSTATUS>) {
+	print if  (/Status/ && !/Status: Up-to-date/);
+    }
+    close(CVSSTATUS);
+
+    # don't recurse, cvs already did:
+    $File::Find::prune = 1;
+}
+
+GetOptions("debug" => \$debug);
+@ARGV = (".") unless (@ARGV);
+find(\&check_cvs, @ARGV);

dbi/dumpsql

@@ -0,0 +1,177 @@
+#!/usr/bin/perl 
+
+=head1 NAME
+
+dumpsql - dump output of an SQL query
+
+=head1 SYNOPSIS
+
+dumpsql
+[ --vertical
+[ --escape ]
+|
+--xhtml
+[ --style uri ]
+]
+query
+
+=head1 DESCRIPTION
+
+Connects to the database identified by the environment variable
+DBI_CREDENTIAL_FILE, executes the query given on the command line and
+prints the output to stdout.
+
+By default the output is tab-separated. Two alternate formats are
+available: 
+
+--vertical prints each field in a separate line in "Columnname: Value"
+format. Rows are separated by empty lines. --Escape escapes unprintable
+characters.
+
+--xhtml prints the table as an XHTML file. Optionally a style sheet can
+be specified with --style.
+
+=head1 BUGS
+
+The --escape option only works with --vertical. It should also work with
+the other two styles.
+
+=cut
+
+use warnings;
+use strict;
+use DBI;
+use Getopt::Long;
+use Encode qw(:fallbacks encode);
+use I18N::Langinfo qw(langinfo CODESET);
+use Pod::Usage;
+
+my $charset = langinfo(CODESET);
+binmode STDOUT, "encoding($charset)";
+
+
+my $help;
+my $vertical;	# use vertical output format
+my $escape;	# escape non-printable characters
+my $xhtml;	# produce XHTML output
+my $style;	# produce XHTML output
+
+GetOptions(
+    'help|?'	=> \$help, 
+    'vertical'	=> \$vertical, 
+    'xhtml'	=> \$xhtml, 
+    'escape'	=> \$escape, 
+    'style:s'	=> \$style, 
+) || pod2usage(2);
+pod2usage(1) if $help;
+
+
+# read credits from file
+sub _read_cred {
+    my ($fn) = @_;
+
+    open(FN, "<$fn") or die "cannot open $fn: $!";
+    my $line = <FN>; 
+    close(FN);
+    my @cred = split(/\s+/, $line); 
+    return @cred;
+}
+
+
+my $dbh;
+
+sub dbiconnect {
+    my $cred_file = $ENV{DBI_CREDENTIAL_FILE};
+    if (! defined($cred_file)) {
+        $cred_file = "$ENV{HOME}/.dbi/default";
+    } elsif ($cred_file !~ m{/}) { 
+        $cred_file = "$ENV{HOME}/.dbi/$cred_file";
+    }
+
+    $dbh = DBI->connect(_read_cred($cred_file), {RaiseError => 1, AutoCommit => 0}); 
+
+    my $driver = $dbh->{Driver}->{Name};
+    if ($driver eq 'Pg') {
+        $dbh->{pg_enable_utf8} = 1;
+    }
+    return $dbh;
+}
+
+$dbh = dbiconnect();
+$dbh->{LongReadLen} = 0x1_0000;
+
+my $query = shift(@ARGV);
+my @args = @ARGV;
+my $sth = $dbh->prepare($query);
+$sth->execute(@args);
+if ($xhtml) {
+    print qq{<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">\n};
+    print qq{<html>\n};
+    print qq{<head>\n};
+    print qq{<title>}, xmlencode($query), qq{</title>\n};
+    if ($style) {
+	print qq{<link rel='stylesheet' type='text/css' href='},
+	      xmlencode($style),
+	      qq{'/>\n};
+    }
+    print qq{</head>\n};
+    print qq{<head>\n};
+    print qq{<body>\n};
+    print qq{<h1>}, xmlencode($query), qq{</h1>\n};
+    if (@args) {
+	print qq{<ul>\n};
+	for (@args) {
+	    print qq{<li>}, xmlencode($_), qq{</li>\n};
+	}
+	print qq{</ul>\n};
+    }
+    print qq{<table>\n};
+    print qq{<tr>},
+	  (
+	      map {
+		"<th>" . xmlencode($_) . "</th>"
+	      } @{$sth->{NAME}}
+	  ),
+	  "</tr>\n";
+    while (my @a = $sth->fetchrow_array()) {
+	print qq{<tr>},
+	      (
+		  map {
+		    "<td>"
+		    . (defined($_) ? xmlencode($_) : '<em>NULL</em>')
+		    . "</td>"
+		  } @a
+	      ),
+	      "</tr>\n";
+    }
+    print qq{</table>\n};
+    print qq{</body>\n};
+    print qq{</html>\n};
+} elsif ($vertical) {
+    while (my @a = $sth->fetchrow_array()) {
+	for my $i (0 .. $#a) {
+	    print $sth->{NAME}[$i], ": ";
+	    if ($escape) {
+		if (defined($a[$i])) {
+		    print encode("us-ascii", $a[$i], FB_PERLQQ), "\n";
+		} else {
+		    print "NULL\n";
+		}
+	    } else {
+		print $a[$i] // "NULL", "\n";
+	    }
+	}
+	print "\n";
+    }
+} else {
+    no warnings 'uninitialized';
+    print join("\t", @{$sth->{NAME}}), "\n";
+    while (my @a = $sth->fetchrow_array()) {
+	print join("\t", @a), "\n";
+    }
+}
+
+sub xmlencode {
+    my ($s) = @_;
+    return encode("us-ascii", $s, FB_XMLCREF);
+}

ddm/GNUmakefile

@@ -0,0 +1,40 @@
+# $Id: GNUmakefile,v 1.4 2002-03-18 20:49:54 hjp Exp $
+
+include GNUmakevars
+
+ddm: ddm.o
+	$(CC) $^ $(ANTLIB) -o $@
+
+ddm.o: ddm.c
+
+clean:
+	rm -f ddm ddm.o
+
+distclean: clean
+	rm -f cfg/mnttab.h
+
+install: $(SBINDIR)/ddm
+
+cfg/%.h: cfg/%.sh
+	sh $< > $@
+
+include GNUmakerules
+
+-include ddm.d
+
+# $Log: GNUmakefile,v $
+# Revision 1.4  2002-03-18 20:49:54  hjp
+# Added target distclean
+#
+# Revision 1.3  2000/06/04 16:33:20  hjp
+# Removed MNTTAB autodetection again as it seems to be already defined.
+# Don't skip rest of mountpoints if one is not accessible.
+# chdir to / while sleeping to avoid blocking automounters
+# increased default sleep interval to 1 hour max.
+#
+# Revision 1.2  2000/06/04 16:11:12  hjp
+# Added autodetection of /etc/m(nt)?tab.
+#
+# Revision 1.1  2000/06/04 15:53:18  hjp
+# Pre-Version. Options are still missing.
+#

ddm/cfg/mnttab.sh

@@ -0,0 +1,10 @@
+#!/bin/sh
+for i in /etc/mnttab /etc/mtab
+do
+    if [ -f $i ]
+    then
+	echo '#define PATH_MNTTAB "'$i'"'
+	exit 0
+    fi
+done
+exit 1

ddm/ddm.c

@@ -0,0 +1,231 @@
+char ddm_c_rcs_id[] =
+    "$Id: ddm.c,v 1.6 2001-02-21 16:02:46 hjp Exp $";
+/* 
+ * ddm - disk delay monitor
+ *
+ * chdirs to a list of filesystems (mount points by default) and does
+ * the equivalent of an ls -l.
+ */
+
+#include <assert.h>
+#include <errno.h>
+#include <stdio.h>
+#include <stdarg.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <dirent.h>
+#include <mntent.h>
+#include <sys/stat.h>
+#include <sys/time.h>
+#include <unistd.h>
+
+#include <ant/da.h>
+#include <ant/io.h>
+#include <ant/globals.h>
+
+#include "cfg/mnttab.h"
+
+
+typedef enum { MODE_NONE, MODE_ARGS, MODE_MNTTAB, MODE_DIRFILE } modeT;
+
+
+static double gettimestamp(void) {
+    struct timeval tm;
+
+    gettimeofday(&tm, NULL);
+    return tm.tv_sec + tm.tv_usec/1E6;
+}
+
+static void usage(void) {
+    fprintf(stderr, "Usage: %s [-d dirfile | -m mnttab | directory ...  ] [-s max_sleep_time]\n",
+	    cmnd);
+    exit(1);
+}
+
+void printtimestamp (const char *fmt, ...) {
+    static double lts = 0;
+    double ts = gettimestamp();
+    va_list ap;
+
+    fprintf(stderr, "%s: %.6f: %.6f: ", cmnd, ts, ts - lts);
+    va_start(ap, fmt);
+    vfprintf(stderr, fmt, ap);
+    va_end(ap);
+    lts = ts;
+}
+
+int main(int argc, char**argv) {
+    char **dirs = NULL;
+    modeT mode = MODE_NONE;
+    int nr_dirs;
+    int c;
+    char *filename = NULL;
+    double maxsleeptime = 3600;
+
+    cmnd = argv[0];
+
+    while ((c = getopt(argc, argv, "d:m:s:")) != EOF) {
+	switch (c) {
+	    char *p;
+
+	    case 'd':
+		mode = MODE_DIRFILE;
+		filename = optarg;
+		break;
+	    case 'm':
+		mode = MODE_MNTTAB;
+		filename = optarg;
+		break;
+	    case 's':
+		maxsleeptime = strtod(optarg, &p);
+		if (p == optarg || *p) usage();
+		break;
+	    case '?':
+		usage();
+	    default:
+		assert(0);
+	}
+    }
+
+    if (mode == MODE_NONE) {
+	if (optind == argc) {
+	    mode = MODE_MNTTAB;
+	    filename = PATH_MNTTAB;
+	} else {
+	    mode = MODE_ARGS;
+	    dirs = argv + optind;
+	    nr_dirs = argc - optind;
+	}
+    } else {
+	if (optind != argc) usage();
+    }
+
+
+    srand(time(NULL));
+
+    for (;;) {
+	int i;
+	int sleeptime;
+
+	/* Get list of directories 
+	 */
+	switch (mode) {
+	    case MODE_MNTTAB: {
+		FILE *mtp;
+		struct mntent *me;
+
+		printtimestamp("open %s\n", filename);
+		if ((mtp = setmntent(filename, "r")) == NULL) {
+		    fprintf(stderr, "%s: cannot open %s: %s\n",
+			    argv[0], filename, strerror(errno));
+		    exit(1);
+		}
+		for (i = 0;(me = getmntent(mtp)); i++) {
+		    DA_MKIND_INI(dirs, i, NULL);
+		    if (dirs[i]) free(dirs[i]);
+		    dirs[i] = strdup(me->mnt_dir);
+		    printtimestamp("mountpoint %s\n", dirs[i]);
+		}
+		endmntent(mtp);
+
+		nr_dirs = i;
+		break;
+	    }
+	    case MODE_DIRFILE: {
+		FILE *fp;
+		char *p;
+
+		printtimestamp("open %s\n", filename);
+		fp = efopen(filename, "r");
+		for (i = 0;(p = getline(fp)); i++) {
+		    DA_MKIND_INI(dirs, i, NULL);
+		    if (dirs[i]) free(dirs[i]);
+		    dirs[i] = strdup(p);
+		    printtimestamp("directory %s\n", dirs[i]);
+		}
+		efclose(fp);
+
+		nr_dirs = i;
+		break;
+	    }
+	    case MODE_ARGS:
+		break;
+	    default:
+		assert(0);
+	}
+
+
+	/* Now read them
+	 */
+	for (i = 0; i < nr_dirs; i++) {
+	    int j;
+	    char **entries = NULL;
+	    int nr_entries;
+	    DIR *dp;
+	    struct dirent *de;
+
+	    printtimestamp("start %s\n", dirs[i]);
+	    if (chdir(dirs[i]) == -1) {
+		printtimestamp("chdir %s failed: %s\n", dirs[i], strerror(errno));
+		continue;
+	    }
+	    printtimestamp("chdir %s ok\n", dirs[i]);
+
+	    if ((dp = opendir(".")) == NULL) {
+		printtimestamp("opendir %s failed: %s\n", dirs[i], strerror(errno));
+		continue;
+	    }
+	    for (j = 0;(de = readdir(dp)); j++) {
+		DA_MKIND_INI(entries, j, NULL);
+		if (entries[j]) free(entries[j]);
+		entries[j] = strdup(de->d_name);
+		printtimestamp("entry %s\n", entries[j]);
+	    }
+	    closedir(dp);
+	    nr_entries = j;
+
+	    for (j = 0; j < nr_entries; j++) {
+		struct stat st;
+		stat (entries[j], &st);
+		printtimestamp("stat entry %s\n", entries[j]);
+	    }
+	}
+
+	chdir("/");
+
+	sleeptime = rand() * maxsleeptime / RAND_MAX;
+	printtimestamp("sleeping %d seconds\n", sleeptime);
+	sleep(sleeptime);
+    }
+	    
+	
+    return 0;
+}
+
+/* 
+ * $Log: ddm.c,v $
+ * Revision 1.6  2001-02-21 16:02:46  hjp
+ * Added config test for mnttab again.
+ * Added option -s (max sleep time)
+ * Added script stats.sh to generate stats.
+ *
+ * Revision 1.5  2000/09/07 10:12:35  hjp
+ * Added alternate ways to specify directories to be monitored.
+ *
+ * Revision 1.4  2000/06/04 16:33:21  hjp
+ * Removed MNTTAB autodetection again as it seems to be already defined.
+ * Don't skip rest of mountpoints if one is not accessible.
+ * chdir to / while sleeping to avoid blocking automounters
+ * increased default sleep interval to 1 hour max.
+ *
+ * Revision 1.3  2000/06/04 16:19:00  hjp
+ * Fixed order of args in fprintf (segfault).
+ *
+ * Revision 1.2  2000/06/04 16:11:12  hjp
+ * Added autodetection of /etc/m(nt)?tab.
+ *
+ * Revision 1.1  2000/06/04 15:53:19  hjp
+ * Pre-Version. Options are still missing.
+ *
+ */

ddm/stats.sh

@@ -0,0 +1,7 @@
+#!/bin/sh
+
+# simple statistics (min, avg, max) for ddm output
+
+awk -F : '{ n[$4] ++; s[$4] += $3; if ($3 < min[$4]) min[$4] = $3; if ($3 > max[$4]) max[$4] = $3;  }
+END { for (i in n) { printf "%10.6f %10.6f %10.6f %s\n", min[i], s[i]/n[i], max[i], i } }' "$@" | sort -n +2
+

dns/GNUmakefile

@@ -0,0 +1,42 @@
+include GNUmakevars
+
+all: gethostbyaddr gethostbyname fqdn query check
+install: \
+	$(BINDIR)/axfr \
+	$(BINDIR)/fqdn \
+	$(BINDIR)/gethostbyaddr \
+	$(BINDIR)/gethostbyname \
+	$(BINDIR)/minnet \
+	$(BINDIR)/query \
+	$(BINDIR)/dns-inc-serial \
+
+
+clean:
+	rm -f *.bak *.o core gethostbyaddr gethostbyname fqdn check
+
+distclean: clean
+	rm -f *.d GNUmakevars GNUmakerules
+
+cfg/%:
+	$(MAKE) -C cfg all
+
+gethostbyname: gethostbyname.o hstrerror.o
+
+fqdn: fqdn.o hstrerror.o
+
+hstrerror.o: cfg/have_hstrerror.h
+
+axfr:
+
+%: %.pl
+	cp $< $@
+	chmod +x $@
+
+GNUmakevars: GNUmakevars.sh
+	sh ./$^ > $@
+GNUmakerules: GNUmakerules.sh
+	sh ./$^ > $@
+
+include GNUmakerules
+
+-include *.d

dns/GNUmakerules.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+echo "\$(BINDIR)/%: %"
+echo "\tcp \$^ \$@"

dns/GNUmakevars.sh

@@ -0,0 +1,5 @@
+#!/bin/sh
+prefix=${prefix:-/usr/local}
+echo "BINDIR=$prefix/bin"
+echo
+echo "all:"

dns/axfr.pl

@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+use strict;
+use Net::DNS;
+
+sub usage {
+    print STDERR "Usage: $0 zone nameserver\n" unless (@ARGV == 2);
+    exit(1);
+}
+
+usage() unless (@ARGV == 2);
+
+my $res = new Net::DNS::Resolver;
+$res->nameservers($ARGV[1]);
+my @zone = $res->axfr($ARGV[0]);
+if (@zone) {
+    foreach my $rr (@zone) {
+	$rr->print;
+    }
+} else {
+    print STDERR "query failed: ", $res->errorstring, "\n";
+}

dns/cfg/GNUmakefile

@@ -0,0 +1,7 @@
+all: have_hstrerror.h
+
+%.h: %.sh
+	CC='$(CC)' CFLAGS='$(CFLAGS)' LDFLAGS='$(LDFLAGS)' sh $^ > $@
+
+clean:
+	rm *.h

dns/cfg/have_hstrerror.sh

@@ -0,0 +1,11 @@
+cat > has_hstrerror_$$.c <<EOF
+#include <netdb.h>
+int main(void) { hstrerror(0); }
+EOF
+if $CC $CFLAGS has_hstrerror_$$.c $LDFLAGS -o has_hstrerror_$$
+then
+	echo '#define HAVE_HSTRERROR 1'
+else 
+	echo '#define HAVE_HSTRERROR 0'
+fi
+rm has_hstrerror_$$.c has_hstrerror_$$

dns/check-ptr

@@ -0,0 +1,68 @@
+#!/usr/bin/perl -w
+use strict;
+use Net::DNS;
+
+sub usage {
+    print STDERR "Usage: $0 ip-address\n";
+    exit(1);
+}
+
+usage() unless (@ARGV == 1);
+
+# generic resolver
+my $res0 = new Net::DNS::Resolver;
+
+my $ipv4 = $ARGV[0];
+
+my $rev_domain = join(".", reverse (split(/\./, $ipv4)), "in-addr", "arpa");
+print STDERR "$rev_domain\n";
+
+my $reply = $res0->send($rev_domain, 'PTR');
+
+if ($reply->answer) {
+    for my $rr ($reply->answer) {
+        if ($rr->type eq 'PTR') {
+            print STDERR "\t", $rr->ptrdname, "\n";
+            check_a($rr->ptrdname, $ipv4);
+        }
+    }
+} elsif ($reply->authority) {
+    for my $rr ($reply->authority) {
+        if ($rr->type eq 'SOA') {
+            print STDERR "\t", $rr->mname, "\n";
+            my $res1 = Net::DNS::Resolver->new();
+            $res1->nameservers($rr->mname);
+            my @zone = $res1->axfr($rev_domain);
+            for my $rr (@zone) {
+                if ($rr->type eq 'PTR') {
+                    print STDERR "\t\t", $rr->ptrdname, "\n";
+                    my $ipv4 = join(".", (reverse(split(/\./, $rr->name)))[2..5]);
+                    check_a($rr->ptrdname, $ipv4);
+                }
+            }
+        }
+    }
+} else {
+    $reply->print
+}
+
+sub check_a {
+    my ($domain_name, $a) = @_;
+    # check that $domain_name resolves to $a
+
+    my $reply = $res0->send($domain_name, 'A');
+
+    if ($reply->answer) {
+        for my $rr ($reply->answer) {
+            if ($rr->type eq 'A') {
+                print STDERR "\t\t", $rr->address, "\n";
+                if ($rr->address eq $a) {
+                    print STDERR "\t\t\tfound\n";
+                    return 1;
+                }
+            }
+        }
+    }
+    print " $a $domain_name FWD_FAIL\n";
+    return 0;
+}

dns/check.pl

@@ -0,0 +1,317 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Net::DNS;
+
+sub usage {
+    print STDERR "Usage: $0 domainname-or-ip-address\n";
+    exit(1);
+}
+
+my $verbose;
+
+if (($ARGV[0] || '') eq '-v') {
+    $verbose = 1;
+    shift @ARGV;
+}
+
+usage() unless (@ARGV == 1);
+
+# generic resolver
+my $res0 = new Net::DNS::Resolver;
+
+# special resolver to query specific nameservers
+my $res1 = new Net::DNS::Resolver;
+my $zone;
+if ($ARGV[0] =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
+    check_ptr($ARGV[0]);
+} else {
+    check_a($ARGV[0]);
+}
+check_zone($ARGV[0]) if ($zone);
+
+exit 0;
+
+my %addr_to_name;
+my %name_to_addr;
+
+sub check_ptr {
+    my ($addr, $name) = @_;
+
+    my @names;
+    if (defined $addr_to_name{$addr}) {
+        @names = @{ $addr_to_name{$addr} };
+    } else {
+        # XXX - ipv6?
+        my $q = join('.', reverse (split(/\./, $addr)), "in-addr", "arpa");
+        my $reply = $res0->send($q, 'PTR');
+        for my $ans ($reply->answer) {
+            if ($ans->type eq 'PTR') {
+                push @names, $ans->ptrdname;
+            } else {
+                die "cannot happen";
+            }
+        }
+        if (@names == 0) {
+            print "[$addr] $q has no PTR record\n";
+        }
+        $addr_to_name{$addr} = \@names;
+	get_zone($reply) unless $zone;
+    }
+    if ($name) {
+        unless (grep { $_ eq $name } @names) {
+            print "$name not found in PTR records of [$addr]\n";
+        }
+        return;
+    }
+    for my $name (@names) {
+	print "I: [$addr] -> $name\n" if $verbose;
+        check_a($name, $addr);
+    }
+}
+
+sub check_a {
+    my ($name, $addr) = @_;
+
+    my @addrs;
+    if (defined $name_to_addr{$name}) {
+        @addrs = @{ $name_to_addr{$name} };
+    } else {
+        my $reply = $res0->send($name, 'A');
+        for my $ans ($reply->answer) {
+            if ($ans->type eq 'A') {
+                push @addrs, $ans->address;
+	    } elsif ($ans->type eq 'CNAME') {
+		die "cnames not yet supported";
+            } else {
+                print "unexpected response to A query for $name\n";
+		$ans->print;
+            }
+        }
+         if (@addrs == 0) {
+            print "$name has no A record\n";
+        }
+        $name_to_addr{$name} = \@addrs;
+	get_zone($reply) unless $zone;
+    }
+    if ($addr) {
+        unless (grep { $_ eq $addr } @addrs) {
+            print "[$addr] not found in A records of $name\n";
+        }
+        return;
+    }
+    for my $addr (@addrs) {
+	print "I: $name -> [$addr]\n" if $verbose;
+        check_ptr($addr, $name);
+    }
+}
+
+sub get_zone {
+    my ($reply) = @_;
+
+    for my $auth ($reply->authority) {
+	if (defined $zone) {
+	    if ($zone ne $auth->name) {
+		print "inconsistent authority RRs:\n";
+		print $auth->print;
+		print "doesn't match previously found zone $zone\n";
+	    }
+	} else {
+	    $zone = $auth->name;
+	}
+    }
+}
+
+sub check_zone {
+    my ($name) = @_;
+
+    my $rootns = chr(rand(13) + 65) . ".root-servers.net.";
+    my $reply = $res0->send($rootns, 'A');
+    my @ns = (($reply->answer)[0]->address);
+    my %authns;
+    my %seen;
+    while (@ns) {
+	my $ns = shift (@ns);
+	$res1->nameservers($ns);
+	my $reply = $res1->send($zone, 'NS');
+
+	# if the reply contains a non-empty answer section, use it as
+	# a list of authoritative name servers.
+	if ($reply->answer) {
+	    for my $rr ($reply->answer) {
+		if ($rr->type eq 'NS') {
+		    print STDERR "$ns reported NS ", $rr->nsdname, "\n";;
+
+		    $authns{$ns}{$rr->nsdname} = 1;
+		    $authns{ALL}{$rr->nsdname} = 1;
+		    for (get_addresses($rr->nsdname)) {
+			unless ($seen{$_}) {
+			    push @ns, $_;
+			    $seen{$_} = 1;
+			}
+		    }
+		}
+	    }
+	    next;
+	}
+	#
+	if ($reply->authority) {
+	    for my $rr ($reply->authority) {
+		if ($rr->type eq 'NS') {
+		    if ($rr->name eq $name) {
+			# if the reply contains an authority section with the right
+			# domain, use it as a list of authoritative name servers.
+			print STDERR "$ns reported NS ", $rr->nsdname, "\n";;
+
+			$authns{$ns}{$rr->nsdname} = 1;
+			$authns{ALL}{$rr->nsdname} = 1;
+			for (get_addresses($rr->nsdname)) {
+			    unless ($seen{$_}) {
+				push @ns, $_;
+				$seen{$_} = 1;
+			    }
+			}
+		    } else {
+			# Otherwise, just add the nameservers from the authority section
+			# to the list of nameservers still to query.
+			for (get_addresses($rr->nsdname)) {
+			    unless ($seen{$_}) {
+				push @ns, $_;
+				$seen{$_} = 1;
+			    }
+			}
+		    }
+		}
+	    }
+	    next;
+	}
+
+	
+    }
+
+    # We must make sure that we get a result from all authoritative
+    # name servers
+    #
+    # XXX
+    #
+    # Isn't that included in the next test? If an authoritative
+    # nameserver doesn't answer, it will be reported as not reporting 
+    # all nameservers.
+
+    # All lists of nameservers must be identical.
+    #
+    for my $authns (sort keys %{ $authns{ALL} }) {
+	for my $origns (sort keys %authns) {
+	    print "$origns doesn't report $authns\n" unless $authns{$origns}{$authns};
+	}
+    }
+
+    my @noaxfr;
+    my %zone;
+    for my $authns (sort keys %{ $authns{ALL} }) {
+	$res1->nameservers($authns);
+	my @zone = $res1->axfr($zone);
+	push @noaxfr, $authns unless @zone;
+	for my $rr (@zone) {
+	    my $key = rr2key($rr);
+
+	    $zone{$authns}{$rr->name}{$rr->type}{$key} = 1;
+	    $zone{ALL}{$rr->name}{$rr->type}{$key} = 1;
+	}
+    }
+    for my $authns (@noaxfr) {
+	$res1->nameservers($authns);
+	for my $name (sort keys %{ $zone{ALL} }) {
+	    for my $type (sort keys %{ $zone{ALL}{$name} }) {
+		my $reply = $res1->send($name, $type);
+		for my $rr ($reply->answer) {
+		    if ($rr->type eq $type) {
+			my $key = rr2key($rr);
+			$zone{$authns}{$rr->name}{$rr->type}{$key} = 1;
+			$zone{ALL}{$rr->name}{$rr->type}{$key} = 1;
+		    }
+		}
+	    }
+	}
+    }
+    for my $authns (sort keys %zone) {
+	# next if $authns eq 'ALL';
+	for my $name (sort keys %{ $zone{ALL} }) {
+	    for my $type (sort keys %{ $zone{ALL}{$name} }) {
+		for my $key (sort keys %{ $zone{ALL}{$name}{$type} }) {
+		    unless ($zone{$authns}{$name}{$type}{$key}) {
+			print STDERR "$authns is missing $name $type $key\n";
+		    }
+		}
+	    }
+	}
+    }
+
+
+}
+
+sub get_addresses {
+    my ($name) = @_;
+    my @addrs;
+    my $reply = $res0->send($name, 'A');
+    for my $rr ($reply->answer) {
+	if ($rr->type eq 'A') {
+	    push @addrs, $rr->address;
+	}
+	# XXX - resolve CNAMEs?
+    }
+    return @addrs;
+}
+
+sub rr2key {
+    my ($rr) = @_;
+
+    my $key;
+
+    if ($rr->type eq 'A') {
+	$key = $rr->address;
+    } elsif ($rr->type eq 'SOA') {
+	$key = join(' ', $rr->mname, $rr->rname, $rr->serial, $rr->refresh, $rr->retry, $rr->expire, $rr->minimum);
+    } elsif ($rr->type eq 'NS') {
+	$key = $rr->nsdname;
+    } elsif ($rr->type eq 'MX') {
+	$key = join(' ', $rr->preference, $rr->exchange);
+    } elsif ($rr->type eq 'CNAME') {
+	$key = $rr->cname;
+    } elsif ($rr->type eq 'TXT') {
+	$key = $rr->txtdata;
+    } elsif ($rr->type eq 'SRV') {
+	$key = join(' ', $rr->priority, $rr->weight, $rr->port, $rr->target);
+    } elsif ($rr->type eq 'PTR') {
+	$key = $rr->ptrdname;
+    } elsif ($rr->type eq 'HINFO') {
+	$key = join(' ', $rr->cpu, $rr->os);
+    } elsif ($rr->type eq 'LOC') {
+	# sloppy
+	my ($lat, $lon) = $rr->latlon;
+	$key = join(' ', $lat, $lon, $rr->altitude);
+    } else {
+	print STDERR "unhandled RR:\n";
+	print STDERR $rr->string, "\n";
+	exit(1);
+    }
+    return $key;
+}
+
+# Notes:
+# 
+# for every a record, check ptr.
+#
+# for every ptr, check a
+#
+# find the zone (authority section).
+#
+# Check name servers (starting at random root).
+#
+# Try axfr.
+# check each record:
+#  the same on all nameservers?
+#  A to PTR and vice versa
+#  MX 
+#
+# vim: tw=0 sw=4 expandtab

dns/dns-inc-serial

@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Getopt::Long;
+use Net::DNS::Resolver;
+
+my $cfg;
+GetOptions('config:s' => \$cfg);
+
+my %file2zone;
+my $res;
+
+if ($cfg) {
+    # XXX - this is very simplistic
+    open(my $fh, '<', $cfg) or die "cannot open $cfg: $!";
+    my $currentzone;
+    while (<$fh>) {
+	if (/zone "(.*?)"/) {
+	    $currentzone = $1;
+	} elsif (m{file ".*/(.*)"}) {
+	    $file2zone{$1} = $currentzone;
+	}
+    }
+    $res = Net::DNS::Resolver->new();
+}
+
+for my $f (@ARGV) {
+    my $maxserial = 0;
+    if (my $zone = $file2zone{$f}) {
+	my $reply = $res->send($zone, 'NS');
+	my @nsnames;
+	for my $ans ($reply->answer) {
+	    push @nsnames, $ans->nsdname;
+	}
+	my @nsips;
+	for (@nsnames) {
+	    my $reply = $res->send($_, 'A');
+	    for my $ans ($reply->answer) {
+		push @nsips, $ans->address if $ans->type eq 'A';
+	    }
+	}
+	for (@nsips) {
+	    $res->nameservers($_);
+	    my $reply = $res->send($zone, 'SOA');
+	    for my $ans ($reply->answer) {
+		if ($ans->type eq 'SOA') {
+		    # XXX assume no wraparound
+		    if ($ans->serial > $maxserial) {
+			$maxserial = $ans->serial;
+		    }
+		}
+	    }
+	}
+    }
+    open (my $in, '<', "$f") or die "cannot open $f: $!";
+    open (my $out, '>', "$f.new") or die "cannot open $f.new: $!";
+    while (<$in>) {
+	if (/(.*\bSOA\b.*?)(\d+)( \d+ \d+ \d+ \d+)/) {
+	    my $serial = $2;
+	    $maxserial = $serial if ($serial > $maxserial);
+	    $maxserial++;
+	    print $out "$1$maxserial$3\n";
+	} else {
+	    print $out $_;
+	}
+    }
+    close($out) or die "cannot close $f.new: $!";
+    rename "$f.new", $f || die "cannot rename $f.new to $f: $!";
+}

dns/fix_negative_ttl

@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use autodie;
+
+for my $zonefile (@ARGV) {
+    open my $in, '<', $zonefile;
+    open my $out, '>', "$zonefile.$$";
+    while (<$in>) {
+        # @               SOA     ns1.wsr.ac.at. hostmaster.wsr.ac.at. 1957 14400 3600 604800 86400
+        if ( my ($prefix, $master, $rp, $serial, $refresh, $retry, $expire, $negttl)
+                = m/(.*)SOA\s+(\S+)\s+(\S+)\s(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\d+)/
+        ) {
+            # maximum time recommended by RFC 2308, also enforced by
+            # BIND (by default).
+            if ($negttl >= 3 * 3600) {
+                $negttl = 3600;
+                $serial++;
+            }
+            print $out "${prefix}SOA\t$master $rp $serial $refresh $retry $expire $negttl\n";
+        } else {
+            print $out $_;
+        }
+    }
+    rename "$zonefile.$$", $zonefile;
+}
+

dns/fqdn.c

@@ -0,0 +1,80 @@
+/*
+ * fqdn - print fully qualified domain name(s)
+ *
+ * resolve all host names given on the comman line and print their
+ * fully qualified canonical names.
+ *
+ * If no argument is given, print the system's FQDN.
+ */
+
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <unistd.h>
+#include <netdb.h>
+
+#include "hstrerror.h"
+
+char cvs_id[] = "$Id: fqdn.c,v 1.5 2004-05-17 18:13:46 hjp Exp $";
+
+char *cmnd;
+
+void usage(void) {
+    fprintf(stderr, "Usage: %s [hostname ...]\n", cmnd);
+    exit(1);
+}
+
+int main(int argc, char **argv) {
+    int i;
+    int rc = 0;
+    char hostname[256];
+    char *fake_argv[] = { NULL, hostname, NULL };
+
+    cmnd = argv[0];
+
+    if (argc < 2) {
+	if (gethostname(hostname, sizeof(hostname)) == -1) {
+	    fprintf(stderr, "%s: cannot get hostname: %s\n",
+		    cmnd, strerror(errno));
+	    exit(1);
+	}
+	argv = fake_argv;
+	argc = 2;
+    }
+
+    for (i = 1; i < argc; i++) {
+	struct hostent *he = gethostbyname(argv[i]);
+	int found = 0;
+
+	if (!he) {
+	    fprintf(stderr, "%s: cannot resolve %s: %s\n",
+	    	    cmnd, argv[i], hstrerror(h_errno));
+	    rc++;
+	    continue;
+	}
+
+	if (strchr(he->h_name, '.')) {
+	    printf("%s\n", he->h_name);
+	    found = 1;
+	} else {
+	    char **a;
+	    fprintf(stderr, "Canonical name doesn't contain a dot.\n");
+	    fprintf(stderr, "Please shoot the administrator of this box.\n");
+	    fprintf(stderr, "In the mean time I try to find a suitable alias.\n");
+	    for (a = he->h_aliases; !found && *a; a++) {
+		if (strchr(*a, '.')) {
+		    printf("%s\n", *a);
+		    found = 1;
+		}
+	    }
+	    if (!found) {
+		fprintf(stderr, "No alias, either. Consider more painful methods than shooting.\n");
+		rc++;
+	    }
+	}
+
+    }
+    return rc;
+}

dns/gethostbyaddr.c

@@ -0,0 +1,57 @@
+#include <netdb.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "hstrerror.h"
+
+char *cmnd;
+
+void usage(void) {
+    fprintf(stderr, "Usage: %s [hostname ...]\n", cmnd);
+    exit(1);
+}
+
+int main(int argc, char **argv) {
+    int i;
+    int rc = 0;
+
+    cmnd = argv[0];
+
+    if (argc < 2) {
+	usage();
+    }
+
+    for (i = 1; i < argc; i++) {
+        struct in_addr ia;
+        if (!inet_aton(argv[i], &ia)) {
+            fprintf(stderr, "%s: cannot parse %s\n",
+                    argv[0], argv[i]);
+            continue;
+        }
+	struct hostent *he = gethostbyaddr(&ia, sizeof(ia), AF_INET);
+	char **a;
+
+	if (!he) {
+	    fprintf(stderr, "%s: cannot resolve %s: %s\n",
+	    	    argv[0], argv[i], hstrerror(h_errno));
+	    rc++;
+	    continue;
+	}
+
+	printf("%s\n", argv[i]);
+	printf("\tCanonical:  %s\n", he->h_name);
+	for (a = he->h_aliases; *a; a++) {
+	    printf("\tAlias:      %s\n", *a);
+	}
+	for (a = he->h_addr_list; *a; a++) {
+	    int j;
+	    printf("\tAddress:    ");
+	    for (j = 0; j < he->h_length; j++) {
+		printf("%s%d", j ? "." : "", (unsigned char)(*a)[j]);
+	    }
+	    printf("\n");
+	}
+	printf("\n");
+    }
+    return rc;
+}

dns/gethostbyname.c

@@ -0,0 +1,51 @@
+#include <netdb.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "hstrerror.h"
+
+char *cmnd;
+
+void usage(void) {
+    fprintf(stderr, "Usage: %s [hostname ...]\n", cmnd);
+    exit(1);
+}
+
+int main(int argc, char **argv) {
+    int i;
+    int rc = 0;
+
+    cmnd = argv[0];
+
+    if (argc < 2) {
+	usage();
+    }
+
+    for (i = 1; i < argc; i++) {
+	struct hostent *he = gethostbyname(argv[i]);
+	char **a;
+
+	if (!he) {
+	    fprintf(stderr, "%s: cannot resolve %s: %s\n",
+	    	    argv[0], argv[i], hstrerror(h_errno));
+	    rc++;
+	    continue;
+	}
+
+	printf("%s\n", argv[i]);
+	printf("\tCanonical:  %s\n", he->h_name);
+	for (a = he->h_aliases; *a; a++) {
+	    printf("\tAlias:      %s\n", *a);
+	}
+	for (a = he->h_addr_list; *a; a++) {
+	    int j;
+	    printf("\tAddress:    ");
+	    for (j = 0; j < he->h_length; j++) {
+		printf("%s%d", j ? "." : "", (unsigned char)(*a)[j]);
+	    }
+	    printf("\n");
+	}
+	printf("\n");
+    }
+    return rc;
+}

dns/hstrerror.c

@@ -0,0 +1,11 @@
+#include "cfg/have_hstrerror.h"
+#include "hstrerror.h"
+
+#if (!HAVE_HSTRERROR)
+const char *hstrerror(int err) {
+    static char errstr[80];
+
+    snprintf(errstr, sizeof(errstr), "resolver error %d", err);
+    return errstr;
+}
+#endif

dns/hstrerror.h

@@ -0,0 +1 @@
+const char * hstrerror(int err);

dns/minnet

@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+my $min = 0xFFFF_FFFF;
+my $max = 0x0000_0000;
+
+for (@ARGV) {
+    if (/(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
+	my $adr = $1 * 0x100_0000 + $2 * 0x1_0000 + $3 * 0x100 + $4;
+	$max = $adr if ($adr > $max);
+	$min = $adr if ($adr < $min);
+    }
+}
+
+my $diff = $min ^ $max;
+
+# printf "min = %08x max = %08x diff = %08x\n", $min, $max, $diff;
+
+my $netmaskbits = 32;
+my $netmask = 0xFFFF_FFFF;
+
+while ($diff > 0) {
+    $netmaskbits--;
+    $diff >>= 1;
+    $netmask <<= 1;
+}
+
+my $net = $min & $netmask;
+my $bcast = $min | ~$netmask;
+
+printf "net = %s/%d (%s/%s) bcast = %s\n",
+       dottedquad($net),
+       $netmaskbits,
+       dottedquad($net),
+       dottedquad($netmask),
+       dottedquad($bcast);
+
+sub dottedquad {
+    my ($adr) = @_;
+    return sprintf "%d.%d.%d.%d",
+		   ($adr >> 24) & 0xFF,
+		   ($adr >> 16) & 0xFF,
+		   ($adr >>  8) & 0xFF,
+		   ($adr >>  0) & 0xFF;
+}
+
+exit(0);

dns/query

@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+use strict;
+use Net::DNS;
+
+sub usage {
+    print STDERR "Usage: $0 domainname type nameserver\n" unless (@ARGV == 2);
+    exit(1);
+}
+
+usage() unless (@ARGV == 3);
+
+my $res = new Net::DNS::Resolver;
+$res->nameservers($ARGV[2]);
+my $answer = $res->query($ARGV[0], $ARGV[1]);
+if ($answer) {
+    $answer->print;
+} else {
+    print STDERR "query failed: ", $res->errorstring, "\n";
+}

dup/removeduplicatemails

@@ -0,0 +1,52 @@
+#!/usr/bin/perl 
+use warnings;
+use strict;
+
+use File::Find;
+
+use MIME::Parser;
+my $parser = new MIME::Parser;
+$parser->output_to_core(1);
+$parser->tmp_to_core(1);
+
+my %files;
+my %messages;
+sub check_file {
+    unless (-f) {
+	return;
+    }
+    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+        $atime,$mtime,$ctime,$blksize,$blocks) = stat(_);
+    if ($files{"$dev.$ino"}) {
+	# we already looked at this file - skip
+	return;
+    }
+    my $entity = $parser->parse_open($_);
+    unless ($entity) {
+	print STDERR "$File::Find::name cannot be parsed: skipping\n";
+	return;
+    }
+    my $mid =  $entity->head->get('Message-Id');
+    unless ($mid) {
+	print STDERR "$File::Find::name contains no message id: skipping\n";
+	return;
+    }
+    if ($messages{$mid}) {
+	# duplicate!
+	print STDERR "$File::Find::name is a duplicate of ",
+		     $files{$messages{$mid}},
+		     "\n";
+	my $ft = $File::Find::name;
+	$ft =~ s|(.*/)(.*)|$1|;
+	$ft .= "removedups.$$." . rand;
+	link ($files{$messages{$mid}}, $ft) && rename ($ft, $File::Find::name) || do {
+	    print STDERR "\terror: $!\n";
+	};
+	return;
+    } 
+    $messages{$mid} = "$dev.$ino";
+    $files{"$dev.$ino"} = $File::Find::name;
+}
+
+find(\&check_file, @ARGV);
+

dup/removedups

@@ -0,0 +1,57 @@
+#!/usr/bin/perl 
+use warnings;
+use strict;
+
+use File::Find;
+use Digest::SHA1;
+use Data::Dumper;
+
+my %files;
+sub check_file {
+    unless (-f) {
+	return;
+    }
+    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+        $atime,$mtime,$ctime,$blksize,$blocks) = stat(_);
+    $files{$size}{i}{"$dev.$ino"}{n}{$File::Find::name} = 1;
+}
+
+print STDERR "sorting files by size\n";
+find(\&check_file, @ARGV);
+print STDERR "... done\n";
+
+for my $s (sort { $a <=> $b } keys %files) {
+    print STDERR "checking files of size $s\n";
+    if (scalar keys %{$files{$s}{i}} == 1) {
+	print STDERR "only one file of size $s: skipping\n";
+    } else {
+	for my $i (keys %{$files{$s}{i}}) {
+	    my $f = (keys %{$files{$s}{i}{$i}{n}})[0];
+	    if (open (F, "<", $f)) {
+		# print STDERR "\tcomputing checksum of $f\n";
+		my $sha1 = Digest::SHA1->new;
+		$sha1->addfile(*F);
+		my $d = $sha1->b64digest;
+		if ($files{$s}{d}{$d}) {
+		    print STDERR "\t\tduplicate found\n";
+		    my $fo = (keys %{$files{$s}{d}{$d}{n}})[0];
+		    for my $fd (keys %{$files{$s}{i}{$i}{n}}) {
+			print "\t\t\tlinking $fd to $fo\n";
+			my $ft = $fd;
+			$ft =~ s|(.*/)(.*)|$1|;
+			$ft .= "removedups.$$." . rand;
+			link ($fo, $ft) && rename ($ft, $fd) || do {
+			    print STDERR "\t\t\t\terror: $!\n";
+			}
+		    }
+		} else {
+		    $files{$s}{d}{$d} = $files{$s}{i}{$i};
+		}
+	    } else {
+		print STDERR "cannot open $f: $!: ignoring\n";
+	    }
+	    delete $files{$s}{i}{$i};
+	}
+	# print Dumper $files{$s};
+    }
+}

duwatch/GNUmakefile

@@ -0,0 +1,9 @@
+install: $(ROOT)/usr/local/bin/duwatch
+install_all:
+	make install ROOT=/nfs/wsrdb
+	make install ROOT=/nfs/wifosv
+	make install ROOT=/nfs/ihssv
+	make install ROOT=/nfs/wsrcom
+
+$(ROOT)/usr/local/bin/%: %
+	install $< $@

duwatch/duwatch

@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+$avgfile = "/usr/local/lib/duwatch.avg";
+$root = "/";
+$thresh = 20000;
+$period = 30;
+
+open AVG, $avgfile || die;
+while (<AVG>) {
+	($size, $name) = split;
+	$avgdu{$name} = $size;
+	$all{$name} = 1;
+}
+close AVG;
+
+open NEW, "/bin/du -t hfs $root |" || die;
+while (<NEW>) {
+	($size, $name) = split;
+	$size /= 2;	# du reports 512 byte blocks :-(
+	if ($size < $thresh) {next};
+	$newdu{$name} = $size;
+	$all{$name} = 1;
+}
+close NEW;
+
+for $i (keys %all) {
+	if ($newdu{"$i"} > 2 * ($avgdu{"$i"})) {
+		printf "%s: %d -> %d\n", $i, $avgdu{$i}, $newdu{$i};
+	}
+	$avgdu{$i} = ($avgdu{$i} * ($period - 1) + $newdu{$i}) / $period;
+}
+
+open AVG, ">" . $avgfile || die;
+for $i (keys %avgdu) {
+	printf AVG "%d %s\n", $avgdu{$i}, $i;
+}
+close AVG;

errno/GNUmakefile

@@ -0,0 +1,48 @@
+# $Id: GNUmakefile,v 1.8 2016-07-05 19:52:03 hjp Exp $
+# $Log: GNUmakefile,v $
+# Revision 1.8  2016-07-05 19:52:03  hjp
+# Add target distclean
+#
+# Revision 1.7  2011-01-30 19:41:15  hjp
+# Replaced GNUmakerules.sh with GNUmakerules.pl because Debian now uses a
+# /bin/sh which doesn't understand echo -e.
+#
+# Revision 1.6  2011-01-30 19:33:28  hjp
+# removed duplicate rules
+#
+# Revision 1.5  2011-01-30 19:32:33  hjp
+# create GNUmakerules and GNUmakevars
+#
+# Revision 1.4  2008-04-05 10:04:53  hjp
+# added GNUmake*.sh
+#
+# Revision 1.3  2003/02/14 11:59:43  hjp
+# Added list of #defines from HP-UX.
+#
+# Revision 1.2  1998/05/31 01:20:06  hjp
+# GNUmakerules split into GNUmakerules and GNUmakevars.
+#
+
+include GNUmakevars
+
+all: errno
+
+errno: errno.o errno_list.o
+errno_list.c: errno.list make_errno_list
+	./make_errno_list
+
+clean:
+	rm errno
+
+distclean: clean
+	rm -f GNUmakevars GNUmakerules errno_list.c
+
+install: $(BINDIR)/errno
+
+GNUmakevars: GNUmakevars.sh
+	sh ./$^ > $@
+GNUmakerules: GNUmakerules.pl
+	perl ./$^ > $@
+
+include GNUmakerules
+-include *.d

errno/GNUmakerules.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+print "\$(BINDIR)/%: %\n";
+print "\tcp \$^ \$@\n";
+print "\$(MAN1DIR)/%: %\n";
+print "\tcp \$^ \$@\n";

errno/GNUmakevars.sh

@@ -0,0 +1,15 @@
+#!/bin/sh
+prefix=${prefix:-/usr/local}
+echo "BINDIR=$prefix/bin"
+
+for i in "$prefix/share/man/man1" "$prefix/man/man1"
+do
+	if [ -d "$i" -a -w "$i" ]
+	then
+		echo "MAN1DIR=$i"
+		break;
+	fi
+done
+
+echo
+echo "all:"

errno/errno.c

@@ -0,0 +1,61 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "errno_list.h"
+
+char errno_c_rcs_id[] = "$Id: errno.c,v 1.5 2003-02-27 13:28:45 hjp Exp $";
+char *cmnd;
+
+int main(int argc, char **argv) {
+    int i;
+
+    cmnd = argv[0];
+
+    if (argc <= 1) {
+	int i;
+	for (i = 0; i < wke_nr; i++) {
+	    int e = wke[i].number;
+	    char *d = wke[i].define;
+	    printf("%d\t%s\t%s\n", e, d, strerror(e));
+	}
+    } else {
+	for (i = 1; i < argc; i++) {
+	    char *p;
+	    int e = strtoul(argv[i], &p, 0);
+
+	    if (*p) {
+		/* This is not a number, so we assume it is a define */
+		char *d = argv[i];
+		int j;
+
+		for (j = 0; j < wke_nr; j++) {
+		    if (strcmp(wke[j].define, d) == 0) {
+			e = wke[j].number;
+			printf("%d\t%s\t%s\n", e, d, strerror(e));
+			break;
+		    }
+		}
+
+	    } else {
+		/* it is a number */
+		char *d = "(unknown)";
+		int j;
+
+		for (j = 0; j < wke_nr; j++) {
+		    if (wke[j].number == e) {
+			d = wke[j].define;
+			break;
+		    }
+		}
+
+		printf("%d\t%s\t%s\n", e, d, strerror(e));
+	    }
+
+	}
+    }
+    return 0;
+}
+/*
+ * vim:sw=4
+ */

errno/errno.list

@@ -0,0 +1,137 @@
+E2BIG
+EACCES
+EADDRINUSE
+EADDRNOTAVAIL
+EADV
+EAFNOSUPPORT
+EAGAIN
+EALREADY
+EBADE
+EBADF
+EBADFD
+EBADMSG
+EBADR
+EBADRQC
+EBADSLT
+EBADVER
+EBFONT
+EBUSY
+ECANCELED
+ECHILD
+ECHRNG
+ECOMM
+ECONFIG
+ECONNABORTED
+ECONNREFUSED
+ECONNRESET
+EDEADLK
+EDEADLOCK
+EDESTADDRREQ
+EDOM
+EDOTDOT
+EDQUOT
+EEXIST
+EFAULT
+EFBIG
+EHOSTDOWN
+EHOSTUNREACH
+EIDRM
+EILSEQ
+EINPROGRESS
+EINTR
+EINVAL
+EIO
+EISCONN
+EISDIR
+EISNAM
+EL2HLT
+EL2NSYNC
+EL3HLT
+EL3RST
+ELIBACC
+ELIBBAD
+ELIBEXEC
+ELIBMAX
+ELIBSCN
+ELNRNG
+ELOOP
+EMEDIUMTYPE
+EMFILE
+EMLINK
+EMSGSIZE
+EMULTIHOP
+ENAMETOOLONG
+ENAVAIL
+ENETDOWN
+ENETRESET
+ENETUNREACH
+ENFILE
+ENOANO
+ENOBUFS
+ENOCSI
+ENODATA
+ENODEV
+ENOENT
+ENOEXEC
+ENOLCK
+ENOLINK
+ENOLOAD
+ENOMATCH
+ENOMEDIUM
+ENOMEM
+ENOMSG
+ENONET
+ENOPKG
+ENOPROTOOPT
+ENOREG
+ENOSPC
+ENOSR
+ENOSTR
+ENOSYM
+ENOSYS
+ENOTBLK
+ENOTCONN
+ENOTDIR
+ENOTEMPTY
+ENOTNAM
+ENOTSOCK
+ENOTSUP
+ENOTTY
+ENOTUNIQ
+ENOUNLD
+ENOUNREG
+ENXIO
+EOPNOTSUPP
+EOVERFLOW
+EPERM
+EPFNOSUPPORT
+EPIPE
+EPROTO
+EPROTONOSUPPORT
+EPROTOTYPE
+ERANGE
+EREFUSED
+ERELOC
+EREMCHG
+EREMOTE
+EREMOTEIO
+EREMOTERELEASE
+ERESTART
+EROFS
+ESHUTDOWN
+ESOCKTNOSUPPORT
+ESPIPE
+ESRCH
+ESRMNT
+ESTALE
+ESTRPIPE
+ETIME
+ETIMEDOUT
+ETOOMANYREFS
+ETXTBSY
+EUCLEAN
+EUNATCH
+EUSERS
+EWOULDBLOCK
+EXDEV
+EXFULL

errno/errno_list.h

@@ -0,0 +1,9 @@
+#include <stddef.h>
+
+typedef struct {
+    int number;
+    char *define;
+} errno_T;
+
+extern errno_T wke[];
+extern const size_t wke_nr;

errno/make_errno_list

@@ -0,0 +1,11 @@
+echo '#include <errno.h>' > errno_list.c
+echo '#include "errno_list.h"' >> errno_list.c
+echo 'errno_T wke[] = {' >> errno_list.c
+for e in `cat errno.list`
+do
+    echo "    #if defined($e)" >> errno_list.c
+    echo "        { $e, \"$e\" }," >> errno_list.c
+    echo "    #endif" >> errno_list.c
+done
+echo '};' >> errno_list.c
+echo 'const size_t wke_nr = sizeof(wke)/sizeof(wke[0]);' >> errno_list.c

fact/GNUmakefile

@@ -0,0 +1,35 @@
+include GNUmakevars
+
+CONFDIR=../../configure
+CONFDIR_exists=$(shell [ -d $(CONFDIR) ] && echo ok)
+
+all: configure fact
+
+clean:
+	rm fact customize
+
+install: $(BINDIR) $(BINDIR)/fact
+
+%: %.pl customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+%: %.sh customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+customize: configure
+	sh ./configure
+
+ifeq ($(CONFDIR_exists),ok)
+
+configure: $(CONFDIR)/start $(CONFDIR)/perl $(CONFDIR)/finish
+	cat $^ > $@
+
+endif
+
+$(BINDIR):
+	mkdir -p $@
+
+include GNUmakerules
+

fact/configure

@@ -0,0 +1,34 @@
+#!/bin/sh
+#
+echo "#!/bin/sh" > customize.$$
+echo "sed \\" > customize.$$
+chmod +x customize.$$
+
+################################################################
+# find a working perl:
+#
+for i in /usr/bin/perl /usr/local/bin/perl /usr/bin/perl5 /usr/local/bin/perl5
+do
+    if $i -e 'exit ($] < 5.000)'
+    then
+	echo $i works
+	perl="$i"
+	break
+    fi
+done
+if [ -z "$perl" ]
+then
+    could not find a working perl command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@perl@@@,$perl,g' \\" >> customize.$$
+
+
+################################################################
+# finish
+#	Add trailing newline and rename temp file to final name
+#
+echo  >> customize.$$
+
+mv customize.$$ customize
+

fact/fact.pl

@@ -0,0 +1,31 @@
+#!@@@perl@@@ -w
+use strict;
+
+sub usage {
+    print STDERR "Usage: $0 number\n";
+    exit(1);
+}
+
+sub fact {
+    my ($n) = @_;
+
+    my $d = 2;
+
+    my @f = ();
+
+    while ($d <= $n) {
+	if ($n % $d == 0) {
+	    push (@f, $d);
+	    $n /= $d;
+	} else {
+	    $d++;
+	}
+    }
+    return @f;
+}
+
+if (@ARGV != 1) { usage(); }
+my @f = fact($ARGV[0]);
+print "@f\n";
+
+#vim:sw=4

filesize/filesize

@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use File::Find;
+
+my %seen;
+my %hist;
+
+sub collect {
+    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+	$atime,$mtime,$ctime,$blksize,$blocks) = lstat($_);
+    return if $seen{"$dev:$ino"};
+    $hist{$size}++;
+    $seen{"$dev:$ino"} = 1;
+}
+
+find(\&collect, @ARGV ? @ARGV : ("."));
+
+my $total_count;
+for my $c (values %hist) {
+    $total_count += $c;
+}
+
+my $ac = 0;
+for my $s (sort {$a <=> $b } keys %hist) {
+    $ac += $hist{$s};
+    printf "%g %g %6.2f\n", $s, $ac, 100 * $ac/$total_count;
+}
+

findproxy/findproxy

@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use LWP::UserAgent;
+use Time::HiRes qw(time);
+
+my $verbose = 0;
+
+my $ua = LWP::UserAgent->new();
+
+my @proxies;
+for my $proxy (@ARGV) {
+    print STDERR "trying proxy $proxy\n" if $verbose;
+    $ua->proxy('http', $proxy);
+    my $t0 = time();
+    my $response = $ua->get('http://www.hjp.at');
+    if ($response->is_success) {
+	my $dt = time() - $t0;
+	print STDERR "\tsucceded in $dt seconds\n" if $verbose;
+	push @proxies, [ $dt, $proxy ];
+    } else {
+	print STDERR "\tfailed\n" if $verbose;
+    }
+}
+
+if (@proxies) {
+    @proxies = sort { $a->[0] <=> $b->[0] } @proxies;
+    print $proxies[0]->[1], "\n";
+} else {
+    print STDERR "no proxies found\n" if $verbose;
+}

fix2var/Makefile

@@ -0,0 +1,9 @@
+BINDIR=/usr/local/bin
+CC = gcc
+CFLAGS = -Wall -ansi -pedantic -O2 -g
+fix2var: fix2var.o
+	$(CC) $^ -lant -o $@
+
+install: $(BINDIR)/fix2var
+$(BINDIR)/%: %
+	install $< $@

fix2var/fix2var.c

@@ -0,0 +1,94 @@
+char fix2var_c_rcs_id[] = 
+	"$Id: fix2var.c,v 1.1 1996-08-30 12:25:22 hjp Exp $";
+/* 
+ * fix2var - convert fixed length record data to line oriented format
+ *
+ * This program simply copies fixed length chunks from a file to 
+ * stdout. Each chunk is terminated with a '\n' character. 
+ * Optionally trailing white space can be stripped.
+ *
+ * $Log: fix2var.c,v $
+ * Revision 1.1  1996-08-30 12:25:22  hjp
+ * Initial release.
+ *
+ */
+#include <assert.h>
+#include <ctype.h>
+#include <limits.h>
+#include <stdio.h>
+#include <ant/io.h>
+#include <ant/alloc.h>
+
+char *cmnd;
+
+unsigned long width = 80;
+int strip = 1;
+
+void usage(void) {
+    fprintf(stderr, "Usage: %s [-l width] [file ...]\n", cmnd);
+    exit(1);
+}
+
+
+void fix2var(const char *filename) {
+    FILE *fp;
+    char *buf = emalloc(width+1);
+    size_t rc;
+    int i;
+
+    if (strcmp(filename, "-") == 0) {
+    	fp = stdin;
+    } else {
+	fp = efopen(filename, "r");
+    }
+    while ((rc = fread (buf, 1, width, fp)) != 0 && (rc != (size_t)-1)) {
+	if (rc < width) {
+	    fprintf(stderr, "%s: warning: short record (%lu bytes)"
+		    " encountered\n", cmnd, (unsigned long)rc);
+	}
+	assert (rc <= INT_MAX);
+	if (strip) {
+	    for (i = rc - 1; i >= 0 && isspace(buf[i]); i--);
+	    buf[i+1] = '\0';
+	} else {
+	    buf[rc] = '\0';
+	}
+	puts(buf);
+    }
+
+    fclose(fp);
+    free(buf);
+}
+
+
+int main(int argc, char **argv) {
+    int c;
+    int i;
+    char *p;
+
+    cmnd = argv[0];
+
+    while ((c = getopt(argc, argv, "sw:")) != EOF) {
+	switch (c) {
+	    case 's':
+		strip= 1;
+		break;
+	    case 'w':
+		width= strtoul(optarg, &p, 0);
+		if (width == 0 || *p) usage();
+		break;
+	    case '?':
+	    	usage();
+	    default:
+		assert(0);
+	}
+    }
+    if (optind == argc) {
+    	fix2var("-");
+    } else {
+	for (i = optind; i < argc; i++) {
+	    fix2var(argv[i]);
+	}
+    }
+    return 0;
+}

fortune/Makefile

@@ -0,0 +1,16 @@
+CC	= gcc
+CFLAGS	= -O2
+
+BINDIR	= /usr/local/bin
+
+fortune: fortune.c
+	$(CC) $(CFLAGS)	-o fortune fortune.c -lant
+	
+clean:
+	rm fortune core
+
+install: $(BINDIR)/fortune
+
+$(BINDIR)/fortune: fortune
+	cp fortune $(BINDIR)/fortune
+

fortune/fortune.c

@@ -0,0 +1,213 @@
+/*
+ *	Fortune -- Print one fortune out of an indexed fortune file
+ */
+
+static char fortune_c_rcsid[] = "$Id: fortune.c,v 3.4 1994-01-08 18:05:00 hjp Exp $";
+
+#include <assert.h>
+#include <errno.h>
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#include <ant/io.h>
+#include <ant/string.h>
+#include <ant/globals.h>
+
+/*	The following parameters will have to be adapted to your system	*/
+#define DELIMITER	"%%\n"
+#define MAXLINE		(80 + 1 + 1)
+char * fortunefile	= "/usr/lib/fortune.dat";
+char indexfile [PATH_MAX] = "/usr/lib/fortune.idx";
+#define RECLEN		4	/* length of a record in the index
+				 * file. This would normally be the 
+				 * size of a long, but could be more
+				 * or less if you want the program
+				 * run on systems with different lengths
+				 * of a long and share the same index
+				 * file.
+				 */
+/*	The rest should be generic	*/
+
+
+
+void fwritelong (FILE *fp, long offset, long value) {
+	unsigned char c [RECLEN];
+
+	assert (value < (1UL << (8 * RECLEN - 1)));
+
+	if (fseek (fp, offset, SEEK_SET) != 0) {
+		eprintf ("%s: cannot seek to %ld in %s: %s\n",
+			 cmnd, offset, indexfile, strerror (errno));
+		exit (1);
+	}
+
+	c [0] = value & 0xFF;
+	c [1] = (value >> 8) & 0xFF;
+	c [2] = (value >> 16) & 0xFF;
+	c [3] = (value >> 24) & 0xFF;
+
+	if (fwrite (c, RECLEN, 1, fp) != 1) {
+		eprintf ("%s: cannot write to %s: %s\n",
+			 cmnd, indexfile, strerror (errno));
+		exit (1);
+	}
+}
+
+long freadlong (FILE *fp, long offset) {
+	unsigned char	c [RECLEN];
+	unsigned long	value;
+
+	if (fseek (fp, offset, SEEK_SET) != 0) {
+		eprintf ("%s: cannot seek to %ld in %s: %s\n",
+			 cmnd, offset, indexfile, strerror (errno));
+		exit (1);
+	}
+
+	if (fread (c, RECLEN, 1, fp) != 1) {
+		eprintf ("%s: cannot write to %s: %s\n",
+			 cmnd, indexfile, strerror (errno));
+		exit (1);
+	}
+
+	value = c [0] + (c [1] << 8) + (c [2] << 16) + (c [3] << 24);
+	return value > LONG_MAX ? - (long) (- value) : value;
+}
+
+
+	int
+main(
+	int argc,
+	char **argv
+){
+	FILE 		* ffp, * ifp;
+	char		* p;
+	long		pos, ipos,	/* position in fortune and
+					 * index file 
+					 */
+			cnt,		/* Number of fortunes in the file
+					 */
+			nr,		/* number of fortune to read	*/
+			fortune_time;	/* time the fortune file was last
+					 * updated.
+					 */
+	struct stat	statbuf;
+	char		line [MAXLINE];
+
+	cmnd = argv [0];
+
+	if (argc >= 2){
+		fortunefile = argv [1];
+		strncpy (indexfile, argv [1], PATH_MAX);
+		if ((p = strrchr (indexfile, '.'))) {
+			strcpy (p, ".idx");
+		} else {
+			strcat (indexfile, ".idx");
+		}
+	}
+#ifdef DEBUG
+	printf ("fortunefile = \"%s\"\n", fortunefile);
+	printf ("indexfile   = \"%s\"\n", indexfile);
+#endif /* DEBUG */
+
+	/*	First check if index file is younger than fortune file
+	 *	and rebuild it if necessary.
+	 */
+
+	if (stat (fortunefile, &statbuf) < 0) {
+		eprintf ("%s: Cannot stat \"%s\": %s",
+			argv [0], fortunefile, strerror (errno));
+		exit (1);
+	}
+	fortune_time = statbuf.st_mtime;
+	if (stat (indexfile, &statbuf) < 0) {
+		/*	Index file does not exit -- force its creation
+		 *	and pretend it is older than fortune file
+		 */
+
+		if ((ifp = fopen (indexfile, "wb")) == NULL) {
+			eprintf ("%s: Cannot fopen \"%s\": %s",
+				argv [0], indexfile, strerror (errno));
+			exit (3);
+		}
+		fclose (ifp);
+		statbuf.st_mtime = 0;
+	}
+	if (statbuf.st_mtime < fortune_time) {
+		/*	Index file does either not exist or is older
+		 *	than fortune file.
+		 */
+
+		if ((ffp = fopen (fortunefile, "r")) == NULL) {
+			eprintf ("%s: Cannot fopen \"%s\": %s",
+				argv [0], fortunefile, strerror (errno));
+			exit (2);
+		}
+		if ((ifp = fopen (indexfile, "r+b")) == NULL) {
+			eprintf ("%s: Cannot fopen \"%s\": %s",
+				argv [0], indexfile, strerror (errno));
+			exit (3);
+		}
+		cnt = 0;
+		fwritelong (ifp, 0, cnt);
+		ipos = RECLEN * 2;
+		while (fgets (line, sizeof (line), ffp)) {
+			if (STREQ (line, DELIMITER)) {
+				pos = ftell (ffp);
+				fwritelong (ifp, ipos, pos);
+				++ cnt;
+				ipos += RECLEN;
+			}
+		}
+		fwritelong (ifp, 0, cnt);
+		fclose (ifp);
+		fclose (ffp);
+	}
+
+	/* Now that we have a valid index file, open it and choose a fortune
+	 */
+
+	if ((ifp = fopen (indexfile, "r+b")) == NULL) {
+		eprintf ("%s: Cannot fopen \"%s\": %s",
+			argv [0], indexfile, strerror (errno));
+		exit (4);
+	}
+
+	if ((ffp = fopen (fortunefile, "r")) == NULL) {
+		eprintf ("%s: Cannot fopen \"%s\": %s",
+			argv [0], fortunefile, strerror (errno));
+		exit (5);
+	}
+
+	/*	Get number of entries	*/
+	cnt = freadlong (ifp, 0);
+
+	if (cnt == 0) {
+		eprintf ("%s: empty fortune file\n", argv [0]);
+		exit (6);
+	}
+
+	nr = freadlong (ifp, RECLEN);
+	nr ++;
+	if (nr >= cnt) nr = 0;
+	fwritelong (ifp, RECLEN, nr);
+
+	/* Now look for the start of the fortune in the index file	*/
+	pos = freadlong (ifp, (nr + 2) * RECLEN);
+
+	/* And seek to it in the fortune file	*/
+	fseek (ffp, pos, SEEK_SET);
+
+	/* write one fortune	*/
+	while (fgets (line, sizeof (line), ffp) && ! STREQ (line, DELIMITER)) {
+		fputs (line, stdout);
+	}
+	fclose (ifp);
+	fclose (ffp);
+	return 0;
+}

fotoindex/GNUmakefile

@@ -0,0 +1,13 @@
+include GNUmakevars
+include GNUmakerules
+
+fotoindex:
+
+install: /usr/local/bin/fotoindex
+
+
+/usr/local/man/man8/%.8: %.man
+	$(INSTALL) $< $@
+
+clean:
+	rm -f *.gif *.jpg core foo bar baz

fotoindex/fotoindex

@@ -0,0 +1,57 @@
+#!/usr/local/bin/perl
+#
+# Combine several images into an index image (e.g., for use as an imagemap).
+#
+# Usage: fotoindex [-o outputfile] [templatefile]
+#
+# The first three lines give the width and height of the thumbnails and
+# the number of thumbnails per row. The remaining lines are file names
+# of the images to be combined.
+
+open(STDERR, ">/tmp/fotoindex.$$.debug");
+
+$giftopnm = "/usr/local/bin/giftopnm";
+$pnmscale = "/usr/local/bin/pnmscale";
+$pbmmake = "/usr/local/bin/pbmmake";
+$pnmpaste = "/usr/local/bin/pnmpaste";
+$cjpeg = "/usr/local/bin/cjpeg";
+
+if ($ARGV[0] eq "-o") {
+    shift;
+    $outputredirect = ">" . shift;
+}
+
+@file = (<>);
+chomp(@file);
+
+# Remove empty and comment lines
+for ($i = 0; $i <= $#file;) {
+    if ($file[$i] =~ m/^(\#|\s*$)/ ) {
+	splice(@file, $i, 1);
+    } else {
+	$i++;
+    }
+}
+
+$tnw = shift(@file);
+$tnh = shift(@file);
+$fw = shift(@file);
+$fh = int(($#file + 1 + ($fw - 1)) / $fw);
+
+system ("$pbmmake " . $fw * $tnw . " " . $fh * $tnh . "> /tmp/fotoindex.$$.1.pnm");
+
+
+for ($i = 0; $i < $fh; $i ++) {
+    for ($j = 0; $j < $fw; $j++) {
+	$pic = $file[$i * $fw + $j];
+	if (-f $pic) {
+	    $cmnd = "$giftopnm $pic | $pnmscale -xysize $tnw $tnh > $pic.$$.pnm";
+	    system ($cmnd);
+	    system ("$pnmpaste $pic.$$.pnm " . $j * $tnw . " " . $i * $tnh . " /tmp/fotoindex.$$.1.pnm > /tmp/fotoindex.$$.2.pnm");
+	    rename ("/tmp/fotoindex.$$.2.pnm", "/tmp/fotoindex.$$.1.pnm");
+	    unlink ("$pic.$$.pnm");
+	}
+    }
+}
+system("$cjpeg -progressive /tmp/fotoindex.$$.1.pnm $outputredirect");
+unlink ("/tmp/fotoindex.$$.1.pnm");

ftcp/GNUmakefile

@@ -0,0 +1,13 @@
+include GNUmakevars
+include GNUmakerules
+
+ftcp: ftcp.o
+	$(CC) $^ -o $@
+
+clean:
+	rm -f *.o ftcp core foo bar
+
+install: $(BINDIR)/ftcp
+
+distclean: clean
+	rm -f *.bak *.d

ftcp/ftcp.c

@@ -0,0 +1,105 @@
+char ftcp_rcs_id[] = 
+    "$Id: ftcp.c,v 1.1 2002-03-18 20:40:08 hjp Exp $";
+/* 
+    ftcp - fault tolerant copy
+
+    copy one file to another, ignoring any errors.
+    This is useful for copying files from defective media.
+ */
+#include <assert.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <time.h>
+#include <unistd.h>
+
+#include <ant/io.h>
+#include <ant/string.h>
+
+char *cmnd;
+
+
+off_t skip_size = 512;
+size_t buf_size = 512;
+
+static void usage(void)
+{
+    fprintf(stderr, "Usage: %s [-s skip_size] source dest\n", cmnd);
+    exit(1);
+}
+
+
+static int ftcp(char const *src, char const *dest)
+{
+  int sfd, dfd, count;
+  char *buf;
+  off_t off = 0;
+
+  if ((buf = malloc(buf_size)) == NULL) {
+    return -1;
+  }
+  sfd = open(src, O_RDONLY);
+  if (sfd < 0)
+    return -1;
+  dfd = open(dest, O_WRONLY|O_CREAT|O_TRUNC, 0666);
+  if (dfd < 0)
+  {
+    close(sfd);
+    return -1;
+  }
+  for (;;) {
+    lseek(sfd, off, SEEK_SET);
+    count = read(sfd, buf, buf_size);
+    switch (count) {
+	case -1:
+	    fprintf(stderr, "%s: error at offset %lu: %s\n",
+	    	    cmnd, (unsigned long)off, strerror(errno));
+	    off += skip_size;
+	    break;
+	case 0:
+	    goto the_end;
+	default:
+	    lseek(dfd, off, SEEK_SET);
+	    write(dfd, buf, count);
+	    off += count;
+    }
+  }
+  the_end:
+	    
+  close(sfd);
+  close(dfd);
+  return 0;
+}
+
+
+
+int main(int argc, char **argv)
+{
+    int c;
+    char *p;
+
+    cmnd = argv[0];
+
+    while ((c = getopt(argc, argv, "s:")) != EOF) {
+	switch (c) {
+	case 's':
+            skip_size = strtoul(optarg, &p, 0);
+            if (p == optarg || *p != '\0') usage();
+            break;
+	case '?':
+	    usage();
+	default:
+	    assert(0);
+	}
+    }
+
+    if (optind != argc - 2) {
+	usage();
+    }
+    ftcp(argv[optind], argv[optind+1]);
+    return 0;
+}

grouptools/GNUmakefile

@@ -0,0 +1,36 @@
+include GNUmakevars
+
+CONFDIR=../../configure
+CONFDIR_exists=$(shell [ -d $(CONFDIR) ] && echo ok)
+
+all: configure grouplist groupmatch groupcount
+
+clean:
+	rm grouplist groupmatch
+
+install: \
+	$(BINDIR)/grouplist \
+	$(BINDIR)/groupmatch \
+	$(BINDIR)/groupcount \
+
+
+%: %.pl customize
+	sh ./customize < $< > $@
+	chmod +x $@
+
+customize: configure
+	sh ./configure
+
+ifeq ($(CONFDIR_exists),ok)
+
+configure: $(CONFDIR)/start $(CONFDIR)/perl $(CONFDIR)/finish
+	cat $^ > $@
+
+endif
+
+GNUmakevars: GNUmakevars.sh
+	sh ./$^ > $@
+GNUmakerules: GNUmakerules.pl
+	perl ./$^ > $@
+
+include GNUmakerules

grouptools/GNUmakerules.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+print "\$(BINDIR)/%: %\n";
+print "\tcp \$^ \$@\n";
+print "\$(MAN1DIR)/%: %\n";
+print "\tcp \$^ \$@\n";

grouptools/GNUmakerules.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+echo "\$(BINDIR)/%: %"
+echo -e "\tcp \$^ \$@"

grouptools/GNUmakevars.sh

@@ -0,0 +1,5 @@
+#!/bin/sh
+prefix=${prefix:-/usr/local}
+echo "BINDIR=$prefix/bin"
+echo
+echo "all:"

grouptools/configure

@@ -0,0 +1,34 @@
+#!/bin/sh
+#
+echo "#!/bin/sh" > customize.$$
+echo "sed \\" > customize.$$
+chmod +x customize.$$
+
+################################################################
+# find a working perl:
+#
+for i in /usr/bin/perl /usr/local/bin/perl /usr/bin/perl5 /usr/local/bin/perl5
+do
+    if $i -e 'exit ($] < 5.000)'
+    then
+	echo $i works
+	perl="$i"
+	break
+    fi
+done
+if [ -z "$perl" ]
+then
+    echo could not find a working perl command, sorry.
+    exit 1
+fi
+echo "  -e 's,@@@perl@@@,$perl,g' \\" >> customize.$$
+
+
+################################################################
+# finish
+#	Add trailing newline and rename temp file to final name
+#
+echo  >> customize.$$
+
+mv customize.$$ customize
+

grouptools/groupcount.pl

@@ -0,0 +1,52 @@
+#!@@@perl@@@ -w
+
+=head1 NAME
+
+groupcount - count number of groups of all users
+
+=head1 SYNOPSIS
+
+groupcount
+
+=head1 DESCRIPTION
+
+This script counts the number of groups each user is a member of.
+
+=head1 AUTHOR
+
+Peter J. Holzer <hjp@wsr.ac.at>
+
+=head1 SEE ALSO
+
+id(1)
+
+=cut
+
+use strict;
+use Getopt::Long;
+
+my $debug = 0;
+my $fullname = 0;
+GetOptions("debug" => \$debug,
+           "fullname" => \$fullname);
+           
+
+my $u = {};
+my $g = {};
+
+while (my @gr = getgrent()) {
+
+    my ($name,$passwd,$gid,$members) = @gr;
+    $g->{$gid} = $name;
+    for my $i (split(/ /, $members)) {
+	print STDERR "getgrent: $gid: $i\n" if($debug);
+	$u->{$i}{$name} = 1;
+    }
+}
+
+while (my @pw = getpwent()) {
+    my ($name,$passwd,$uid,$gid, $quota,$comment,$gcos,$dir,$shell,$expire) = @pw;
+    $u->{$name}{$g->{$gid}} = 1;
+    printf("%-10s %3d\n", $name, scalar(keys(%{$u->{$name}})));
+}
+

grouptools/grouplist.pl

@@ -0,0 +1,85 @@
+#!@@@perl@@@ -w
+
+=head1 NAME
+
+groulist - list all members of a group
+
+=head1 SYNOPSIS
+
+grouplist [--fullname] group
+
+=head1 DESCRIPTION
+
+This script lists all members of a group.
+For each user, the loginname, whether this is the primary or a supplemental group 
+of the user, and optionally the full name (from the GECOS field) is printed.
+
+=head2 Options
+
+=over 4
+
+=item --fullname
+
+Print the GECOS field.
+
+=item --debug
+
+Prints some debug output to stderr.
+
+=back
+
+=head1 AUTHOR
+
+Peter J. Holzer <hjp@wsr.ac.at>
+
+=head1 SEE ALSO
+
+id(1)
+
+=cut
+
+use strict;
+use Getopt::Long;
+
+my $debug = 0;
+my $fullname = 0;
+GetOptions("debug" => \$debug,
+           "fullname" => \$fullname);
+           
+
+my $u = {};
+
+my @gr;
+@gr = getgrnam($ARGV[0]);
+unless (@gr) {
+    print STDERR "$0: Group $ARGV[0] not found\n";
+    exit(1);
+}
+
+my ($name,$passwd,$gid,$members) = @gr;
+for my $i (split(/ /, $members)) {
+    print STDERR "getgrent: $gid: $i\n" if($debug);
+    $u->{$i}{s} = 1;
+}
+
+while (my @pw = getpwent()) {
+    my ($name,$passwd,$uid,$ugid, $quota,$comment,$gcos,$dir,$shell,$expire) = @pw;
+    print STDERR "getpwent: $ugid: $name\n" if($debug);
+    if ($ugid == $gid) {
+	$u->{$name}{p} = 1;
+	$u->{$name}{fn} = $gcos;
+    }
+}
+
+for my $i (keys %$u) {
+    printf("%-10s %1s%1s", $i, $u->{$i}{p} ? "p" : " ", $u->{$i}{s} ? "s" : " ");
+    if ($fullname) {
+	if (!$u->{$i}{fn}) {
+	    my @pw = getpwnam($i);
+	    my ($name,$passwd,$uid,$ugid, $quota,$comment,$gcos,$dir,$shell,$expire) = @pw;
+	    $u->{$i}{fn} = $gcos;
+	}
+	printf(" %s", $u->{$i}{fn});
+    }
+    print "\n";
+}

grouptools/groupmatch.pl

@@ -0,0 +1,128 @@
+#!@@@perl@@@ -w
+
+=head1 NAME
+
+groupmatch - find best matching group for list of users
+
+=head1 SYNOPSIS
+
+groupmatch [--cut value] [--allmembers] [--debug] [--miss value] user ...
+
+=head1 DESCRIPTION
+
+This script takes a list of users and prints the group(s) which 
+are the closest match (i.e. have the least number of missing or 
+superfluous users).
+
+For each group, the gid, group name, number of differences, and list of
+users which are missing (marked (-)) or too much (+) is printed.
+
+=head2 Options
+
+=over 4
+
+=item --cut value
+
+Sets the cutoff value. Only groups with at most this number of
+differences to the specified list of users are printed. By default the
+cutoff value is set so that only the best matching group(s) are printed.
+
+=item --allmembers
+
+Prints all members of the group, not only the differences to the
+specified list. Users which are already in the group are marked (*).
+
+=item --debug
+
+Prints some debug output to stderr.
+
+=item --miss value
+
+Penalty for missing users in a group. Default is 1, i.e., a user missing
+is just as bad as a superfluous user. Larger values bias towards groups
+with too many users, smaller values bias towards groups with too few users.
+
+=back
+
+=head1 AUTHOR
+
+Peter J. Holzer <hjp@wsr.ac.at>
+
+=head1 SEE ALSO
+
+id(1)
+
+=cut
+
+use strict;
+use Getopt::Long;
+
+sub diffsym {
+    my ($diff) = @_;
+    if ($diff == 0) { return "*"; }
+    if ($diff < 0)  { return "-"; }
+    if ($diff > 0)  { return "+"; }
+    return "?";
+}
+
+my $cut = undef;
+my $debug = 0;
+my $allmembers = 0;
+my $miss = 1;
+GetOptions("cut=i" => \$cut,
+           "debug" => \$debug,
+           "allmembers" => \$allmembers,
+	   "miss=f" => \$miss,
+          );
+my $gr = {};
+
+my @gr;
+while (@gr = getgrent) {
+    my ($name,$passwd,$gid,$members) = @gr;
+    for my $i (split(/ /, $members)) {
+	print STDERR "getgrent: $gid: $i\n" if($debug);
+	$gr->{$gid}->{Members}->{$i} = 1;
+	$gr->{$gid}->{Name} = $name;
+    }
+}
+my @pw;
+while (@pw = getpwent()) {
+    my ($name,$passwd,$uid,$gid, $quota,$comment,$gcos,$dir,$shell,$expire) = @pw;
+    print STDERR "getpwent: $gid: $name\n" if($debug);
+    $gr->{$gid}->{Members}->{$name} = 1;
+
+}
+for my $g (keys %$gr) {
+    for my $u (@ARGV) {
+	$gr->{$g}->{Members}->{$u} = (($gr->{$g}->{Members}->{$u} || 0) - 1) * $miss;
+    }
+    my $score = 0;
+    for my $u (keys(%{$gr->{$g}->{Members}})) {
+	$score += abs($gr->{$g}->{Members}->{$u});
+    }
+    print STDERR "$g: $score\n" if($debug);
+    $gr->{$g}->{Score} = $score;
+}
+if ($debug) {
+    print STDERR "\nScore list:\n";
+    for my $g (keys %$gr) {
+	print STDERR "$g: ", $gr->{$g}->{Score}, "\n";
+    }
+    print STDERR "\n";
+}
+
+for my $g (sort { $gr->{$a}->{Score} <=> $gr->{$b}->{Score} } keys %$gr) {
+    $cut = $gr->{$g}->{Score} unless ($cut);
+    next unless ($gr->{$g}->{Name});
+    last if ($gr->{$g}->{Score} > $cut);
+
+    print "$g: ",
+           $gr->{$g}->{Name}, ": ",
+           $gr->{$g}->{Score}, ": ";
+    for my $u (sort keys(%{$gr->{$g}->{Members}})) {
+	if ($allmembers || $gr->{$g}->{Members}->{$u}) {
+	    print "$u(", diffsym($gr->{$g}->{Members}->{$u}), ") ";
+	}
+    }
+    print "\n";
+}

hogs/cpuhog.c

@@ -0,0 +1,3 @@
+int main(void) {
+	for (;;);
+}

hogs/cpuhogt

@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use v5.20;
+use warnings;
+
+use Time::HiRes qw(time);
+my $t0 = time;
+for (;;) {
+    my $dt = time - $t0;
+    last if $dt > $ARGV[0];
+}

hogs/malloc.c

@@ -0,0 +1,10 @@
+#include <stdlib.h>
+#include <stdio.h>
+
+int main(int argc, char **argv) {
+    size_t size = strtoul(argv[1], NULL, 0);
+    char *p = malloc(size);
+    printf("%zu bytes at %p\n", size, p);
+    sleep(10);
+    return 0;
+}

hogs/memhog.c

@@ -0,0 +1,31 @@
+#include <errno.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+int main(void) {
+        size_t s = 0x100000;
+	size_t sum = 0;
+
+        while (s) {
+                void *p;
+		errno = 0;
+                if (p = malloc(s)) {
+			sum += s;
+                        printf("%lu - %lu\n",
+			       (unsigned long)s,
+			       (unsigned long)sum);
+                        sleep (1);
+                        memset(p, 'a', s);
+			s *= 2;
+                } else {
+                        printf("%lu - %lu: %s\n",
+			       (unsigned long)s,
+			       (unsigned long)sum,
+			       strerror(errno)
+			      );
+                        s /= 2;
+                }
+        }
+        return 0;
+}

ieeefloat/.gitignore

@@ -0,0 +1 @@
+ieeefloat

ieeefloat/GNUmakefile

@@ -0,0 +1,20 @@
+include GNUmakevars
+
+all: ieeefloat
+install: $(BINDIR)/ieeefloat
+
+clean:
+	rm -f *.bak *.o core ieeefloat
+
+distclean: clean
+	rm -f *.d GNUmakerules GNUmakevars
+
+ieeefloat: ieeefloat.o
+
+GNUmakevars: GNUmakevars.sh
+	sh ./$^ > $@
+GNUmakerules: GNUmakerules.sh
+	sh ./$^ > $@
+
+include GNUmakerules
+-include *.d