Remove tools/tools/mid (Message-ID/In-Reply-To db thingy we don't need).
authorSascha Wildner <saw@online.de>
Thu, 5 Jul 2012 18:48:41 +0000 (20:48 +0200)
committerSascha Wildner <saw@online.de>
Thu, 5 Jul 2012 18:49:37 +0000 (20:49 +0200)
tools/tools/README
tools/tools/mid/mid-build [deleted file]
tools/tools/mid/mid-index [deleted file]
tools/tools/mid/mid-master [deleted file]
tools/tools/mid/mid-master-index [deleted file]

index 5a98ac2..2f803b5 100644 (file)
@@ -20,7 +20,6 @@ kdrv          KernelDriver; add/list/remove third-party kernel driver
 kerninclude    Shellscript to find unused #includes in the kernel.
 kernxref       Shellscript to cross reference symbols in the LINT kernel.
 local_syms     Shellscript to find symbols not referenced by other files.
-mid            Create a Message-ID database for mailing lists.
 netrate                Generate network packets.
 scsi-defects   Get at the primary or grown defect list of a SCSI disk.
 splitpatch     Python script to split a large patch file into independent
diff --git a/tools/tools/mid/mid-build b/tools/tools/mid/mid-build
deleted file mode 100755 (executable)
index ced5f4c..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/bin/sh
-#
-# Copyright (c) March 1998 Wolfram Schneider <wosch@FreeBSD.org>
-#
-# create an Message-ID, In-Reply-To look(1) index database
-#
-
-
-TMPDIR=/var/tmp; export TMPDIR
-home=/g/www/mid
-
-dbout=$home/index
-archive=$home/archive
-
-PATH=$home/bin:/bin:/usr/bin:/usr/local/bin; export PATH
-
-
-all ()
-{
-    ( cd $archive || exit 1
-      find text/* -type f | mid-master-index 4 mid-index $dbout/mid
-    )
-}
-
-current ()
-{
-    ( cd $archive || exit 1
-    find current/freebsd-* current/cvs-* -type f | 
-       mid-master-index 1 mid-index $dbout/mid-current
-    )
-}
-
-if [ $# -le 0 ]; then
-       echo "usage mid-build {current|all}"
-       exit 1
-fi
-
-for db 
-do
-       case $db in
-               current) current;;
-               all) all;;
-               *) echo "Huh? $db";;
-       esac
-done
diff --git a/tools/tools/mid/mid-index b/tools/tools/mid/mid-index
deleted file mode 100644 (file)
index b327f3b..0000000
+++ /dev/null
@@ -1,84 +0,0 @@
-#!/usr/pkg/bin/perl
-#
-# create message-id / in-reply-to database
-#
-# $FreeBSD: src/tools/tools/mid/mid-index,v 1.2 1999/08/28 00:54:31 peter Exp $
-# $DragonFly: src/tools/tools/mid/mid-index,v 1.2 2003/06/17 04:29:11 dillon Exp $
-
-sub usage { die "usage: mid-index name < filelist"; }
-
-sub id {
-    local($name, @files) = @_;
-    local($bytes, $bytes2, $headlen, $file);
-    local($counter);
-    local($from,$from2);
-    
-    $counter = 0;
-    open(MID, "| sort -u -o $name.mid") || die "open sort > $name.mid: $!\n";
-    open(IRT, "| sort -u -o $name.irt") || die "open sort > $name.irt: $!\n";
-
-    while(<>) {
-       local($/) = "\n\n";
-       chop;
-       $file = $_;
-
-       open(R, $file) || do {
-           warn "open $file:$!\n";
-           next;
-       };
-       $bytes = 0;
-
-       while(<R>) {    
-           $headlen = length($_);
-           $from2 = substr($_, 0, 6);
-           $from =  substr($from2, 0, 5);
-
-           # warn "xxx" . $from . "yyy\n";
-           if ($from eq "From " || $from2 eq "\nFrom ") {
-
-               if ($from eq "From ") {
-                   $bytes2 = $bytes;
-               } else {
-                   # One bytes more for "\nFrom "
-                   $bytes2 = $bytes + 1;
-               }
-
-               $counter++;
-               s/\n[ \t]+/ /g;
-               if ($debug && $counter % $speedstep == 0) {
-                   print STDERR sprintf("\r%7d", $counter); 
-               }
-
-               foreach (split("\n")) {
-                   if (/^Message-id:\s+\<([^$idsep]+)/oi) {
-                       print MID "$1 $file $bytes2\n";
-                   } elsif (/^Resent-Message-id:\s+\<([^$idsep]+)/oi) {
-                       print MID "$1 $file $bytes2\n";
-                   } elsif (/^References:\s+\<([^$idsep]+)/oi) {
-                       print IRT "$1 $file $bytes2\n";
-                   } elsif (/^In-Reply-to:\s+[^<]*\<([^$idsep]+)/oi) {
-                       print IRT "$1 $file $bytes2\n";
-                   }
-               }
-            }
-             $bytes += $headlen;
-       }
-       close R;
-    }
-    close MID || warn "close: MID\n";
-    close IRT || warn "close: IRT\n";
-    print STDERR sprintf("\r%7d", $counter) 
-       if $debug && $counter % $speedstep != 0;
-    print STDERR "\n" if $debug;
-}
-
-$idsep = '>';
-$idsep = '>@\s';
-$debug = 0;
-$speedstep = 100;
-
-&usage if $#ARGV != 0;
-$name = $ARGV[0]; shift @ARGV;
-&id($name);
-
-
diff --git a/tools/tools/mid/mid-master b/tools/tools/mid/mid-master
deleted file mode 100755 (executable)
index b112eec..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/pkg/bin/perl
-
-if ($#ARGV < 1) {
-    die "usage master counter command comandargs ... \n";
-}
-
-$count = $ARGV[0]; shift @ARGV;
-@command = @ARGV;
-$file = pop(@command);
-undef @ARGV;
-$debug = 0;
-
-for($i = 0; $i < $count; $i ++) {
-    @c = (@command, "$file.$i");
-    warn "Start process: $i @c\n" if $debug;
-    open("OUT$i", "| @c") || die "open @c\n";
-    select("OUT$i"); $| = 1;
-}
-select(STDOUT);
-
-$n = 0;
-while(<>) {
-    $o = 'OUT' . ($n % $count);
-    print $o $_;
-    warn "$o $_" if $debug;
-    $n++
-}
-
-for($i = 0; $i < $count; $i ++) {
-    warn "Close process $i\n" if $debug;
-    close("OUT$i") || warn "close OUT$i: $!\n";
-}
-
diff --git a/tools/tools/mid/mid-master-index b/tools/tools/mid/mid-master-index
deleted file mode 100755 (executable)
index 8b32acd..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/bin/sh
-
-if [ $# -le 2 ]; then
-       echo "usage $0 parallel_processes command [comand_options]"
-       exit 1
-fi
-
-count=$1; shift
-command=$1; shift
-file=$1; shift
-filelistmid=`perl -e "for(0 .. $count -1) {print qq{$file.temp.\\$_.mid }}"`
-filelistirt=`perl -e "for(0 .. $count -1) {print qq{$file.temp.\\$_.irt }}"`
-
-if mid-master $count $command $file.temp; then
-    sort -u -m -o $file.temp.mid $filelistmid && 
-       rm -f $filelistmid && mv $file.temp.mid $file.mid || exit 1
-    sort -u -m -o $file.temp.irt $filelistirt && 
-       rm -f $filelistirt && mv $file.temp.irt $file.irt || exit 1
-else
-    exit 1
-fi