--- /dev/null
+#!/bin/bash -e
+
+VERBOSE=1
+LOCAL_IF=ppp0
+
+case "$1" in
+ start)
+ if [ -z "$LOCAL4" ]; then
+ [ "$LOCAL_IF" ] || LOCAL_IF=ppp0
+ LOCAL4=$(ip -o addr show $LOCAL_IF | awk '/inet/ { print $4 }')
+ if [ -z "$LOCAL4" ]; then
+ echo "Cannot find the IP assigned to $LOCAL_IF"
+ exit 1
+ fi
+ fi
+
+ LOCAL6=$(printf "%x%02x:%x%02x\n" $(echo $LOCAL4 | sed -e 's/\./ /g'))
+ LOCAL6="2002:$LOCAL6::1/48"
+
+ [ "$RELAY" ] || RELAY=192.88.99.1
+
+ if [ "$VERBOSE" ]; then
+ echo "Local v4 address: $LOCAL4"
+ echo "Local v6 address: $LOCAL6"
+ echo "6to4 Relay address: $RELAY"
+ fi
+
+ ip link set sit0 up
+ ip addr add $LOCAL6 dev sit0
+ ip route add 2000::/3 via ::$RELAY
+ ;;
+ stop)
+ ip link set sit0 down
+ ;;
+ *)
+ echo "Usage: $0 {start|stop}"
+ exit 1
+ ;;
+esac
+
+exit 0
+
--- /dev/null
+#! /bin/sh
+
+if grep '^Newsgroups:.*alt\.fan\.eddings\.creative' $2; then
+ get-sig afec > ~/.news_sig
+elif grep '^Newsgroups:.*alt\.fan\.eddings' $2; then
+ get-sig afe > ~/.news_sig
+else
+ get-sig general > ~/.news_sig
+fi
+
+if grep '^Newsgroups:.*riva.lists' $2; then
+ cat <<EOF
+You almost certainly don't want to do this. Reply by mail instead ('R').
+EOF
+ sleep 1
+ exit 1
+fi
+
+if [ "X$1" = X-h ] && grep '^References: ' $2 > /dev/null; then
+ echo ""
+ echo -n "Remove original poster's .signature (if present)? [yn] "
+ read ans
+ case $ans in
+ n*) ;;
+ *) sed -n -e "/^\($QUOTECHARS\)\?-- \$/q" -e p $2 | sponge $2
+ ;;
+ esac
+fi
+
+exec Pnews "$@"
--- /dev/null
+#! /bin/sh
+
+if grep '^From:.*Kamion' $2; then
+ get-sig afe > ~/.mail_sig
+else
+ get-sig general > ~/.mail_sig
+fi
+
+if [ "X$1" = X-h ] && grep '^In-Reply-To: ' $2 > /dev/null; then
+ echo ""
+ echo -n "Remove original poster's .signature (if present)? [yn] "
+ read ans
+ case $ans in
+ n*) ;;
+ *) sed -n -e "/^$QUOTECHARS-- \$/q" -e p $2 | sponge $2
+ ;;
+ esac
+fi
+
+exec /usr/bin/Rnmail "$@"
--- /dev/null
+#! /bin/sh
+statnews --from=`date -d '1 week ago' +%d/%m/%Y` --nocapitalize alt.fan.eddings
--- /dev/null
+#! /bin/sh
+
+# Post the alt.fan.eddings.creative FAQ every fortnight
+cd $HOME/afe/daemons
+$HOME/bin/crondiv 2 afec-faq.log inews -hS afec-faq.txt
--- /dev/null
+#! /bin/sh
+
+YEARTHISWEEK=`date +%Y-w%V`
+YEARLASTWEEK=`date -d '1 week ago' +%Y-w%V`
+DAY=`date +%w | sed 's/0/7/'`
+
+LABDIR=/tmp/afeweb.$YEARTHISWEEK-$DAY
+if [ $DAY -eq 1 ]; then
+ OLDTAR=$HOME/backups/afeweb-$YEARLASTWEEK.tar.gz
+ NEWTAR=$HOME/backups/afeweb-$YEARTHISWEEK.tar.gz
+else
+ OLDTAR=$HOME/backups/afeweb-$YEARTHISWEEK.tar.gz
+ unset NEWTAR
+fi
+DIFFGZ=$HOME/backups/afeweb-$YEARTHISWEEK-$DAY.diff.gz
+TOPDIR=tolhoneth
+SOURCEPARENT=/var/www
+SOURCEDIR=tolhoneth
+
+if [ -f $OLDTAR ]; then
+ # Extract old tarball and set up diffing environment
+ mkdir $LABDIR
+ cd $LABDIR
+ tar xzf $OLDTAR
+ mv $TOPDIR $TOPDIR.orig
+ ln -s $SOURCEPARENT/$SOURCEDIR $TOPDIR
+
+ # Do the diff and clean up
+ diff -Naru $TOPDIR.orig $TOPDIR | gzip > $DIFFGZ
+ cd -
+ rm -rf $LABDIR
+fi
+
+if [ "$NEWTAR" ]; then
+ # First day of the week, so build a new tarball
+ cd $SOURCEPARENT
+ tar czf $NEWTAR $SOURCEDIR
+ cd -
+fi
+
--- /dev/null
+#! /bin/sh
+mpg123 -q /home/cjwatson/mp3/OMWF---01---*.mp3
+mpg123 -q /home/cjwatson/mp3/OMWF---02---*.mp3
+mpg123 -q /home/cjwatson/mp3/OMWF---03---*.mp3
+mpg123 -q /home/cjwatson/mp3/OMWF---13---*.mp3
+mpg123 -q /home/cjwatson/mp3/OMWF---14---*.mp3
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+
+use Net::NNTP;
+
+my $nntp;
+
+sub usage ()
+{
+ print STDERR <<"EOF";
+Usage: $0 hostname newsgroup-name archive-directory
+EOF
+ exit 1;
+}
+
+sub bail ($)
+{
+ my $msg = shift;
+ $nntp->quit;
+ print STDERR "$msg\n";
+ exit 1;
+}
+
+my $host = shift or usage;
+my $group = shift or usage;
+my $archive = shift or usage;
+-d $archive or usage;
+
+opendir ARCHIVE, $archive or die "can't opendir $archive: $!";
+my @list = grep m/^\d+$/, readdir ARCHIVE;
+closedir ARCHIVE;
+
+@list = sort { $a <=> $b } @list;
+my $start = scalar @list ? $list[$#list] + 1 : 0;
+
+$nntp = Net::NNTP->new($host);
+# Bah, password in clear, oh well, it's only passworded to keep the
+# howling masses out anyway ...
+#$nntp->authinfo('afe', 'MyTest');
+
+my ($narticles, $first, $last, $name) = $nntp->group($group);
+(defined $first and defined $last) or bail "Couldn't set group to $group";
+
+exit if $last <= $start;
+$start = $first if $first > $start;
+
+for my $index ($start..$last)
+{
+ my $article = $nntp->article($index);
+ if (defined $article)
+ {
+ open ARTICLE, ">$archive/$index"
+ or die "can't open $archive/$index for writing: $!";
+ print ARTICLE join '', @$article;
+ close ARTICLE;
+ }
+ #print STDERR "$group $index\n";
+}
+
+$nntp->quit;
+
--- /dev/null
+#!/bin/sh
+set -e
+if [ -n "$XAUTHORITY" ]; then
+ export XAUTHORITY=$HOME/.Xauthority
+fi
+auth=`mcookie`
+xauth add :0 . $auth
+xauth add `hostname -f`:0 . $auth
+startx -- :0 -auth $XAUTHORITY
--- /dev/null
+#! /bin/sh
+cp ~/.newsrc ~/.newsrc-backup
--- /dev/null
+#!/bin/sh
+
+for s in $(find ~/.signatures -mindepth 2 -path '*/old/*' -prune -o \
+ -type f ! -name '*.dat' ! -name static -print | \
+ sort); do
+ strfile $s
+done | perl -ne \
+ '$s += $1 if /There.*?([0-9]+)/; print; END { print "Total: $s\n"; }'
--- /dev/null
+#! /bin/sh
+set -e
+
+if [ -z "$1" ]; then
+ ${BROWSER:-lynx} http://buildd.debian.org/build.php
+else
+ ${BROWSER:-lynx} "http://buildd.debian.org/build.php?pkg=$1"
+fi
--- /dev/null
+#! /bin/sh
+
+MSGID=`grep -i '^Message-ID: ' | sed 's/^Message-ID: //' | head -1`
+
+echo 'Locally cancelling a post with the following Message-ID:'
+echo " $MSGID"
+[ "$1" = "test" ] || ctlinnd cancel "$MSGID"
--- /dev/null
+#! /usr/bin/perl -p
+s/(?:^|.)\xfe// while /\xfe/;
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+
+local $/ = undef;
+my $file = <>;
+while ($file =~ /<A.HREF="(.)\.html#(.)([-a-z]*)(?<!-).*?">(.*?)<\/A>/gs)
+{
+ if ($1 ne $2 || "$2$3" ne lc $4)
+ {
+ my $name = $4;
+ $name =~ y/\n/ /;
+ print "$name\n";
+ }
+}
+
--- /dev/null
+#! /bin/bash
+
+echo $COMP_CWORD
+
+if [ "$COMP_CWORD" = 1 ]; then
+ compgen -c $2
+else
+ case ${2:0:1} in
+ $) compgen -v $2;;
+ ~) compgen -u $2;;
+ @) compgen -A hostname $2;;
+ *) compgen -f $2;;
+ esac
+fi
+
--- /dev/null
+#! /bin/sh -e
+echo -n "$* "
+grep -c "$*" afe-posters
--- /dev/null
+#! /bin/bash
+
+# "Divide" a crontab frequency down by the first argument on the command line,
+# logging to the second argument, and executing the remainder.
+
+if [ "X$1" = "X" -o "X$2" = "X" -o "X$3" = "X" ]; then
+ echo "Usage: $0 frequency logfile command [ arguments ]" >&2
+ exit 1
+fi
+
+FREQUENCY=$1
+LOGFILE=$2
+shift 2
+
+if [ -f $LOGFILE ]; then
+ LASTEXEC=$(($(tail -n 1 $LOGFILE)+1))
+else
+ LASTEXEC=1
+fi
+
+if [ $LASTEXEC -ge $FREQUENCY ]; then
+ echo "$*" executed at $(date) >> $LOGFILE
+ echo 0 >> $LOGFILE
+ eval "$*"
+else
+ echo $LASTEXEC >> $LOGFILE
+fi
+
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+use Date::Format;
+
+my $fromdate = time2str("%a %b %e %T %Y %z", time, 'GMT');
+my $headerdate = time2str("%a, %e %b %Y %T %z", time, 'GMT');
+
+local $/ = "\n\n";
+
+while (<>)
+{
+ /^Package: (.*)/m;
+ my $package = $1;
+ /^Section: (.*)/m;
+ my $section = $1;
+ $section =~ s|/|.|g;
+ /^Maintainer: (.*)/m;
+ my $maintainer = $1;
+ $maintainer =~ /<(.*)>/;
+ my $maintaddr = $1;
+ /^Description: (.*)/m;
+ my $shortdesc = $1;
+ s/^ (.*)//ms;
+ my $longdesc = $1;
+ $longdesc =~ s/^ //gm;
+ $longdesc =~ s/^\.$//gm;
+ $_ = "From $maintaddr $fromdate\n" .
+ "From: $maintainer\n" .
+ "Date: $headerdate\n" .
+ "Subject: $package - $shortdesc\n" .
+ "Newsgroups: $section\n" .
+ "$_\n$longdesc";
+ print $_;
+}
+
--- /dev/null
+#!/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!
--- /dev/null
+#! /bin/sh
+
+for x in `cat $1`; do
+ dejasearch -format classic -max 1 ~a $x;
+ if [ ! -s summary.html ]; then
+ echo $x >> possible-fraud
+ fi
+done
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+
+for (@ARGV) {
+ my $source = $_;
+ next unless -l $source;
+ my $target = readlink $source or die "readlink: $!";
+ my $trap = sub { unlink $source;
+ symlink $target, $source;
+ print "Caught a SIG$_[0]!\n";
+ exit; };
+ local ($SIG{HUP}, $SIG{INT}, $SIG{TERM}, $SIG{QUIT}, $SIG{__DIE__}) =
+ ($trap, $trap, $trap, $trap, $trap);
+ unlink $source;
+ system '/bin/cp', $target, $source;
+}
--- /dev/null
+#! /bin/sh
+# The name is a deliberate echo of the "real" Debian dinstall; it moves
+# packages into /usr/src/debian, removes any old versions of those packages
+# there, and re-runs dpkg-myscan {packages,sources}.
+
+if [ $# -lt 2 ]; then
+ echo "Usage: $0 package-name version-number" >&2
+ exit 1
+fi
+
+PACKAGE=$1
+VERSION=$2
+UPSTREAM=`echo $VERSION | sed -e 's/-[^-]*$//'`
+
+echo -n "Dinstalling package $PACKAGE, "
+echo -n "version $VERSION, "
+echo "upstream version $UPSTREAM"
+
+ARCH=i386
+DEB=$PWD/${PACKAGE}_${VERSION}_${ARCH}.deb
+ORIG=$PWD/${PACKAGE}_$UPSTREAM.orig.tar.gz
+DIFF=$PWD/${PACKAGE}_${VERSION}.diff.gz
+DSC=$PWD/${PACKAGE}_${VERSION}.dsc
+CHANGES=$PWD/${PACKAGE}_${VERSION}_${ARCH}.changes
+
+# Sanity checks
+
+ERROR=
+if [ ! -f $DEB ]; then echo $DEB 'not found' >&2; ERROR=1; fi
+if [ ! -f $ORIG ]; then echo $ORIG 'not found' >&2; ERROR=1; fi
+if [ ! -f $DIFF ]; then echo $DIFF 'not found' >&2; ERROR=1; fi
+if [ ! -f $DSC ]; then echo $DSC 'not found' >&2; ERROR=1; fi
+if [ ! -f $CHANGES ]; then echo $CHANGES 'not found' >&2; ERROR=1; fi
+[ "$ERROR" ] && exit 1
+
+SECTION=`dpkg -f $DEB Section`
+if [ "$SECTION" ]; then
+ echo "Section: $SECTION"
+else
+ echo "Section not found." >&2
+ exit 1
+fi
+
+if echo $SECTION | egrep -q '^(contrib|non-free)/'; then
+ BINARYDIR=`echo $SECTION | sed -e "s|/|/binary-$ARCH/|"`
+ SOURCEDIR=`echo $SECTION | sed -e "s|/|/source/|"`
+elif echo $SECTION | egrep -q '^non-US/'; then
+ BINARYDIR=$SECTION/binary-$ARCH
+ SOURCEDIR=$SECTION/source
+else
+ BINARYDIR=main/binary-$ARCH/$SECTION
+ SOURCEDIR=main/source/$SECTION
+fi
+
+echo "Binaries in $BINARYDIR, sources in $SOURCEDIR"
+
+cd /usr/src/debian/dists/unstable
+
+ERROR=
+if [ ! -d $BINARYDIR ]; then echo 'Binary dir not found.' >&2; ERROR=1; fi
+if [ ! -d $SOURCEDIR ]; then echo 'Source dir not found.' >&2; ERROR=1; fi
+[ "$ERROR" ] && exit 1
+
+shopt -s nullglob
+
+BINARIES=`echo $BINARYDIR/${PACKAGE}_*`
+if [ "$BINARIES" ]; then
+ echo 'Binaries found in binary dir:'
+ echo $BINARIES | xargs -n1
+ read -n1 -esp 'Remove: (y/N) ' REMOVE
+ if [ "$REMOVE" == y ]; then
+ echo -n 'Removing ... '
+ echo $BINARIES | xargs rm
+ echo 'done.'
+ else
+ echo 'Aborting.'
+ exit
+ fi
+fi
+
+SOURCES=`echo $SOURCEDIR/${PACKAGE}_*`
+if [ "$SOURCES" ]; then
+ echo 'Sources found in source dir:'
+ echo $SOURCES | xargs -n1
+ read -n1 -esp 'Remove: (y/N) ' REMOVE
+ if [ "$REMOVE" == y ]; then
+ echo -n 'Removing ... '
+ echo $SOURCES | xargs rm
+ echo 'done.'
+ else
+ echo 'Aborting.'
+ exit
+ fi
+fi
+
+echo "Moving $DEB to $BINARYDIR ..."
+mv -f $DEB $BINARYDIR
+echo "Copying $ORIG to $SOURCEDIR ..."
+cp -f $ORIG $SOURCEDIR
+echo "Copying $DIFF to $SOURCEDIR ..."
+cp -f $DIFF $SOURCEDIR
+echo "Moving $DSC to $SOURCEDIR ..."
+mv -f $DSC $SOURCEDIR
+echo "Moving $CHANGES to $SOURCEDIR ..."
+mv -f $CHANGES $SOURCEDIR
+
+echo
+
+cd ../..
+
+dpkg-myscan packages
+
+echo
+
+dpkg-myscan sources
+
+echo
+
+echo "Dinstallation of $PACKAGE-$VERSION complete."
+
--- /dev/null
+#! /bin/sh
+# The name is a deliberate echo of the "real" Debian dinstall; it moves
+# packages into http://riva.ucam.org/~cjw44/debian/, removes any old versions
+# of those packages there, and re-runs dpkg-myscan {packages,sources}.
+
+if [ $# -lt 2 ]; then
+ echo "Usage: $0 package-name version-number" >&2
+ exit 1
+fi
+
+PACKAGE=$1
+VERSION=$2
+UPSTREAM=`echo $VERSION | sed -e 's/-[^-]*$//'`
+NATIVE=
+if [ "$VERSION" = "$UPSTREAM" ]; then
+ NATIVE=y
+fi
+
+echo -n "Dinstalling package $PACKAGE, "
+echo -n "version $VERSION, "
+echo "upstream version $UPSTREAM"
+[ "$NATIVE" ] && echo "Native Debian package"
+
+ARCH=i386
+BINARCH=i386
+DEB=$PWD/${PACKAGE}_${VERSION}_${BINARCH}.deb
+if [ ! -f $DEB ]; then
+ BINARCH=all
+ ALLDEB=$PWD/${PACKAGE}_${VERSION}_${BINARCH}.deb
+else
+ ALLDEB=$DEB
+fi
+if [ "$NATIVE" ]; then
+ ORIG=$PWD/${PACKAGE}_${VERSION}.tar.gz
+ DIFF=
+else
+ ORIG=$PWD/${PACKAGE}_${UPSTREAM}.orig.tar.gz
+ DIFF=$PWD/${PACKAGE}_${VERSION}.diff.gz
+fi
+DSC=$PWD/${PACKAGE}_${VERSION}.dsc
+CHANGES=$PWD/${PACKAGE}_${VERSION}_${ARCH}.changes
+
+# Sanity checks
+
+ERROR=
+if [ ! -f $DEB -a ! -f $ALLDEB ]; then
+ echo $DEB 'not found' >&2
+ [ $BINARCH = all ] && echo $ALLDEB 'not found' >&2
+ ERROR=1
+fi
+DEB=$ALLDEB
+if [ ! -f $ORIG ]; then echo $ORIG 'not found' >&2; ERROR=1; fi
+if [ "$DIFF" -a ! -f "$DIFF" ]; then
+ echo $DIFF 'not found' >&2
+ ERROR=1
+fi
+if [ ! -f $DSC ]; then echo $DSC 'not found' >&2; ERROR=1; fi
+if [ ! -f $CHANGES ]; then echo $CHANGES 'not found' >&2; ERROR=1; fi
+[ "$ERROR" ] && exit 1
+
+SECTION=`dpkg -f $DEB Section`
+if [ "$SECTION" ]; then
+ echo "Section: $SECTION"
+else
+ echo "Section not found." >&2
+ exit 1
+fi
+
+if echo $SECTION | egrep -q '^(contrib|non-free)/'; then
+ BINARYDIR=`echo $SECTION | sed -e "s|/|/binary-$BINARCH/|"`
+ SOURCEDIR=`echo $SECTION | sed -e "s|/|/source/|"`
+elif echo $SECTION | egrep -q '^non-US/'; then
+ BINARYDIR=$SECTION/binary-$BINARCH
+ SOURCEDIR=$SECTION/source
+else
+ BINARYDIR=main/binary-$BINARCH/$SECTION
+ SOURCEDIR=main/source/$SECTION
+fi
+
+echo "Binaries in $BINARYDIR, sources in $SOURCEDIR"
+
+cd /home/httpd/users/$USER/debian
+
+ERROR=
+if [ ! -d $BINARYDIR ]; then echo 'Binary dir not found.' >&2; ERROR=1; fi
+if [ ! -d $SOURCEDIR ]; then echo 'Source dir not found.' >&2; ERROR=1; fi
+[ "$ERROR" ] && exit 1
+
+shopt -s nullglob
+
+BINARIES=`echo $BINARYDIR/${PACKAGE}_*`
+if [ "$BINARIES" ]; then
+ echo 'Binaries found in binary dir:'
+ echo $BINARIES | xargs -n1
+ read -n1 -esp 'Remove: (y/N) ' REMOVE
+ if [ "$REMOVE" = y ]; then
+ echo -n 'Removing ... '
+ echo $BINARIES | xargs rm
+ echo 'done.'
+ else
+ echo 'Aborting.'
+ exit
+ fi
+fi
+
+SOURCES=`echo $SOURCEDIR/${PACKAGE}_*`
+if [ "$SOURCES" ]; then
+ echo 'Sources found in source dir:'
+ echo $SOURCES | xargs -n1
+ read -n1 -esp 'Remove: (y/N) ' REMOVE
+ if [ "$REMOVE" = y ]; then
+ echo -n 'Removing ... '
+ echo $SOURCES | xargs rm
+ echo 'done.'
+ else
+ echo 'Aborting.'
+ exit
+ fi
+fi
+
+echo "Moving $DEB to $BINARYDIR ..."
+mv -f $DEB $BINARYDIR
+echo "Copying $ORIG to $SOURCEDIR ..."
+cp -f $ORIG $SOURCEDIR
+if [ "$DIFF" ]; then
+ echo "Copying $DIFF to $SOURCEDIR ..."
+ cp -f $DIFF $SOURCEDIR
+fi
+echo "Moving $DSC to $SOURCEDIR ..."
+mv -f $DSC $SOURCEDIR
+echo "Moving $CHANGES to $SOURCEDIR ..."
+mv -f $CHANGES $SOURCEDIR
+
+echo
+
+dpkg-myscan packages
+
+echo
+
+dpkg-myscan sources
+
+echo
+
+echo -n 'Updating index.html ...'
+if [ "$NATIVE" ]; then
+ perl -pi -l \
+ -e 's/('$PACKAGE'_).*?(_|\.dsc)/${1}'$VERSION'$2/;' \
+ -e 's/('$PACKAGE'_).*?(\.tar\.gz)/${1}'$VERSION'$2/;' index.html
+else
+ perl -pi -l \
+ -e 's/('$PACKAGE'_).*?(_|\.diff\.gz|\.dsc)/${1}'$VERSION'$2/;' \
+ -e 's/('$PACKAGE'_).*?(\.orig\.tar\.gz)/${1}'$UPSTREAM'$2/;' index.html
+fi
+echo ' done.'
+
+echo "Dinstallation of $PACKAGE-$VERSION complete."
+
--- /dev/null
+#! /bin/sh
+
+if [ "$1" = packages -o -z "$1" ]; then
+ type=packages
+ topdir=binary-i386
+ outfile=Packages
+elif [ "$1" = sources ]; then
+ type=sources
+ topdir=source
+ outfile=Sources
+else
+ echo "Usage: $0 packages|sources" >&2
+ exit 1
+fi
+
+echo Searching for $type ...
+
+for x in main non-US/main non-free; do
+ echo Scanning $x ...
+ dir=dists/unstable/$x/$topdir
+ if [ -e $dir ]; then
+ dpkg-scan$type $dir override > $dir/$outfile
+ gzip -c $dir/$outfile > $dir/$outfile.gz
+ else
+ echo $x not found.
+ fi
+done
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+use Getopt::Long;
+
+sub usage ()
+{
+ print STDERR <<"EOF";
+Usage: $0 [options] source-filename
+EOF
+ print STDERR <<'EOF';
+where options are:
+
+ -h, -?, --help print this message
+ -c, --conf FILENAME use FILENAME as configuration file, default
+ '.headers'
+ -d, --directory DIR change to directory DIR
+ -s, --suffix SUFFIX use SUFFIX for all output filenames, default null
+
+The configuration file is of the following form:
+
+# Comments are preceded by hashes and extend to the end of the line.
+# List of names of parameters to be substituted (as $param1$, $param2$,
+# etc.) in order.
+param1 param2 ...
+
+# Multiple records, one per line.
+# Each record consists of an output filename (automatically used as the value
+# of the name parameter; suffix will be added if present) followed by a list of
+# parameter values. Fields are space-separated. Double quotes (") may be used
+# to delimit fields containing spaces, and double quotes themselves may be
+# escaped with backslashes.
+
+EOF
+ exit;
+}
+
+my %opts = (conf => '.headers', directory => '', suffix => '');
+GetOptions(\%opts, 'help|h|?', 'conf|c=s', 'directory|d=s', 'suffix|s=s');
+my $source = shift;
+usage unless defined $source;
+
+usage if $opts{'help'};
+chdir $opts{'directory'} if $opts{'directory'};
+open CONF, $opts{'conf'} or
+ die "Can't open configuration file " . $opts{'conf'} . ": $!";
+-r $source or die "Can't read source file $source: $!";
+
+my @params;
+while (<CONF>)
+{
+ next if /^#/ || /^\s+/;
+ @params = split;
+ last;
+}
+
+usage unless defined @params && $#params >= 0;
+
+# Eek. This matches the next (optionally double-quoted) string on the line.
+my $stringre = qr/\s*("(?:[^\\]|\\.)*?"|(?:[^\\]|\\.)+?)(?:\s|$)/;
+while (<CONF>)
+{
+ next if /^#/ || /^\s+/;
+ my $confline = $_;
+ next unless $confline =~ /$stringre/g;
+ my $target = $1;
+ my %values = (name => $target);
+ my @conffields = ($confline =~ /\G$stringre/g);
+ my $offset = 0;
+ for (my $i = 0; $i + $offset <= $#params && $i <= $#conffields; $i++)
+ {
+ $offset++ while $params[$i + $offset] eq 'name';
+ last if $i + $offset > $#params;
+ my $value = $conffields[$i];
+ $value =~ s/^"(.*)"$/$1/;
+ $value =~ s/\\(.)/$1/g;
+ $values{$params[$i + $offset]} = $value;
+ }
+
+ # Do the substitution in the source file.
+ open SOURCE, $source or die "Can't open source file $source: $!";
+ open TARGET, ">$target" . $opts{'suffix'} or
+ die "Can't open target file $target" . $opts{'suffix'} . ": $!";
+ select TARGET;
+ while (<SOURCE>)
+ {
+ foreach my $param (keys %values)
+ {
+ my $value = $values{$param};
+ s/\$\Q$param\E\$/$value/g;
+ }
+ s/\$\$/\$/g;
+ print;
+ }
+ select STDOUT;
+ close TARGET;
+}
+
--- /dev/null
+#! /bin/sh
+
+# Post the alt.fan.eddings FAQ pointer every six days
+cd $HOME/afe/daemons
+$HOME/bin/crondiv 6 faq-pointer.log inews -hS faq-pointer.txt
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+require 5.000;
+use lib qw(.);
+use Style qw(html_header html_footer);
+
+# The AFE FAQ HTMLizer
+# Perl version written by Kamion; based on a sed script by Aquarius
+
+sub usage ()
+{
+ print STDERR <<"EOF";
+Usage: $0 index-filename [up-URL] < faq-document
+
+URLs may be absolute or relative.
+
+EOF
+ exit 1;
+}
+
+sub html_escape (\$)
+{
+ my $line = shift;
+ return unless defined $$line;
+ $$line =~ s/\&/&/g;
+ $$line =~ s/</</g;
+ $$line =~ s/>/>/g;
+ $$line =~ s/"/"/g;
+ $$line =~ s/æ/æ/g;
+ return $$line;
+}
+
+#my $sts_link = "http://riva.ucam.org/~kamion/archive-bin/" .
+# "article.pl?msgid=5n0qq5\$d9p\@mercury.dur.ac.uk";
+my $sts_link = 'http://groups.google.com/groups?' .
+ 'q=Easter+Egg&ic=1&selm=5n0qq5%24d9p%40mercury.dur.ac.uk';
+
+# Paragraph to format and undefine, followed optionally by open and close tags.
+sub print_paragraph (\$;$$)
+{
+ my $para = shift;
+ return unless defined $$para && $$para !~ /^\s*$/;
+ my $open_tags = shift;
+ my $close_tags = shift;
+
+ # Make URLs links
+ $$para =~ s#(http:(?:[^\ \&<]|\&(?!gt;))*)
+ #<A TARGET="_top" HREF="$1">$1</A>#gx;
+
+ # Make all text within pairs of underscores outside URLs emphasized
+ $$para =~ s[_((?:[^_.-])+\.?)_
+ (?![^"]*">|[^<]*</A>)][<EM>$1</EM>]gx;
+
+ # Similarly, strengthen bold text within asterisks
+ $$para =~ s[\*((?:[^*.])+\.?)\*
+ (?![^"]*">|[^<]*</A>)][<STRONG>$1</STRONG>]gx;
+
+ # Easter egg
+ $$para =~ s|(Sephrenia the Styric)|<A HREF="$sts_link">$1</A>|g;
+
+ $$para = "$open_tags$$para" if defined $open_tags;
+ $$para .= $close_tags if defined $close_tags;
+
+ print "$$para\n";
+ undef $$para;
+}
+
+my $index_file = shift or usage;
+my $up_url = shift;
+
+open CONTROL, ">control.html" or die "Can't write to control.html: $!";
+select CONTROL;
+
+html_header "Revision information", $index_file;
+print "\n";
+
+my $changes_done = 0;
+
+print "<PRE>\n";
+while (<>)
+{
+ $changes_done = 1 if (/^Archive-name:/);
+ next unless $changes_done;
+ chomp;
+ html_escape $_;
+ last if (/^\s*$/);
+ unless (/^([^:]+:)\s*(.+)$/)
+ {
+ warn "Non-header line found in control section: $_";
+ next;
+ }
+ print "$_\n";
+}
+print "</PRE>\n\n";
+
+html_footer $index_file;
+
+open INDEX, ">$index_file" or die "Can't write to $index_file: $!";
+select INDEX;
+
+html_header "Contents", $up_url;
+print "\n";
+
+print "<H1 ALIGN=\"center\">\n";
+while (<>)
+{
+ last if /^\s*$/;
+ html_escape $_;
+ print;
+}
+print "</H1>\n\n";
+
+print "<P><A HREF=\"control.html\">Revision information</A></P>\n";
+
+my $paragraph;
+my $listentry = 0;
+my $level = 0;
+my @lastvalues = ();
+
+while (<>)
+{
+ chomp;
+ s/^\s*//;
+ html_escape $_;
+ # Stop at TOC-body separator
+ if (/--------/)
+ {
+ print_paragraph $paragraph, "", $listentry ? "</A>" : "";
+ last;
+ }
+ # Convert headings to links
+ my $line = $_;
+ if ($line =~ /([0-9]+)((?:.[0-9]+)*)[\)\s]/)
+ {
+ my $firstcomp = $1;
+ my $heading = "$1$2";
+ my @components = split /\./, $heading;
+ if (@components > 0)
+ {
+ $line =~ /\s+(.*)$/g;
+ my $linetail = $1;
+ print_paragraph $paragraph, "", $listentry ? "</A>" : "";
+
+ # Change level of ordered list if necessary
+ if (@components > $level)
+ {
+ print "<OL>\n" x (@components - $level);
+ }
+ elsif (@components < $level)
+ {
+ print "</OL>\n" x ($level - @components);
+ }
+ #print "</P>\n\n" if @components == 1 && $level > 0;
+ print "\n<BR>\n\n" if @components == 1 && $level > 0;
+ $level = @components;
+ $#lastvalues = $level;
+ #print "<P>\n" if $level == 1;
+
+ # Reformat the current line
+ my $value = $components[$#components];
+ if (defined $lastvalues[$level] &&
+ $lastvalues[$level] + 1 != $value)
+ {
+ warn "Missing item in contents before $heading";
+ print "<LI VALUE=\"$value\">";
+ }
+ elsif ($value != 1)
+ {
+ print "<LI VALUE=\"$value\">";
+ }
+ else
+ {
+ print "<LI>";
+ }
+ $lastvalues[$level] = $value;
+ print "<A HREF=\"part$firstcomp.html#sec$heading\">\n";
+ $paragraph = $linetail;
+ $listentry = 1;
+ next;
+ }
+ }
+ elsif (/^[A-Z][^a-z]+$/)
+ {
+ print_paragraph $paragraph, "", $listentry ? "</A>" : "";
+ if ($level == 0)
+ {
+ print "\n<H2>$_</H2>\n\n";
+ }
+ else
+ {
+ #print "</P>\n\n";
+ print "</OL>\n\n" x ($level - 1);
+ print "\n" if $level == 1;
+ print "<H3>$_</H3>\n\n";
+ print "<OL>\n" x ($level - 1);
+ #print "<P>\n";
+ $#lastvalues = 0;
+ }
+ $listentry = 0;
+ next;
+ }
+ elsif (/^$/)
+ {
+ print_paragraph $paragraph, "", $listentry ? "</A>" : "";
+ $listentry = 0;
+ next;
+ }
+ print_paragraph $paragraph;
+ $paragraph = $_;
+}
+
+# Do all the necessary end tags
+#print "</P>\n" if $level > 0;
+print "\n<BR>\n" if $level > 0;
+print "\n";
+print "</OL>\n\n" x $level;
+
+html_footer $up_url;
+select STDOUT;
+close INDEX;
+
+$paragraph = <>;
+my $oldsection;
+my $section;
+my $section_open = 0;
+my $num_sections = $lastvalues[1];
+my $in_heading = 0;
+my $in_h2 = 0;
+$level = 0;
+$#lastvalues = -1;
+
+my $heading_pat = qr/^\s*([0-9]+(?:.[0-9]+)*)\)\s+/;
+
+while (<>)
+{
+ s/\s+\n/\n/;
+ html_escape $_;
+
+ if (/^\s*([0-9]+)\)\s/)
+ {
+ chomp $paragraph if defined $paragraph;
+ if ($section_open)
+ {
+ if ($in_heading)
+ {
+ print_paragraph $paragraph, "", "</STRONG></A>";
+ }
+ else
+ {
+ print_paragraph $paragraph, "<P>\n", "\n</P>";
+ }
+ }
+ $in_heading = $in_h2 = 0;
+ $oldsection = $section;
+ $section = $1;
+ print "\n" if $section_open;
+ print "</OL>\n\n" x $level if $section_open;
+ html_footer $index_file,
+ ($oldsection > 1) ?
+ ("part" . ($oldsection - 1) . ".html") :
+ undef,
+ "part" . ($oldsection + 1) . ".html"
+ if $section_open;
+ open SECTION, ">part$section.html" or
+ die "Couldn't write to part$section.html: $!";
+ select SECTION;
+ html_header "section $section",
+ $index_file,
+ "part" . ($section - 1) . ".html",
+ ($section < $num_sections) ?
+ ("part" . ($section + 1) . ".html") :
+ undef;
+ $section_open = 1;
+ $level = 0;
+ $#lastvalues = -1;
+ }
+
+ # Convert headings to anchors in list items
+ if (/$heading_pat/)
+ {
+ my $heading = $1;
+ my @components = split /\./, $heading;
+ chomp $paragraph if defined $paragraph;
+ if ($in_heading)
+ {
+ print_paragraph $paragraph, "", "</STRONG></A>\n";
+ }
+ else
+ {
+ print_paragraph $paragraph, "<P>\n", "\n</P>\n";
+ }
+ $in_h2 = 0;
+
+ # Change level of ordered list if necessary
+ if (@components > $level)
+ {
+ print "<OL>\n\n" x (@components - $level);
+ }
+ elsif (@components < $level)
+ {
+ print "</OL>\n\n" x ($level - @components);
+ }
+ $level = @components;
+ $#lastvalues = $level;
+
+ my $value = $components[$#components];
+ if (@components == 1)
+ {
+ chomp;
+ s|$heading_pat|<LI><H2><A NAME="sec$1">|;
+ $in_h2 = 1;
+ }
+ elsif (defined $lastvalues[$level] &&
+ $lastvalues[$level] + 1 != $value)
+ {
+ warn "Missing item in main document before $heading";
+ s|$heading_pat|<LI VALUE="$value"><A NAME="sec$1"><STRONG>|;
+ }
+ elsif ($value != 1)
+ {
+ s|$heading_pat|<LI VALUE="$value"><A NAME="sec$1"><STRONG>|;
+ }
+ else
+ {
+ s|$heading_pat|<LI><A NAME="sec$1"><STRONG>|;
+ }
+ $lastvalues[$level] = $value;
+
+ warn "Heading $heading encountered outside a section"
+ unless defined $section;
+ warn "Heading $heading encountered in section $section"
+ if defined $section && $heading !~ /^$section(?:\.|$)/;
+
+ $in_heading = 1;
+ }
+
+ # Mark unnumbered headings
+ if (/^([A-Z][^a-z]*[A-Z])\n/)
+ {
+ chomp;
+ $paragraph = $_;
+
+ print "\n</OL>\n" x ($level - 1);
+ print "\n" if $level != 1;
+ print_paragraph $paragraph, "<H3>", "</H3>";
+ $in_heading = $in_h2 = 0;
+ print "\n<OL>\n" x ($level - 1);
+ $#lastvalues = 0;
+
+ $_ = "";
+ }
+
+ # If this is a paragraph delimiter of some kind (usually a blank line),
+ # print the preceding paragraph, handling things we recognize as tables.
+ if (defined $paragraph &&
+ (/^\n/ || ($in_heading && $paragraph =~ /<A NAME[^>]*>.{0,40}$/)))
+ {
+ if (($paragraph =~ /ISBN +[0-9]-/ &&
+ $paragraph =~ /\((?:hc|pb|trade pb)\)/)
+ || $paragraph =~ /c\/o Del Rey Books/
+ || $paragraph =~ /esper\.net$/m)
+ {
+ $paragraph =~ s/\n/<BR>\n/g;
+ }
+ else
+ {
+ # We have to split up the paragraph and work line-by-line here;
+ # multi-line regexps are really hard to get right.
+ my @parlines = split /\n/, $paragraph;
+ my $prevline;
+ foreach my $parline (@parlines)
+ {
+ unless (defined $prevline)
+ {
+ $prevline = \$parline;
+ next;
+ }
+ if ($parline =~ /^(\s*)((?:\w\)|
+ \[\w\]|
+ \w+(?:\s+\w+)?:\s*http).*|
+ \<http(?:[^&]|\&(?!gt;))*\>)$/x)
+ {
+ $parline = "$1$2<BR>";
+ $$prevline .= "<BR>" if $$prevline !~ /<BR>$/;
+ }
+ $prevline = \$parline;
+ }
+ $paragraph = (join "\n", @parlines) . "\n";
+ $paragraph =~ s/:$/:<BR>/gm;
+ }
+ chomp $paragraph;
+ $paragraph =~ s/(\S) +/$1 /g unless /<BR>/;
+ if ($in_h2)
+ {
+ print_paragraph $paragraph, "", "</A></H2>\n";
+ $in_h2 = 0;
+ }
+ else
+ {
+ if ($in_heading)
+ {
+ print_paragraph $paragraph, "", "</STRONG></A>";
+ }
+ else
+ {
+ print_paragraph $paragraph, "<P>\n", "\n</P>";
+ }
+ }
+ $in_heading = 0;
+ $paragraph = "$_" unless /^\n?$/;
+ }
+ elsif (defined $paragraph)
+ {
+ $paragraph .= "$_";
+ }
+ else
+ {
+ $paragraph = "$_" unless /^\n?$/;
+ }
+}
+
+if ($section_open)
+{
+ chomp $paragraph if defined $paragraph;
+ if ($in_heading)
+ {
+ print_paragraph $paragraph, "", "</STRONG></A>";
+ }
+ else
+ {
+ print_paragraph $paragraph, "<P>\n", "\n</P>";
+ }
+ print "\n";
+ print "</OL>\n\n" x $level;
+
+ html_footer $index_file,
+ ($section > 1) ? ("part" . ($section - 1) . ".html") : undef,
+ undef;
+ close SECTION if $section_open;
+}
+else
+{
+ warn "No sections encountered";
+}
+
--- /dev/null
+#! /bin/sh
+zcat /mirror/debian/dists/unstable/*/binary-$1/Packages.gz \
+ /mirror/debian/non-US/dists/unstable/non-US/*/binary-$1/Packages.gz \
+ | grep-dctrl -nsFilename -PX $2
--- /dev/null
+#! /bin/sh
+find ! -perm -004 -prune -o -type f -perm -004 -print
--- /dev/null
+#!/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;
--- /dev/null
+#!/bin/bash
+
+# Parameterizes a document.
+# Input arguments Param1 Value1 Param2 Value2 ... will replace
+# $Param1$ with Value1, $Param2$ with Value2, and so on.
+
+# Arguments with spaces in must be quoted.
+
+function getargs ()
+{
+ while [ $# != 0 -a $# != 1 ]; do
+ SUBST=${2//\'/\'\\\'\'};
+ SUBST=${SUBST//\//\\\/};
+ echo -n -;
+ echo -n e \'s/\\\$$1\\\$/$SUBST/g\'\ ;
+ shift 2;
+ done
+ echo -n -;
+ echo -n e \'s/\\\$\%/\$/g\' -e \'s/\\\$\\\$/\$/g\'\ ;
+ echo -n $1;
+}
+
+if [ "$1" == "-v" ]; then
+ shift;
+ bash --norc -vc "sed `getargs \"$@\"`";
+else
+ bash --norc -c "sed `getargs \"$@\"`";
+fi
+
--- /dev/null
+#! /bin/sh
+set -e
+
+if [ -z "$1" -o "$1" = main ]; then
+ ${BROWSER:-lynx} http://ftp-master.debian.org/removals.txt
+else
+ ${BROWSER:-lynx} http://non-us.debian.org/~troup/removals.txt
+fi
--- /dev/null
+#! /bin/sh
+expandvars.pl -s .header.ssi header.ssi
--- /dev/null
+#! /bin/sh -e
+ssh master grep "^$1 " /var/lib/debbugs/spool/index.db
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+
+use Mail::Util qw(read_mbox);
+
+sub recurse ($)
+{
+ my $file = shift;
+ -d $file or return ($file);
+ opendir DIR, $file or return ($file);
+ my @contents = map { recurse("$file/$_") } grep !/^\.\.?$/, readdir DIR;
+ closedir DIR;
+ return @contents;
+}
+
+my @folders = recurse "$ENV{HOME}/mail";
+
+foreach my $folder (@folders)
+{
+ my @messages = read_mbox($folder);
+ foreach my $message (@messages)
+ {
+ my $from;
+ my $print_from = 0;
+ my $scan = 0;
+ foreach my $line (@$message)
+ {
+ last if $line =~ /^$/;
+ if ($line =~ /^From:[ \t](.*)/)
+ {
+ $from = $1;
+ }
+ if ($line =~ /^(?:To|Cc)/)
+ {
+ $scan = 1;
+ }
+ elsif ($line !~ /^[ \t]/)
+ {
+ $scan = 0;
+ }
+ if ($scan)
+ {
+ if ($line =~ /cjw44/)
+ {
+ $print_from = 1;
+ last;
+ }
+ }
+ }
+ print "$from\n" if $print_from and defined $from;
+ }
+}
+
--- /dev/null
+#! /bin/sh
+set -e
+
+FILENAME=$(grep-available -PXnsFilename $1)
+
+if [ -n "$FILENAME" ]; then
+ if echo "$FILENAME" | grep non-US; then
+ lftpget "ftp://ftp.uk.debian.org/debian-non-US/$FILENAME"
+ else
+ lftpget "ftp://ftp.uk.debian.org/debian/$FILENAME"
+ fi
+fi
--- /dev/null
+#! /bin/sh -e
+
+VERSION=$1
+MAJOR=`expr $1 : '\(^[0-9]*\.[0-9]*\)'`
+
+rm -f linux
+wget -c ftp://ftp.kernel.org/pub/linux/kernel/v$MAJOR/linux-$VERSION.tar.bz2
+tar xjvf linux-$VERSION.tar.bz2
+rm -f linux-$VERSION.tar.bz2
+mv linux linux-$VERSION
+ln -s linux-$VERSION linux
--- /dev/null
+#! /bin/sh
+wget ftp://ftp.isc.org/pub/usenet/control/`echo $1 | cut -d. -f1`/$1.Z
+if [ -f $1.Z ]; then uncompress -f $1.Z; fi
--- /dev/null
+#! /bin/sh
+sudo su - news -c '/etc/news/scripts/ntlworld -v'
--- /dev/null
+#! /bin/sh
+wget --passive http://www.ietf.org/rfc/rfc$1.txt
--- /dev/null
+#! /bin/bash
+
+if [ "X$1" == "X" ]; then
+ NAME=$(grep '^\*' ~/.siglist | head -1 | tr -s '\t' ' ' | cut -d' ' -f2)
+ if [ "X$NAME" == "X" ]; then
+ echo "Usage: $0 signature-name [pattern]" 2>&1
+ exit 1
+ fi
+else
+ NAME=$1
+fi
+
+ARGS=$(grep ^$NAME'\>' ~/.siglist | head -1 | tr -s '\t' ' ' | cut -d' ' -f2-)
+BASEDIR=$(eval echo $(echo $ARGS | cut -d' ' -f1))
+STATICFILE=$(eval echo $(echo $ARGS | cut -d' ' -f2))
+FORTUNEARGS=$(eval echo $(echo $ARGS | cut -d' ' -f3-))
+
+cd $BASEDIR
+cat $STATICFILE
+if [ "$2" ]; then fortune $FORTUNEARGS -m $2; else fortune $FORTUNEARGS; fi
--- /dev/null
+#! /usr/bin/perl -wn
+BEGIN {
+ unless (defined ($var = shift)) {
+ print STDERR "Usage: $0 var-name\n";
+ exit 1;
+ }
+}
+if (/^\Q$var\E=/) {
+ s/^\Q$var\E=//;
+ print, last unless /^'/;
+ do {
+ $quotes = (grep /'/g, (split //, $_)) % 3;
+ $inside = $quotes ... $quotes;
+ s/^'// if $inside == 1;
+ s/'$// if $quotes == 2 || $inside =~ /E0$/;
+ s/'\\''/'/g;
+ print;
+ last if $quotes == 2 || $inside =~ /E0$/;
+ } while (<>);
+}
--- /dev/null
+#! /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);
+
--- /dev/null
+#! /usr/bin/perl -ws
+use strict;
+use vars qw($f);
+
+sub getservice ($)
+{
+ (my $search) = @_;
+
+ open SERVICES, "/etc/services" or die "Couldn't open /etc/services";
+ while (<SERVICES>) { print if /\b\Q$search\E\b/; }
+ close SERVICES;
+}
+
+if ($f)
+{
+ while (<>)
+ {
+ chomp;
+ getservice $_;
+ }
+}
+else
+{
+ while (defined (my $arg = shift))
+ {
+ getservice $arg;
+ }
+}
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+use Socket;
+
+my $sin = sockaddr_in 2345, inet_aton 'hermes.cam.ac.uk';
+for (@ARGV)
+{
+ socket HERMES, PF_INET, SOCK_STREAM, getprotobyname 'tcp' or
+ die "Couldn't create socket: $!";
+ connect HERMES, $sin or die "Couldn't connect: $!";
+ send HERMES, "$_\015\012", 0;
+ my $text;
+ recv HERMES, $text, 256, MSG_WAITALL;
+ print((split /\n/, $text, 2)[1]);
+ close HERMES;
+}
+
--- /dev/null
+grep -v ^# birthdays.txt | grep '[^/]*'/$(date +%m/%d) | tr '\t' ' ' | sed \
+'s|/../.. *|\\|'|awk -F\\ '{A='$(date +%Y)'-$1; gsub("['\''\"( ]","\\\\&", \
+$2);srand();system("sed "($1=="XXXX"?"/AGE/,/^/d":"s/AGE/"A"/")" message." \
+"txt | sed s/NAME/"$2"/|cat - horja"(rand()>10?"":".sig")" | inews -hOS");}'
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+
+use Getopt::Long;
+use Net::IRC;
+
+sub usage ()
+{
+ print <<"EOF";
+Usage: $0 [options] command [arguments]
+EOF
+ print <<'EOF';
+
+Options are as follows, with defaults in brackets:
+
+ -n, --nick=[$IRCNICK] IRC nickname.
+ -s, --server=[$IRCSERVER] IRC server.
+
+Available commands (with arguments) are:
+
+ who #channel List the visible users on a channel.
+ whois username ... Query information about particular users.
+
+EOF
+ exit 1;
+}
+
+my %options = (
+ nick => $ENV{IRCNICK},
+ server => $ENV{IRCSERVER},
+);
+
+GetOptions(\%options,
+ 'help|h|?',
+ 'nick|n=s',
+ 'server|s=s',
+);
+
+usage if $options{help};
+
+my $command = shift or usage;
+$command = lc $command;
+
+if ($command eq 'who')
+{
+ scalar @ARGV == 1 or usage;
+}
+elsif ($command eq 'whois')
+{
+ scalar @ARGV > 0 or usage;
+}
+else
+{
+ usage;
+}
+
+my $irc = new Net::IRC;
+
+my $conn = $irc->newconn(Nick => $mynick, Server => $server)
+ or die "$0: can't connect to IRC server";
+
+sub on_connect
+{
+ my $self = shift;
+ $self->who($targetchannel);
+}
+
+sub on_whoreply
+{
+ my ($self, $event) = @_;
+ my ($me, $channel, $user, $host,
+ $server, $nick, $status, $realname) = $event->args;
+ printf "\%-12s \%s\n", $nick, $realname;
+}
+
+sub on_endofwho
+{
+ my $self = shift;
+ $self->quit;
+ exit;
+}
+
+$conn->add_handler('376', \&on_connect);
+$conn->add_handler('352', \&on_whoreply);
+$conn->add_handler('315', \&on_endofwho);
+
+$irc->start;
--- /dev/null
+#! /bin/sh
+export IRCSERVER=excalibur.esper.net
+xargs -n 1 ircwhois < ~/.ircnotify
--- /dev/null
+#! /bin/sh
+export IRCSERVER=irc.openprojects.net
+xargs -n 1 ircwhois < ~/.ircnotify.debian
--- /dev/null
+#! /bin/sh
+ircwho.pl $IRCSERVER Col $1
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+
+use Net::IRC;
+
+sub usage ()
+{
+ print <<"EOF";
+Usage: $0 server my-nick target-channel
+EOF
+ exit 1;
+}
+
+my $server = shift or usage;
+my $mynick = shift or usage;
+my $targetchannel = shift or usage;
+
+my $irc = new Net::IRC;
+
+my $conn = $irc->newconn(Nick => $mynick, Server => $server)
+ or die "$0: can't connect to IRC server";
+
+sub on_connect
+{
+ my $self = shift;
+ $self->who($targetchannel);
+}
+
+sub on_whoreply
+{
+ my ($self, $event) = @_;
+ my ($me, $channel, $user, $host,
+ $server, $nick, $status, $realname) = $event->args;
+ printf "\%-12s \%s\n", $nick, $realname;
+}
+
+sub on_endofwho
+{
+ my $self = shift;
+ $self->quit;
+ exit;
+}
+
+$conn->add_handler('376', \&on_connect);
+$conn->add_handler('352', \&on_whoreply);
+$conn->add_handler('315', \&on_endofwho);
+
+$irc->start;
--- /dev/null
+#! /bin/sh
+ircwhois.pl $IRCSERVER Col $*
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+
+use Net::IRC;
+
+sub usage ()
+{
+ die <<"EOF";
+Usage: $0 server my-nick target-nick [target-nick ...]
+EOF
+}
+
+my $server = shift or usage;
+my $mynick = shift or usage;
+my @targetnicks = @ARGV;
+usage if $#targetnicks == -1;
+
+my $irc = new Net::IRC;
+
+my $conn = $irc->newconn(Nick => $mynick, Server => $server)
+ or die "$0: can't connect to IRC server";
+
+sub on_connect
+{
+ my $self = shift;
+ $self->whois(@targetnicks);
+}
+
+sub on_whoisuser
+{
+ my ($self, $event) = @_;
+ my $nick = ($event->args)[1];
+ print "$nick is online\n";
+}
+
+sub on_endofwhois
+{
+ my $self = shift;
+ $self->quit;
+ exit;
+}
+
+$conn->add_handler('376', \&on_connect);
+$conn->add_handler('311', \&on_whoisuser);
+$conn->add_handler('318', \&on_endofwhois);
+
+$irc->start;
--- /dev/null
+#! /bin/sh
+killall -9 communicator-smotif.real
+killall -9 navigator-smotif.real
+rm ~/.netscape/lock
--- /dev/null
+kill `ps ax | grep '^......?.*wine' | cut -d' ' -f1`
--- /dev/null
+#! /bin/sh
+
+/home/cjw44/bin/m2n.pl -n $1 -a cjw44@riva.ucam.org >> /home/cjw44/.m2n-errors 2>&1
+exit 0
+
--- /dev/null
+#! /usr/bin/perl -w
+
+=head1 NAME
+
+m2n - a mail2news(1) replacement
+
+=head1 SYNOPSIS
+
+m2n.pl [I<options>]
+
+=head1 DESCRIPTION
+
+A replacement for I<mail2news> from the newsgate package. Uses I<rnews> instead
+of I<inews> by default, and is much less insistent on removing useful headers.
+
+=head1 OPTIONS
+
+Long option names may be abbreviated to uniqueness.
+
+=over 8
+
+=item B<--stdout>
+
+Send output to standard output rather than directly to I<rnews>.
+
+=item B<-a>, B<--approved>=I<approved>
+
+Approved: line, if none is specified.
+
+=item B<-d>, B<--distribution>=I<distribution>
+
+Distribution: line, if none is specified.
+
+=item B<-n>, B<--newsgroups>=I<newsgroups>
+
+Newsgroups: line, overriding any such provided. Newsgroups: lines in the input
+will be saved in X-Mail2News-Newsgroups: lines.
+
+=item B<-o>, B<--organization>=I<organization>
+
+Organization: line, if none is specified.
+
+=item B<-s>, B<--subject>=I<subject>
+
+Subject: line, if none is specified; the default is "no subject".
+
+=item B<-x>, B<--path>=I<path>
+
+Path: prefix, if none is specified; the default is "gateway".
+
+=back
+
+=head1 ERROR REPORTING
+
+Errors will be logged using syslog(3).
+
+=head1 SEE ALSO
+
+mail2news(1).
+
+=head1 AUTHOR
+
+I<m2n> and this manual page were written by Colin Watson <cjw44@cam.ac.uk>.
+
+=cut
+
+use strict;
+
+use Date::Format;
+use Digest::MD5 qw(md5_base64);
+use Getopt::Long;
+use Sys::Syslog qw(:DEFAULT setlogsock);
+
+$ENV{PATH} = '/usr/bin:/bin';
+
+# Use syslog(3) for error output.
+
+setlogsock 'unix';
+openlog 'mail2news', 'pid', 'news';
+
+sub syslogdie(@)
+{
+ syslog 'err', @_;
+ closelog;
+ exit;
+}
+
+# Option processing.
+
+my $tostdout = 0;
+my ($approved, $distribution, $newsgroups, $organization);
+my $subject = 'no subject';
+my $path = 'gateway';
+
+Getopt::Long::Configure qw(bundling bundling_override);
+GetOptions(
+ "stdout" => \$tostdout,
+ "approved|a=s" => \$approved,
+ "distribution|d=s" => \$distribution,
+ "newsgroups|n=s" => \$newsgroups,
+ "organization|o=s" => \$organization,
+ "subject|s=s" => \$subject,
+ "path|x=s" => \$path);
+
+# Read headers.
+
+my $headerblock = '';
+my $extra = '';
+my %headers = ();
+my ($hname, $hvalue);
+my $overridden = 0;
+
+while (<>)
+{
+ if (/^$/)
+ {
+ syslogdie 'No headers found, aborting' unless defined $hname;
+ $headers{lc $hname} = $hvalue;
+ last;
+ }
+ elsif (/From /)
+ {
+ next;
+ }
+ elsif (/^(\s.*)/)
+ {
+ my $line = $1;
+ syslogdie "Continuation line at start of headers: '$line'"
+ unless defined $hvalue;
+ $hvalue .= $line;
+ }
+ elsif (/^(.*?):[ \t](.*)/)
+ {
+ $headers{lc $hname} = $hvalue if defined $hname;
+ $overridden = 0;
+ $hname = $1;
+ $hvalue = $2;
+ if ($hname =~ /newsgroups/i && defined $newsgroups)
+ {
+ $hname = 'X-Mail2News-Newsgroups';
+ $headerblock .= "Newsgroups: $newsgroups\n";
+ $headers{newsgroups} = $newsgroups;
+ $overridden = 1;
+ }
+ elsif ($hname =~ /path/i && defined $path)
+ {
+ $hvalue = "$path!$hvalue";
+ }
+ $_ = "$hname: $hvalue\n";
+ }
+ elsif (/^(.*?):\n/)
+ {
+ $headers{lc $hname} = $hvalue if defined $hname;
+ $overridden = 0;
+ $hname = $1;
+ $hvalue = '';
+ if ($hname =~ /newsgroups/i && defined $newsgroups)
+ {
+ $hname = 'X-Mail2News-Newsgroups';
+ $headerblock .= "Newsgroups: $newsgroups\n";
+ $headers{newsgroups} = $newsgroups;
+ $overridden = 1;
+ }
+ elsif ($hname =~ /path/i && defined $path)
+ {
+ $hvalue = $path;
+ }
+ $_ = "$hname: $hvalue\n";
+ }
+ else
+ {
+ my $line = $_;
+ syslogdie "Invalid header line: '$line'";
+ }
+
+ if ($overridden) { $extra .= $_; }
+ else { $headerblock .= $_; }
+}
+
+local $/ = undef;
+my $body .= <>;
+
+# Headers from command line
+
+$extra .= "Approved: $approved\n"
+ if defined $approved and not defined $headers{approved};
+$extra .= "Distribution: $distribution\n"
+ if defined $distribution and not defined $headers{distribution};
+$extra .= "Newsgroups: $newsgroups\n"
+ if defined $newsgroups and not defined $headers{newsgroups};
+$extra .= "Organization: $organization\n"
+ if defined $organization and not defined $headers{organization};
+$extra .= "Subject: $subject\n"
+ if defined $subject and not defined $headers{subject};
+$headerblock = "Path: $path\n$headerblock"
+ if defined $path and not defined $headers{path};
+
+# Other required header checks
+
+syslogdie 'No From: line, aborting' unless defined $headers{from};
+$extra .= time2str 'Date: %a, %e %h %Y %T GMT' . "\n", time, 'GMT'
+ unless defined $headers{date};
+$extra .= sprintf "Message-ID: <mail2news.\%x.\%s\@riva.ucam.org>\n",
+ time, md5_base64($body) unless defined $headers{'message-id'};
+
+# Output to stdout or rnews.
+
+if ($tostdout)
+{
+ print $headerblock, $extra, "\n", $body;
+}
+else
+{
+ $SIG{PIPE} = 'IGNORE';
+ open RNEWS, '| rnews -v 2>/dev/null' or syslogdie "can't fork: \%m";
+ print RNEWS $headerblock, $extra, "\n", $body
+ or syslogdie "can't write: \%m";
+ close RNEWS or syslogdie "can't close: \%m";
+}
+
+closelog;
+
--- /dev/null
+#!/bin/sh
+echo $1 >> $HOME/.killfile
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+use Date::Parse;
+
+my $message;
+my ($fromdate, $date);
+my @messages;
+my %dates;
+
+while (<>)
+{
+ chomp;
+ if (/^From /)
+ {
+ if (defined $message)
+ {
+ push @messages, ($message);
+ $dates{$message} = defined $date ? $date : $fromdate;
+ }
+ $message = "$_\n";
+ /^From [^ ]* (.*)/;
+ $fromdate = $1;
+ $fromdate =~ s/ +/ /g;
+ $fromdate = str2time $fromdate;
+ $date = undef;
+ }
+ elsif (!(defined $date) && /^Date: (.*)/)
+ {
+ $message .= "$_\n";
+ $date = str2time $1;
+ }
+ else
+ {
+ $message .= "$_\n";
+ }
+}
+
+if (defined $message)
+{
+ push @messages, ($message);
+ $dates{$message} = defined $date ? $date : $fromdate;
+}
+
+print (sort { $dates{$a} <=> $dates{$b} } @messages);
+
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+
+sub usage ()
+{
+ print <<EOF;
+Usage: $0 directory mail-folder ...
+EOF
+ exit 0;
+}
+
+my $directory = shift or usage;
+-d $directory or usage;
+
+my $message = 0;
+open MESSAGE, "> $directory/$message";
+my $empty = 1;
+while (<>)
+{
+ if (/^From /)
+ {
+ next if $empty;
+ $message++;
+ open MESSAGE, "> $directory/$message";
+ $empty = 1;
+ }
+ else
+ {
+ print MESSAGE $_;
+ $empty = 0;
+ }
+}
+close MESSAGE;
+
--- /dev/null
+#! /bin/sh
+mailtonews >> /home/cjw44/.m2n-errors 2>&1
+exit 0
--- /dev/null
+#! /bin/sh
+
+TTYS=`who | grep $USER | tr -s ' ' | cut -d' ' -f2 | grep -v :`
+
+if [ -z "$1" ]; then
+ if ! tty > /dev/null; then
+ echo "stdin is not a tty" >&2
+ exit 1
+ fi
+ HERE=`tty`
+elif [ -c "$1" ]; then
+ HERE=$1
+elif [ -c "/dev/$1" ]; then
+ HERE=/dev/$1
+else
+ echo "No such device: $1"
+ exit 1
+fi
+
+BASEHERE=`echo $HERE | sed 's|^/dev/||'`
+
+if [ -c $HERE ] && echo $TTYS | grep '\<'$BASEHERE'\>' > /dev/null; then
+ for tty in $TTYS; do [ "$BASEHERE" != "$tty" -a -c /dev/$tty ] && chmod g-w /dev/$tty; done
+ chmod g+w $HERE
+else
+ echo "You are not logged in on $BASEHERE" >&2
+fi
--- /dev/null
+#! /bin/sh -e
+
+# Usage: mordja to-address subject file
+
+export PATH=/usr/bin:/bin
+
+cd ~/afe/daemons/mordja
+{ cat "$3"; echo '-- '; cat .signature; } | mutt -F .muttrc -s "Re: $2" "$1"
+
--- /dev/null
+#! /bin/sh -e
+
+# Usage: mordja to-address subject file
+
+export PATH=/usr/bin:/bin
+
+cd ~/afe/daemons/mordja
+{ echo '-- '; cat .signature; } | mutt -F .muttrc -s "Re: $2" "$1" -a "$3"
+
--- /dev/null
+#! /bin/sh -e
+DEB_MIRROR=${DEB_MIRROR:-ftp.de.debian.org}
+debmirror /mirror/debian -h "$DEB_MIRROR" --passive \
+ --nosource --section=main,main/debian-installer --getcontents \
+ --ignore=non-US/ "$@"
+debmirror /mirror/debian/non-US -h "$DEB_MIRROR" -r /debian-non-US --passive \
+ --nosource --section=main -d unstable/non-US --getcontents "$@"
--- /dev/null
+#! /bin/sh -e
+debmirror /mirror/debian -h riva \
+ --nosource --section=main --getcontents --ignore=non-US/ "$@"
+debmirror /mirror/debian/non-US -h riva -r /debian/non-US \
+ --nosource --section=main -d unstable/non-US --getcontents "$@"
--- /dev/null
+#! /bin/sh
+set -e
+
+DRAFT=`tempfile`
+
+cat >$DRAFT <<EOF
+From: Colin Watson <cjwatson@debian.org>
+To: $2@bugs.debian.org
+Cc: control@bugs.debian.org
+Subject: $1: Proposed NMU diff
+Fcc: =debian/nmus
+
+tags $2 patch
+thanks
+
+Here's a patch fixing this bug. If I don't hear anything, I'll upload
+this as an NMU in a week or so.
+
+EOF
+
+if [ -n "$4" ]; then
+ debdiff $3 $4 >>$DRAFT
+else
+ cat $3 >>$DRAFT
+fi
+
+cat >>$DRAFT <<EOF
+
+Regards,
+EOF
+
+mutt -H $DRAFT
+
+rm -f $DRAFT
+
+exit 0
--- /dev/null
+#! /bin/bash
+
+# Killfile a luser in some newsgroup, optionally specifying a time to
+# give the luser a chance of a reprieve.
+
+# First parameter is the luser to killfile.
+# Second parameter is the newsgroup in which to killfile said luser.
+# Third and further parameters, if present, specify a time at which to
+# mail a message offering the luser a reprieve. Example time
+# specifications are "now + 1 week" and "8pm Nov 6"; see at(1) for
+# more details.
+
+exec 1>&2 # Everything goes to standard error
+
+if [ "X$1" == "X" -o "X$2" == "X" ]; then
+ echo "Usage: $0 victim newsgroup [ time-spec ]"
+ exit 1
+fi
+
+VICTIM=$1
+NEWSGROUP=$2
+KILLFILE="$HOME/News/`echo $NEWSGROUP | tr . /`/KILL"
+
+if [ ! -f $KILLFILE ]; then
+ echo "Killfile for $NEWSGROUP not found"
+ exit 1
+fi
+
+echo "/$VICTIM/f:j" >> $KILLFILE
+
+shift 2
+
+if [ "X$1" != "X" ]; then
+ echo "$HOME/bin/reprieve \"$VICTIM\" $NEWSGROUP \"`date`\"" | /usr/bin/at "$*" 2>/dev/null
+fi
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+use Time::ParseDate;
+
+my $days = shift;
+my $unixend = parsedate("now + $days days");
+die "Usage: $0 days calendar-file" if not defined($unixend);
+
+while (<>)
+{
+ chomp;
+ (my $when) = split /[^0-9\/-]/;
+ my $unixwhen = parsedate($when, UK => 1);
+ last if $unixwhen > $unixend;
+ print "$_\n";
+}
--- /dev/null
+#! /bin/sh
+perl -ne '(print, last) if s/^alias '$1' //gi' ~/.mutt_aliases
--- /dev/null
+#! /usr/bin/perl -wi
+use strict;
+
+my @last;
+
+while (defined (my $line = <>))
+{
+ unless ($line =~ /^(fg|ls|l|s|sl|cd -|cd ..)$/
+ or grep { $line eq $_ } @last)
+ {
+ print $line;
+ $last[1] = $last[0] if defined $last[0];
+ $last[0] = $line;
+ }
+}
--- /dev/null
+#! /bin/sh
+cd $HOME/public_html/kamion/archive-bin
+exec ./prune-sessions.pl 96
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+
+my $arg = shift;
+
+print "Querying hermes for $arg ... ";
+
+my $pid = open FINGER, "-|";
+if (!defined $pid)
+{
+ print "can't fork: $!\n";
+ exit 2;
+}
+elsif (!$pid)
+{
+ if (not exec 'finger', "$arg\@hermes")
+ {
+ print "can't exec finger: $!\n";
+ exit 2;
+ }
+}
+else
+{
+ <FINGER>;
+ <FINGER>;
+ $/ = undef;
+ my $finger = <FINGER>;
+ close FINGER;
+
+ unless (defined $finger)
+ {
+ print "no matches\n";
+ exit 1;
+ }
+
+ my @people = split /\n/, $finger;
+ foreach my $person (@people)
+ {
+ $person =~ s/^([^ ]*) *(.{1,20}[^ ]).*$/$1\t$2/ or $person = '';
+ }
+ @people = grep /./, @people;
+
+ if (@people == 0) { print "no matches\n"; exit 1; }
+ elsif (@people == 1) { print "1 match\n"; }
+ else { print scalar(@people), " matches\n"; }
+
+ print "$_\n" foreach @people;
+}
+
--- /dev/null
+#! /bin/sh
+cut -d' ' -f2 | sed 's/,/ /g' | xargs -n1 | sed 's/-/ /' | sed 's/^\([0-9]*\)$/\1 \1/' | xargs -l1 seq
--- /dev/null
+#! /bin/bash
+
+# Give a luser a chance at a reprieve from a killfiling by mailing
+# the current user.
+
+exec 1>&2 # Everything goes to standard error
+
+if [ "X$1" == "X" -o "X$2" == "X" -o "X$3" == "X" ]; then
+ echo "Usage: $0 victim newsgroup killfile-date"
+ exit 1
+fi
+
+/usr/lib/sendmail $LOGNAME <<-ENDMAIL
+ From: The Rivan Court of Appeal <${LOGNAME}@riva.ucam.org>
+ Subject: $1 is eligible for a reprieve
+
+ A certain luser, $1, has been killfiled in the newsgroup
+ $2 since $3.
+
+ You elected to give this luser a chance at a reprieve. Please
+ consider your verdict carefully, and run
+
+ delkill "$1" $2
+
+ if you consider that he or she still deserves another chance.
+
+ Thank you,
+
+ --
+ The Rivan Court of Appeal
+ENDMAIL
+
--- /dev/null
+#! /bin/sh
+
+/usr/bin/formail -bf -I Received -I "To: $1" -I Path -I Newsgroups | /bin/sed '$d' | /usr/lib/sendmail -bm $1
--- /dev/null
+#! /bin/bash
+
+# Run the alt.fan.eddings Birthday Daemon
+cd $HOME/afe/daemons
+export PATH=$HOME/bin:$PATH
+$HOME/bin/horja
--- /dev/null
+#! /bin/sh
+
+# Post the Silver Suggestions every fortnight
+cd $HOME/afe/daemons
+$HOME/bin/crondiv 2 silver-suggestions.log inews -hS silver-suggestions.txt
--- /dev/null
+Article: 37376 of riva.lists.debian.user
+Path: riva.ucam.org!gateway
+X-Envelope-Sender: kmself@ix.netcom.com
+From: kmself@ix.netcom.com
+Date: Tue, 28 Nov 2000 19:37:02 -0800
+To: debian-user@lists.debian.org
+Subject: Re: mpage & PS docs -- 1-up => 2-up fsckups. StarOffice?
+Message-ID: <20001128193702.D19274@ix.netcom.com>
+References: <20001128170849.B16364@ix.netcom.com> <E140w77-0004fQ-00@riva.ucam.org>
+Mime-Version: 1.0
+Content-Type: multipart/signed; micalg=pgp-sha1;
+ protocol="application/pgp-signature"; boundary="9crTWz/Z+Zyzu20v"
+Content-Disposition: inline
+User-Agent: Mutt/1.2.5i
+In-Reply-To: <E140w77-0004fQ-00@riva.ucam.org>; from cjw44@flatline.org.uk on Wed, Nov 29, 2000 at 01:32:49AM +0000
+X-Debian-GNU-Linux: Rocks
+X-Kuro5hin-cabal: There is no K5 cabal
+X-GPG-Fingerprint: F932 8B25 5FDD 2528 D595 DC61 3847 889F 55F2 B9B0
+Resent-Message-ID: <TIJEP.A.DEC.loHJ6@murphy>
+Resent-From: debian-user@lists.debian.org
+X-Mailing-List: <debian-user@lists.debian.org> archive/latest/119890
+X-Loop: debian-user@lists.debian.org
+Precedence: list
+Resent-Sender: debian-user-request@lists.debian.org
+Resent-Bcc:
+Resent-Date: Wed, 29 Nov 2000 03:50:06 +0000
+Newsgroups: riva.lists.debian.user
+Approved: cjw44@riva.ucam.org
+Lines: 96
+Xref: riva.ucam.org riva.lists.debian.user:37376
+
+
+--9crTWz/Z+Zyzu20v
+Content-Type: multipart/mixed; boundary="uxuisgdDHaNETlh8"
+Content-Disposition: inline
+
+
+--uxuisgdDHaNETlh8
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+Content-Transfer-Encoding: quoted-printable
+
+on Wed, Nov 29, 2000 at 01:32:49AM +0000, Colin Watson (cjw44@flatline.org.=
+uk) wrote:
+> kmself@ix.netcom.com wrote:
+> >Specific instance is an Excel spreadsheet, printed to file from
+> >StarOffice (that bloated stuck pig of an office suite), then attempting
+> >to convert the file with mpage to a two-pages-per-sheet with:
+> >
+> > mpage -dp -2 < soffice.ps > soffice-2up.ps
+> >
+> >Viewing (or printing) the results with gv flashes up the rendered
+> >content for a moment, then blanks the page. 'gs' has similar results.
+> >This appears to be a problem noted by others (Google, Deja turn up some
+> >references), but I can't seem to find a fix.
+>=20
+> Hm. I can't help with mpage, I'm afraid. As a workaround, have you tried
+> psnup (from the psutils package)? Of course, you'll have to cause the
+> PostScript file to contain its original self twice, perhaps using
+> psmerge. Sorry if a workaround wasn't what you were after.
+
+Thanks, psnup *does* do the trick. I've been using mpage for a few
+years, so it's going to tough to kick the habit, but that's a good one
+to know.
+
+The problem, according to web searches, is broken PS output by
+StarOffice. One fix is to use a set of ps2ps commands to produce
+rectified, Level-1 postscript. From a set of commands found online,
+I've created the attached 'sopsvirginizer' script -- it un-fscks
+StarOffice postscript output.=20
+
+--=20
+Karsten M. Self <kmself@ix.netcom.com> http://www.netcom.com/~kmself
+ Evangelist, Zelerate, Inc. http://www.zelerate.org
+ What part of "Gestalt" don't you understand? There is no K5 cabal
+ http://gestalt-system.sourceforge.net/ http://www.kuro5hin.org
+
+--uxuisgdDHaNETlh8
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: attachment; filename=sopsvirginizer
+
+#!/bin/sh
+
+# This script virginizes (de-fucks) StarOffice postscript, for use in
+# mpage and other tools.
+# Author: Karsten M. Self
+# Date: Tuesday, November 28, 2000
+# Credits: George Smiley (georgesmiley@my-deja.com) for the idea
+# License: This work is public domain
+# ----------------------------------------
+# Arguments: $1= infile, $2= outfile
+# ----------------------------------------
+
+if [ X$1 = "X" -o X$2 = "X" ]; then
+ echo "usage: $( basename $0 ) infile outfile" 1>&2; exit 1
+fi
+
+export PATH=/usr/bin:/bin
+TMPFILE=$( mktemp /tmp/sops1.XXXXXX ) || exit 1
+trap 'rm -f $TMPFILE; exit 1' 1 2 3 13 15
+
+ps2ps $1 $TMPFILE && ps2ps -dLanguageLevel=1 $TMPFILE $2
+rm -f $TMPFILE
+
+--uxuisgdDHaNETlh8--
+
+--9crTWz/Z+Zyzu20v
+Content-Type: application/pgp-signature
+Content-Disposition: inline
+
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.0.4 (GNU/Linux)
+Comment: For info see http://www.gnupg.org
+
+iD8DBQE6JHncOEeIn1XyubARAn4OAJ9SJctkxOTl64vF3fMOkWzJScToCgCfa4KK
+3zCwRibuVRWTOZPNVhiLwbA=
+=RPmJ
+-----END PGP SIGNATURE-----
+
+--9crTWz/Z+Zyzu20v--
+
+
+--
+To UNSUBSCRIBE, email to debian-user-request@lists.debian.org
+with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org
+
+
+
+
--- /dev/null
+#! /bin/sh
+ssh -L 6670:chiark:6667 chiark
--- /dev/null
+#! /bin/sh -e
+/usr/bin/ssh -v -v -v "$@"
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+
+my $body = 0;
+my $filename = shift;
+
+while (<>)
+{
+ if (/^<BODY/)
+ {
+ $body = 1;
+ $_ = <>;
+ $_ = <>;
+ print "<!--#include virtual=\"$filename.header.ssi\" -->\n";
+ }
+ next unless $body;
+ last if /^<\/BODY/;
+ print;
+}
+
+print "<!--#include virtual=\"footer.ssi\" -->\n";
+
--- /dev/null
+#!/bin/sh
+eval $(ssh-agent)
+ssh-add
--- /dev/null
+#!/bin/sh
+eval $(ssh-agent -k)
--- /dev/null
+cut -d' ' -f2- afe-posters | sort | uniq | sed -e 's/"/\\"/g' | sed -e 's/ /\\ /g' | sed -e s/\'/\\\\\'/g | xargs -n 1 countafe
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+
+use Net::IRC;
+
+sub usage ()
+{
+ die <<"EOF";
+Usage: $0 server bot-name target-channel
+EOF
+}
+
+my %tasks = ();
+
+my $server = shift or usage;
+my $botname = shift or usage;
+my $channel = shift or usage;
+
+my $irc = new Net::IRC;
+
+my $conn = $irc->newconn(Nick => $botname, Server => $server)
+ or die "$0: can't connect to IRC server";
+
+my $joined = 0;
+
+sub on_connect
+{
+ my $self = shift;
+ $self->join($channel);
+}
+
+sub on_topic
+{
+ my $self = shift;
+ $joined = 1;
+}
+
+sub on_public
+{
+ my ($self, $event) = @_;
+ my ($args) = $event->args;
+ my $from = $event->from;
+ $from =~ s/!.*//;
+ if ($args =~ s/^$botname:?\s*//io)
+ {
+ my ($victim, $task, $tasksref);
+ (my $command, $args) = split ' ', $args, 2;
+ $command = lc $command;
+ if ($command eq 'add' && $args =~ /^([^ \t]+)\s+(.*[^ \t])/)
+ {
+ ($victim, $task) = ($1, $2);
+ $tasksref = $tasks{$victim};
+ $tasksref = $tasks{$victim} = [] if not defined $tasksref;
+ $$tasksref[scalar @$tasksref] = $task;
+ $self->privmsg($channel, "cheers, added task for $victim:");
+ $self->privmsg($channel, " $task");
+ }
+ elsif ($command eq 'delete' && $args =~ /^([^ \t]+)\s+(.*[^ \t])/)
+ {
+ ($victim, $task) = ($1, $2);
+ $tasksref = $tasks{$victim};
+ if (defined $tasksref && scalar grep {$_ eq $task} @$tasksref)
+ {
+ @$tasksref = grep {$_ ne $task} @$tasksref;
+ $self->privmsg($channel, "cheers, deleted task for $victim:");
+ $self->privmsg($channel, " $task");
+ }
+ else
+ {
+ $self->privmsg($channel,
+ "sorry, never heard of that task for $victim:");
+ $self->privmsg($channel, " $task");
+ }
+ }
+ elsif ($command eq 'deleteall' && $args =~ /^([^ \t]+)/)
+ {
+ $victim = $1;
+ undef $tasks{$victim};
+ $self->privmsg($channel, "$victim is free! For a short time ...");
+ }
+ elsif ($command eq 'help')
+ {
+ $self->privmsg($channel, "No.");
+ }
+ elsif ($command eq 'list' && $args =~ /^([^ \t]+)/)
+ {
+ $victim = $1;
+ $tasksref = $tasks{$victim};
+ if (defined $tasksref && scalar @{$tasks{$victim}})
+ {
+ $self->privmsg($channel, "$victim is supposed to be doing:");
+ }
+ else
+ {
+ $self->privmsg($channel, "No tasks for $victim.");
+ }
+ foreach my $task (@{$tasks{$victim}})
+ {
+ $self->privmsg($channel, " $task");
+ }
+ }
+ elsif ($command eq 'quit')
+ {
+ $self->privmsg($channel, "They killed $botname! The bastards ...");
+ $self->quit;
+ exit;
+ }
+ }
+}
+
+$conn->add_handler('376', \&on_connect);
+$conn->add_handler('332', \&on_topic);
+$conn->add_handler('public', \&on_public);
+
+$irc->start;
--- /dev/null
+#! /bin/sh
+${BROWSER:-lynx} http://bugs.debian.org/cgi-bin/pkgreport.cgi?maint=
--- /dev/null
+#! /bin/bash
+
+set -e
+[ "$1" ] && cd $1
+BASE_URL=`pwd -P | sed 's|/home/httpd/users/|http://riva.ucam.org/~|'`
+set +e
+
+shopt -s nullglob
+for x in *.html; do echo $BASE_URL/$x; nsgmls -s $BASE_URL/$x; done
+
--- /dev/null
+#! /bin/bash
+
+set -e
+[ "$1" ] && cd $1
+set +e
+
+find -type d -perm -0755 | sort | xargs -n 1 validate-directory
--- /dev/null
+#! /usr/bin/perl -w
+use diagnostics;
+use strict;
+
+local (*AVAILABLE, *STATUS);
+open AVAILABLE, '</var/lib/dpkg/available' or
+ die "Can't open available file: $!";
+open STATUS, '</var/lib/dpkg/status' or die "Can't open status file: $!";
+
+my (%available, %status);
+my $package;
+
+while (<AVAILABLE>)
+{
+ if (/^Package: (.*)/)
+ {
+ $package = $1;
+ }
+ elsif (/^Version: (.*)/)
+ {
+ $available{$package} = $1;
+ undef $package;
+ }
+}
+
+while (<STATUS>)
+{
+ if (/^Package: (.*)/)
+ {
+ $package = $1;
+ }
+ elsif (/^Version: (.*)/)
+ {
+ $status{$package} = $1;
+ undef $package;
+ }
+}
+
+close STATUS;
+close AVAILABLE;
+
+foreach my $package (sort keys %available)
+{
+ if (defined $status{$package})
+ {
+ print "!!! " if $available{$package} ne $status{$package};
+ print "$package $available{$package} $status{$package}\n";
+ }
+}
+
--- /dev/null
+#! /bin/sh -e
+date -d '01/01/1970 00:00:'"$((($(TZ=US/Eastern date -d 14:52:00 +%s) - $(date +%s) + 86400) % 86400))" +%T
--- /dev/null
+#! /bin/sh
+${BROWSER:-lynx} http://www.debian.org/devel/wnpp/
--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+
+my $start = <>;
+chomp $start;
+my $end = <>;
+chomp $end;
+
+while (defined $start)
+{
+ if (not defined $end)
+ {
+ print $start;
+ undef $start;
+ }
+ elsif ($start + 1 != $end)
+ {
+ print "$start,";
+ $start = $end;
+ $end = <>;
+ chomp $end if defined $end;
+ }
+ else
+ {
+ my $newend = $end;
+ do
+ {
+ $end = $newend;
+ $newend = <>;
+ chomp $newend if defined $newend;
+ } while defined $newend and $newend == $end + 1;
+ print "$start-$end";
+ print "," if defined $newend;
+ $start = $newend;
+ if (defined $start)
+ {
+ $end = <>;
+ chomp $end if defined $end;
+ }
+ }
+}
+
+print "\n";
--- /dev/null
+#! /bin/sh
+
+# Get name of signature group
+NAME=
+
+# .signature file
+SIGFILE=~/.signature
+
+# Process arguments
+while [ $# -ne 0 ]; do
+ case $1 in
+ -n|--name)
+ NAME=$2
+ shift 2
+ ;;
+ -s|--sigfile)
+ SIGFILE=$2
+ shift 2
+ ;;
+ *) shift
+ ;;
+ esac
+done
+
+# Clean up and exit on SIGHUP, SIGINT, SIGQUIT, or SIGTERM
+trap "rm -f $SIGFILE; get-sig $NAME > $SIGFILE; exit 1" 1 2 3 15
+
+rm -f $SIGFILE
+mkfifo $SIGFILE
+while :; do
+ get-sig $NAME > $SIGFILE
+done
--- /dev/null
+xauth extract - $DISPLAY | rsh $1 xauth merge -
--- /dev/null
+#! /bin/sh
+echo -en '\e]2;'"$*"'\e\\'
--- /dev/null
+#! /bin/sh
+
+TITLE=$1
+shift
+xterm -title $TITLE -e "$@" &
+
~cjwatson / bin.git / commitdiff