RELEASE/1.0RELEASE/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 | |
---|
| 7 | my %email = ( |
---|
[4649d3a] | 8 | 'de' => 'Gerhard Niklasch <nikl@mathematik.tu-muenchen.de>, <niklasch@consol.de>', |
---|
[e7839be] | 9 | 'fr' => 'Eric.Madelaine@sophia.inria.fr', |
---|
| 10 | 'it' => 'zoom7@freemail.it', |
---|
[510ac63] | 11 | # 'es' => 'nobody@localhost', |
---|
[e7839be] | 12 | 'ca' => 'jep@redestb.es', |
---|
[510ac63] | 13 | 'pt' => 'leandro@dybal.eti.br', |
---|
| 14 | 'sk' => 'martinsluka@mac.com' |
---|
[e7839be] | 15 | ); |
---|
| 16 | |
---|
| 17 | system "rm *.todo"; |
---|
| 18 | |
---|
| 19 | system "./makemsgs.pl messages.txt"; |
---|
| 20 | |
---|
| 21 | for my $lang (sort keys %email) { |
---|
| 22 | #$email{$lang} = 'olly@mantis.co.uk'; |
---|
| 23 | if (-s "$lang.todo") { |
---|
| 24 | print "Mailing $lang.todo to $email{$lang}\n"; |
---|
| 25 | system "mail -s 'Survex: Messages Requiring Translation' \Q$email{$lang}\E < \Q$lang.todo\E"; |
---|
| 26 | unlink "$lang.todo"; |
---|
| 27 | } else { |
---|
| 28 | print "$lang is up to date\n"; |
---|
| 29 | } |
---|
| 30 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.