#!/usr/bin/perl
# author: Vladimir Bogdanov (vladb)
# date:   2004-03
# Compares java classes in a set of jar files and
# prints out a straightforward inconsistency report.

use Getopt::Long;
use Data::Dumper;
use strict;

##---------------------------------------------
## CONFIG
##---------------------------------------------
@cfg::options = ("help|h","m");
$cfg::unzip = "/usr/5bin/unzip";

##---------------------------------------------
## MAIN
##---------------------------------------------
my %opts;
GetOptions(\%opts, @cfg::options);
help() if ($opts{help});

my @jars = @ARGV;
my (%jar_files, %jar_classes, $cmd, $out);

for my $jar (@jars) {
  $cmd = "$cfg::unzip -l $jar";

  my $pid = open(CMD, "-|");
  unless ($pid) {
	exec($cmd) || die "can't exec program: $!";
  }

  while (<CMD>) {
	if (/(\d+)[\t\s]+([\d-]+)[\t\s]+([\d:]+)[\t\s+]+((.*?)\.class)/) {
	  my $d = [$1, $2, $3];
	  $jar_files{$jar}{$4} = $d;
	  $jar_classes{$4}{$jar} = $d;
	}
  }
  close(CMD) || warn "failed to close CMD: $?";  
}

for my $c (keys %jar_classes) {
  my ($info, $size, $osize, $mod);  
  for my $j (@jars) {
	if (exists $jar_classes{$c}{$j}) {
	  $size = $jar_classes{$c}{$j}->[0];  
	  $osize = $size unless (defined $osize); 
	  $mod = 1 if ($size != $osize);
		
	  $info .= "   $j    \t" . join("\t", @{$jar_classes{$c}{$j}}) . "\n";	  
	} else {
	  $mod = 1;
	  $info .= "   $j    \tMISSING\n";
	}
  }

  
  if ($opts{m}) {
	next unless $mod;
	$mod = "";
  } else {
	$mod = "***  " if ($mod);
  }

  print "$mod$c:\n";
  print "$info\n";
}


##---------------------------------------------
## SUBROUTINES
##---------------------------------------------
sub help 
{
  print qq~
jardiff [help] <jarfile1> <jarfile2>

  Compares contents of two jar files.	

EXAMPLES:

  Show modified files only 

  jardiff -m j.jar j1.jar

~;
  exit;
}