Remove some obsolete scripts.

diff --git a/catylog.pl b/catylog.pl
deleted file mode 100755 (executable)
index 61e1861..0000000
--- a/catylog.pl
+++ /dev/null
@@ -1,2 +0,0 @@
-#! /usr/bin/perl -p
-s/(?:^|.)\xfe// while /\xfe/;

diff --git a/debian-mirror b/debian-mirror
deleted file mode 100755 (executable)
index 58e4678..0000000
--- a/debian-mirror
+++ /dev/null
@@ -1,153 +0,0 @@
-#!/bin/sh -e
-# Anon rsync partial mirror of Debian with package pool support.
-# Copyright 1999, 2000 by Joey Hess <joeyh@debian.org>, GPL'd.
-# Beaten on by Colin Watson <cjwatson@debian.org>.
-
-# Flags to pass to rsync. More can be specified on the command line.
-# These flags are always passed to rsync:
-FLAGS="$@ -rLpt --partial"
-# These flags are not passed in when we are getting files from pools.
-# In particular, --delete is a horrid idea at that point, but good here.
-FLAGS_NOPOOL="$FLAGS --exclude Packages --delete"
-# And these flags are passed in only when we are getting files from pools.
-# Remember, do _not_ include --delete.
-FLAGS_POOL="$FLAGS"
-# The host to connect to. Currently must carry both non-us and main
-# and support anon rsync, which limits the options somewhat.
-HOST=ftp.uk.debian.org
-# Where to put the mirror (absolute path, please):
-DEST=/mirror/debian
-# The distribution to mirror:
-DIST=unstable
-# Architecture to mirror:
-ARCH=i386
-# Should source be mirrored too?
-SOURCE=yes
-# The sections to mirror (main, non-free, etc):
-SECTIONS="main contrib non-free"
-# Should a contents file kept up to date?
-CONTENTS=yes
-# Should symlinks be generated to every deb, in an "all" directory?
-# I find this is very handy to ease looking up deb filenames.
-SYMLINK_FARM=no
-
-###############################################################################
-
-mkdir -p $DEST/dists $DEST/pool $DEST/non-US/pool
-
-# Snarf the contents file.
-if [ "$CONTENTS" = yes ]; then
-       mkdir -p $DEST/misc
-       rsync $FLAGS_NOPOOL \
-               $HOST::debian/dists/$DIST/Contents-${ARCH}.gz \
-               $DEST/misc/
-fi
-
-if [ "$SOURCE" = yes ]; then
-       SOURCE=source
-else
-       SOURCE=""
-fi
-
-# Download packages files (and .debs and sources too, until we move fully
-# to pools).
-for type in binary-${ARCH} $SOURCE; do
-       for section in $SECTIONS; do
-               mkdir -p $DEST/non-US/dists/$DIST/non-US/$section/$type
-               rsync $FLAGS_NOPOOL \
-                       $HOST::debian/non-US/dists/$DIST/non-US/$section/$type \
-                       $DEST/non-US/dists/$DIST/non-US/$section/
-               mkdir -p $DEST/dists/$DIST/$section/$type
-               rsync $FLAGS_NOPOOL \
-                       $HOST::debian/dists/$DIST/$section/$type \
-                       $DEST/dists/$DIST/$section/
-       done
-done
-
-# Update the non-US package pool.
-# TODO: probably needs to be optimized, we'll see as time goes by..
-cd $DEST/non-US/pool || exit 1
-rm -f .filelist
-
-# Get a list of all the files that are in the pool based on the Packages
-# files that were already updated. Thanks to aj for the awk-fu.
-for file in `find $DEST/non-US -name Packages.gz | \
-               xargs -r zgrep -i ^Filename: | cut -d ' ' -f 2 | grep ^pool/` \
-           `find $DEST/non-US -name Sources.gz | xargs -r zcat | \
-                   awk '/^Directory:/ {D=$2} /Files:/,/^$/ { \
-                       if ($1 != "Files:" && $0 != "") print D "/" $3; \
-               }' | grep ^pool/`
-do
-       DIRS="`dirname $file` $DIRS"
-       echo $file >> .filelist
-done
-
-# Remove leading "pool" from all files in the file list.
-# The "./" we change it to is there so the file names
-# exactly match in the delete step and the files that get downloaded
-# are not deleted.
-sed 's!^pool/!./!' .filelist > .filelist.new
-mv -f .filelist.new .filelist
-
-(cd .. && mkdir -p $DIRS)
-# Tell rsync to download only the files in the list. The exclude is here 
-# to make the recursion not get anything else.
-# TODO: main pool needs to be donwloaded from too, once there is one.
-rsync $FLAGS_POOL \
-       $HOST::debian/non-US/pool/ --include-from .filelist --exclude '*' .
-echo non-US pool rsynced
-exit 0
-# Delete all files that are not in the list, then any empty directories.
-# This also kills the filelist.
-find -type f | fgrep -vxf .filelist | xargs -r rm -f
-find -type d -empty | xargs -r rmdir -p --ignore-fail-on-non-empty
-# End of non-US package pool update.
-
-# Update the package pool.
-# TODO: probably needs to be optimized, we'll see as time goes by..
-cd $DEST/pool || exit 1
-rm -f .filelist
-
-# Get a list of all the files that are in the pool based on the Packages
-# files that were already updated. Thanks to aj for the awk-fu.
-for file in `find $DEST -name non-US -prune -o -name Packages.gz | \
-               xargs -r zgrep -i ^Filename: | cut -d ' ' -f 2 | grep ^pool/` \
-           `find $DEST -name non-US -prune -o -name Sources.gz | \
-               xargs -r zcat | \
-                   awk '/^Directory:/ {D=$2} /Files:/,/^$/ { \
-                       if ($1 != "Files:" && $0 != "") print D "/" $3; \
-               }' | grep ^pool/`
-do
-       DIRS="`dirname $file` $DIRS"
-       echo $file >> .filelist
-done
-
-# Remove leading "pool" from all files in the file list.
-# The "./" we change it to is there so the file names
-# exactly match in the delete step and the files that get downloaded
-# are not deleted.
-sed 's!^pool/!./!' .filelist > .filelist.new
-mv -f .filelist.new .filelist
-
-(cd .. && mkdir -p $DIRS)
-# Tell rsync to download only the files in the list. The exclude is here 
-# to make the recursion not get anything else.
-# TODO: main pool needs to be donwloaded from too, once there is one.
-rsync $FLAGS_POOL \
-       $HOST::debian/pool/ --include-from .filelist --exclude '*' .
-# Delete all files that are not in the list, then any empty directories.
-# This also kills the filelist.
-find -type f | fgrep -vxf .filelist | xargs -r rm -f
-find -type d -empty | xargs -r rmdir -p --ignore-fail-on-non-empty
-# End of package pool update.
-
-# Update symlinks (I like to have a link to every .deb in one directory).
-if [ "$SYMLINK_FARM" = yes ]; then
-       install -d  $DEST/all
-       cd $DEST/all || exit 1
-       find -name \*.deb | xargs -r rm -f
-       find .. -name "*.deb" -type f | grep -v ^../all | \
-               xargs -r -i ln -sf {} .
-fi
-
-# Waste bandwidth. Put a partial mirror on your laptop today!

diff --git a/find-zlib b/find-zlib
deleted file mode 100755 (executable)
index 5999d34..0000000
--- a/find-zlib
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-
-# find-zlib - scan for zlib tables in compiled code
-# Copyright (C) 2002 RUS-CERT, University of Stuttgart.
-# Written by Florian Weimer <Weimer@CERT.Uni-Stuttgart.DE>.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-
-if (@ARGV == 0) {
-    print "usage: find-zlib filename...\n";
-    exit 1;
-}
-
-use strict;
-
-$/ = undef;
-
-my @inflate_table = (3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 23, 27, 31,
-                    35, 43, 51, 59, 67, 83, 99, 115, 131, 163, 195, 227,
-                    258, 0, 0);
-
-sub table_to_re (@) {
-    my $be = "";
-    my $le = "";
-    my $e;
-    foreach $e (@_) {
-       $be .= pack "N", $e;
-       $le .= pack "V", $e;
-    }
-    return (quotemeta($be), quotemeta($le));
-}
-
-sub table_to_re_config (@) {
-    my $be = "";
-    my $le = "";
-    my $e;
-    foreach $e (@_) {
-       $be .= pack "n", $e;
-       $le .= pack "v", $e;
-    }
-    return (quotemeta($be), quotemeta($le));
-}
-
-my ($inflate_table_be, $inflate_table_le) = table_to_re (@inflate_table);
-
-my $line;
-my (@config_table_le, @config_table_be) = ();
-foreach $line ([8,   32, 128, 256],
-              [32, 128, 258, 1024],
-              [32, 258, 258, 4096]) {
-    my ($be, $le) = table_to_re_config(@$line);
-    push @config_table_be, $be;
-    push @config_table_le, $le;
-}
-my ($config_table_be_32,
-    $config_table_be_64,
-    $config_table_le_32,
-    $config_table_le_64)
-    = (join("....", @config_table_be),
-       join("........", @config_table_be),
-       join("....", @config_table_le),
-       join("........", @config_table_le));
-
-my $file;
-my $found = 1;
-for $file (@ARGV) { 
-    open (FILE, "<$file");
-    my $data = <FILE>;
-    close FILE;
-
-    if ($data =~ /$config_table_le_32/o) {
-       print "$file: zlib configuration table, little endian, 32 bit\n";
-       $found = 0;
-    }
-
-    if ($data =~ /$config_table_be_32/o) {
-       print "$file: zlib configuration table, big endian, 32 bit\n";
-       $found = 0;
-    }
-    if ($data =~ /$config_table_le_64/o) {
-       print "$file: zlib configuration table, little endian, 64 bit\n";
-       $found = 0;
-    }
-
-    if ($data =~ /$config_table_be_64/o) {
-       print "$file: zlib configuration table, big endian, 64bit\n";
-    }
-    if ($data =~ /$inflate_table_le/o) {
-       print "$file: zlib inflate table, little endian\n";
-       $found = 0;
-    }
-    if ($data =~ /$inflate_table_be/o) {
-       print "$file: zlib inflate table, big endian\n";
-       $found = 0;
-    }  
-}
-exit $found;

diff --git a/get-with-referrer b/get-with-referrer
deleted file mode 100755 (executable)
index 09a9cfb..0000000
--- a/get-with-referrer
+++ /dev/null
@@ -1,14 +0,0 @@
-#! /usr/bin/perl -w
-use strict;
-use LWP::UserAgent;
-
-my $url = <>;
-my $referrer = <>;
-my $target = <>;
-
-my $ua = new LWP::UserAgent;
-
-my $req = new HTTP::Request(GET => $url);
-$req->header(Referer => $referrer);
-my $res = $ua->request($req, $target);
-

diff --git a/kill-wine b/kill-wine
deleted file mode 100755 (executable)
index 639cce4..0000000
--- a/kill-wine
+++ /dev/null
@@ -1 +0,0 @@
-kill `ps ax | grep '^......?.*wine' | cut -d' ' -f1`