From 8745528dadf74b21c22fd96a54de793e49e05e41 Mon Sep 17 00:00:00 2001 From: Colin Watson Date: Mon, 19 Aug 2002 08:19:14 +0000 Subject: [PATCH] Remove some obsolete scripts. --- catylog.pl | 2 - debian-mirror | 153 ---------------------------------------------- find-zlib | 100 ------------------------------ get-with-referrer | 14 ----- kill-wine | 1 - 5 files changed, 270 deletions(-) delete mode 100755 catylog.pl delete mode 100755 debian-mirror delete mode 100755 find-zlib delete mode 100755 get-with-referrer delete mode 100755 kill-wine diff --git a/catylog.pl b/catylog.pl deleted file mode 100755 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 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 , GPL'd. -# Beaten on by Colin Watson . - -# 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 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 . -# -# 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 = ; - 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 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 index 639cce4..0000000 --- a/kill-wine +++ /dev/null @@ -1 +0,0 @@ -kill `ps ax | grep '^......?.*wine' | cut -d' ' -f1` -- 2.30.2