Rev | Line | |
---|
[7bb8184] | 1 | #!/usr/bin/perl -w |
---|
| 2 | require 5.008; |
---|
| 3 | use bytes; |
---|
| 4 | use strict; |
---|
| 5 | |
---|
| 6 | use integer; |
---|
| 7 | |
---|
| 8 | my $version =`sed 's/^AM_INIT.*(.*, *\\([0-9][0-9\\.]*\\)).*/\\1/p;d' ../configure.in`; |
---|
| 9 | |
---|
| 10 | my %email = ( |
---|
| 11 | 'de' => 'Gerhard Niklasch <nikl@mathematik.tu-muenchen.de>, <niklasch@consol.de>', |
---|
| 12 | 'fr' => 'Eric.Madelaine@sophia.inria.fr', |
---|
| 13 | 'it' => 'zoomx@tiscalinet.it', # was robywack@tin.it but that's webmail only |
---|
| 14 | # 'es' => 'nobody@localhost', |
---|
| 15 | 'ca' => 'josep@imapmail.org', |
---|
| 16 | 'pt' => 'leandro@dybal.eti.br', |
---|
| 17 | 'sk' => 'martinsluka@mac.com', |
---|
| 18 | 'ro' => 'cristif@geo.unibuc.ro' |
---|
| 19 | ); |
---|
| 20 | |
---|
| 21 | #system "rm *.todo"; |
---|
| 22 | |
---|
| 23 | #system "./makemsgs.pl messages.txt"; |
---|
| 24 | |
---|
| 25 | for my $lang (sort keys %email) { |
---|
| 26 | #$email{$lang} = 'olly@mantis.co.uk'; |
---|
| 27 | if (-s "$lang.todo") { |
---|
| 28 | print "Mailing $lang.todo to $email{$lang}\n"; |
---|
| 29 | system "mutt -s 'Survex $version: Messages Requiring Translation' \Q$email{$lang}\E < \Q$lang.todo\E"; |
---|
| 30 | unlink "$lang.todo"; |
---|
| 31 | } else { |
---|
| 32 | print "$lang is up to date\n"; |
---|
| 33 | } |
---|
| 34 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.