Re: D-I auto-update mails, spellchecking and info

[Jacobo Tarrio <jtarrio@trasno.net>]

El miércoles, 19 de abril de 2006 a las 08:28:05 +0200, Christian Perrier escribía:

> More generally, we should work on making these notification mails
> easier to interprete for all translators. The current output is a bit
> "geeky" (though still very useful of course).

 The quick & dirty Perl script I'm attaching may aid on interpreting them.

-- 
   Jacobo Tarrío     |     http://jacobo.tarrio.org/

#!/usr/bin/perl -w

use strict;

my @oldstat = ();
my @newstat = ();
my %oldfiles = ();
my %newfiles = ();
my $oldglobal = "";
my $newglobal = "";

# Gather data
my @lines = <>;
foreach my $line (@lines) {
  chomp $line;
  if ($line =~ /^---\s+.*?level(\d)_(.*?)\.txt\.old\s+(.*?)\.0+\s+([-+]\d+)$/) {
    @oldstat = ($1, $2, "$3 $4");
  }
  elsif ($line =~ /^\+\+\+\s+.*?level(\d)_(.*?)\.txt\s+(.*?)\.0+\s+([-+]\d+)$/) {
    @newstat = ($1, $2, "$3 $4");
  }
  elsif ($line =~ /^([-+])Global statistics: (\d+t\d+f\d+u)/) {
    $oldglobal = $2 if ($1 eq '-');
    $newglobal = $2 if ($1 eq '+');
  }
  elsif ($line =~ /^([-+])\s+(.*?\.po)\s+((\d+t)?(\d+f)?(\d+u)?)/) {
    $oldfiles{$2} = $3 if ($1 eq '-');
    $newfiles{$2} = $3 if ($1 eq '+');
  }
}

# Prepare data
my $new = "";
my $changed = "";
my $removed = "";
foreach my $f (sort keys %newfiles) {
  if (!defined $oldfiles{$f}) {
    $new .= "  * $f : $newfiles{$f}\n";
  }
  else {
    $changed .= "  * $f : $oldfiles{$f} -> $newfiles{$f}\n";
    delete $oldfiles{$f};
  }
}
foreach my $f (sort keys %oldfiles) {
  $removed .= "  * $f : $oldfiles{$f}\n";
}

# Display data
print "Changes for $newstat[1] level $newstat[0]\n";
print "   between $oldstat[2] and $newstat[2]\n";
print "\n";

print "Removed files:\n$removed\n" if ($removed ne "");
print "Added files:\n$new\n" if ($new ne "");
print "Changed files:\n$changed\n" if ($changed ne "");

print "Old totals: $oldglobal\n" if ($oldglobal ne "");
print "New totals: $newglobal\n" if ($newglobal ne "");