ffzg/filter/lang_display.pm

#!/usr/bin/perl -w

sub lang_display {
        my @out;
        foreach my $v1 (@_) {
                $v1 =~ s/(HRV|CRO)/Hrvatski/gi;
                $v1 =~ s/SCC/Srpski/gi;
                $v1 =~ s/GER/Njemaèki/gi;
                $v1 =~ s/ENG/Engleski/gi;
                $v1 =~ s/ITA/Talijanski/gi;
                $v1 =~ s/SLV/Slovenski/gi;
                $v1 =~ s/RUS/Ruski/gi;
                $v1 =~ s/(FRE|FR)/Francuski/gi;
                $v1 =~ s/MAC/Makedonski/gi;
                $v1 =~ s/HUN/Maðarski/gi;
                push @out,$v1;  # save modified version
        }
        return @out;
}

1;
1	dpavlin	26	#!/usr/bin/perl -w
2
3			sub lang_display {
4			my @out;
5			foreach my $v1 (@_) {
6			$v1 =~ s/(HRV\|CRO)/Hrvatski/gi;
7	dpavlin	613	$v1 =~ s/SCC/Srpski/gi;
8	dpavlin	26	$v1 =~ s/GER/Njemaèki/gi;
9			$v1 =~ s/ENG/Engleski/gi;
10	dpavlin	145	$v1 =~ s/ITA/Talijanski/gi;
11			$v1 =~ s/SLV/Slovenski/gi;
12			$v1 =~ s/RUS/Ruski/gi;
13	dpavlin	613	$v1 =~ s/(FRE\|FR)/Francuski/gi;
14	dpavlin	340	$v1 =~ s/MAC/Makedonski/gi;
15	dpavlin	613	$v1 =~ s/HUN/Maðarski/gi;
16	dpavlin	26	push @out,$v1; # save modified version
17			}
18			return @out;
19			}
20
21			1;