add tools

bin/lskeytab

@@ -0,0 +1 @@
+../kerberos/lskeytab

bin/merge-dirs

@@ -0,0 +1 @@
+../misc/merge-dirs

bin/wget-raw-archive.org

@@ -0,0 +1 @@
+../web/wget-raw-archive.org

kerberos/lskeytab

@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use List::MoreUtils 'uniq';
+use feature 'say';
+
+my %hosts;
+my %services;
+
+my $skip = 3;
+for my $line (`klist -k`) {
+	next if $skip and $skip--;
+	if ($line =~ /^\s*(\d+)\s+(\S+)@(\S+)$/) {
+		my ($kvno, $princ, $realm) = ($1, $2, $3);
+		my ($svc, $host) = split(m|/|, $princ, 2);
+		push @{$hosts{$host}}, $svc;
+		push @{$services{$svc}}, $host;
+	}
+}
+
+while (my ($host, $services) = each %hosts) {
+	say "host $host:";
+	my @sv;
+	for my $service (uniq sort {lc $a cmp lc $b} @$services) {
+		push @sv, $service;
+	}
+	say "    ", join(", ", @sv);
+}

misc/merge-dirs

@@ -0,0 +1,14 @@
+#!/usr/bin/env bash
+dest=$1
+sources=( "${@:2}" )
+
+find "${sources[@]}" -type d -printf '%P\0' |
+sort -z -u |
+while read -r -d '' dir; do
+	mkdir -v -p "$dest/$dir"
+done
+
+find "${sources[@]}" -type f -printf '%H\0%P\0' |
+while read -r -d '' fsource && read -r -d '' fpath; do
+	cp -v -a "$fsource/$fpath" "$dest/$fpath"
+done

web/wget-raw-archive.org

@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+# wget-raw-archive.org - download raw archive.org pages bypassing robots
+args=()
+for arg; do
+	if [[ $arg == 'http://'* ]]; then
+		arg=${arg/'/http:/'/'id_/http:/'}
+	fi
+	args+=("$arg")
+done
+exec wget -e robots=off "${args[@]}"