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

   1 #!/usr/bin/perl -w
   2
   3 sub lang_swish {
   4         my @out;
   5         foreach my $v1 (@_) {
   6                 push @out,$v1;  # save original
   7                 $v1 =~ s/(HRV|CRO)/Hrvatski/gi;
   8                 $v1 =~ s/GER/Njemaèki/gi;
   9                 $v1 =~ s/ENG/Engleski/gi;
  10                 $v1 =~ s/ITA/Talijanski/gi;
  11                 $v1 =~ s/SLV/Slovenski/gi;
  12                 $v1 =~ s/RUS/Ruski/gi;
  13                 $v1 =~ s/FRE/Francuski/gi;
  14                 push @out,$v1;  # save modified version
  15         }
  16         return @out;
  17 }
  18
  19 1;