git: 27783115a91c - main - remove stale message-id scripts
- Go to: [ bottom of page ] [ top of archives ] [ this month ]
Date: Mon, 15 May 2023 06:34:29 UTC
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