source: git/lib/mailmsgs.pl @ e7839be

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

2 more files...

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

  • Property mode set to 100755
File size: 725 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>, gerhard.niklasch@okay.net',
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);
15
16system "rm *.todo";
17
18system "./makemsgs.pl messages.txt";
19
20for my $lang (sort keys %email) {
21   #$email{$lang} = 'olly@mantis.co.uk';
22   if (-s "$lang.todo") {
23      print "Mailing $lang.todo to $email{$lang}\n";
24      system "mail -s 'Survex: Messages Requiring Translation' \Q$email{$lang}\E < \Q$lang.todo\E";
25      unlink "$lang.todo";
26   } else {
27      print "$lang is up to date\n";
28   }
29}
Note: See TracBrowser for help on using the repository browser.