mirror of
https://github.com/freebsd/freebsd-src
synced 2024-10-07 00:50:50 +00:00
remove stale message-id scripts
This commit is contained in:
Wolfram Schneider
parent
1cf4473fa3
commit
27783115a9
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
@ -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);
|
||||
|
||||
|
||||
|
|
@ -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";
|
||||
}
|
||||
|
||||
|
|
@ -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
|
||||
Loading…
Reference in a new issue