1###### PATCHTAG00 ####################################################
2###      Turkish/T�rk�e
3###      => �zg�r C. Demir <ozgurcd@koc.net>
4###### PATCHTAG10 ####################################################
5  &turkish
6###### PATCHTAG20 ####################################################
7  'turkish'	 => \&turkish,
8  'turkce'	 => \&turkish,
9###### PATCHTAG30 ####################################################
10# Turkish/T�rk�e
11    'turkish' =>
12    "T�rk�ele�tiren
13				<a href=\"mailto:ozgurcd\@koc.net\">�zg�r C. Demir</a>",
14###### PATCHTAG40 ####################################################
15$credits::LOCALE{'turkce'}=$credits::LOCALE{'turkish'};
16###### PATCHTAG50 ####################################################
17# Turkish
18
19sub turkish
20{
21  my $string = shift;
22return "" unless defined $string;
23  my(%translations,%month,%wday);
24
25  my($i,$j);
26  my(@dollar,@quux,@foo);
27
28
29  # regexp => replacement string NOTE does not use autovars $1,$2...
30
31  %translations =
32  (
33     'iso-8859-1'                             => 'iso-8859-9',
34     'Maximal 5 Minute Incoming Traffic'      => '5 dakika i�in en y�ksek giri� trafi�i',
35     'Maximal 5 Minute Outgoing Traffic'      => '5 dakika i�in en y�ksek ��k�� trafi�i',
36     'the device'                             => 'ayg�t',
37     'The statistics were last updated(.*)'   => '�statistiklerin en son g�ncellenmesi $1',
38     ' Average\)'                             => ' Ortalama)',
39     'Average'                                => 'Ortalama',
40     'Max'                                    => 'EnY�ksek;x',
41     'Current'                                => '�uAnki',
42     'version'                                => 's�r�m',
43     '`Daily\' Graph \((.*) Minute'           => 'G�nl�k ($1 dakika :',
44     '`Weekly\' Graph \(30 Minute'            => 'Haftal�k (30 dakika :' ,
45     '`Monthly\' Graph \(2 Hour'              => 'Ayl�k (2 saat :',
46     '`Yearly\' Graph \(1 Day'                => 'Y�ll�k (1 g�n :',
47     'Incoming Traffic in (\S+) per Second'   => '$1 deki saniyelik giri� trafi�i',
48     'Outgoing Traffic in (\S+) per Second'   => '$1 deki saniyelik ��k�� trafi�i',
49     'at which time (.*) had been up for(.*)' => '$1 Ne zamandan $2 beri ayakta',
50     # '([kMG]?)([bB])/s'                      => '\$1\$2/s',
51     # '([kMG]?)([bB])/min'                    => '\$1\$2/min',
52     # '([kMG]?)([bB])/h'                       => '$1$2/t',
53     # 'Bits'                                  => 'Bit',
54     # 'Bytes'                                 => 'Byte'
55     'In'                                     => 'Giri�',
56     'Out'                                    => '��k��',
57     'Percentage'                             => 'Y�zge',
58     'Ported to OpenVMS Alpha by'             => 'OpenVMS Alpha ya uyarlayan',
59     'Ported to WindowsNT by'                 => 'WindowsNT ye uyarlayan',
60     'and'                                    => 've',
61     '^GREEN'                                 => 'YE��L',
62     'BLUE'                                   => 'MAV�',
63     'DARK GREEN'                             => 'KOYU YE��L',
64     'MAGENTA'                                => 'MACENTA',
65     'AMBER'                                  => 'AMBER'
66  );
67
68# maybe expansions with replacement of whitespace would be more appropriate
69
70foreach $i (keys %translations)
71{
72  my $trans = $translations{$i};
73  $trans =~ s/\|/\|/;
74  return $string if eval " \$string =~ s|\${i}|${trans}| ";
75};
76
77%wday =
78    (
79      'Sunday'    => 'Pazar',		'Pzr' => 'Dom',
80      'Monday'    => 'Pazartesi',	'Pzt' => 'Lun',
81      'Tuesday'   => 'Sal�',		'Sal' => 'Mar',
82      'Wednesday' => '�ar�amba',	'�r�' => 'Mi&eacute;',
83      'Thursday'  => 'Per�embe',	'Pr�' => 'Jue',
84      'Friday'    => 'Cuma',		'Cum' => 'Vie',
85      'Saturday'  => 'Cumartesi',	'Cmr' => 'Sab'
86    );
87
88%month =
89    (
90 'January' => 'Ocak',    'February' => '�ubat',     'March'     => 'Mart',
91 'Jan'     => 'Ock',     'Feb'      => '�ub',       'Mar'       => 'Mar',
92 'April'   => 'Nisan',   'May'      => 'May�s',     'June'      => 'Haziran',
93 'Apr'     => 'Nis',     'May'      => 'May',       'Jun'       => 'Hzr',
94 'July'    => 'Temmuz',  'August'   => 'Agustos',   'September' => 'Eyl�l',
95 'Jul'     => 'Tem',     'Aug'      => 'Agu',       'Sep'       => 'Eyl',
96 'October' => 'Ekim',    'November' => 'Kas�m',     'December'  => 'Aral�k',
97 'Oct'     => 'Ekm',     'Nov'      => 'Kas',       'Dec'       => 'Ara'
98    );
99
100  @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/);
101  if($foo[0] && $wday{$foo[0]} && $foo[2] && $month{$foo[2]} )
102    {
103	if($foo[3]=~(/(.*)at(.*)/))
104      {
105        @quux=split(/at/,$foo[3]);
106        $foo[3]=$quux[0]." a las ".$quux[1];
107      };
108      return "$wday{$foo[0]} $foo[1] de $month{$foo[2]} de $foo[3]";
109    };
110}
111