RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-datawalls-data-hanging-as-warning
Rev | Line | |
---|
[e7839be] | 1 | #!/usr/bin/perl -w |
---|
| 2 | require 5.004; |
---|
| 3 | use strict; |
---|
| 4 | |
---|
| 5 | use integer; |
---|
| 6 | |
---|
[45ae755] | 7 | my $version =`sed 's/^AM_INIT.*(.*, *\\([0-9][0-9\\.]*\\)).*/\\1/p;d' ../configure.in`; |
---|
| 8 | |
---|
[e7839be] | 9 | my %email = ( |
---|
[4649d3a] | 10 | 'de' => 'Gerhard Niklasch <nikl@mathematik.tu-muenchen.de>, <niklasch@consol.de>', |
---|
[e7839be] | 11 | 'fr' => 'Eric.Madelaine@sophia.inria.fr', |
---|
[ce0093f] | 12 | 'it' => 'robywack@tin.it', # was zoom7@freemail.it |
---|
[510ac63] | 13 | # 'es' => 'nobody@localhost', |
---|
[e7839be] | 14 | 'ca' => 'jep@redestb.es', |
---|
[510ac63] | 15 | 'pt' => 'leandro@dybal.eti.br', |
---|
[e907d72] | 16 | 'sk' => 'martinsluka@mac.com', |
---|
| 17 | 'ro' => 'cristif@geo.unibuc.ro' |
---|
[e7839be] | 18 | ); |
---|
| 19 | |
---|
[b462168] | 20 | #system "rm *.todo"; |
---|
[e7839be] | 21 | |
---|
[b462168] | 22 | #system "./makemsgs.pl messages.txt"; |
---|
[e7839be] | 23 | |
---|
| 24 | for my $lang (sort keys %email) { |
---|
| 25 | #$email{$lang} = 'olly@mantis.co.uk'; |
---|
| 26 | if (-s "$lang.todo") { |
---|
| 27 | print "Mailing $lang.todo to $email{$lang}\n"; |
---|
[b462168] | 28 | system "mutt -s 'Survex $version: Messages Requiring Translation' \Q$email{$lang}\E < \Q$lang.todo\E"; |
---|
[e7839be] | 29 | unlink "$lang.todo"; |
---|
| 30 | } else { |
---|
| 31 | print "$lang is up to date\n"; |
---|
| 32 | } |
---|
| 33 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.