head	1.3;
access;
symbols
	RELENG_8_4:1.3.0.2
	RELENG_9_1_0_RELEASE:1.2.62.1.4.2
	RELENG_9_1:1.2.62.1.0.4
	RELENG_9_1_BP:1.2.62.1
	RELENG_8_3_0_RELEASE:1.2.56.1.8.1
	RELENG_8_3:1.2.56.1.0.8
	RELENG_8_3_BP:1.2.56.1
	RELENG_9_0_0_RELEASE:1.2.62.1.2.1
	RELENG_9_0:1.2.62.1.0.2
	RELENG_9_0_BP:1.2.62.1
	RELENG_9:1.2.0.62
	RELENG_9_BP:1.2
	RELENG_7_4_0_RELEASE:1.2.60.1
	RELENG_8_2_0_RELEASE:1.2.56.1.6.1
	RELENG_7_4:1.2.0.60
	RELENG_7_4_BP:1.2
	RELENG_8_2:1.2.56.1.0.6
	RELENG_8_2_BP:1.2.56.1
	RELENG_8_1_0_RELEASE:1.2.56.1.4.1
	RELENG_8_1:1.2.56.1.0.4
	RELENG_8_1_BP:1.2.56.1
	RELENG_7_3_0_RELEASE:1.2.58.1
	RELENG_7_3:1.2.0.58
	RELENG_7_3_BP:1.2
	RELENG_8_0_0_RELEASE:1.2.56.1.2.1
	RELENG_8_0:1.2.56.1.0.2
	RELENG_8_0_BP:1.2.56.1
	RELENG_8:1.2.0.56
	RELENG_8_BP:1.2
	RELENG_7_2_0_RELEASE:1.2.54.1
	RELENG_7_2:1.2.0.54
	RELENG_7_2_BP:1.2
	RELENG_7_1_0_RELEASE:1.2.52.1
	RELENG_6_4_0_RELEASE:1.2.50.1
	RELENG_7_1:1.2.0.52
	RELENG_7_1_BP:1.2
	RELENG_6_4:1.2.0.50
	RELENG_6_4_BP:1.2
	RELENG_7_0_0_RELEASE:1.2
	RELENG_6_3_0_RELEASE:1.2
	RELENG_7_0:1.2.0.48
	RELENG_7_0_BP:1.2
	RELENG_6_3:1.2.0.46
	RELENG_6_3_BP:1.2
	RELENG_7:1.2.0.44
	RELENG_7_BP:1.2
	RELENG_6_2_0_RELEASE:1.2
	RELENG_6_2:1.2.0.42
	RELENG_6_2_BP:1.2
	RELENG_5_5_0_RELEASE:1.2
	RELENG_5_5:1.2.0.40
	RELENG_5_5_BP:1.2
	RELENG_6_1_0_RELEASE:1.2
	RELENG_6_1:1.2.0.38
	RELENG_6_1_BP:1.2
	RELENG_6_0_0_RELEASE:1.2
	RELENG_6_0:1.2.0.36
	RELENG_6_0_BP:1.2
	RELENG_6:1.2.0.34
	RELENG_6_BP:1.2
	RELENG_5_4_0_RELEASE:1.2
	RELENG_5_4:1.2.0.32
	RELENG_5_4_BP:1.2
	RELENG_4_11_0_RELEASE:1.2
	RELENG_4_11:1.2.0.30
	RELENG_4_11_BP:1.2
	RELENG_5_3_0_RELEASE:1.2
	RELENG_5_3:1.2.0.28
	RELENG_5_3_BP:1.2
	RELENG_5:1.2.0.26
	RELENG_5_BP:1.2
	RELENG_4_10_0_RELEASE:1.2
	RELENG_4_10:1.2.0.24
	RELENG_4_10_BP:1.2
	RELENG_5_2_1_RELEASE:1.2
	RELENG_5_2_0_RELEASE:1.2
	RELENG_5_2:1.2.0.22
	RELENG_5_2_BP:1.2
	RELENG_4_9_0_RELEASE:1.2
	RELENG_4_9:1.2.0.20
	RELENG_4_9_BP:1.2
	RELENG_5_1_0_RELEASE:1.2
	RELENG_5_1:1.2.0.18
	RELENG_5_1_BP:1.2
	RELENG_4_8_0_RELEASE:1.2
	RELENG_4_8:1.2.0.16
	RELENG_4_8_BP:1.2
	RELENG_5_0_0_RELEASE:1.2
	RELENG_5_0:1.2.0.14
	RELENG_5_0_BP:1.2
	RELENG_4_7_0_RELEASE:1.2
	RELENG_4_7:1.2.0.12
	RELENG_4_7_BP:1.2
	RELENG_4_6_2_RELEASE:1.2
	RELENG_4_6_1_RELEASE:1.2
	RELENG_4_6_0_RELEASE:1.2
	RELENG_4_6:1.2.0.10
	RELENG_4_6_BP:1.2
	RELENG_4_5_0_RELEASE:1.2
	RELENG_4_5:1.2.0.8
	RELENG_4_5_BP:1.2
	RELENG_4_4_0_RELEASE:1.2
	RELENG_4_4:1.2.0.6
	RELENG_4_4_BP:1.2
	RELENG_4_3_0_RELEASE:1.2
	RELENG_4_3:1.2.0.4
	RELENG_4_3_BP:1.2
	RELENG_4_2_0_RELEASE:1.2
	RELENG_4_1_1_RELEASE:1.2
	PRE_SMPNG:1.2
	RELENG_4_1_0_RELEASE:1.2
	RELENG_3_5_0_RELEASE:1.1.2.1
	RELENG_4_0_0_RELEASE:1.2
	RELENG_4:1.2.0.2
	RELENG_4_BP:1.2
	RELENG_3_4_0_RELEASE:1.1.2.1
	RELENG_3_3_0_RELEASE:1.1.2.1
	RELENG_3_2_PAO:1.1.0.4
	RELENG_3_2_PAO_BP:1.1
	RELENG_3_2_0_RELEASE:1.1
	RELENG_3_1_0_RELEASE:1.1
	RELENG_3:1.1.0.2
	RELENG_3_BP:1.1
	RELENG_3_0_0_RELEASE:1.1;
locks; strict;
comment	@# @;


1.3
date	2012.11.17.01.54.09;	author svnexp;	state Exp;
branches
	1.3.2.1;
next	1.2;

1.2
date	99.08.28.00.54.31;	author peter;	state Exp;
branches
	1.2.2.1
	1.2.34.1
	1.2.44.1
	1.2.50.1
	1.2.52.1
	1.2.54.1
	1.2.56.1
	1.2.58.1
	1.2.60.1
	1.2.62.1;
next	1.1;

1.1
date	98.05.20.09.19.59;	author wosch;	state Exp;
branches
	1.1.2.1;
next	;

1.3.2.1
date	2012.11.17.01.54.09;	author svnexp;	state dead;
branches;
next	1.3.2.2;

1.3.2.2
date	2013.03.28.13.05.58;	author svnexp;	state Exp;
branches;
next	;

1.2.2.1
date	2012.11.17.07.27.18;	author svnexp;	state Exp;
branches;
next	;

1.2.34.1
date	2012.11.17.07.45.29;	author svnexp;	state Exp;
branches;
next	;

1.2.44.1
date	2012.11.17.08.08.14;	author svnexp;	state Exp;
branches;
next	;

1.2.50.1
date	2008.10.02.02.57.24;	author kensmith;	state Exp;
branches;
next	;

1.2.52.1
date	2008.11.25.02.59.29;	author kensmith;	state Exp;
branches;
next	;

1.2.54.1
date	2009.04.15.03.14.26;	author kensmith;	state Exp;
branches;
next	;

1.2.56.1
date	2009.08.03.08.13.06;	author kensmith;	state Exp;
branches
	1.2.56.1.2.1
	1.2.56.1.4.1
	1.2.56.1.6.1
	1.2.56.1.8.1;
next	1.2.56.2;

1.2.56.2
date	2012.11.17.10.37.14;	author svnexp;	state Exp;
branches;
next	;

1.2.56.1.2.1
date	2009.10.25.01.10.29;	author kensmith;	state Exp;
branches;
next	;

1.2.56.1.4.1
date	2010.06.14.02.09.06;	author kensmith;	state Exp;
branches;
next	;

1.2.56.1.6.1
date	2010.12.21.17.09.25;	author kensmith;	state Exp;
branches;
next	;

1.2.56.1.8.1
date	2012.03.03.06.15.13;	author kensmith;	state Exp;
branches;
next	1.2.56.1.8.2;

1.2.56.1.8.2
date	2012.11.17.08.25.48;	author svnexp;	state Exp;
branches;
next	;

1.2.58.1
date	2010.02.10.00.26.20;	author kensmith;	state Exp;
branches;
next	;

1.2.60.1
date	2010.12.21.17.10.29;	author kensmith;	state Exp;
branches;
next	1.2.60.2;

1.2.60.2
date	2012.11.17.08.17.40;	author svnexp;	state Exp;
branches;
next	;

1.2.62.1
date	2011.09.23.00.51.37;	author kensmith;	state Exp;
branches
	1.2.62.1.2.1
	1.2.62.1.4.1;
next	1.2.62.2;

1.2.62.2
date	2012.11.17.11.37.35;	author svnexp;	state Exp;
branches;
next	;

1.2.62.1.2.1
date	2011.11.11.04.20.22;	author kensmith;	state Exp;
branches;
next	1.2.62.1.2.2;

1.2.62.1.2.2
date	2012.11.17.08.37.32;	author svnexp;	state Exp;
branches;
next	;

1.2.62.1.4.1
date	2012.08.05.23.54.33;	author kensmith;	state Exp;
branches;
next	1.2.62.1.4.2;

1.2.62.1.4.2
date	2012.11.17.08.48.24;	author svnexp;	state Exp;
branches;
next	;

1.1.2.1
date	99.08.29.15.18.28;	author peter;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Switching exporter and resync
@
text
@#!/usr/local/bin/perl
#
# create message-id / in-reply-to database
#
# $FreeBSD: head/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $

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.3.2.1
log
@file mid-index was added on branch RELENG_8_4 on 2013-03-28 13:05:58 +0000
@
text
@d1 83
@


1.3.2.2
log
@## SVN ## Exported commit - http://svnweb.freebsd.org/changeset/base/248810
## SVN ## CVS IS DEPRECATED: http://wiki.freebsd.org/CvsIsDeprecated
@
text
@a0 83
#!/usr/local/bin/perl
#
# create message-id / in-reply-to database
#
# $FreeBSD: releng/8.4/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $

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.2
log
@$Id$ -> $FreeBSD$
@
text
@d5 1
a5 1
# $FreeBSD$
@


1.2.44.1
log
@Switch importer
@
text
@d5 1
a5 1
# $FreeBSD: stable/7/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.34.1
log
@Switch importer
@
text
@d5 1
a5 1
# $FreeBSD: stable/6/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.2.1
log
@Switch importer
@
text
@d5 1
a5 1
# $FreeBSD: stable/4/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.62.1
log
@SVN rev 225736 on 2011-09-23 00:51:37Z by kensmith

Copy head to stable/9 as part of 9.0-RELEASE release cycle.

Approved by:	re (implicit)
@
text
@@


1.2.62.2
log
@## SVN ##
## SVN ## Exported commit - http://svnweb.freebsd.org/changeset/base/ 242902
## SVN ## CVS IS DEPRECATED: http://wiki.freebsd.org/CvsIsDeprecated
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ## r242902 | dteske | 2012-11-11 23:29:45 +0000 (Sun, 11 Nov 2012) | 10 lines
## SVN ##
## SVN ## Fix a regression introduced by SVN r211417 that saw the breakage of a feature
## SVN ## documented in usr.sbin/sysinstall/help/shortcuts.hlp (reproduced below):
## SVN ##
## SVN ## If /usr/sbin/sysinstall is linked to another filename, say
## SVN ## `/usr/local/bin/configPackages', then the basename will be used
## SVN ## as an implicit command name.
## SVN ##
## SVN ## Reviewed by:	adrian (co-mentor)
## SVN ## Approved by:	adrian (co-mentor)
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ##
@
text
@d5 1
a5 1
# $FreeBSD: stable/9/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.62.1.4.1
log
@SVN rev 239080 on 2012-08-05 23:54:33Z by kensmith

Copy stable/9 to releng/9.1 as part of the 9.1-RELEASE release process.

Approved by:	re (implicit)
@
text
@@


1.2.62.1.4.2
log
@Switch importer
@
text
@d5 1
a5 1
# $FreeBSD: releng/9.1/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.62.1.2.1
log
@SVN rev 227445 on 2011-11-11 04:20:22Z by kensmith

Copy stable/9 to releng/9.0 as part of the FreeBSD 9.0-RELEASE release
cycle.

Approved by:	re (implicit)
@
text
@@


1.2.62.1.2.2
log
@Switch importer
@
text
@d5 1
a5 1
# $FreeBSD: releng/9.0/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.60.1
log
@SVN rev 216618 on 2010-12-21 17:10:29Z by kensmith

Copy stable/7 to releng/7.4 in preparation for FreeBSD-7.4 release.

Approved by:	re (implicit)
@
text
@@


1.2.60.2
log
@Switch importer
@
text
@d5 1
a5 1
# $FreeBSD: releng/7.4/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.58.1
log
@SVN rev 203736 on 2010-02-10 00:26:20Z by kensmith

Copy stable/7 to releng/7.3 as part of the 7.3-RELEASE process.

Approved by:	re (implicit)
@
text
@@


1.2.56.1
log
@SVN rev 196045 on 2009-08-03 08:13:06Z by kensmith

Copy head to stable/8 as part of 8.0 Release cycle.

Approved by:	re (Implicit)
@
text
@@


1.2.56.2
log
@## SVN ##
## SVN ## Exported commit - http://svnweb.freebsd.org/changeset/base/ 242909
## SVN ## CVS IS DEPRECATED: http://wiki.freebsd.org/CvsIsDeprecated
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ## r242909 | dim | 2012-11-12 07:47:19 +0000 (Mon, 12 Nov 2012) | 20 lines
## SVN ##
## SVN ## MFC r242625:
## SVN ##
## SVN ## Remove duplicate const specifiers in many drivers (I hope I got all of
## SVN ## them, please let me know if not).  Most of these are of the form:
## SVN ##
## SVN ## static const struct bzzt_type {
## SVN ##       [...list of members...]
## SVN ## } const bzzt_devs[] = {
## SVN ##       [...list of initializers...]
## SVN ## };
## SVN ##
## SVN ## The second const is unnecessary, as arrays cannot be modified anyway,
## SVN ## and if the elements are const, the whole thing is const automatically
## SVN ## (e.g. it is placed in .rodata).
## SVN ##
## SVN ## I have verified this does not change the binary output of a full kernel
## SVN ## build (except for build timestamps embedded in the object files).
## SVN ##
## SVN ## Reviewed by:	yongari, marius
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ##
@
text
@d5 1
a5 1
# $FreeBSD: stable/8/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.56.1.8.1
log
@SVN rev 232438 on 2012-03-03 06:15:13Z by kensmith

Copy stable/8 to releng/8.3 as part of 8.3-RELEASE release cycle.

Approved by:	re (implicit)
@
text
@@


1.2.56.1.8.2
log
@Switch importer
@
text
@d5 1
a5 1
# $FreeBSD: releng/8.3/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
@


1.2.56.1.6.1
log
@SVN rev 216617 on 2010-12-21 17:09:25Z by kensmith

Copy stable/8 to releng/8.2 in preparation for FreeBSD-8.2 release.

Approved by:	re (implicit)
@
text
@@


1.2.56.1.4.1
log
@SVN rev 209145 on 2010-06-14 02:09:06Z by kensmith

Copy stable/8 to releng/8.1 in preparation for 8.1-RC1.

Approved by:	re (implicit)
@
text
@@


1.2.56.1.2.1
log
@SVN rev 198460 on 2009-10-25 01:10:29Z by kensmith

Copy stable/8 to releng/8.0 as part of 8.0-RELEASE release procedure.

Approved by:	re (implicit)
@
text
@@


1.2.54.1
log
@SVN rev 191087 on 2009-04-15 03:14:26Z by kensmith

Create releng/7.2 from stable/7 in preparation for 7.2-RELEASE.

Approved by:	re (implicit)
@
text
@@


1.2.52.1
log
@SVN rev 185281 on 2008-11-25 02:59:29Z by kensmith

Create releng/7.1 in preparation for moving into RC phase of 7.1 release
cycle.

Approved by:	re (implicit)
@
text
@@


1.2.50.1
log
@SVN rev 183531 on 2008-10-02 02:57:24Z by kensmith

Create releng/6.4 from stable/6 in preparation for 6.4-RC1.

Approved by:	re (implicit)
@
text
@@


1.1
log
@Add mid scripts. Mid is a tool which create a Message-ID database
for mailing lists.
@
text
@d5 1
a5 1
# $Id: mid-index,v 1.5 1998/04/13 13:08:47 wosch Exp $
@


1.1.2.1
log
@$Id$ -> $FreeBSD$
@
text
@d5 1
a5 1
# $FreeBSD$
@


