1# 2# Sample Translation for mrtg ... 3# 4###################################################################### 5# Adds support for Icelandic to locales_mrtg.pm. Translate this file to 6# your language and send the translation to oetiker@ee.ethz.ch if you 7# want to integrate your translation to the existing locales_mrtg.pm 8# use 9# 10# locales_pt.pl locales_mrtg.pm yourlanguage.pt > locales_mrtg.new.pm 11# 12##################################################################### 13 14###### PATCHTAG 00 ################################################### 15### Icelandic/Islenska 16### => Halldor Karl H�gnason <halldor.hognason@islandssimi.is> 17###### PATCHTAG 10 ################################################### 18 &icelandic 19###### PATCHTAG 20 ################################################### 20 'icelandic' => \&icelandic, 21 'islenska' => \&icelandic, 22###### PATCHTAG 30 ################################################### 23# Icelandic/islenska 24 'icelandic' => 25 "Þýtt yfir á íslensku af 26 <a href=\"http://www.islandssimi.is\">Halldór Karl Högnason</a> 27 <a href=\"mailto:halldor.hognason\@islandssimi.is\"><halldor.hognason\@islandssimi.is></a>", 28###### PATCHTAG 40 ################################################### 29$credits::LOCALE{'islenska'}=$credits::LOCALE{'icelandic'}; 30###### PATCHTAG 50 ################################################### 31# Icelandic 32 33sub icelandic 34{ 35 my $string = shift; 36return "" unless defined $string; 37 my(%translations,%month,%wday); 38 39 my($i,$j); 40 my(@dollar,@quux,@foo); 41 42 43 # regexp => replacement string NOTE does not use autovars $1,$2... 44 # charset=iso-2022-jp 45 46 %translations = 47 ( 48 #'charset=iso-8859-1' => 'charset=iso-8859-1', 49 'Maximal 5 Minute Incoming Traffic' => 'Hámarks 5 mínútna umferð inn', 50 'Maximal 5 Minute Outgoing Traffic' => 'Hámarks 5 mínútna umferð út', 51 'the device' => 't�kið', 52 'The statistics were last updated(.*)' => 'Gögnin voru síðast uppfærð$1', 53 ' Average\)' => ' Meðaltal)', 54 'Average' => 'Meðaltal', 55 'Max' => 'Hámark', 56 'Current' => 'Nú', 57 'version' => 'útgáfa', 58 '`Daily\' Graph \((.*) Minute' => '`Dagleg\' staða ($1 mínútur', 59 '`Weekly\' Graph \(30 Minute' => '`Vikuleg\' staða (30 mínútur', 60 '`Monthly\' Graph \(2 Hour' => '`Mánaðarleg\' staða (2 klst.', 61 '`Yearly\' Graph \(1 Day' => '`&Aarleg\' staða (1 dags', 62 'Incoming Traffic in (\S+) per Second' => 'Umferð inn í $1 á sekúndu', 63 'Outgoing Traffic in (\S+) per Second' => 'Umferð út í $1 á sekúndu', 64 'at which time (.*) had been up for(.*)' => 'þegar $1 hafði verið uppi í$2', 65 # '([kMG]?)([bB])/s' => '\$1\$2/sek', 66 # '([kMG]?)([bB])/min' => '\$1\$2/mín', 67 '([kMG]?)([bB])/h' => '$1$2/klst', 68 # 'Bits' => 'Bitar', 69 # 'Bytes' => 'Bæti' 70 'In' => 'Inn', 71 'Out' => 'Út', 72 'Percentage' => 'Prósent', 73 'Ported to OpenVMS Alpha by' => 'Staðfært á OpenVMS af', 74 'Ported to WindowsNT by' => 'Staðfært á WindowsNT af', 75 'and' => 'og', 76 '^GREEN' => 'GRÆNt', 77 'BLUE' => 'BLÁTT', 78 'DARK GREEN' => 'DÖKK GRÆNN', 79 'MAGENTA' => 'BLÁRAUÐUR', 80 'AMBER' => 'GULBRÚNN' 81 ); 82 83# maybe expansions with replacement of whitespace would be more appropriate 84 85foreach $i (keys %translations) 86{ 87 my $trans = $translations{$i}; 88 $trans =~ s/\|/\|/; 89 return $string if eval " \$string =~ s|\${i}|${trans}| "; 90}; 91 92%wday = 93 ( 94 'Sunday' => 'Sunnudagur', 'Sun' => 'Sun', 95 'Monday' => 'Mánudagur', 'Mon' => 'Mán', 96 'Tuesday' => 'Þriðjudagur', 'Tue' => 'Þri', 97 'Wednesday' => 'Miðvikudagur', 'Wed' => 'Mið', 98 'Thursday' => 'Fimmtudagur', 'Thu' => 'Fim', 99 'Friday' => 'Föstudagur', 'Fri' => 'Fös', 100 'Saturday' => 'Laugardagur', 'Sat' => 'Lau' 101 102 ); 103 104%month = 105 ( 106 'January' => 'Janúar', 'February' => 'Febrúar' , 'March' => 'Mars', 107 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', 108 'April' => 'Apríl', 'May' => 'Maí', 'June' => 'Júní', 109 'Apr' => 'Apr', 'May' => 'Maí', 'Jun' => 'Jún', 110 'July' => 'Júlí', 'August' => 'Ágúst', 'September' => 'September', 111 'Jul' => 'Júl', 'Aug' => 'Ágú', 'Sep' => 'Sep', 112 'October' => 'Október', 'November' => 'Nóvember', 'December' => 'Desember', 113 'Oct' => 'Okt', 'Nov' => 'Nóv', 'Dec' => 'Des' 114 ); 115 116 @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); 117 if($foo[0] && $wday{$foo[0]} && $foo[2] && $month{$foo[2]} ) 118 { 119 if($foo[3]=~(/(.*)at(.*)/)) 120 { 121 @quux=split(/at/,$foo[3]); 122 $foo[3]=$quux[0]." kl.".$quux[1]; 123 }; 124 return "$wday{$foo[0]} den $foo[1]. $month{$foo[2]} $foo[3]"; 125 }; 126 127# 128# handle two different time/date formats: 129# return "$wday, $mday $month ".($year+1900)." at $hour:$min"; 130# return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; 131# 132 133# handle nontranslated strings which ought to be translated 134# print STDERR "$_\n" or print DEBUG "not translated $_"; 135# but then again we might not want/need to translate all strings 136 137 return $string; 138 139}; 140