#!/usr/bin/perl -w
# Quick and dirty script to compare two msgids (when using po4a with
# --previous) with wdiff to find the differences between them

my $file1="diff1";
my $file2="diff2";

open (my $DIFF1, ">$file1") || die ("Cannot open $file1: $!");
open (my $DIFF2, ">$file2") || die ("Cannot open $file2: $!");

my $fileh="";
while ($line = <STDIN>) {
    $fileh="";
    chomp $line;
    $fileh = $DIFF1 if ( $line =~ /^\#\|/ ) ;
    $fileh = $DIFF2 if ( $line =~ /^"/ ) ;
    $line =~ s/^\#\| //;
    $line =~ s/^"//;
    $line =~ s/"$//;
    print $fileh $line if $fileh ne "" and $line ne 'msgid "';
}

close $DIFF1; close $DIFF2;

system ("wdiff -3 $file1 $file2 | less");

unlink $file1, $file2;


exit;