diff -r ad6cef118983 -r 673369649d1e ha-diff --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ha-diff Thu Aug 13 23:39:27 2009 +0200 @@ -0,0 +1,17 @@ +#! /usr/bin/perl +# ha-diff [diff-options] file +use strict; +use warnings; +use Cwd qw(abs_path); + +die "bad usage" if @ARGV < 2; + +my $file = pop @ARGV; +my $other = pop @ARGV; + +$file = abs_path($file) if not $file =~ /^\//; +push @ARGV, "-u" if (not @ARGV); + +system qq{/bin/bash -c "diff @ARGV --label other <(ssh $other cat '$file') '$file'"}; +system qq{/bin/bash -c "diff @ARGV --label other --label local <(ssh $other stat '$file') <(stat '$file')"} + if $? == 0;