source: git/lib/mailmsgs.pl @ a26bab0

RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-data
Last change on this file since a26bab0 was 540b5d2, checked in by Olly Betts <olly@…>, 18 years ago

Update Josep's email address.

git-svn-id: file:///home/survex-svn/survex/branches/survex-1_1@3229 4b37db11-9a0c-4f06-9ece-9ab7cdaee568

  • Property mode set to 100755
File size: 950 bytes
Line 
1#!/usr/bin/perl -w
2require 5.008;
3use bytes;
4use strict;
5
6use integer;
7
8my $version =`sed 's/^AM_INIT.*(.*, *\\([0-9][0-9\\.]*\\)).*/\\1/p;d' ../configure.in`;
9
10my %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
25for 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.