git: 27783115a91c - main - remove stale message-id scripts

The branch main has been updated by wosch:

URL: https://cgit.FreeBSD.org/src/commit/?id=27783115a91ca0348df255514d7370e68a3d83df

commit 27783115a91ca0348df255514d7370e68a3d83df
Author:     Wolfram Schneider <wosch@FreeBSD.org>
AuthorDate: 2023-05-15 06:29:39 +0000
Commit:     Wolfram Schneider <wosch@FreeBSD.org>
CommitDate: 2023-05-15 06:29:39 +0000

    remove stale message-id scripts
---
 tools/tools/README               |  1 -
 tools/tools/mid/mid-build        | 46 ----------------------
 tools/tools/mid/mid-index        | 83 ----------------------------------------
 tools/tools/mid/mid-master       | 33 ----------------
 tools/tools/mid/mid-master-index | 21 ----------
 5 files changed, 184 deletions(-)

diff --git a/tools/tools/README b/tools/tools/README
index 6d2be5e7ae6b..cb5235ff0308 100644
--- a/tools/tools/README
+++ b/tools/tools/README
@@ -45,7 +45,6 @@ kernxref	Shellscript to cross reference symbols in the LINT kernel.
 kttcp		An in-kernel version of the ttcp network performance tool
 man		Scripts useful for working on man pages.
 mctest		A multicast test program
-mid	 	Create a Message-ID database for mailing lists.
 mwl		Tools specific to the Marvell 88W8363 support
 ncpus		Count the number of processors
 netmap		Test applications for netmap(4)
diff --git a/tools/tools/mid/mid-build b/tools/tools/mid/mid-build
deleted file mode 100755
index 0a2d4480a5a8..000000000000
--- a/tools/tools/mid/mid-build
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/sh
-#
-# Copyright (c) March 1998 Wolfram Schneider <wosch@FreeBSD.org>
-#
-# create a Message-ID, In-Reply-To look(1) index database
-#
-# $FreeBSD$
-
-
-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 100755
index a5ec10b78f3b..000000000000
--- a/tools/tools/mid/mid-index
+++ /dev/null
@@ -1,83 +0,0 @@
-#!/usr/local/bin/perl
-#
-# create message-id / in-reply-to database
-#
-# $FreeBSD$
-
-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
index 5ee531a11ab7..000000000000
--- a/tools/tools/mid/mid-master
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/local/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
index 8b32acd66a2b..000000000000
--- a/tools/tools/mid/mid-master-index
+++ /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