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                 $v1 =~ s/ITA/Talijanski/gi;
  10                 $v1 =~ s/SLV/Slovenski/gi;
  11                 $v1 =~ s/RUS/Ruski/gi;
  12                 $v1 =~ s/FRE/Francuski/gi;
  13                 push @out,$v1;  # save modified version
  14         }
  15         return @out;
  16 }
  17
  18 1;