Fix issue #74

.github/workflows/build-linux.yml

@@ -26,7 +26,11 @@ jobs:
            make
            make doc
            sudo make install
-    - name: basic_test_mrtg
+    - name: unit_test
+      run: |
+           cd src
+           prove
+    - name: functional_test
       run: |
            mkdir test-mrtg
            cd test-mrtg

src/CHANGES

@@ -2,6 +2,7 @@ Changes 2.17.11, 2022-??-??
 ---------------------------
 From: youpong
 * stop making an orphan symlink (mrtg-mailer.pod)
+* fix Brazilian translation(Issue #74)
 
 Changes 2.17.10, 2022-01-19
 ---------------------------

src/bin/mrtg

@@ -93,7 +93,7 @@ my $NOW = timestamp;
 my $graphiteObj;
 
 # $SNMP_Session::suppress_warnings = 2;
-use locales_mrtg "0.07";
+use locales_mrtg "0.08";
 
 # Do not Flash Console Windows for the forked rateup process 
 BEGIN {

src/t/translation.t

@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use FindBin;
+use lib "${FindBin::Bin}/../lib/mrtg2";
+use locales_mrtg "0.08";
+
+my $LOC = $lang2tran::LOCALE{"brazilian"};
+unlike( &$LOC("The statistics were last updated <strong>Ter&ccedil;a, 26 de Outubro"),
+        qr/Sa&iacute;ubro/, "Issue #74");
+

src/translate/brazilian.pmd

@@ -31,43 +31,36 @@ return "" unless defined $string;
 
 
   # regexp => replacement string NOTE does not use autovars $1,$2...
-  # charset=iso-2022-jp
 
   %translations =
-  (  
-     #'charset=iso-8859-1'                     => 'charset=iso-8859-1',
-     'Maximal 5 Minute Incoming Traffic'      => 'Tráfego Máximo de Entrada em 5 minutos',
-     'Maximal 5 Minute Outgoing Traffic'      => 'Tráfego Máximo de Saída em 5 minutos',
-     'the device'                             => 'dispositivo',
-     'The statistics were last updated (.*)'  => 'Última atualização das estatísticas: $1',
-     ' Average\)'                             => ' - média)',
-     'Average'                                => 'Média',
-     'Max'                                    => 'Máx',
-     'Current'                                => 'Atual',
-     'version'                                => 'versão',
-     '`Daily\' Graph \((.*) Minute'           => 'Gráfico `Diário\' ($1 minutos',
-     '`Weekly\' Graph \(30 Minute'            => 'Gráfico `Semanal\' (30 minutos' ,
-     '`Monthly\' Graph \(2 Hour'              => 'Gráfico `Mensal\' (2 horas',
-     '`Yearly\' Graph \(1 Day'                => 'Gráfico `Anual\' (1 dia', 
-     'Incoming Traffic in (\S+) per Second'   => 'Tráfego de Entrada em $1 por segundo',
-     'Outgoing Traffic in (\S+) per Second'   => 'Tráfego de Saída em $1 por segundo',
-     'at which time (.*) had been up for(.*)' => 'nesta hora $1 estava ativo por $2',
-     # '([kMG]?)([bB])/s'                     => '\$1\$2/s',
-     # '([kMG]?)([bB])/min'                   => '\$1\$2/min',
-     # '([kMG]?)([bB])/h'                     => '$1$2/t',
-     # 'Bits'                                 => 'Bits',
-     # 'Bytes'                                => 'Bytes'
-     'In'                                     => 'Entr.',
-     'Out'                                    => 'Saí',
-     'Percentage'                             => 'Porc.',
-     'Ported to OpenVMS Alpha by'             => 'Adaptado para o Alpha OpenVMS por', 
-     'Ported to WindowsNT by'                 => 'Adaptado para o WindowsNT por',
-     'and'                                    => 'e',
+  (
+     '^Maximal 5 Minute Incoming Traffic'      => 'Tráfego Máximo de Entrada em 5 minutos',
+     '^Maximal 5 Minute Outgoing Traffic'      => 'Tráfego Máximo de Saída em 5 minutos',
+     '^the device'                             => 'dispositivo',
+     '^The statistics were last updated (.*)'  => 'Última atualização das estatísticas: $1',
+     '^ Average\)'                             => ' - média)',
+     '^Average$'                               => 'Média',
+     '^Max$'                                   => 'Máx',
+     '^Current'                                => 'Atual',
+     '^version'                                => 'versão', #
+     '^`Daily\' Graph \((.*) Minute'           => 'Gráfico `Diário\' ($1 minutos',
+     '^`Weekly\' Graph \(30 Minute'            => 'Gráfico `Semanal\' (30 minutos' ,
+     '^`Monthly\' Graph \(2 Hour'              => 'Gráfico `Mensal\' (2 horas',
+     '^`Yearly\' Graph \(1 Day'                => 'Gráfico `Anual\' (1 dia', 
+     '^Incoming Traffic in (\S+) per Second'   => 'Tráfego de Entrada em $1 por segundo',
+     '^Outgoing Traffic in (\S+) per Second'   => 'Tráfego de Saída em $1 por segundo',
+     '^at which time (.*) had been up for(.*)' => 'nesta hora $1 estava ativo por $2',
+     '^In$'                                    => 'Entr.',
+     '^Out$'                                   => 'Saí',
+     '^Percentage'                             => 'Porc.',
+     '^Ported to OpenVMS Alpha by'             => 'Adaptado para o Alpha OpenVMS por', 
+     '^Ported to WindowsNT by'                 => 'Adaptado para o WindowsNT por',
+     '^and'                                    => 'e',
      '^GREEN'                                  => 'VERDE',
-     'BLUE'                                   => 'AZUL',
-     'DARK GREEN'                             => 'VERDE ESCURO',
-     'MAGENTA'                                => 'LILÁS',
-     'AMBER'                                  => 'AMBAR'
+     '^BLUE'                                   => 'AZUL',
+     '^DARK GREEN'                             => 'VERDE ESCURO',
+     '^MAGENTA'                                => 'LILÁS',
+     '^AMBER'                                  => 'AMBAR'
   );
 
 # maybe expansions with replacement of whitespace would be more appropriate

src/translate/skeleton.pm0

@@ -43,7 +43,7 @@ use strict;
 use vars qw(@ISA @EXPORT $VERSION);
 use Exporter;
 
-$VERSION = '0.07';
+$VERSION = '0.08';
 
 @ISA = qw(Exporter);