RELEASE/1.0RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-data
Line | |
---|
1 | #!/usr/bin/perl -w |
---|
2 | require 5.004; |
---|
3 | use strict; |
---|
4 | |
---|
5 | use integer; |
---|
6 | |
---|
7 | my %email = ( |
---|
8 | 'de' => 'Gerhard Niklasch <nikl@mathematik.tu-muenchen.de>, <niklasch@consol.de>', |
---|
9 | 'fr' => 'Eric.Madelaine@sophia.inria.fr', |
---|
10 | 'it' => 'zoom7@freemail.it', |
---|
11 | # 'es' => 'nobody@localhost', |
---|
12 | 'ca' => 'jep@redestb.es', |
---|
13 | 'pt' => 'leandro@dybal.eti.br', |
---|
14 | 'sk' => 'martinsluka@mac.com' |
---|
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.