git.rot13.org Git - webpac/blob - filter/lang_display.pm

   1 #!/usr/bin/perl -w
   2
   3 sub lang_display {
   4         my @out;
   5         foreach my $v1 (@_) {
   6                 $v1 =~ s/(HRV|CRO)/Hrvatski/gi;
   7                 $v1 =~ s/GER/Njemaèki/gi;
   8                 $v1 =~ s/ENG/Engleski/gi;
   9                 push @out,$v1;  # save modified version
  10         }
  11         return @out;
  12 }
  13
  14 1;