The branch main has been updated by wosch:
URL:
https://cgit.FreeBSD.org/src/commit/?id=27783115a91ca0348df255514d7370e68a3d83df
commit 27783115a91ca0348df255514d7370e68a3d83df
Author: Wolfram Schneider <wo...@freebsd.org>
AuthorDate: 2023-05-15 06:29:39 +0000
Commit: Wolfram Schneider <wo...@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 <wo...@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
