Deleted Added
sdiff udiff text old ( 36252 ) new ( 50477 )
full compact
mid-index (36252) mid-index (50477)
1#!/usr/local/bin/perl
2#
3# create message-id / in-reply-to database
4#
1#!/usr/local/bin/perl
2#
3# create message-id / in-reply-to database
4#
5# $Id: mid-index,v 1.5 1998/04/13 13:08:47 wosch Exp $
5# $FreeBSD: head/tools/tools/mid/mid-index 50477 1999-08-28 01:08:13Z peter $
6
7sub usage { die "usage: mid-index name < filelist"; }
8
9sub id {
10 local($name, @files) = @_;
11 local($bytes, $bytes2, $headlen, $file);
12 local($counter);
13 local($from,$from2);

--- 70 unchanged lines hidden --- 		6
7sub usage { die "usage: mid-index name < filelist"; }
8
9sub id {
10 local($name, @files) = @_;
11 local($bytes, $bytes2, $headlen, $file);
12 local($counter);
13 local($from,$from2);

--- 70 unchanged lines hidden ---