_cj-git-gconfdiff

#!/usr/bin/perl -w

use strict;

our @diff=("diff","-u");

$0=~ /(.*?)([^\/]+)\z/s or die "?";
my ($mydir, $myname)=($1,$2);
sub usage {
    print STDERR map{"$_\n"} @_ if @_;
    print "$myname ..

  adapted COPY from _cj-git-tkdiff, see there
";
exit (@_ ? 1 : 0);
}

usage unless @ARGV==7;

our ($file2,
     $file1,
     $sha1_1,
     $perms_X,
     $hmunknownwhyagainfile2,
     $sha1_2,
     $perms_Y
    )= @ARGV;

use Chj::xperlfunc;
use Chj::xtmpfile;
use Chj::xopen 'xopen_read';
use Chj::IO::MD5;

sub filter_file {
    my ($file)=@_;
    if (-e $file) {
	my $in= xopen_read $file;
	my $out= xtmpfile;
	while (<$in>) {
	    s/mtime="\d{10}"/mtime="<REMOVED-BY-$myname>"/sg;
	    $out->xprint($_);
	}
	$in->xclose;
	$out->xclose;
	$out
    } else {
	xopen_read "/dev/null"
	  #hehe, need an object with a path method, incidentally that works nicely
    }
}

our ($file1_,$file2_)=($file1,$file2);
our @f= map { filter_file $_ } ($file1,$file2);
our @p= map { $_->path } @f;

sub md5 {
    my ($path)=@_;
    my $f= xopen_read $path;
    my $r= $f->Chj::IO::MD5::md5;
    $f->xclose;
    $r
}

our @m= map { md5 $_ } @p;

if ($m[0] ne $m[1]) {

    print "@diff $file1_ $file2_\n"
      or die $!;

    xsystem @diff, @p;
    # ^ instead of xexec, since git diff issues a warning if we don't exit true.

}