head	1.2;
access;
symbols
	RELENG_9_1_0_RELEASE:1.1.2.1
	RELENG_9_1:1.1.2.1.0.2
	RELENG_9_1_BP:1.1.2.1
	RELENG_9_0_0_RELEASE:1.1
	RELENG_9_0:1.1.0.4
	RELENG_9_0_BP:1.1
	RELENG_9:1.1.0.2
	RELENG_9_BP:1.1;
locks; strict;
comment	@# @;


1.2
date	2012.05.17.05.11.57;	author delphij;	state dead;
branches;
next	1.1;

1.1
date	2010.10.28.19.06.17;	author rpaulo;	state Exp;
branches
	1.1.2.1;
next	;

1.1.2.1
date	2012.05.28.19.13.21;	author delphij;	state dead;
branches;
next	;


desc
@@


1.2
log
@SVN rev 235530 on 2012-05-17 05:11:57Z by delphij

Merge tcpdump 4.2.1.

MFC after:	2 weeks
@
text
@#!/usr/bin/perl

system("mkdir -p NEW DIFF");

if(@@ARGV == 1) {
  open(TESTLIST, "TESTLIST") || die "can not open TESTLIST: $!\n";
  $wanted = $ARGV[0];
  #print "Searching for test case $wanted\n";
  while(<TESTLIST>) {
    #print "Processing $_\n";
    next unless (/^$wanted/);

    chop;
    ($name,$input,$output,$options)=split(/\s+/,$_, 4);
    last;
  }
  close(TESTLIST);

  die "Can not find test $wanted\n" unless defined($input);

} elsif(@@ARGV == 4) {
  $name=$ARGV[0];
  $input=$ARGV[1];
  $output=$ARGV[2];
  $options=$ARGV[3];
} else {
  print "Usage: TESTonce name [input output options]\n";
  exit 20;
}

print "Running $name. \n";
print "   Input: $input, OUTPUT: $output, OPTIONS: $options\n";

if (! -f $input) {
  ($puu = $input) =~ s/\.pcap/\.puu/;
  if( -f $puu) {
    print "Uudecoding $puu to make $input\n";
    system("uudecode $puu");
  }
}

print "    ";
exec("../tcpdump -n -r $input $options | tee NEW/$output | diff -w - $output >DIFF/$output.diff");
@@cores = glob("core*");
exit 10 if (@@cores > 0);
exit 0;
@


1.1
log
@SVN rev 214478 on 2010-10-28 19:06:17Z by rpaulo

Merge tcpdump-4.1.1.
@
text
@@


1.1.2.1
log
@SVN rev 236192 on 2012-05-28 19:13:21Z by delphij

MFC: tcpdump 4.2.1.
@
text
@@


