source: git/lib/mailmsgs.pl @ 510ac63

RELEASE/1.0RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-data
Last change on this file since 510ac63 was 510ac63, checked in by Olly Betts <olly@…>, 22 years ago

Minor translation updates.

git-svn-id: file:///home/survex-svn/survex/trunk@1895 4b37db11-9a0c-4f06-9ece-9ab7cdaee568

  • Property mode set to 100755
File size: 753 bytes
Line 
1#!/usr/bin/perl -w
2require 5.004;
3use strict;
4
5use integer;
6
7my %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
17system "rm *.todo";
18
19system "./makemsgs.pl messages.txt";
20
21for 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.