# -*- mode: Perl -*- ###################################################################### ### Localization of mrtg output pages ###################################################################### # # # This is a generated perl module file. # # Please see the perl script mergelocale.pl and the language # # databasefiles skelton.pm0 and locale.*.pmd in translate/. # # If you want to contribute to mrtg change in the *.pmd files. # # If you just want to change your own mrtg: Go ahead and edit! # # # ###################################################################### ### Defines programs which handles centralized pattern matching and pattern ### replacements in order to translate the given strings ###################################################################### ### Created by: Morten Storgaard Nielsen ################################################################### # # Distributed under the GNU copyleft # ################################################################### ### Locale by: ### Chinese/¤¤¤åÁcÅé ### => Tate Chen ³¯¥@°¶ ### => Ron ¶ÀªF¶© ### 2000/10/7 patch display '\$1\$2/s' errors ### Brazil/Brazilian Portuguese ### => Luiz Felipe R E ### Bulgarian/Áúëãàðñêè ### => Yovko Lambrev ### catalan/Català ### => LLuís Gras ### Simplified Chinese/¼òÌåÖÐÎÄ ### => Ù¤Âê¹û ### Croatian/Hrvatski ### => Dinko Korunic ### Czech/Èesky ### => Martin Och ### Danish/Dansk ### => Morten Storgaard Nielsen ### Dutch/Nederlands ### => Barry van Dijk ### euc-jp ### => Fuminori Uematsu ### French/Francais ### => Fabrice Prigent ### and Stéphane Marzloff ### Galician/Galego ### => David Garabana Barro ### Chinese/¼òÌ庺×Ö ### => Zhanghui ÕÅ»Ô ### Chinese/ÖÐÎļòÌå ### => Peter Wong ×ÓÈÙ ### German/Deutsch ### => Ilja Pavkovic ### Greek/Ellinika ### => Simos Xenitellis ### Hungarian/Magyar ### => Levente Nagy ### Icelandic/Islenska ### => Halldor Karl Högnason ### Indonesian/Indonesia ### => Jamaludin Ahmad ### taken from malaysian translation ### by Assakhof Ab. Satar ### iso-2022-jp ### => Fuminori Uematsu ### Italian/Italiano ### => Andrea Rossi ### Korean ### => Kensoon Hwang ### Lithuanian/Lietuviðkai ### => ve ### Malaysian/Malay ### => Assakhof Ab. Satar ### Norwegian/norsk ### => Knut Grøneng Lukasz Jokiel ### Portuguese/Português ### => Diogo Gomes ### Romãn/Romanian ### => József Szilágyi ### Russian/òÕÓÓËÉÊ ### => äÍÉÔÒÉÊ óÉ×ÁÞÅÎËÏ ### Russian1251/Ðóññêèé1251 ### => Àëåêñàíäð Ðåäþê ### Serbian/Srpski ### => Ratko Bucic ### Slovak/Slovensky ### => Ladislav Mihok ### Slovenian/Slovensko ### => Aljosa Us ### Spanish/Español ### => Marcelo Roccasalva ### Swedish/Svenska ### => Clas Mayer ### Turkish/Türkçe ### => Özgür C. Demir ### ### Contributions and fixes by: ### ### 0.05 fixed DARK GREEN entry (msn@ipt.dtu.dk) ### fixed credits for native language (msn@ipt.dtu.dk) ### 0.06 added the PATCHTAGs (msn@ipt.dtu.dk) ### fixed several small errors (msn@ipt.dtu.dk) ### 0.07 changed PATCHTAG to support ### mergelocale.pl (msn@ipt.dtu.dk) ### ###################################################################### ### package locales_mrtg; require 5.002; use strict; use vars qw(@ISA @EXPORT $VERSION); use Exporter; $VERSION = '0.07'; @ISA = qw(Exporter); @EXPORT = qw ( &english &big5 &brazilian &bulgarian &catalan &chinese &croatian &czech &danish &dutch &eucjp &french &galician &gb &gb2312 &german &greek &hungarian &icelandic &indonesia &iso2022jp &italian &korean &lithuanian &malay &norwegianh &polish &portuguese &romanian &russian &russian1251 &serbian &slovak &slovenian &spanish &swedish &turkish ); %lang2tran::LOCALE= ( 'english' => \&english, 'default' => \&english, 'big5' => \&big5, '¤¤¤åÁcÅé' => \&big5, 'brazil' => \&brazilian, 'brazilian' => \&brazilian, 'bulgarian' => \&bulgarian, 'áúëãàðñêè' => \&bulgarian, 'catalan' => \&catalan, 'catalan' => \&catalan, 'chinese' => \&chinese, '¼òÌåÖÐÎÄ' => \&chinese, 'croatian' => \&croatian, 'hrvatski' => \&croatian, 'czech' => \&czech, 'danish' => \&danish, 'dansk' => \&danish, 'dutch' => \&dutch, 'nederlands' => \&dutch, 'eucjp' => \&eucjp, 'euc-jp' => \&eucjp, 'french' => \&french, 'francais' => \&french, 'galician' => \&galician, 'galego' => \&galician, 'gb' => \&gb, '¼òÌ庺×Ö' => \&gb, 'gb2312' => \&gb2312, 'ÖÐÎļòÌå' => \&gb2312, 'german' => \&german, 'german' => \&german, 'greek' => \&greek, 'ellinika' => \&greek, 'hungarian' => \&hungarian, 'magyar' => \&hungarian, 'icelandic' => \&icelandic, 'islenska' => \&icelandic, 'indonesia' => \&indonesia, 'indonesian' => \&indonesia, 'iso2022jp' => \&iso2022jp, 'iso-2022-jp' => \&iso2022jp, 'italian' => \&italian, 'italiano' => \&italian, 'korean' => \&korean, 'lithuanian' => \&lithuanian, 'lietuviðkai' => \&lithuanian, 'malay' => \&malay, 'malaysian' => \&malay, 'norwegian' => \&norwegian, 'norsk' => \&norwegian, 'polish' => \&polish, 'polski' => \&polish, 'portuguese' => \&portuguese, 'romanian' => \&romanian, 'romãn' => \&romanian, 'russian' => \&russian, 'òÕÓÓËÉÊ' => \&russian, 'russian1251' => \&russian1251, 'Ðóññêèé1251' => \&russian1251, 'serbian' => \&serbian, 'slovak' => \&slovak, 'slovenian' => \&slovenian, 'spanish' => \&spanish, 'espanol' => \&spanish, 'swedish' => \&swedish, 'svenska' => \&swedish, 'turkish' => \&turkish, 'turkce' => \&turkish, ); %credits::LOCALE= ( # default 'default' => "
Prepared for localization by Morten S. Nielsen <msn\@ipt.dtu.dk>", # Chinese/¤¤¤åÁcÅé 'big5' => "
¤¤¤å¤Æ§@ªÌ Tate Chen <tate\@joy-tech.com.tw> and Donlong <donlong\@seed.net.tw> ", # Brazil/brazilian 'brazilian' => "
Localização efetuada por Luiz Felipe R E <luizfelipe\@encarnacao.com>", # Bulgarian/Áúëãàðñêè 'bulgarian' => "
Ëîêàëèçàöèÿ íà áúëãàðñêè åçèê: Éîâêî Ëàìáðåâ <yovko\@sdf.lonestar.org>", # catalan/catalan 'catalan' => "
Preparat per a localització per: LLuís Gras ", # Simplified Chinese/¼òÌåÖÐÎÄ 'chinese' => "
¼òÌåÖÐÎĺº»¯ Ù¤Âê¹û <gamago\@sina.com>", # the Simplified Chinese string means: "Prepared for languages # and translated to Simplified Chinese by" # Croatian/hrvatski 'croatian' => "
Hrvatska lokalizacija - Dinko Korunic <kreator\@fly.srk.fer.hr>", # Czech/Èesky 'czech' => "
Èeský pøeklad pøipravil Martin Och <martin\@och.cz>", # Danish/dansk 'danish' => "
Forberedt for sprog samt oversat til dansk af Morten S. Nielsen <msn\@ipt.dtu.dk>", # the danish string means: "Prepared for languages and translated to danish by" # Dutch/nederlands 'dutch' => "
Vertaald naar het Nederlands door Barry van Dijk <barry\@dijk.com>", # eucjp/euc-jp 'eucjp' => "
ÆüËܸìÌõ(EUC-JP)ºîÀ® ¿¢¾¾ ʸÆÁ <uematsu\@kgz.com> ", # French/francais 'french' => "
Localisation effectuée par Fabrice Prigent <fabrice.prigent\@univ-tlse1.fr>", # Galician/Galego 'galician' => "
Traducido ao galego por David Garabana Barro <dgaraban\@arrakis.es> ", # Chinese/¼òÌ庺×Ö 'gb' => "
¤¤¤å¤Æ§@ªÌ Hui Zhang <zhanghui\@asiainfo.com>", # Chinese/ÖÐÎļòÌå 'gb2312' => "
ÖÐÎÄ»¯×÷Õß Peter Wong &webmaster\@tcpip.com.cn>", # German/deutsch 'german' => "
Vorbereitet für die Lokalisation von Ilja Pavkovic <illsen\@gumblfarz.de>", # Greek/Ellinika 'greek' => "
Ðñïåôïéìáóßá óôá åëëçíéêÜ áðü ôï Óßìï ÎåíéôÝëëç <S.Xenitellis\@hellug.gr>", # Hungarian/magyar 'hungarian' => "
Magyarosította Nagy Levente <levinet\@euroweb.hu>", # the hungarian string means: "Prepared for languages and translated to Hungarian by" # Icelandic/islenska 'icelandic' => "
Þýtt yfir á íslensku af Halldór Karl Högnason <halldor.hognason\@islandssimi.is>", # Indonesian/Indonesia 'indonesia' => "
Terjemahan ke bahasa Indonesia oleh: Jamaludin Ahmad <jamaludin\@jamalinux.com>", # iso2022jp/iso-2022-jp 'iso2022jp' => "
\e\$BF|K\\8lLu\e(B(ISO-2022-JP)\e\$B:n\@.\e(B \e\$B?\">>\e(B \e\$BJ8FA\e(B <uematsu\@kgz.com> ", # Italian/Italiano 'italian' => "
Localizzazione effettuata da Andrea Rossi <rouge\@shiny.it>", # korean ,'korean' => "
ÇѱÛÈ­ Keonsoon Hwang ", # Lithuanian/lietuviðkai 'lithuanian' => "
Paruoðë ir á lietuviø kalbà iðvertë ve <ve\@hardcore.lt>", # the lithuanian string means: "Prepared for languages and translated to lithuanian by" # Malaysian/Malay 'malay' => "
Terjemahan ke bahasa Malaysia/Indonesia oleh: Assakhof Ab. Satar <assakhof\@mimos.my>", # Danish/dansk 'norwegian' => "
Oversatt til norsk av Knut Grøneng <knut.groneng\@merkantildata.no>", # the norwegian string means: "Translated to norwegian by" # Polish/polski 'polish' => "
Polska lokalizacja Lukasz Jokiel <Lukasz.Jokiel\@po.opole.pl>", # Português/portuguese 'portuguese' => "
Traduzido por Diogo Gomes etdgomes\@ua.pt", # Romãn/romanian 'romanian' => "
Tradus de József Szilágyi <jozsi\@maxiq.ro>", # Russian/òÕÓÓËÉÊ 'russian' => "
ðÅÒÅ×ÏÄ ÎÁ ÒÕÓÓËÉÊ ÑÚÙË: äÍÉÔÒÉÊ óÉ×ÁÞÅÎËÏ <dima\@Chg.RU>", # Russian1251/Ðóññêèé1251 'russian1251' => "
Ïåðåâîä íà ðóññêèé ÿçûê (êîäèðîâêà 1251): Àëåêñàíäð Ðåäþê <aredyuk\@irmcity.com>", # Serbian/Srpski 'serbian' => "
Ported to Serbian by / Srpski prevod uradio: Ratko Buèiæ <ratko\@ni.ac.yu>", # Slovak/Slovensky 'slovak' => "
Slovenský preklad pripravil Ing. Ladislav Mihok <laco\@mrokh.shmu.sk>", # Slovenian/Slovensko 'slovenian' => "
Slovenski prevod pripravil Aljosa Us <us\@sweet-sorrow.com>", # Spanish/español 'spanish' => "
Preparado para localización por Marcelo Roccasalva ", # Swedish/Svenska 'swedish' => "
Översatt till svenska av Clas Mayer <clas\@mayer.se>", # the Swedish string means: "Prepared for languages and translated to Swedish by" # Turkish/Türkçe 'turkish' => "
Türkçeleþtiren Özgür C. Demir ", ); $credits::LOCALE{'¤¤¤åÁcÅé'}=$credits::LOCALE{'big5'}; $credits::LOCALE{'brazil'}=$credits::LOCALE{'brazilian'}; $credits::LOCALE{'áúëãàðñêè'}=$credits::LOCALE{'bulgarian'}; $credits::LOCALE{'catalan'}=$credits::LOCALE{'catalan'}; $credits::LOCALE{'¼òÌåÖÐÎÄ'}=$credits::LOCALE{'SimChinese'}; $credits::LOCALE{'hrvatski'}=$credits::LOCALE{'croatian'}; $credits::LOCALE{'czech'}=$credits::LOCALE{'czech'}; $credits::LOCALE{'dansk'}=$credits::LOCALE{'danish'}; $credits::LOCALE{'nederlands'}=$credits::LOCALE{'dutch'}; $credits::LOCALE{'euc-jp'}=$credits::LOCALE{'eucjp'}; $credits::LOCALE{'francais'}=$credits::LOCALE{'french'}; $credits::LOCALE{'galego'}=$credits::LOCALE{'galician'}; $credits::LOCALE{'¼òÌ庺×Ö'}=$credits::LOCALE{'gb'}; $credits::LOCALE{'ÖÐÎļòÌå'}=$credits::LOCALE{'gb2312'}; $credits::LOCALE{'deutsch'}=$credits::LOCALE{'german'}; $credits::LOCALE{'ellinika'}=$credits::LOCALE{'greek'}; $credits::LOCALE{'magyar'}=$credits::LOCALE{'hungarian'}; $credits::LOCALE{'islenska'}=$credits::LOCALE{'icelandic'}; $credits::LOCALE{'indonesian'}=$credits::LOCALE{'indonesia'}; $credits::LOCALE{'iso-2022-jp'}=$credits::LOCALE{'iso2022jp'}; $credits::LOCALE{'italiano'}=$credits::LOCALE{'italian'}; # $credits::LOCALE{'korean'}=$credits::LOCALE{'korean'}; $credits::LOCALE{'lietuviðkai'}=$credits::LOCALE{'lithuanian'}; $credits::LOCALE{'malaysian'}=$credits::LOCALE{'malay'}; $credits::LOCALE{'norsk'}=$credits::LOCALE{'norwegian'}; $credits::LOCALE{'polski'}=$credits::LOCALE{'polish'}; $credits::LOCALE{'portuguese'}=$credits::LOCALE{'portuguese'}; $credits::LOCALE{'romãn'}=$credits::LOCALE{'romanian'}; $credits::LOCALE{'òÕÓÓËÉÊ'}=$credits::LOCALE{'russian'}; $credits::LOCALE{'Ðóññêèé1251'}=$credits::LOCALE{'russian1251'}; $credits::LOCALE{'serbian'}=$credits::LOCALE{'serbian'}; $credits::LOCALE{'slovak'}=$credits::LOCALE{'slovak'}; $credits::LOCALE{'slovenian'}=$credits::LOCALE{'slovenian'}; $credits::LOCALE{'espanol'}=$credits::LOCALE{'spanish'}; $credits::LOCALE{'svenska'}=$credits::LOCALE{'swedish'}; $credits::LOCALE{'turkce'}=$credits::LOCALE{'turkish'}; # English - default sub english { return pop(@_); }; # Chinese Big5 Code sub big5 { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=big5', 'Maximal 5 Minute Incoming Traffic' => '5¤ÀÄÁ³Ì¤j¬y¤J¶q', 'Maximal 5 Minute Outgoing Traffic' => '5¤ÀÄÁ³Ì¤j¬y¥X¶q', 'the device' => '¸Ë¸m', 'The statistics were last updated(.*)' => '¤W¦¸²Î­p§ó·s®É¶¡: $1', ' Average\)
' => ' ¥­§¡)
', 'Average(.*)' => '¥­§¡$1', 'Max(.*)' => '³Ì¤j$1', 'Current(.*)' => '¥Ø«e$1', 'version' => 'ª©¥»', '`Daily\' Graph \((.*) Minute' => '¨C¤é ¹Ïªí ($1 ¤ÀÄÁ', '`Weekly\' Graph \(30 Minute' => '¨C¶g ¹Ïªí (30 ¤ÀÄÁ' , '`Monthly\' Graph \(2 Hour' => '¨C¤ë ¹Ïªí (2 ¤p®É', '`Yearly\' Graph \(1 Day' => '¨C¦~ ¹Ïªí (1 ¤Ñ', 'Incoming Traffic in (\S+) per Second' => '¨C¬í¬y¤J¶q (³æ¦ì $1)', 'Outgoing Traffic in (\S+) per Second' => '¨C¬í¬y¥X¶q (³æ¦ì $1)', 'at which time (.*) had been up for(.*)' => '³]³Æ¦WºÙ $1¡A¤w¹B§@®É¶¡(UPTIME): $2', '(.+)/s$' => '$1/¬í', '(.+)/min$' => '$1/¤À', '(.+)/h$' => '$1/®É', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' ¬y¤J:', ' Out:' => ' ¬y¥X:', ' Percentage' => ' ¦Ê¤À¤ñ:', 'Ported to OpenVMS Alpha by' => '²¾´Ó¨ì OpenVM Alpha §@ªÌ', 'Ported to WindowsNT by' => '²¾´Ó¨ì WindowsNT §@ªÌ', 'and' => '¤Î', '^GREEN' => 'ºñ¦â', 'BLUE' => 'ÂŦâ', 'DARK GREEN' => '¾¥ºñ¦â', 'MAGENTA' => 'µµ¦â', 'AMBER' => 'µ[¬Ä¦â' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => '¬P´Á¤Ñ', 'Sun' => '¤é', 'Monday' => '¬P´Á¤@', 'Mon' => '¤@', 'Tuesday' => '¬P´Á¤G', 'Tue' => '¤G', 'Wednesday' => '¬P´Á¤T', 'Wed' => '¤T', 'Thursday' => '¬P´Á¥|', 'Thu' => '¥|', 'Friday' => '¬P´Á¤­', 'Fri' => '¤­', 'Saturday' => '¬P´Á¤»', 'Sat' => '¤»' ); %month = ( 'January' => '¤@¤ë', 'February' => '¤G¤ë', 'March' => '¤T¤ë', 'Jan' => '¤@', 'Feb' => '¤G', 'Mar' => '¤T', 'April' => '¥|¤ë', 'May' => '¤­¤ë', 'June' => '¤»¤ë', 'Apr' => '¥|', 'May' => '¤­', 'Jun' => '¤»', 'July' => '¤C¤ë', 'August' => '¤K¤ë', 'September' => '¤E¤ë', 'Jul' => '¤C', 'Aug' => '¤K', 'Sep' => '¤E', 'October' => '¤Q¤ë', 'November' => '¤Q¤@¤ë', 'December' => '¤Q¤G¤ë', 'Oct' => '¤Q', 'Nov' => '¤Q¤@', 'Dec' => '¤Q¤G' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { @quux=split(/at/,$foo[3]); if($foo[3]=~(/(.*)at(.*)/)) { $foo[3]=$quux[0]; $foo[4]=$quux[1]; }; return "$foo[3] $month{$foo[2]} $foo[1] ¤é, $wday{$foo[0]}, $foo[4]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Brazilian (Portugues) sub brazilian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Tráfego Máximo de Entrada em 5 minutos', 'Maximal 5 Minute Outgoing Traffic' => 'Tráfego Máximo de Saída em 5 minutos', 'the device' => 'dispositivo', 'The statistics were last updated (.*)' => 'Última atualização das estatísticas: $1', ' Average\)
' => ' - média)
', 'Average(.*)' => 'Média$1', 'Max(.*)' => 'Máx$1', 'Current(.*)' => 'Atual$1', 'version' => 'versão', '`Daily\' Graph \((.*) Minute' => 'Gráfico `Diário\' ($1 minutos', '`Weekly\' Graph \(30 Minute' => 'Gráfico `Semanal\' (30 minutos' , '`Monthly\' Graph \(2 Hour' => 'Gráfico `Mensal\' (2 horas', '`Yearly\' Graph \(1 Day' => 'Gráfico `Anual\' (1 dia', 'Incoming Traffic in (\S+) per Second' => 'Tráfego de Entrada em $1 por segundo', 'Outgoing Traffic in (\S+) per Second' => 'Tráfego de Saída em $1 por segundo', 'at which time (.*) had been up for(.*)' => 'nesta hora $1 estava online por $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', # '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Ent:', ' Out:' => ' Saí:', ' Percentage' => ' Per:', 'Ported to OpenVMS Alpha by' => 'Adaptado para OpenVMS Alpha por', 'Ported to WindowsNT by' => 'Adaptado para WindowsNT por', 'and' => 'e', '^GREEN' => 'VERDE', 'BLUE' => 'AZUL', 'DARK GREEN' => 'VERDE ESCURO', 'MAGENTA' => 'LILÁS', 'AMBER' => 'AMBAR' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Domingo', 'Sun' => 'Dom', 'Monday' => 'Segunda', 'Mon' => 'Seg', 'Tuesday' => 'Terça', 'Tue' => 'Ter', 'Wednesday' => 'Quarta', 'Wed' => 'Qua', 'Thursday' => 'Quinta', 'Thu' => 'Qui', 'Friday' => 'Sexta', 'Fri' => 'Sex', 'Saturday' => 'Sábado', 'Sat' => 'Sáb' ); %month = ( 'January' => 'Janeiro', 'February' => 'Fevereiro' , 'March' => 'Março', 'Jan' => 'Jan', 'Feb' => 'Fev', 'Mar' => 'Mar', 'April' => 'Abril', 'May' => 'Maio', 'June' => 'Junho', 'Apr' => 'Abr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Julho', 'August' => 'Agosto', 'September' => 'Setembro', 'Jul' => 'Jul', 'Aug' => 'Ago', 'Sep' => 'Set', 'October' => 'Outubro', 'November' => 'Novembro', 'December' => 'Dezembro', 'Oct' => 'Out', 'Nov' => 'Nov', 'Dec' => 'Dez' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." às ".$quux[1]; }; return "$wday{$foo[0]}, $foo[1] de $month{$foo[2]} de $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Bulgarian sub bulgarian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=windows-1251', 'Maximal 5 Minute Incoming Traffic' => 'Ìàêñèìàëåí âõîäÿù òðàôèê çà 5 ìèíóòè', 'Maximal 5 Minute Outgoing Traffic' => 'Ìàêñèìàëåí èçõîäÿù òðàôèê çà 5 ìèíóòè', 'the device' => 'óñòðîéñòâîòî', 'The statistics were last updated(.*)' => 'Ñòàòèñòè÷åñêèòå äàííè ñà îò÷åòåíè íà: $1', ' Average\)
' => ' ñðåäíî)
', 'Average(.*)' => 'Ñðåäíî$1', 'Max(.*)' => 'Ìàêñ.$1', 'Current(.*)' => 'Òåêóùî$1', 'version' => 'âåðñèÿ', '`Daily\' Graph \((.*) Minute' => 'Äíåâíà ãðàôèêà (ïðåç $1 ìèíóòè', '`Weekly\' Graph \(30 Minute' => 'Ñåäìè÷íà ãðàôèêà (ïðåç 30 ìèíóòè' , '`Monthly\' Graph \(2 Hour' => 'Ìåñå÷íà ãðàôèêà (ïðåç 2 ÷àñà', '`Yearly\' Graph \(1 Day' => 'Ãîäèøíà ãðàôèêà (ïðåç 1 äåí', 'Incoming Traffic in (\S+) per Second' => 'Âõîäÿù òðàôèê â $1 çà ñåêóíäà', 'Outgoing Traffic in (\S+) per Second' => 'Èçõîäÿù òðàôèê â $1 çà ñåêóíäà', 'at which time (.*) had been up for(.*)' => 'â êîåòî âðåìå $1 ðàáîòè îò $2', #'([kMG]?)([bB])/s' => '$1$1/ñåê', #'([kMG]?)([bB])/min' => '$1$2/ìèí', '([kMG]?)([bB])/h' => '$1$2/÷', 'Bits' => 'áèòà', 'Bytes' => 'áàéòà', ' In:' => ' Âõ.:', ' Out:' => ' Èçõ.:', ' Percentage' => ' Ïðîöåíò:', 'Ported to OpenVMS Alpha by' => 'Ïîðò çà OpenVMS Alpha îò', 'Ported to WindowsNT by' => 'Ïîðò çà WindowsNT îò', 'and' => 'è', '^GREEN' => 'çåëåí', 'BLUE' => 'ñèí', 'DARK GREEN' => 'òúìíîçåëåí', 'MAGENTA' => 'êåðåìèäåí', 'AMBER' => 'êåõëèáàð' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => ' Íåäåëÿ', 'Sun' => 'Íä', 'Monday' => ' Ïîíåäåëíèê', 'Mon' => 'Ïí', 'Tuesday' => ' Âòîðíèê', 'Tue' => 'Âò', 'Wednesday' => ' Ñðÿäà', 'Wed' => 'Ñð', 'Thursday' => ' ×åòâúðòúê', 'Thu' => '×ò', 'Friday' => ' Ïåòúê', 'Fri' => 'Ïò', 'Saturday' => ' Ñúáîòà', 'Sat' => 'Ñá' ); %month = ( 'January' => 'ßíóàðè', 'February' => 'Ôåâðóàðè' , 'March' => 'Ìàðò', 'Jan' => 'ßíó', 'Feb' => 'Ôåâ', 'Mar' => 'Ìàð', 'April' => 'Àïðèë', 'May' => 'Ìàé', 'June' => 'Þíè', 'Apr' => 'Àïð', 'May' => 'Ìàé', 'Jun' => 'Þíè', 'July' => 'Þëè', 'August' => 'Àâãóñò', 'September' => 'Ñåïòåìâðè', 'Jul' => 'Þëè', 'Aug' => 'Àâã', 'Sep' => 'Ñåï', 'October' => 'Îêòîìâðè', 'November' => 'Íîåìâðè', 'December' => 'Äåêåìâðè', 'Oct' => 'Îêò', 'Nov' => 'Íîå', 'Dec' => 'Äåê' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]."Ç. × ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # catalan sub catalan { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Tràfic entrant màxim en 5 minuts', 'Maximal 5 Minute Outgoing Traffic' => 'Tràfic sortint màxim en 5 minuts', 'the device' => 'el dispositiu', 'The statistics were last updated(.*)' => 'Estadístiques actualitzades el $1', ' Average\)
' => ' Promig)
', 'Average(.*)' => 'Promig $1', 'Max(.*)' => 'Màxim$1', 'Current(.*)' => 'Actual$1', 'version' => 'versió', '`Daily\' Graph \((.*) Minute' => 'Gràfic diari ($1 minuts :', '`Weekly\' Graph \(30 Minute' => 'Gràfic setmanal (30 minuts :' , '`Monthly\' Graph \(2 Hour' => 'Gràfic mensual (2 hores :', '`Yearly\' Graph \(1 Day' => 'Gràfic anual (1 dia :', 'Incoming Traffic in (\S+) per Second' => 'Tràfic entrant en $1 per segon', 'Outgoing Traffic in (\S+) per Second' => 'Tràfic sortint en $1 per segon', 'at which time (.*) had been up for(.*)' => '$1 ha estat funcionant durant $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', # '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Entrant:', ' Out:' => ' Sortint:', ' Percentage' => ' Percentatge:', 'Ported to OpenVMS Alpha by' => 'Portat a OpenVMS Alpha per', 'Ported to WindowsNT by' => 'Portat a WindowsNT per', 'and' => 'i', '^GREEN' => 'VERD', 'BLUE' => 'BLAU', 'DARK GREEN' => 'VERD FOSC', 'MAGENTA' => 'MAGENTA', 'AMBER' => 'AMBAR' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Diumenge', 'Sun' => 'Dg', 'Monday' => 'Dilluns', 'Mon' => 'Dl', 'Tuesday' => 'Dimarts', 'Tue' => 'Dm', 'Wednesday' => 'Dimecres', 'Wed' => 'Dc', 'Thursday' => 'Dijous', 'Thu' => 'Dj', 'Friday' => 'Divendres', 'Fri' => 'Dv', 'Saturday' => 'Dissabte', 'Sat' => 'Ds' ); %month = ( 'January' => 'Gener', 'February' => 'Febrer' , 'March' => 'Març', 'Jan' => 'Gen', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'Abril', 'May' => 'Maig', 'June' => 'Juny', 'Apr' => 'Abr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Juliol', 'August' => 'Agost', 'September' => 'Setembre', 'Jul' => 'Jul', 'Aug' => 'Ago', 'Sep' => 'Set', 'October' => 'Octubre', 'November' => 'Novembre', 'December' => 'Desembre', 'Oct' => 'Oct', 'Nov' => 'Nov', 'Dec' => 'Des' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." a les ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] de $month{$foo[2]} de $foo[3]"; }; return $string; }; # Simplified Chinese sub chinese { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=gb2312', 'Maximal 5 Minute Incoming Traffic' => '5·ÖÖÓ×î´óÁ÷³öÁ¿', 'Maximal 5 Minute Outgoing Traffic' => '5·ÖÖÓ×î´óÁ÷ÈëÁ¿', 'the device' => 'É豸', 'The statistics were last updated(.*)' => 'ÉÏ´Îͳ¼Æ¸üÐÂʱ¼ä£º$1', ' Average\)
' => ' ƽ¾ù)
', 'Average(.*)' => 'ƽ¾ùÖµ$1', 'Max(.*)' => '×î´óÖµ$1', 'Current(.*)' => 'µ±Ç°Öµ$1', 'version' => '°æ±¾', '`Daily\' Graph \((.*) Minute' => 'ÿÈÕͼ±í ($1 ·ÖÖÓ', '`Weekly\' Graph \(30 Minute' => 'ÿÖÜͼ±í (30 ·ÖÖÓ' , '`Monthly\' Graph \(2 Hour' => 'ÿÔÂͼ±í (2 Сʱ', '`Yearly\' Graph \(1 Day' => 'ÿÄêͼ±í (1 Ìì', 'Incoming Traffic in (\S+) per Second' => 'ÿÃëÁ÷ÈëÁ¿£¨µ¥Î» $1 £©', 'Outgoing Traffic in (\S+) per Second' => 'ÿÃëÁ÷³öÁ¿£¨µ¥Î» $1 £©', 'at which time (.*) had been up for(.*)' => 'É豸 $1 ÒÑÔË×÷ʱ¼ä£º $2 ', # '([kMG]?)([bB])/s' => '\$1\$2/Ãë', # '([kMG]?)([bB])/min' => '\$1\$2/·Ö', '([kMG]?)([bB])/h' => '$1$2/ʱ', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Á÷È룺', ' Out:' => ' Á÷³ö£º', ' Percentage' => ' °Ù·Ö±È£º', 'Ported to OpenVMS Alpha by' => 'ÒÆÖ²µ½ OpenVMS µÄÊÇ', 'Ported to WindowsNT by' => 'ÒÆÖ²µ½ WindowsNT µÄÊÇ', 'and' => 'Óë', '^GREEN' => 'ÂÌÉ«', 'BLUE' => 'À¶É«', 'DARK GREEN' => 'Ä«ÂÌ', 'MAGENTA' => '×ÏÉ«', 'AMBER' => 'çúçêÉ«' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'ÐÇÆÚÈÕ', 'Sun' => 'ÈÕ', 'Monday' => 'ÐÇÆÚÒ»', 'Mon' => 'Ò»', 'Tuesday' => 'ÐÇÆÚ¶þ', 'Tue' => '¶þ', 'Wednesday' => 'ÐÇÆÚÈý', 'Wed' => 'Èý', 'Thursday' => 'ÐÇÆÚËÄ', 'Thu' => 'ËÄ', 'Friday' => 'ÐÇÆÚÎå', 'Fri' => 'Îå', 'Saturday' => 'ÐÇÆÚÁù', 'Sat' => 'Áù' ); %month = ( 'January' => 'Ò»ÔÂ', 'February' => '¶þÔÂ', 'March' => 'ÈýÔÂ', 'Jan' => '£±ÔÂ', 'Feb' => '£²ÔÂ', 'Mar' => '£³ÔÂ', 'April' => 'ËÄÔÂ', 'May' => 'ÎåÔÂ', 'June' => 'ÁùÔÂ', 'Apr' => '£´ÔÂ', 'May' => '£µÔÂ', 'Jun' => '£¶ÔÂ', 'July' => 'ÆßÔÂ', 'August' => '°ËÔÂ', 'September' => '¾ÅÔÂ', 'Jul' => '£·ÔÂ', 'Aug' => '£¸ÔÂ', 'Sep' => '£¹ÔÂ', 'October' => 'Ê®ÔÂ', 'November' => 'ʮһÔÂ', 'December' => 'Ê®¶þÔÂ', 'Oct' => '10ÔÂ', 'Nov' => '11ÔÂ', 'Dec' => '12ÔÂ' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); # $foo[3]=$quux[0]." kl.".$quux[1]; $foo[3]=$quux[0]; $foo[4]=$quux[1]; }; return "$wday{$foo[0]} $foo[3]Äê $month{$foo[2]} $foo[1]ºÅ "; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; sub croatian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-2', 'Maximal 5 Minute Incoming Traffic' => 'Maksimalni ulazni promet unutar 5 minuta', 'Maximal 5 Minute Outgoing Traffic' => 'Maksimalni izlazni promet unutar 5 minuta', 'the device' => 'ureðaj', 'The statistics were last updated(.*)' => 'Statistike su zadnji puta izmijenjene $1', ' Average\)
' => ' prosjeèna vrijednost)
', 'Average(.*)' => 'Prosjeèno$1', 'Max(.*)' => 'Maksimalno$1', 'Current(.*)' => 'Trenutno$1', 'version' => 'verzija', '`Daily\' Graph \((.*) Minute' => 'Dnevne statistike (svakih $1 minuta', '`Weekly\' Graph \(30 Minute' => 'Tjedne statistike (svakih 30 minuta' , '`Monthly\' Graph \(2 Hour' => 'Mjeseène statistike (svakih 2 sata', '`Yearly\' Graph \(1 Day' => 'Godi¹nje statistike (svaki 1 dan', 'Incoming Traffic in (\S+) per Second' => 'Ulazni promet - $1 po sekundi', 'Outgoing Traffic in (\S+) per Second' => 'Izlazni promet - $1 po sekundi', 'at which time (.*) had been up for(.*)' => 'gdje $1 je bio aktivan $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/g', 'Bits' => 'Bitova', 'Bytes' => 'Bajtova', ' In:' => ' Unutra:', ' Out:' => ' Van:', ' Percentage' => ' Postotak:', 'Ported to OpenVMS Alpha by' => 'Port na OpenVMS Alpha od', 'Ported to WindowsNT by' => 'Post od WindowsNT od', 'and' => 'i', '^GREEN' => 'ZELENA', 'BLUE' => 'PLAVA', 'DARK GREEN' => 'TAMNO ZELENA', 'MAGENTA' => 'LJUBIÈASTA', 'AMBER' => 'AMBER' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;@dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=@quux[0].@dollar[$j].@quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Nedjelja', 'Sun' => 'Ned', 'Monday' => 'Ponedjeljak', 'Mon' => 'Pon', 'Tuesday' => 'Utorak', 'Tue' => 'Uto', 'Wednesday' => 'Srijeda', 'Wed' => 'Sri', 'Thursday' => 'Èetvrtak', 'Thu' => 'Èet', 'Friday' => 'Petak', 'Fri' => 'Pet', 'Saturday' => 'Subota', 'Sat' => 'Sub' ); %month = ( 'January' => 'Sijeèanj', 'February' => 'Veljaèa', 'March' => 'O¾ujak', 'Jan' => 'Sij', 'Feb' => 'Vel', 'Mar' => 'O¾u', 'April' => 'Travanj', 'May' => 'Svibanj', 'June' => 'Lipanj', 'Apr' => 'Tra', 'May' => 'Svi', 'Jun' => 'Lip', 'July' => 'Srpanj', 'August' => 'Kolovoz', 'September' => 'Rujan', 'Jul' => 'Srp', 'Aug' => 'Kol', 'Sep' => 'Ruj', 'October' => 'Listopad', 'November' => 'Studeni', 'December' => 'Prosinac', 'Oct' => 'Lis', 'Nov' => 'Stu', 'Dec' => 'Pro' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{@foo[0]} && $month{@foo[2]} ) { if(@foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,@foo[3]); @foo[3]=@quux[0]." godine"." u".@quux[1]; }; return "$wday{@foo[0]} dana @foo[1]. $month{@foo[2]} @foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Czech sub czech { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=windows-1250', 'Maximal 5 Minute Incoming Traffic' => 'Maximální 5 minutový pøíchozí tok', 'Maximal 5 Minute Outgoing Traffic' => 'Maximální 5 minutový odchozí tok', 'the device' => 'zaøízení', 'The statistics were last updated(.*)' => 'Poslední aktualizace statistiky:$1', ' Average\)
' => ' prùmìr)
', 'Average(.*)' => 'Prùm.$1', 'Max(.*)' => 'Max.$1', 'Current(.*)' => 'Akt.$1', 'version' => 'verze', '`Daily\' Graph \((.*) Minute' => 'Denní graf ($1 minutový', '`Weekly\' Graph \(30 Minute' => 'Týdenní graf (30 minutový' , '`Monthly\' Graph \(2 Hour' => 'Mìsíèní graf (2 hodinový', '`Yearly\' Graph \(1 Day' => 'Roèní graf (1 denní', 'Incoming Traffic in (\S+) per Second' => 'Pøíchozí tok v $1 za sec.', 'Outgoing Traffic in (\S+) per Second' => 'Odchozí tok v $1 za sec.', 'at which time (.*) had been up for(.*)' => 'od posledního restartu $1 ubìhlo: $2', #'([kMG]?)([bB])/s' => '\$1\$2/s', #'([kMG]?)([bB])/min' => '\$1\$2/min', #'([kMG]?)([bB])/h' => '$1$2/h', 'Bits' => 'bitech', 'Bytes' => 'bajtech', #' In:' => ' In:', #' Out:' => ' Out:', ' Percentage' => ' Proc.', 'Ported to OpenVMS Alpha by' => 'Na OpenVMS portoval', 'Ported to WindowsNT by' => 'Na WindowsNT portoval', 'and' => 'a', '^GREEN' => 'Zelená', 'BLUE' => 'Modrá', 'DARK GREEN' => 'Tmavì zelená', 'MAGENTA' => 'Fialová', 'AMBER' => 'Žlutá' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Nedìle', 'Sun' => 'Ne', 'Monday' => 'Pondìli', 'Mon' => 'Po', 'Tuesday' => 'Úterý', 'Tue' => 'Út', 'Wednesday' => 'Støeda', 'Wed' => 'St', 'Thursday' => 'Ètvrtek', 'Thu' => 'Èt', 'Friday' => 'Pátek', 'Fri' => 'Pá', 'Saturday' => 'Sobota', 'Sat' => 'So' ); %month = ( 'January' => 'Leden', 'February' => 'Únor', 'March' => 'Bøezen', 'Jan' => 'Leden', 'Feb' => 'Únor', 'Mar' => 'Bøezen', 'April' => 'Duben', 'May' => 'Kvìten', 'June' => 'Èerven', 'Apr' => 'Duben', 'May' => 'Kvìten', 'Jun' => 'Èerven', 'July' => 'Èervenec','August' => 'Srpen', 'September' => 'Záøí', 'Jul' => 'Èervenec','Aug' => 'Srpen', 'Sep' => 'Záøí', 'October' => 'Øíjen', 'November' => 'Listopad', 'December' => 'Prosinec', 'Oct' => 'Øíjen', 'Nov' => 'Listopad', 'Dec' => 'Prosinec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0].",".$quux[1]." hod."; }; return "$wday{$foo[0]} $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; } # # Danish sub danish { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Maksimal indgående trafik i 5 minutter', 'Maximal 5 Minute Outgoing Traffic' => 'Maksimal udgående trafik i 5 minutter', 'the device' => 'enheden', 'The statistics were last updated(.*)' => 'Statistikken blev sidst opdateret$1', ' Average\)
' => ' Middel)
', 'Average(.*)' => 'Middel$1', 'Max(.*)' => 'Max$1', 'Current(.*)' => 'Nu$1', 'version' => 'version', '`Daily\' Graph \((.*) Minute' => '`Daglig\' graf ($1 minuts', '`Weekly\' Graph \(30 Minute' => '`Ugentlig\' graf (30 minuts' , '`Monthly\' Graph \(2 Hour' => '`Månedlig\' graf (2 times', '`Yearly\' Graph \(1 Day' => '`Årlig\' graf (1 dags', 'Incoming Traffic in (\S+) per Second' => 'Indgående trafik i $1 per sekund', 'Outgoing Traffic in (\S+) per Second' => 'Udgående trafik i $1 per sekund', 'at which time (.*) had been up for(.*)' => 'hvor $1 havde været oppe i$2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Ind:', ' Out:' => ' Ud:', ' Percentage' => ' Procent:', 'Ported to OpenVMS Alpha by' => 'Port til OpenVMS af', 'Ported to WindowsNT by' => 'Port til WindowsNT af', 'and' => 'og', '^GREEN' => 'GRØN', 'BLUE' => 'BLÅ', 'DARK GREEN' => 'MØRKEGRØN', 'MAGENTA' => 'LYSLILLA', 'AMBER' => 'RAV' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Søndag', 'Sun' => 'Søn', 'Monday' => 'Mandag', 'Mon' => 'Man', 'Tuesday' => 'Tirsdag', 'Tue' => 'Tir', 'Wednesday' => 'Onsdag', 'Wed' => 'Ons', 'Thursday' => 'Torsdag', 'Thu' => 'Tor', 'Friday' => 'Fredag', 'Fri' => 'Fre', 'Saturday' => 'Lørdag', 'Sat' => 'Lør' ); %month = ( 'January' => 'Januar', 'February' => 'Februar' , 'March' => 'Marts', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'April', 'May' => 'Maj', 'June' => 'Juni', 'Apr' => 'Apr', 'May' => 'Maj', 'Jun' => 'Jun', 'July' => 'Juli', 'August' => 'August', 'September' => 'September', 'Jul' => 'Jul', 'Aug' => 'Aug', 'Sep' => 'Sep', 'October' => 'Oktober', 'November' => 'November', 'December' => 'December', 'Oct' => 'Okt', 'Nov' => 'Nov', 'Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." kl.".$quux[1]; }; return "$wday{$foo[0]} den $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Dutch sub dutch { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Maximaal inkomend verkeer per 5 minuten', 'Maximal 5 Minute Outgoing Traffic' => 'Maximaal uitgaand verkeer per 5 minuten', 'the device' => 'het apparaat', 'The statistics were last updated(.*)' => 'Statistieken voor het laatst bijgewerkt op$1', ' Average\)
' => ' gemiddeld)
', 'Average(.*)' => 'Gemiddeld$1', 'Max(.*)' => 'Max$1', 'Current(.*)' => 'Actueel$1', 'version' => 'versie', '`Daily\' Graph \((.*) Minute' => '`Dagelijkse\' grafiek ($1 minuten', '`Weekly\' Graph \(30 Minute' => '`Weekelijkse\' grafiek (30 minuten' , '`Monthly\' Graph \(2 Hour' => '`Maandelijkse\' grafiek (2 uur', '`Yearly\' Graph \(1 Day' => '`Jaarlijkse\' grafiek (1 dag', 'Incoming Traffic in (\S+) per Second' => 'Inkomend verkeer in $1 per seconde', 'Outgoing Traffic in (\S+) per Second' => 'Uitgaand verkeer in $1 per seconde', 'at which time (.*) had been up for(.*)' => 'op het moment dat $1 reeds actief is voor$2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/u', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' # ' In:' => ' In:', ' Out:' => ' Uit:', ' Percentage' => ' Procent:', 'Ported to OpenVMS Alpha by' => 'Ported naar OpenVMS door', 'Ported to WindowsNT by' => 'Ported naar WindowsNT door', 'and' => 'en', 'DARK GREEN' => 'DONKER GROEN', '^GREEN' => 'GROEN', 'BLUE' => 'BLAUW', 'MAGENTA' => 'LILA', 'AMBER' => 'AMBER' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Zondag', 'Sun' => 'Zon', 'Monday' => 'Maandag', 'Mon' => 'Maa', 'Tuesday' => 'Dinsdag', 'Tue' => 'Din', 'Wednesday' => 'Woensdag', 'Wed' => 'Woe', 'Thursday' => 'Donderdag', 'Thu' => 'Don', 'Friday' => 'Vrijdag', 'Fri' => 'Vri', 'Saturday' => 'Zaterdag', 'Sat' => 'Zat' ); %month = ( 'January' => 'Januari', 'February' => 'Februari', 'March' => 'Maart', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mrt', 'April' => 'April', 'May' => 'Mei', 'June' => 'Juni', 'Apr' => 'Apr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Juli', 'August' => 'Augustus', 'September' => 'September', 'Jul' => 'Jul', 'Aug' => 'Aug', 'Sep' => 'Sep', 'October' => 'Oktober', 'November' => 'November', 'December' => 'December', 'Oct' => 'Okt', 'Nov' => 'Nov', 'Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." om".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # eucjp sub eucjp { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=euc-jp', 'Maximal 5 Minute Incoming Traffic' => 'ºÇÂç¼õ¿®ÎÌ(5ʬ´ÖÊ¿¶Ñ)', 'Maximal 5 Minute Outgoing Traffic' => 'ºÇÂçÁ÷¿®ÎÌ(5ʬ´ÖÊ¿¶Ñ)', 'the device' => '¥Ç¥Ð¥¤¥¹', 'The statistics were last updated(.*)' => 'ºÇ½ª¹¹¿·Æü»þ$1', ' Average\)
' => 'Ê¿¶Ñ)
', 'Average(.*)' => 'Ê¿¶ÑÃÍ$1', 'Max(.*)' => 'ºÇÂçÃÍ$1', 'Current(.*)' => '¸½ºßÃÍ$1', 'version' => 'version', '`Daily\' Graph \((.*) Minute' => '°ìÆü¥°¥é¥Õ($1ʬ´Ö', '`Weekly\' Graph \(30 Minute' => '½µ´Ö¥°¥é¥Õ(30ʬ´Ö', '`Monthly\' Graph \(2 Hour' => '·î´Ö¥°¥é¥Õ(2»þ´Ö', '`Yearly\' Graph \(1 Day' => 'ǯ´Ö¥°¥é¥Õ(1Æü', 'Incoming Traffic in (\S+) per Second' => '¼õ¿®ÎÌ($1/ÉÃ)', 'Outgoing Traffic in (\S+) per Second' => 'Á÷¿®ÎÌ($1/ÉÃ)', 'at which time (.*) had been up for(.*)' => '$1¤Î²ÔƯ»þ´Ö$2', '([kMG]?)([bB])/s' => '$1$2/ÉÃ', '([kMG]?)([bB])/min' => '$1$2/ʬ', '([kMG]?)([bB])/h' => '$1$2/»þ´Ö', 'Bits' => '¥Ó¥Ã¥È', 'Bytes' => '¥Ð¥¤¥È', ' In:' => ' ¼õ¿®:', ' Out:' => ' Á÷¿®:', ' Percentage' => ' ³ä¹ç:', 'Ported to OpenVMS Alpha by' => 'OpenVMS AlphaÈǺîÀ®', 'Ported to WindowsNT by' => 'WindowsNTÈǺîÀ®', 'and' => 'and', '^GREEN' => 'ÎÐ', 'BLUE' => 'ÀÄ', 'DARK GREEN' => '°Å¤¤ÎÐ', 'MAGENTA' => '¥Þ¥¼¥ó¥¿', 'AMBER' => '²«¿§' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;@dollar>$j;$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => '(Æü)', #'Sun' => 'Sun', 'Monday' => '(·î)', #'Mon' => 'Mon', 'Tuesday' => '(²Ð)', #'Tue' => 'Tue', 'Wednesday' => '(¿å)', #'Wed' => 'Wed', 'Thursday' => '(ÌÚ)', #'Thu' => 'Thu', 'Friday' => '(¶â)', #'Fri' => 'Fri', 'Saturday' => '(ÅÚ)', #'Sat' => 'Sat' ); %month = ( 'January' => '1·î', 'February' => '2·î', 'March' => '3·î', 'April' => '4·î', 'May' => '5·î', 'June' => '6·î', 'July' => '7·î', 'August' => '8·î', 'September' => '9·î', 'October' => '10·î', 'November' => '11·î', 'December' => '12·î', # 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', # 'Apr' => 'Apr', 'May' => 'May', 'Jun' => 'Jun', # 'Jul' => 'Jul', 'Aug' => 'Aug', 'Sep' => 'Sep', # 'Oct' => 'Oct', 'Nov' => 'Nov', 'Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+) (.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/ at /,$foo[3]); $foo[3]=$quux[1].", ".$quux[0]."ǯ"; }; return "$foo[3]$month{$foo[2]}$foo[1]Æü$wday{$foo[0]}"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # French sub french { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Trafic maximal en entrée sur 5 minutes', 'Maximal 5 Minute Outgoing Traffic' => 'Trafic maximal en sortie sur 5 minutes', 'the device' => 'le matériel', 'The statistics were last updated(.*)' => 'Les statistiques ont été mises à jour le $1', ' Average\)
' => ' Moyenne)
', 'Average(.*)' => 'Moyenne$1', 'Max(.*)' => 'Max$1', 'Current(.*)' => 'Actuel$1', 'version' => 'version', '`Daily\' Graph \((.*) Minute' => 'Graphique quotidien (sur $1 minutes :', '`Weekly\' Graph \(30 Minute' => 'Graphique hebdomadaire (sur 30 minutes :' , '`Monthly\' Graph \(2 Hour' => 'Graphique mensuel (sur 2 heures :', '`Yearly\' Graph \(1 Day' => 'Graphique annuel (sur 1 jour :', 'Incoming Traffic in (\S+) per Second' => 'Trafic d\'entrée en $1 par seconde', 'Outgoing Traffic in (\S+) per Second' => 'Trafic de sortie en $1 par seconde', 'at which time (.*) had been up for(.*)' => '$1 était alors en marche depuis $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Entrée:', ' Out:' => ' Sortie:', ' Percentage' => ' Pourcentage:', 'Ported to OpenVMS Alpha by' => 'Porté sur OpenVMS Alpha par', 'Ported to WindowsNT by' => 'Porté sur WindowsNT par', 'and' => 'et', '^GREEN' => 'VERT', 'BLUE' => 'BLEU', 'DARK GREEN' => 'VERT SOMBRE', 'MAGENTA' => 'MAGENTA', 'AMBER' => 'AMBRE' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Dimanche', 'Sun' => 'Dim', 'Monday' => 'Lundi', 'Mon' => 'Lun', 'Tuesday' => 'Mardi', 'Tue' => 'Mar', 'Wednesday' => 'Mercredi', 'Wed' => 'Mer', 'Thursday' => 'Jeudi', 'Thu' => 'Jeu', 'Friday' => 'Vendredi', 'Fri' => 'Ven', 'Saturday' => 'Samedi', 'Sat' => 'Sam' ); %month = ( 'January' => 'Janvier', 'February' => 'Février' , 'March' => 'Mars', 'Jan' => 'Jan', 'Feb' => 'Fev', 'Mar' => 'Mar', 'April' => 'Avril', 'May' => 'Mai', 'June' => 'Juin', 'Apr' => 'Avr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Juillet', 'August' => 'Août', 'September' => 'Septembre', 'Jul' => 'Jul', 'Aug' => 'Aou', 'Sep' => 'Sep', 'October' => 'Octobre', 'November' => 'Novembre', 'December' => 'Décembre', 'Oct' => 'Oct', 'Nov' => 'Nov', 'Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." à ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." à $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Galician sub galician { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Tr&áfico entrante máximo en 5 minutos', 'Maximal 5 Minute Outgoing Traffic' => 'Tr&áfico saínte máximo en 5 minutos', 'the device' => 'o dispositivo', 'The statistics were last updated(.*)' => 'Estas estatísticas actualizáronse o $1', ' Average\)
' => ' de Media)
', 'Average(.*)' => 'Media$1', 'Max(.*)' => 'Máx$1', 'Current(.*)' => 'Actual$1', 'version' => 'versión', '`Daily\' Graph \((.*) Minute' => 'Gráfica diaria ($1 minutos', '`Weekly\' Graph \(30 Minute' => 'Gráfica semanal (30 minutos' , '`Monthly\' Graph \(2 Hour' => 'Gráfica mensual (2 horas', '`Yearly\' Graph \(1 Day' => 'Gráfica anual (1 día', 'Incoming Traffic in (\S+) per Second' => 'Tráfico entrante en $1 por segundo', 'Outgoing Traffic in (\S+) per Second' => 'Tráfico saínte en $1 por segundo', 'at which time (.*) had been up for(.*)' => 'nese intre $1 levaba prendida $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/h', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Entrante:', ' Out:' => ' Saínte:', ' Percentage' => ' Tanto por ciento:', 'Ported to OpenVMS Alpha by' => 'Portado a OpenVMS Alpha por', 'Ported to WindowsNT by' => 'Portado a Windows NT por', 'and' => 'e', '^GREEN' => 'VERDE', 'BLUE' => 'AZUL', 'DARK GREEN' => 'VERDE OSCURO', 'MAGENTA' => 'ROSA', 'AMBER' => 'AMBAR' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Domingo', 'Sun' => 'Dom', 'Monday' => 'Luns', 'Mon' => 'Lun', 'Tuesday' => 'Martes', 'Tue' => 'Mar', 'Wednesday' => 'Mércores', 'Wed' => 'mér', 'Thursday' => 'Xoves', 'Thu' => 'Xov', 'Friday' => 'Venres', 'Fri' => 'Ven', 'Saturday' => 'Sábado', 'Sat' => 'Sáb' ); %month = ( 'January' => 'Xaneiro', 'February' => 'Febreiro' , 'March' => 'Marzo', 'Jan' => 'Xan', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'Abril', 'May' => 'Maio', 'June' => 'Xuño', 'Apr' => 'Abr', 'May' => 'Mai', 'Jun' => 'Xuñ', 'July' => 'Xullo', 'August' => 'Agosto', 'September' => 'Setembro', 'Jul' => 'Xul', 'Aug' => 'Ago', 'Sep' => 'Set', 'October' => 'Outubro', 'November' => 'Novembro', 'December' => 'Decembro', 'Oct' => 'Out', 'Nov' => 'Nov', 'Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." ás ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] de $month{$foo[2]} de $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Chinese gb Code sub gb { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=gb', 'Maximal 5 Minute Incoming Traffic' => '5·ÖÖÓ×î´óµÄÁ÷Á¿', 'Maximal 5 Minute Outgoing Traffic' => '5·ÖÖÓ×î´óµÄÁ÷³öÁ÷Á¿', 'the device' => 'µ±Ç°É豸', 'The statistics were last updated(.*)' => 'ͳ¼ÆÐÅÏ¢¸üÐÂÓÚ: $1', ' Average\)
' => 'ƽ¾ù)
', 'Average(.*)' => 'ƽ¾ù$1', 'Max(.*)' => '×î´ó$1', 'Current(.*)' => 'µ±Ç°$1', 'version' => '°æ±¾', '`Daily\' Graph \((.*) Minute' => 'ÈÕ·ÖÎöͼ($1·ÖÖÓ', '`Weekly\' Graph \(30 Minute' => 'ÖÜ·ÖÎöͼ(30·ÖÖÓ' , '`Monthly\' Graph \(2 Hour' => 'Ô·ÖÎöͼ(2Сʱ', '`Yearly\' Graph \(1 Day' => 'Äê·ÖÎöͼ(1Ìì', 'Incoming Traffic in (\S+) per Second' => 'ÿÃëµÄÁ÷ÈëÁ÷Á¿(µ¥Î»$1)', 'Outgoing Traffic in (\S+) per Second' => 'ÿÃëµÄÁ÷³öÁ÷Á¿(µ¥Î»$1)', 'at which time (.*) had been up for(.*)' => 'Æäʱ $1ÒѾ­¸üÐÂ(UPTIME): $2', '([kMG]?)([bB])/s' => '$1$2/s', '([kMG]?)([bB])/min' => '$1$2/m', '([kMG]?)([bB])/h' => '$1$2/h', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Á÷Èë:', ' Out:' => ' Á÷³ö:', ' Percentage' => ' °Ù·Ö±È:', 'Ported to OpenVMS Alpha by' => 'OpenVMSµÄ¶Ë¿Ú', 'Ported to WindowsNT by' => 'WindowsNTµÄ¶Ë¿Ú', 'and' => 'Óë', '^GREEN' => 'ÂÌÉ«', 'BLUE' => 'À¼É«', 'DARK GREEN' => '°µÂÌ', 'MAGENTA' => 'ºÖÉ«', 'AMBER' => '×ÏÉ«' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'ÖÜÈÕ', 'Sun' => 'ÖÜÈÕ', 'Monday' => 'ÖÜÒ»', 'Mon' => 'ÖÜÒ»¤@', 'Tuesday' => 'Öܶþ', 'Tue' => 'Öܶþ¤G', 'Wednesday' => 'ÖÜÈý', 'Wed' => 'ÖÜÈý¤T', 'Thursday' => 'ÖÜËÄ', 'Thu' => 'ÖÜËÄ¥|', 'Friday' => 'ÖÜÎå', 'Fri' => 'ÖÜÎå', 'Saturday' => 'ÖÜÁù', 'Sat' => 'ÖÜÁù' ); %month = ( 'January' => '1ÔÂ', 'February' => '2ÔÂ', 'March' => '3ÔÂ', 'Jan' => '1ÔÂ', 'Feb' => '2ÔÂ', 'Mar' => '3ÔÂ', 'April' => '4ÔÂ', 'May' => '5ÔÂ', 'June' => '6ÔÂ', 'Apr' => '4ÔÂ', 'May' => '5ÔÂ', 'Jun' => '6ÔÂ', 'July' => '7ÔÂ', 'August' => '8ÔÂ', 'September' => '9ÔÂ', 'Jul' => '7ÔÂ', 'Aug' => '8ÔÂ', 'Sep' => '9ÔÂ', 'October' => '10ÔÂ', 'November' => '11ÔÂ', 'December' => '12ÔÂ', 'Oct' => '10ÔÂ', 'Nov' => '11ÔÂ', 'Dec' => '12ÔÂ' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { @quux=split(/at/,$foo[3]); if($foo[3]=~(/(.*)at(.*)/)) { $foo[3]=$quux[0]; $foo[4]=$quux[1]; }; return "$foo[3]Äê $month{$foo[2]} $foo[1]ÈÕ, $wday{$foo[0]}, $foo[4]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Chinese gb2312 Code sub gb2312 { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => '5·ÖÖÓ×î´óÁ÷ÈëÁ¿', 'Maximal 5 Minute Outgoing Traffic' => '5·ÖÖÓ×î´óÁ÷³öÁ¿', 'the device' => '×°ÖÃ', 'The statistics were last updated(.*)' => 'ÉÏ´Îͳ¼Æ¸üÐÂʱ¼ä: $1', ' Average\)
' => ' ƽ¾ù)
', 'Average(.*)' => 'ƽ¾ù$1', 'Max(.*)' => '×î´ó$1', 'Current(.*)' => 'Ä¿Ç°$1', 'version' => '°æ±¾', '`Daily\' Graph \((.*) Minute' => 'ÿÈÕ Í¼±í ($1 ·ÖÖÓ', '`Weekly\' Graph \(30 Minute' => 'ÿÖÜ Í¼±í (30 ·ÖÖÓ' , '`Monthly\' Graph \(2 Hour' => 'ÿÔ ͼ±í (2 Сʱ', '`Yearly\' Graph \(1 Day' => 'ÿÄê ͼ±í (1 Ìì', 'Incoming Traffic in (\S+) per Second' => 'ÿÃëÁ÷ÈëÁ¿ (µ¥Î» $1)', 'Outgoing Traffic in (\S+) per Second' => 'ÿÃëÁ÷³öÁ¿ (µ¥Î» $1)', 'at which time (.*) had been up for(.*)' => 'É豸Ãû³Æ $1£¬ÒÑÔË×÷ʱ¼ä(UPTIME): $2', '([kMG]?)([bB])/s' => '\$1\$2/Ãë', '([kMG]?)([bB])/min' => '\$1\$2/·Ö', '([kMG]?)([bB])/h' => '$1$2/ʱ', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Á÷Èë:', ' Out:' => ' Á÷³ö:', ' Percentage' => ' °Ù·Ö±È:', 'Ported to OpenVMS Alpha by' => 'ÒÆÖ²µ½ OpenVM Alpha ×÷Õß', 'Ported to WindowsNT by' => 'ÒÆÖ²µ½ WindowsNT ×÷Õß', 'and' => '¼°', '^GREEN' => 'ÂÌÉ«', 'BLUE' => 'À¶É«', 'DARK GREEN' => 'Ä«ÂÌÉ«', 'MAGENTA' => '×ÏÉ«', 'AMBER' => 'çúçêÉ«' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'ÐÇÆÚÌì', 'Sun' => 'ÈÕ', 'Monday' => 'ÐÇÆÚÒ»', 'Mon' => 'Ò»', 'Tuesday' => 'ÐÇÆÚ¶þ', 'Tue' => '¶þ', 'Wednesday' => 'ÐÇÆÚÈý', 'Wed' => 'Èý', 'Thursday' => 'ÐÇÆÚËÄ', 'Thu' => 'ËÄ', 'Friday' => 'ÐÇÆÚÎå', 'Fri' => 'Îå', 'Saturday' => 'ÐÇÆÚÁù', 'Sat' => 'Áù' ); %month = ( 'January' => 'Ò»ÔÂ', 'February' => '¶þÔÂ', 'March' => 'ÈýÔÂ', 'Jan' => 'Ò»', 'Feb' => '¶þ', 'Mar' => 'Èý', 'April' => 'ËÄÔÂ', 'May' => 'ÎåÔÂ', 'June' => 'ÁùÔÂ', 'Apr' => 'ËÄ', 'May' => 'Îå', 'Jun' => 'Áù', 'July' => 'ÆßÔÂ', 'August' => '°ËÔÂ', 'September' => '¾ÅÔÂ', 'Jul' => 'Æß', 'Aug' => '°Ë', 'Sep' => '¾Å', 'October' => 'Ê®ÔÂ', 'November' => 'ʮһÔÂ', 'December' => 'Ê®¶þÔÂ', 'Oct' => 'Ê®', 'Nov' => 'ʮһ', 'Dec' => 'Ê®¶þ' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { @quux=split(/at/,$foo[3]); if($foo[3]=~(/(.*)at(.*)/)) { $foo[3]=$quux[0]; $foo[4]=$quux[1]; }; return "$foo[3] $month{$foo[2]} $foo[1] ÈÕ, $wday{$foo[0]}, $foo[4]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # German sub german { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Maximaler hereinkommender Traffic in 5 Minuten', 'Maximal 5 Minute Outgoing Traffic' => 'Maximaler hinausgehender Traffic in 5 Minuten', 'the device' => 'das Gerät', 'The statistics were last updated(.*)' => 'Die Statistiken wurden am $1 zuletzt aktualisiert', ' Average\)
' => '', 'Average(.*)' => 'Mittel$1', 'Max(.*)' => 'Maximal$1', 'Current(.*)' => 'Aktuell$1', 'version' => 'Version', '`Daily\' Graph \((.*) Minute' => 'Tagesübersicht (Skalierung $1 Minute(n))
', '`Weekly\' Graph \(30 Minute' => 'Wochenübersicht (Skalierung 30 Minuten)
' , '`Monthly\' Graph \(2 Hour' => 'Monatsübersicht (Skalierung 2 Stunden)
', '`Yearly\' Graph \(1 Day' => 'Jahresübersicht (Skalierung 1 Tag)
', 'Incoming Traffic in (\S+) per Second' => 'Hereinkommender Traffic in $1 pro Sekunde', 'Outgoing Traffic in (\S+) per Second' => 'Hinausgehender Traffic in $1 pro Sekunde', 'Incoming Traffic in (\S+) per Minute' => 'Hereinkommender Traffic in $1 pro Minute', 'Outgoing Traffic in (\S+) per Minute' => 'Hinausgehender Traffic in $1 pro Minute', 'Incoming Traffic in (\S+) per Hour' => 'Hereinkommender Traffic in $1 pro Stunde', 'Outgoing Traffic in (\S+) per Hour' => 'Hinausgehender Traffic in $1 pro Stunde', 'at which time (.*) had been up for(.*)' => 'zu diesem Zeitpunkt lief $1 seit $2', '(\S+) per minute' => '$1 pro Minute', '(\S+) per hour' => '$1 pro Stunde', '(.+)/s$' => '$1/s', # '(.+)/min' => '$1/min', '(.+)/h$' => '$1/std', #'([kMG]?)([bB])/s' => '$1$2/s', #'([kMG]?)([bB])/min' => '$1$2/min', #'([kMG]?)([bB])/h' => '$1$2/std', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Herein:', ' Out:' => ' Hinaus:', ' Percentage' => ' Prozent:', 'Ported to OpenVMS Alpha by' => 'Portierung nach OpenVMS von', 'Ported to WindowsNT by' => 'Portierung nach WindowsNT von', 'and' => 'und', '^GREEN' => 'GRÜN', 'BLUE' => 'BLAU', 'DARK GREEN' => 'DUNKELGRÜN', # 'MAGENTA' => 'ROSA', # 'AMBER' => 'AMBER', ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Sonntag', 'Sun' => 'So', 'Monday' => 'Montag', 'Mon' => 'Mo', 'Tuesday' => 'Dienstag', 'Tue' => 'Di', 'Wednesday' => 'Mittwoch', 'Wed' => 'Mi', 'Thursday' => 'Donnerstag', 'Thu' => 'Do', 'Friday' => 'Freitag', 'Fri' => 'Fr', 'Saturday' => 'Samstag', 'Sat' => 'Sa' ); %month = ( 'January' => 'Januar', 'February' => 'Februar' , 'March' => 'März', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mär', 'April' => 'April', 'May' => 'Mai', 'June' => 'Juni', 'Apr' => 'Apr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Juli', 'August' => 'August', 'September' => 'September', 'Jul' => 'Jul', 'Aug' => 'Aug', 'Sep' => 'Sep', 'October' => 'Oktober', 'November' => 'November', 'December' => 'Dezember', 'Oct' => 'Okt', 'Nov' => 'Nov', 'Dec' => 'Dez' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." um ".$quux[1]; }; return "$wday{$foo[0]}, den $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Greek sub greek { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-7', 'Maximal 5 Minute Incoming Traffic' => 'ÌÝãéóôï Åéóåñ÷üìåíï Öïñôßï óôá 5 ËåðôÜ', 'Maximal 5 Minute Outgoing Traffic' => 'ÌÝãéóôï Åîåñ÷üìåíï Öïñôßï óôá 5 ËåðôÜ', 'the device' => 'ç óõóêåõÞ', 'The statistics were last updated(.*)' => 'Ôá óôáôéóôéêÜ åíçìåñþèçêáí ôåëåõôáßá öïñÜ ôç(í)/ôï $1', ' Average\)
' => ' ÌÝóïò ¼ñïò)
', 'Average(.*)' => 'ÌÝóïò ¼ñïò$1', 'Max(.*)' => 'ÌÝãéóôï$1', 'Current(.*)' => 'ÔñÝ÷ïí$1', 'version' => 'Ýêäïóç', '`Daily\' Graph \((.*) Minute' => 'ÇìåñÞóéï ÃñÜöçìá (êÜèå $1 ëåðôÜ :', '`Weekly\' Graph \(30 Minute' => 'Åâäïìáäéáßï ÃñÜöçìá (êÜèå 30 ëåðôÜ :' , '`Monthly\' Graph \(2 Hour' => 'Ìçíéáßï ÃñÜöçìá (êÜèå 2 þñåò :', '`Yearly\' Graph \(1 Day' => 'ÅôÞóéï ÃñÜöçìá (êÜèå 1 ìÝñá :', 'Incoming Traffic in (\S+) per Second' => 'Åéóåñ÷üìåíï Öïñôßï óå $1 áíÜ äåõôåñüëåðôï', 'Outgoing Traffic in (\S+) per Second' => 'Åîåñ÷üìåíï Öïñôßï óå $1 áíÜ äåõôåñüëåðôï', 'at which time (.*) had been up for(.*)' => 'óôïí ïðïßï ÷ñüíï $1 Þôáí åíåñãÞ ãéá $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Åéóåñ÷üìåíá:', ' Out:' => ' Åîåñ÷üìåíá:', ' Percentage' => ' Ðïóïóôü:', 'Ported to OpenVMS Alpha by' => 'ÌåôáöåñìÝíï óå OpenVMS Alpha áðü', 'Ported to WindowsNT by' => 'ÌåôáöåñìÝíï óå WindowsNT áðü', 'and' => 'êáé', '^GREEN' => 'ÐÑÁÓÉÍÏ', 'BLUE' => 'ÌÐËÅ', 'DARK GREEN' => 'ÓÊÏÕÑÏ ÐÑÁÓÉÍÏ', 'MAGENTA' => 'ÌÙÂ', 'AMBER' => 'ÐÏÑÔÏÊÁËÉ' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'ÊõñéáêÞ', 'Sun' => 'Êõñ', 'Monday' => 'ÄåõôÝñá', 'Mon' => 'Äåõ', 'Tuesday' => 'Ôñßôç', 'Tue' => 'Ôñé', 'Wednesday' => 'ÔåôÜñôç', 'Wed' => 'Ôåô', 'Thursday' => 'ÐÝìðôç', 'Thu' => 'Ðåì', 'Friday' => 'ÐáñáóêåõÞ', 'Fri' => 'Ðáñ', 'Saturday' => 'ÓÜââáôï', 'Sat' => 'Óáâ' ); %month = ( 'January' => 'Éáíïõñßïõ', 'February' => 'Öåâñïõáñßïõ' , 'March' => 'Ìáñôßïõ', 'Jan' => 'Éáí', 'Feb' => 'Öåâ', 'Mar' => 'Ìáñ', 'April' => 'Áðñéëßïõ', 'May' => 'ÌáÀïõ', 'June' => 'Éïõíßïõ', 'Apr' => 'Áðñ', 'May' => 'Ìáé', 'Jun' => 'Éïõ', 'July' => 'Éïõëßïõ', 'August' => 'Áõãïýóôïõ', 'September' => 'Óåðôåìâñßïõ', 'Jul' => 'Éïõ', 'Aug' => 'Áõã', 'Sep' => 'Óåð', 'October' => 'Ïêôùâñßïõ', 'November' => 'Íïåìâñßïõ', 'December' => 'Äåêåìâñßïõ', 'Oct' => 'Ïêô', 'Nov' => 'Íïå', 'Dec' => 'Äåê' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." óôéò ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." à $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Hungarian sub hungarian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-2', 'Maximal 5 Minute Incoming Traffic' => 'Maximális bejövõ forgalom 5 perc alatt', 'Maximal 5 Minute Outgoing Traffic' => 'Maximális kimenõ forgalom 5 perc alatt', 'the device' => 'az eszköz', 'The statistics were last updated(.*)' => 'A statisztika utolsó frissítése:$1', ' Average\)
' => ' átlag)
', 'Average(.*)' => 'Átlagos$1', 'Max(.*)' => 'Maximum$1', 'Current(.*)' => 'Pillanatnyi$1', 'version' => 'verzió', '`Daily\' Graph \((.*) Minute' => '`Napi\' grafikon ($1 perces', '`Weekly\' Graph \(30 Minute' => '`Heti\' grafikon (30 perces' , '`Monthly\' Graph \(2 Hour' => '`Havi\' grafikon (2 órás', '`Yearly\' Graph \(1 Day' => '`Éves\' grafikon (1 napos', 'Incoming Traffic in (\S+) per Second' => 'Bejövõ forgalom $1 per másodpercben', 'Outgoing Traffic in (\S+) per Second' => 'Kimenõ forgalom $1 per másodpercben', 'at which time (.*) had been up for(.*)' => 'amikor a $1 üzemideje $2 volt.', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', 'Bits' => 'Bit', 'Bytes' => 'Byte', ' In:' => ' be:', ' Out:' => ' ki:', ' Percentage' => ' százale´k:', 'Ported to OpenVMS Alpha by' => 'OpenVMS-re portolta', 'Ported to WindowsNT by' => 'WindowsNT-re portolta', 'and' => 'és', '^GREEN' => 'ZÖLD', 'BLUE' => 'KÉK', 'DARK GREEN' => 'SÖTÉT ZÖLD', 'MAGENTA' => 'BÍBOR', 'AMBER' => 'SÁRGA' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'vasárnap', 'Sun' => 'vas', 'Monday' => 'hétfõ', 'Mon' => 'hét', 'Tuesday' => 'kedd', 'Tue' => 'kedd', 'Wednesday' => 'szerda', 'Wed' => 'sze', 'Thursday' => 'csütörtök','Thu' => 'csüt', 'Friday' => 'péntek', 'Fri' => 'pén', 'Saturday' => 'szombat', 'Sat' => 'szo' ); %month = ( 'January' => 'január', 'February' => 'február' , 'March' => 'március', 'Jan' => 'jan', 'Feb' => 'feb', 'Mar' => 'marc', 'April' => 'április', 'May' => 'május', 'June' => 'június', 'Apr' => 'apr', 'May' => 'maj', 'Jun' => 'jun', 'July' => 'július', 'August' => 'augusztus', 'September' => 'szeptember', 'Jul' => 'jul', 'Aug' => 'aug', 'Sep' => 'szept', 'October' => 'október', 'November' => 'november', 'December' => 'december', 'Oct' => 'okt', 'Nov' => 'nov', 'Dec' => 'dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." kl.".$quux[1]; }; return "$quux[0]. $month{$foo[2]} $foo[1]., $wday{$foo[0]} $quux[1]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Icelandic sub icelandic { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Hámarks 5 mínútna umferð inn', 'Maximal 5 Minute Outgoing Traffic' => 'Hámarks 5 mínútna umferð út', 'the device' => 'tækið', 'The statistics were last updated(.*)' => 'Gögnin voru síðast uppfærð$1', ' Average\)
' => ' Meðaltal)
', 'Average(.*)' => 'Meðaltal$1', 'Max(.*)' => 'Hámark', 'Current(.*)' => 'Nú$1', 'version' => 'útgáfa', '`Daily\' Graph \((.*) Minute' => '`Dagleg\' staða ($1 mínútur', '`Weekly\' Graph \(30 Minute' => '`Vikuleg\' staða (30 mínútur', '`Monthly\' Graph \(2 Hour' => '`Mánaðarleg\' staða (2 klst.', '`Yearly\' Graph \(1 Day' => '`&Aarleg\' staða (1 dags', 'Incoming Traffic in (\S+) per Second' => 'Umferð inn í $1 á sekúndu', 'Outgoing Traffic in (\S+) per Second' => 'Umferð út í $1 á sekúndu', 'at which time (.*) had been up for(.*)' => 'þegar $1 hafði verið uppi í$2', # '([kMG]?)([bB])/s' => '\$1\$2/sek', # '([kMG]?)([bB])/min' => '\$1\$2/mín', '([kMG]?)([bB])/h' => '$1$2/klst', # 'Bits' => 'Bitar', # 'Bytes' => 'Bæti' ' In:' => ' Inn:', ' Out:' => ' Út:', ' Percentage' => ' Prósent:', 'Ported to OpenVMS Alpha by' => 'Staðfært á OpenVMS af', 'Ported to WindowsNT by' => 'Staðfært á WindowsNT af', 'and' => 'og', '^GREEN' => 'GRÆNt', 'BLUE' => 'BLÁTT', 'DARK GREEN' => 'DÖKK GRÆNN', 'MAGENTA' => 'BLÁRAUÐUR', 'AMBER' => 'GULBRÚNN' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Sunnudagur', 'Sun' => 'Sun', 'Monday' => 'Mánudagur', 'Mon' => 'Mán', 'Tuesday' => 'Þriðjudagur', 'Tue' => 'Þri', 'Wednesday' => 'Miðvikudagur', 'Wed' => 'Mið', 'Thursday' => 'Fimmtudagur', 'Thu' => 'Fim', 'Friday' => 'Föstudagur', 'Fri' => 'Fös', 'Saturday' => 'Laugardagur', 'Sat' => 'Lau' ); %month = ( 'January' => 'Janúar', 'February' => 'Febrúar' , 'March' => 'Mars', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'Apríl', 'May' => 'Maí', 'June' => 'Júní', 'Apr' => 'Apr', 'May' => 'Maí', 'Jun' => 'Jún', 'July' => 'Júlí', 'August' => 'Ágúst', 'September' => 'September', 'Jul' => 'Júl', 'Aug' => 'Ágú', 'Sep' => 'Sep', 'October' => 'Október', 'November' => 'Nóvember', 'December' => 'Desember', 'Oct' => 'Okt', 'Nov' => 'Nóv', 'Dec' => 'Des' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." kl.".$quux[1]; }; return "$wday{$foo[0]} den $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Malaysian/Indonesian/Malay sub indonesia { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Trafik Masuk Maksimum dalam 5 Menit', 'Maximal 5 Minute Outgoing Traffic' => 'Trafik Keluar Maksimum dalam 5 Menit', 'the device' => 'device', 'The statistics were last updated(.*)' => 'Statistik ini terakhir kali diupdate pada $1', ' Average\)
' => ')
', 'Average(.*)' => 'Rata-rata $1', 'Max(.*)' => 'Maksimum $1', 'Current(.*)' => 'Sekarang $1', 'version' => 'versi', '`Daily\' Graph \((.*) Minute' => 'Grafik Harian (Rata-rata per $1 menit', '`Weekly\' Graph \(30 Minute' => 'Grafik Mingguan (Rata-rata per 30 menit', '`Monthly\' Graph \(2 Hour' => 'Grafik Bulanan (Rata-rata per 2 jam', '`Yearly\' Graph \(1 Day' => 'Grafik Tahunan (Rata-rata per hari', 'Incoming Traffic in (\S+) per Second' => 'Trafik Masuk $1 per detik', 'Outgoing Traffic in (\S+) per Second' => 'Trafik Keluar $1 per detik', 'at which time (.*) had been up for(.*)' => 'Pada saat $1 telah aktif selama $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/j', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Masuk', ' Out:' => ' Keluar', ' Percentage' => ' Persentase:', 'Ported to OpenVMS Alpha by' => 'Porting ke OpenVMS Alpha oleh', 'Ported to WindowsNT by' => 'Porting ke WindowsNT oleh', 'and' => 'dan', '^GREEN' => 'HIJAU', 'BLUE' => 'BIRU', 'DARK GREEN' => 'HIJAU GELAP', 'MAGENTA' => 'MAGENTA', 'AMBER' => 'AMBAR' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Ahad', 'Sun' => 'Aha', 'Monday' => 'Senin', 'Mon' => 'Sen', 'Tuesday' => 'Selasa', 'Tue' => 'Sel', 'Wednesday' => 'Rabu', 'Wed' => 'Rab', 'Thursday' => 'Kamis', 'Thu' => 'Kam', 'Friday' => 'Jumat', 'Fri' => 'Jum', 'Saturday' => 'Sabtu', 'Sat' => 'Sab' ); %month = ( 'January' => 'Januari', 'February' => 'Februari' , 'March' => 'Maret', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'April', 'May' => 'Mei', 'June' => 'Juni', 'Apr' => 'Apr', 'May' => 'Mei', 'Jun' => 'Jun', 'July' => 'Juli', 'August' => 'Agustus', 'September' => 'September', 'Jul' => 'Jul', 'Aug' => 'Ags', 'Sep' => 'Sep', 'October' => 'Oktober', 'November' => 'November', 'December' => 'Desember', 'Oct' => 'Okt', 'Nov' => 'Nov', 'Dec' => 'Des' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." pada ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # iso2022jp sub iso2022jp { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=iso-2022-jp', 'Maximal 5 Minute Incoming Traffic' => "\033\$B:GBg "\033\$B:GBgAw?.NL\033(B(5\033\$BJ,4VJ?6Q\033(B)", 'the device' => "\033\$B%G%P%\$%9\033(B", 'The statistics were last updated(.*)' => "\033\$B:G=*99?7F|;~\033(B\$1", ' Average\)
' => "\033\$BJ?6Q\033\(B)
", 'Average(.*)' => "\033\$BJ?6QCM\033(B\$1", 'Max(.*)' => "\033\$B:GBgCM\033(B\$1", 'Current(.*)' => "\033\$B8=:_CM\033(B\$1", 'version' => 'version', '`Daily\' Graph \((.*) Minute' => "\033\$B0lF|%0%i%U\033(B(\$1\033\$BJ,4V\033(B", '`Weekly\' Graph \(30 Minute' => "\033\$B=54V%0%i%U\033(B(30\033\$BJ,4V\033(B", '`Monthly\' Graph \(2 Hour' => "\033\$B7n4V%0%i%U\033(B(2\033\$B;~4V\033(B", '`Yearly\' Graph \(1 Day' => "\033\$BG/4V%0%i%U\033(B(1\033\$BF|\033(B", 'Incoming Traffic in (\S+) per Second' => "\033\$B "\033\$BAw?.NL\033(B(\$1/\033\$BIC\033(B)", 'at which time (.*) had been up for(.*)' => "\$1\033\$B\$N2TF/;~4V\033(B\$2", '([kMG]?)([bB])/s' => "\$1\$2/\033\$BIC\033(B", '([kMG]?)([bB])/min' => "\$1\$2/\033\$BJ,\033(B", '([kMG]?)([bB])/h' => "\$1\$2/\033\$B;~4V\033(B", 'Bits' => "\033\$B%S%C%H\033(B", 'Bytes' => "\033\$B%P%\$%H\033(B", ' In:' => " \033\$B", ' Out:' => " \033\$BAw?.\033(B:", ' Percentage' => " \033\$B3d9g\033(B:", 'Ported to OpenVMS Alpha by' => "OpenVMS Alpha\033\$BHG:n\@.\033(B", 'Ported to WindowsNT by' => "WindowsNT\033\$BHG:n\@.\033(B", 'and' => 'and', '^GREEN' => "\033\$BNP\033(B", 'BLUE' => "\033\$B\@D\033(B", 'DARK GREEN' => "\033\$B0E\$\$NP\033(B", 'MAGENTA' => "\033\$B%^%<%s%?\033(B", 'AMBER' => "\033\$B2+?'\033(B" ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;@dollar>$j;$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => "(\033\$BF|\033(B)", #'Sun' => 'Sun', 'Monday' => "(\033\$B7n\033(B)", #'Mon' => 'Mon', 'Tuesday' => "(\033\$B2P\033(B)", #'Tue' => 'Tue', 'Wednesday' => "(\033\$B?e\033(B)", #'Wed' => 'Wed', 'Thursday' => "(\033\$BLZ\033(B)", #'Thu' => 'Thu', 'Friday' => "(\033\$B6b\033(B)", #'Fri' => 'Fri', 'Saturday' => "(\033\$BEZ\033(B)", #'Sat' => 'Sat' ); %month = ( 'January' => "1\033\$B7n\033(B", 'February' => "2\033\$B7n\033(B", 'March' => "3\033\$B7n\033(B", 'April' => "4\033\$B7n\033(B", 'May' => "5\033\$B7n\033(B", 'June' => "6\033\$B7n\033(B", 'July' => "7\033\$B7n\033(B", 'August' => "8\033\$B7n\033(B", 'September' => "9\033\$B7n\033(B", 'October' => "10\033\$B7n\033(B", 'November' => "11\033\$B7n\033(B", 'December' => "12\033\$B7n\033(B", # 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', # 'Apr' => 'Apr', 'May' => 'May', 'Jun' => 'Jun', # 'Jul' => 'Jul', 'Aug' => 'Aug', 'Sep' => 'Sep', # 'Oct' => 'Oct', 'Nov' => 'Nov', 'Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+) (.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/ at /,$foo[3]); $foo[3]=$quux[1].", ".$quux[0]."\033\$BG/\033(B"; }; return "$foo[3]$month{$foo[2]}$foo[1]\033\$BF|\033(B$wday{$foo[0]}"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Italian sub italian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Traffico massimo in entrata su 5 minuti', 'Maximal 5 Minute Outgoing Traffic' => 'Traffico massimo in uscita su 5 minuti', 'the device' => 'Il dispositivo', 'The statistics were last updated(.*)' => 'Le statistiche l\' ultima volta sono state aggiornate', ' Average\)
' => ' Media)
', 'Average(.*)' => 'Media$1', 'Max(.*)' => 'Max$1', 'Current(.*)' => 'Attuale$1', 'version' => 'versione', '`Daily\' Graph \((.*) Minute' => 'Grafico giornaliero (su $1 minuti :', '`Weekly\' Graph \(30 Minute' => 'Grafico settimanale (su 30 minuti :' , '`Monthly\' Graph \(2 Hour' => 'Grafico mensile (su 2 ore :', '`Yearly\' Graph \(1 Day' => 'Grafico annuale (su 1 giorno :', 'Incoming Traffic in (\S+) per Second' => 'Traffico in ingresso in $1 per secondo', 'Outgoing Traffic in (\S+) per Second' => 'Traffico in uscita in $1 per secondo', 'at which time (.*) had been up for(.*)' => '$1 é attivo da $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Ingresso:', ' Out:' => ' Uscita:', ' Percentage' => ' Percentuale:', 'Ported to OpenVMS Alpha by' => 'Ported su OpenVMS Alpha da', 'Ported to WindowsNT by' => 'Ported su WindowsNT da', 'and' => 'e', '^GREEN' => 'VERDE', 'BLUE' => 'BLU', 'DARK GREEN' => 'VERDE SCURO', 'MAGENTA' => 'MAGENTA', 'AMBER' => 'AMBRA' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Domenica', 'Sun' => 'Dom', 'Monday' => 'Lunedi', 'Mon' => 'Lun', 'Tuesday' => 'Martedi', 'Tue' => 'Mar', 'Wednesday' => 'Mercoledi', 'Wed' => 'Mer', 'Thursday' => 'Giovedi', 'Thu' => 'Gio', 'Friday' => 'Venerdi', 'Fri' => 'Ven', 'Saturday' => 'Sabato', 'Sat' => 'Sab' ); %month = ( 'January' => 'Gennaio', 'February' => 'Febbraio' , 'March' => 'Marzo', 'Jan' => 'Gen', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'Aprile', 'May' => 'Maggio', 'June' => 'Giugno', 'Apr' => 'Apr', 'May' => 'Mag', 'Jun' => 'Giu', 'July' => 'Luglio', 'August' => 'Agosto', 'September' => 'Settembre', 'Jul' => 'Lug', 'Aug' => 'Ago', 'Sep' => 'Set', 'October' => 'Ottobre', 'November' => 'Novembre', 'December' => 'Dicembre', 'Oct' => 'Ott', 'Nov' => 'Nov', 'Dec' => 'Dic' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." alle ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." à $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Korean sub korean { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( # 'charset=iso-8859-1' => 'charset=ks_c_5601-1987', 'charset=iso-8859-1' => '', 'Maximal 5 Minute Incoming Traffic' => '5ºÐ°£ ÃÖ´ë ¼ö½Å', 'Maximal 5 Minute Outgoing Traffic' => '5ºÐ°£ ÃÖ´ë ¼Û½Å', 'the device' => 'ÀåÄ¡', 'The statistics were last updated(.*)' => 'ÃÖÁ¾ °»½Å ÀϽÃ: $1', ' Average\)
' => ' Æò±Õ°ª ±âÁØ)
', 'Average(.*)' => 'Æò±Õ$1', 'Max(.*)' => 'ÃÖ´ë$1', 'Current(.*)' => 'ÇöÀç$1', 'version' => '¹öÁ¯', '`Daily\' Graph \((.*) Minute' => 'ÀÏ°£ ±×·¡ÇÁ ($1 ºÐ ´ÜÀ§', '`Weekly\' Graph \(30 Minute' => 'ÁÖ°£ ±×·¡ÇÁ (30 ºÐ ´ÜÀ§' , '`Monthly\' Graph \(2 Hour' => '¿ù°£ ±×·¡ÇÁ (2 ½Ã°£ ´ÜÀ§', '`Yearly\' Graph \(1 Day' => '³â°£ ±×·¡ÇÁ (1 ÀÏ ´ÜÀ§', 'Incoming Traffic in (\S+) per Second' => 'ÃÊ´ç ¼ö½ÅµÈ $1', 'Outgoing Traffic in (\S+) per Second' => 'ÃÊ´ç ¼Û½ÅµÈ $1', 'at which time (.*) had been up for(.*)' => '$1 °¡µ¿ ½Ã°£: $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' ¼ö½Å:', ' Out:' => ' ¼Û½Å:', ' Percentage' => ' ÆÛ¼¾Æ®:', 'Ported to OpenVMS Alpha by' => 'OpenVMS Alpha¿ë °³¹ß', 'Ported to WindowsNT by' => 'WindowsNT¿ë °³¹ß', 'and' => '±×¸®°í', '^GREEN' => '³ì»ö', 'BLUE' => 'û»ö', 'DARK GREEN' => 'ÁøÇѳì»ö', 'MAGENTA' => 'ºÐÈ«»ö', 'AMBER' => 'ÁÖȲ»ö' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'ÀÏ¿äÀÏ', 'Sun' => 'ÀÏ', 'Monday' => '¿ù¿äÀÏ', 'Mon' => '¿ù', 'Tuesday' => 'È­¿äÀÏ', 'Tue' => 'È­', 'Wednesday' => '¼ö¿äÀÏ', 'Wed' => '¼ö', 'Thursday' => '¸ñ¿äÀÏ', 'Thu' => '¸ñ', 'Friday' => '±Ý¿äÀÏ', 'Fri' => '±Ý', 'Saturday' => 'Åä¿äÀÏ', 'Sat' => 'Åä' ); %month = ( 'January' => '1¿ù', 'February' => '2¿ù' , 'March' => '3¿ù', 'Jan' => '1¿ù', 'Feb' => '2¿ù', 'Mar' => '3¿ù', 'April' => '4¿ù', 'May' => '3¿ù', 'June' => '6¿ù', 'Apr' => '4¿ù', 'May' => '3¿ù', 'Jun' => '6¿ù', 'July' => '7¿ù', 'August' => '8¿ù', 'September' => '9¿ù', 'Jul' => '7¿ù', 'Aug' => '8¿ù', 'Sep' => '9¿ù', 'October' => '10¿ù', 'November' => '11¿ù', 'December' => '12¿ù', 'Oct' => '10¿ù', 'Nov' => '11¿ù', 'Dec' => '12¿ù' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); # $foo[3]=$quux[0]." kl.".$quux[1]; $foo[3]=$quux[0]; $foo[4]=$quux[1]; }; return $foo[3]."³â $month{$foo[2]} $foo[1]ÀÏ $wday{$foo[0]} $foo[4]"; # return "$wday{$foo[0]} den $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Lithuanian sub lithuanian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=windows-1257', 'Maximal 5 Minute Incoming Traffic' => 'Maksimalus 5 minuèiø áeinantis srautas', 'Maximal 5 Minute Outgoing Traffic' => 'Maksimalus 5 minuèiø iðeinantis srautas', 'the device' => 'árenginys', 'The statistics were last updated(.*)' => 'Statistika atnaujinta$1', ' Average\)
' => ' vidurkis)
', 'Average(.*)' => 'vid$1', 'Max(.*)' => 'max$1', 'Current(.*)' => 'dabar$1', 'version' => 'versija', '`Daily\' Graph \((.*) Minute' => '\'dienos\' grafikas ($1 min.', '`Weekly\' Graph \(30 Minute' => '\'savaitës\' grafikas (30 min.' , '`Monthly\' Graph \(2 Hour' => '\'mënesio\' grafikas (2 val.', '`Yearly\' Graph \(1 Day' => '\'metø\' grafikas (1 d.', 'Incoming Traffic in (\S+) per Second' => 'Áeinantis srautas, $1 per sekundæ', 'Outgoing Traffic in (\S+) per Second' => 'Iðeinantis srautas i $1 per sekundæ', 'at which time (.*) had been up for(.*)' => '$1 veikia jau $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', # '([kMG]?)([bB])/h' => '$1$2/h', 'Bits' => 'bitai', 'Bytes' => 'baitai', ' In:' => ' á:', ' Out:' => ' ið:', ' Percentage' => ' procentai:', 'Ported to OpenVMS Alpha by' => 'Perkëlë á OpenVMS Alpha:', 'Ported to WindowsNT by' => 'Perkëlë á WindowsNT:', 'and' => 'ir', '^GREEN' => 'ÞALIA ', 'BLUE' => 'MËLYNA ', 'DARK GREEN' => 'TAMSIAI ÞALIA ', 'MAGENTA' => 'RAUDONA ', 'AMBER' => 'GINTARINË ' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'sekmadiená', 'Sun' => 'Sek', 'Monday' => 'pirmadiená', 'Mon' => 'Pir', 'Tuesday' => 'antradiená', 'Tue' => 'Ant', 'Wednesday' => 'treèiadiená', 'Wed' => 'Tre', 'Thursday' => 'ketvirtadiená', 'Thu' => 'Ket', 'Friday' => 'penktadiená', 'Fri' => 'Pen', 'Saturday' => 'ðeðtadiená', 'Sat' => 'Ðeð' ); %month = ( 'January' => 'sausio', 'February' => 'vasario' , 'March' => 'kovo', 'Jan' => 'Sau', 'Feb' => 'Vas', 'Mar' => 'Kov', 'April' => 'balandþio', 'May' => 'geguþës', 'June' => 'birþelio', 'Apr' => 'Bal', 'May' => 'Geg', 'Jun' => 'Bir', 'July' => 'liepos', 'August' => 'rugpjûèio', 'September' => 'rugsëjo', 'Jul' => 'Lie', 'Aug' => 'Rgp', 'Sep' => 'Rgs', 'October' => 'spalio', 'November' => 'lapkrièio', 'December' => 'gruodþio', 'Oct' => 'Spa', 'Nov' => 'Lap', 'Dec' => 'Gru' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[1].", ".$quux[0]; }; return "$foo[3] $month{$foo[2]} $foo[1], $wday{$foo[0]}" ; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Malaysian/Malay sub malay { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Maksimum 5 Minit Trafik Masuk', 'Maximal 5 Minute Outgoing Traffic' => 'Maksimum 5 Minit Trafik Keluar', 'the device' => 'alatan', 'The statistics were last updated(.*)' => 'Statistik ini kali terakhir dikemaskini pada $1', ' Average\)
' => ' secara purata)
', 'Average(.*)' => 'Purata $1', 'Max(.*)' => 'Maksimum $1', 'Current(.*)' => 'Kini $1', 'version' => 'versi', '`Daily\' Graph \((.*) Minute' => 'Graf `Harian\' ($1 minit :', '`Weekly\' Graph \(30 Minute' => 'Graf `Mingguan\' (30 minit :' , '`Monthly\' Graph \(2 Hour' => 'Graf `Bulanan\' (2 jam :', '`Yearly\' Graph \(1 Day' => 'Graf `Tahunan\' (1 hari :', 'Incoming Traffic in (\S+) per Second' => 'Trafik Masuk $1 per saat', 'Outgoing Traffic in (\S+) per Second' => 'Traffic Keluar $1 per saat', 'at which time (.*) had been up for(.*)' => 'Sehingga waktu $1 ia telah aktif selama $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/j', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Masuk', ' Out:' => ' Keluar', ' Percentage' => ' Peratus:', 'Ported to OpenVMS Alpha by' => 'Pengubahsuaian ke OpenVMS Alpha oleh', 'Ported to WindowsNT by' => 'Pengubahsuaian ke WindowsNT oleh', 'and' => 'dan', '^GREEN' => 'HIJAU', 'BLUE' => 'BIRU', 'DARK GREEN' => 'HIJAU GELAP', 'MAGENTA' => 'MAGENTA', 'AMBER' => 'AMBAR' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Ahad', 'Sun' => 'Aha', 'Monday' => 'Isnin', 'Mon' => 'Isn', 'Tuesday' => 'Selasa', 'Tue' => 'Sel', 'Wednesday' => 'Rabu', 'Wed' => 'Rab', 'Thursday' => 'Khamis', 'Thu' => 'Kha', 'Friday' => 'Jumaat', 'Fri' => 'Jum', 'Saturday' => 'Sabtu', 'Sat' => 'Sab' ); %month = ( 'January' => 'Januari', 'February' => 'Februari' , 'March' => 'Mac', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mac', 'April' => 'April', 'May' => 'Mei', 'June' => 'Jun', 'Apr' => 'Apr', 'May' => 'Mei', 'Jun' => 'Jun', 'July' => 'Julai', 'August' => 'Ogos', 'September' => 'September', 'Jul' => 'Jul', 'Aug' => 'Ogo', 'Sep' => 'Sep', 'October' => 'Oktober', 'November' => 'November', 'December' => 'Disember', 'Oct' => 'Okt', 'Nov' => 'Nov', 'Dec' => 'Dis' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." pada ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Norwegian sub norwegian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Maksimal inngående trafikk i 5 minutter', 'Maximal 5 Minute Outgoing Traffic' => 'Maksimal utgående trafikk i 5 minutter', 'the device' => 'enhetden', 'The statistics were last updated(.*)' => 'Statistikken ble sist oppdatert $1', ' Average\)
' => ' gjennomsnitt)
', 'Average(.*)' => 'Gjennomsnitt$1', 'Max(.*)' => 'Max$1', 'Current(.*)' => 'Nå$1', 'version' => 'versjon', '`Daily\' Graph \((.*) Minute' => '`Daglig\' graf ($1 minutts', '`Weekly\' Graph \(30 Minute' => '`Ukentlig\' graf (30 minutts' , '`Monthly\' Graph \(2 Hour' => '`Månedlig\' graf (2 times', '`Yearly\' Graph \(1 Day' => '`Årlig\' graf (1 dags', 'Incoming Traffic in (\S+) per Second' => 'Inngående trafikk i $1 per sekund', 'Outgoing Traffic in (\S+) per Second' => 'Utgående trafikk i $1 per sekund', 'at which time (.*) had been up for(.*)' => 'hvor $1 hadde vært oppe i $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Inn:', ' Out:' => ' Ut:', ' Percentage' => ' Prosent:', 'Ported to OpenVMS Alpha by' => 'Port til OpenVMS av', 'Ported to WindowsNT by' => 'Port til WindowsNT av', 'and' => 'og', '^GREEN' => 'GRØNN', 'BLUE' => 'BLÅ', 'DARK GREEN' => 'MØRKEGRØNN', 'MAGENTA' => 'MAGENTA', 'AMBER' => 'GUL' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Søndag', 'Sun' => 'Søn', 'Monday' => 'Mandag', 'Mon' => 'Man', 'Tuesday' => 'Tirsdag', 'Tue' => 'Tir', 'Wednesday' => 'Onsdag', 'Wed' => 'Ons', 'Thursday' => 'Torsdag', 'Thu' => 'Tor', 'Friday' => 'Fredag', 'Fri' => 'Fre', 'Saturday' => 'Lørdag', 'Sat' => 'Lør' ); %month = ( 'January' => 'Januar', 'February' => 'Februar' , 'March' => 'Mars', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'April', 'May' => 'Mai', 'June' => 'Juni', 'Apr' => 'Apr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Juli', 'August' => 'August', 'September' => 'September', 'Jul' => 'Jul', 'Aug' => 'Aug', 'Sep' => 'Sep', 'October' => 'Oktober', 'November' => 'November', 'December' => 'Desember', 'Oct' => 'Okt', 'Nov' => 'Nov', 'Dec' => 'Des' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." kl.".$quux[1]; }; return "$wday{$foo[0]} den $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; sub polish { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-2', 'Maximal 5 Minute Incoming Traffic' => 'Maksymalny ruch przychodz±cy w ci±gu 5 minut', 'Maximal 5 Minute Outgoing Traffic' => 'Maksymalny ruch wychodz±cy w ci±gu 5 minut', 'the device' => 'urz±dzenie', 'The statistics were last updated(.*)' => 'Ostatnie uaktualnienie statystyki $1', ' Average\)
' => ' ¦rednia)
', 'Average(.*)' => '¦rednio$1', 'Max(.*)' => 'Maksymalnie$1', 'Current(.*)' => 'Aktualnie$1', 'version' => 'wersja', '`Daily\' Graph \((.*) Minute' => '`Dzienny\' Graf w ci±gu ($1 Minut/y - ', '`Weekly\' Graph \(30 Minute' => '`Tygodniowy\' Graf w ci±gu (30 minut - ' , '`Monthly\' Graph \(2 Hour' => '`Miesiêczny\' Graf w ci±gu (2 Godzin - ', '`Yearly\' Graph \(1 Day' => '`Roczny\' Graf w ci±gu (1 Dnia - ', 'Incoming Traffic in (\S+) per Second' => 'Ruch przychodz±cy - $1 na sekundê', 'Outgoing Traffic in (\S+) per Second' => 'Ruch wychodz±cy - $1 na sekundê', 'at which time (.*) had been up for(.*)' => 'gdy $1 by³ w³±czony przez $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/g', 'Bits' => 'Bity', 'Bytes' => 'Bajty', ' In:' => ' Do:', ' Out:' => '  Z:', ' Percentage' => ' Procent:', 'Ported to OpenVMS Alpha by' => 'Port dla OpenVMS Alpha dziêki', 'Ported to WindowsNT by' => 'Port dla WindowsNT dziêki', 'and' => 'i', '^GREEN' => 'ZIELONY', 'BLUE' => 'NIEBIESKI', 'DARK GREEN' => 'CIEMNO ZIELONY', 'MAGENTA' => 'KARMAZYNOWY', 'AMBER' => 'BURSZTYNOWY' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Niedziela', 'Sun' => 'Nie', 'Monday' => 'Poniedzia³ek', 'Mon' => 'Pon', 'Tuesday' => 'Wtorek', 'Tue' => 'Wto', 'Wednesday' => '¦roda', 'Wed' => '¦ro', 'Thursday' => 'Czwartek', 'Thu' => 'Czw', 'Friday' => 'Pi±tek', 'Fri' => 'Pi±', 'Saturday' => 'Sobota', 'Sat' => 'Sob' ); %month = ( 'January' => 'Stycznia', 'February' => 'Lutego', 'March' => 'Marca', 'Jan' => 'Sty', 'Feb' => 'Lut', 'Mar' => 'Mar', 'April' => 'Kwietnia', 'May' => 'Maja', 'June' => 'Czerwca', 'Apr' => 'Kwi', 'May' => 'Maj', 'Jun' => 'Cze', 'July' => 'Lipica', 'August' => 'Sierpnia', 'September' => 'Wrzesnia', 'Jul' => 'Lip', 'Aug' => 'Sie', 'Sep' => 'Wrz', 'October' => 'Pa¼dziernika', 'November' => 'Listopada', 'December' => 'Grudnia', 'Oct' => 'Pa¼', 'Nov' => 'Lis', 'Dec' => 'Gru' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." o godzinie".$quux[1]; }; return "$wday{$foo[0]} dzieñ $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Português sub portuguese { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Tráfego Maximal Recebido em 5 minutos', 'Maximal 5 Minute Outgoing Traffic' => 'Tráfego Maximal Enviado em 5 minutos', 'the device' => 'o dispositivo', 'The statistics were last updated(.*)' => 'As Estatísticas foram actualizadas pela última vez na $1', ' Average\)
' => '', 'Average(.*)' => 'Média$1', 'Max(.*)' => 'Max.$1', 'Current(.*)' => 'Actual$1', 'version' => 'Versão', '`Daily\' Graph \((.*) Minute' => 'Gráfico Diário (em intervalos de $1 Minutos)
', '`Weekly\' Graph \(30 Minute' => 'Gráfico Semanal
' , '`Monthly\' Graph \(2 Hour' => 'Gráfico Mensal
', '`Yearly\' Graph \(1 Day' => 'Gráfico Anual
', 'Incoming Traffic in (\S+) per Second' => 'Tráfego recebido em $1/segundo', 'Outgoing Traffic in (\S+) per Second' => 'Tráfego enviado em $1/segundo', 'Incoming Traffic in (\S+) per Minute' => 'Tráfego recebido em $1/minuto', 'Outgoing Traffic in (\S+) per Minute' => 'Tráfego enviado em $1/minuto', 'Incoming Traffic in (\S+) per Hour' => 'Tráfego recebido em $1/hora', 'Outgoing Traffic in (\S+) per Hour' => 'Tráfego recebido em $1/hora', 'at which time (.*) had been up for(.*)' => 'quando o $1, tinha um uptime de $2', '(\S+) per minute' => '$1/minuto', '(\S+) per hour' => '$1/hora', '(.+)/s$' => '$1/s', # '(.+)/min' => '$1/min', '(.+)/h$' => '$1/h', #'([kMG]?)([bB])/s' => '$1$2/s', #'([kMG]?)([bB])/min' => '$1$2/min', #'([kMG]?)([bB])/h' => '$1$2/h', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Rec.:', ' Out:' => ' Env.:', ' Percentage' => ' Perc.:', 'Ported to OpenVMS Alpha by' => 'Portado para OpenVMS Alpha por', 'Ported to WindowsNT by' => 'Portado para WindowsNT por', 'and' => 'e', '^GREEN' => 'VERDE', 'BLUE' => 'AZUL', 'DARK GREEN' => 'VERDE ESCURO', # 'MAGENTA' => 'MAGENTA', # 'AMBER' => 'AMBAR', ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Domingo', 'Sun' => 'Dom', 'Monday' => 'Segunda-Feira', 'Mon' => 'Seg', 'Tuesday' => 'Terça-Feira', 'Tue' => 'Ter', 'Wednesday' => 'Quarta-Feira', 'Wed' => 'Qua', 'Thursday' => 'Quinta-Feira', 'Thu' => 'Qui', 'Friday' => 'Sexta-Feira', 'Fri' => 'Sex', 'Saturday' => 'Sábado', 'Sat' => 'Sab' ); %month = ( 'January' => 'Janeiro', 'February' => 'Fevereiro' , 'March' => 'Março', 'Jan' => 'Jan', 'Feb' => 'Fev', 'Mar' => 'Mar', 'April' => 'Abril', 'May' => 'Maio', 'June' => 'Junho', 'Apr' => 'Abr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Julho', 'August' => 'Agosto', 'September' => 'Setembro', 'Jul' => 'Jul', 'Aug' => 'Ago', 'Sep' => 'Set', 'October' => 'Outubro', 'November' => 'Novembro', 'December' => 'Dezembro', 'Oct' => 'Out', 'Nov' => 'Nov', 'Dec' => 'Dez' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." pelas ".$quux[1]; }; return "$wday{$foo[0]}, $foo[1] de $month{$foo[2]} de $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Romanian sub romanian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-8859-2 %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-2', 'Maximal 5 Minute Incoming Traffic' => 'Traficul Maxim de intrare pe 5 Minute', 'Maximal 5 Minute Outgoing Traffic' => 'Traficul Maxim de iesire pe 5 Minute', 'the device' => 'echipamentul', 'The statistics were last updated(.*)' => 'Ultima actualizare :$1', ' Average\)
' => '', 'Average(.*)' => 'Medie$1', 'Max(.*)' => 'Maxim$1', 'Current(.*)' => 'Curent$1', 'version' => 'versiunea', '`Daily\' Graph \((.*) Minute' => 'Graficul \'Zilnic\' (medie pe $1 minute)
', '`Weekly\' Graph \(30 Minute' => 'Graficul \'Sãptãmânal\' (medie pe 30 de minute)
' , '`Monthly\' Graph \(2 Hour' => 'Graficul \'Lunar\' (medie pe 2 ore)
', '`Yearly\' Graph \(1 Day' => 'Graficul \'Anual\' (medie pe 1 zi)
', 'Incoming Traffic in (\S+) per Second' => 'Traficul de intrare [$1/secundã]', 'Outgoing Traffic in (\S+) per Second' => 'Traficul de ieºire [$1/secundã]', 'at which time (\S+) had been up for (\S+)' => 'când $1 funcþiona de $2', 'at which time (\S+) had been up for (\S+) day, (\S+)' => 'când $1 funcþiona de $2 zi, $3', 'at which time (\S+) had been up for (\S+) days, (\S+)' => 'când $1 funcþiona de $2 zile, $3', #'(.+)/s$' => '$1/s', #'(.+)/min' => '$1/min', '(.+)/h$' => '$1/ora', #'([kMG]?)([bB])/s' => '$1$2/s', #'([kMG]?)([bB])/min' => '$1$2/min', '([kMG]?)([bB])/h' => '$1$2/ora', 'Bits' => 'Biþi', 'Bytes' => 'Octeþi', ' In:' => ' int: ', ' Out:' => ' ieº: ', ' Percentage' => ' procent:', 'Ported to OpenVMS Alpha by' => 'Translatat sub OpenVMS de', 'Ported to WindowsNT by' => 'Translatat sub WindowsNT de', 'and' => 'ºi', '^GREEN' => 'VERDE', 'BLUE' => 'ALBASTRU', 'DARK GREEN' => 'VERDE ÎNCHIS', 'MAGENTA' => 'PURPURIU', 'AMBER' => 'GALBEN', ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'duminicã', 'Sun' => 'lu', 'Monday' => 'luni', 'Mon' => 'ma', 'Tuesday' => 'marþi', 'Tue' => 'mi', 'Wednesday' => 'miercuri', 'Wed' => 'jo', 'Thursday' => 'joi', 'Thu' => 'vi', 'Friday' => 'vineri', 'Fri' => 'sâ', 'Saturday' => 'sâmbãtã', 'Sat' => 'du' ); %month = ( 'January' => 'ianuarie', 'February' => 'februarie' , 'March' => 'martie', 'Jan' => 'ian', 'Feb' => 'feb', 'Mar' => 'mar', 'April' => 'aprilie', 'May' => 'mai', 'June' => 'iunie', 'Apr' => 'apr', 'May' => 'mai', 'Jun' => 'iun', 'July' => 'iulie', 'August' => 'august', 'September' => 'septembrie', 'Jul' => 'iul', 'Aug' => 'aug', 'Sep' => 'sep', 'October' => 'octombrie', 'November' => 'noiembrie', 'December' => 'decembrie', 'Oct' => 'oct', 'Nov' => 'noi', 'Dec' => 'dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0].", ora ".$quux[1]; }; return "$wday{$foo[0]}, $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Russian sub russian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=koi8-r', 'Maximal 5 Minute Incoming Traffic' => 'íÁËÓÉÍÁÌØÎÙÊ ×ÈÏÄÑÝÉÊ ÔÒÁÆÉË ÚÁ 5 ÍÉÎÕÔ', 'Maximal 5 Minute Outgoing Traffic' => 'íÁËÓÉÍÁÌØÎÙÊ ÉÓÈÏÄÑÝÉÊ ÔÒÁÆÉË ÚÁ 5 ÍÉÎÕÔ', 'the device' => 'ÕÓÔÒÏÊÓÔ×Ï', 'The statistics were last updated(.*)' => 'ðÏÓÌÅÄÎÅÅ ÏÂÎÏ×ÌÅÎÉÅ ÓÔÁÔÉÓÔÉËÉ: $1', ' Average\)
' => ')
', 'Average(.*)' => 'óÒÅÄÎÉÊ$1', 'Max(.*)' => 'íÁËÓ.$1', 'Current(.*)' => 'ôÅËÕÝÉÊ$1', 'version' => '×ÅÒÓÉÑ', '`Daily\' Graph \((.*) Minute' => 'äÎÅ×ÎÏÊ ÔÒÁÆÉË (ÓÒÅÄÎÅÅ ÚÁ $1 ÍÉÎÕÔ', '`Weekly\' Graph \(30 Minute' => 'îÅÄÅÌØÎÙÊ ÔÒÁÆÉË (ÓÒÅÄÎÅÅ ÚÁ 30 ÍÉÎÕÔ' , '`Monthly\' Graph \(2 Hour' => 'íÅÓÑÞÎÙÊ ÔÒÁÆÉË (ÓÒÅÄÎÅÅ ÚÁ 2 ÞÁÓÁ', '`Yearly\' Graph \(1 Day' => 'çÏÄÏ×ÏÊ ÔÒÁÆÉË (ÓÒÅÄÎÅÅ ÚÁ 1 ÄÅÎØ', 'Incoming Traffic in (\S+) per Second' => '÷ÈÏÄÑÝÉÊ ÔÒÁÆÉË × $1 × ÓÅËÕÎÄÕ', 'Outgoing Traffic in (\S+) per Second' => 'éÓÈÏÄÑÝÉÊ ÔÒÁÆÉË × $1 × ÓÅËÕÎÄÕ', 'at which time (.*) had been up for(.*)' => '× ÜÔÏ ×ÒÅÍÑ $1 ÂÙÌÁ ×ËÌÀÞÅÎÁ $2', #'([kMG]?)([bB])/s' => '$1$1/ÓÅË', #'([kMG]?)([bB])/min' => '$1$2/ÍÉÎ', '([kMG]?)([bB])/h' => '$1$2/ÞÁÓ', 'Bits' => 'ÂÉÔÁÈ', 'Bytes' => 'ÂÁÊÔÁÈ', ' In:' => ' ÷È:', ' Out:' => ' éÓÈ:', ' Percentage' => ' ðÒÏÃÅÎÔÙ:', 'Ported to OpenVMS Alpha by' => 'áÄÁÐÔÉÒÏ×ÁÎÏ ÄÌÑ OpenVMS Alpha', 'Ported to WindowsNT by' => 'áÄÁÐÔÉÒÏ×ÁÎÏ ÄÌÑ WindowsNT', 'and' => 'É', '^GREEN' => 'úåìåîùê', 'BLUE' => 'óéîéê', 'DARK GREEN' => 'ôåíîïúåìåîùê', 'MAGENTA' => 'æéïìåôï÷ùê', 'AMBER' => 'ñîôáòîùê' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => ' ÷ÏÓËÒÅÓÅÎØÅ', 'Sun' => '÷Ó', 'Monday' => ' ðÏÎÅÄÅÌØÎÉË', 'Mon' => 'ðÎ', 'Tuesday' => ' ÷ÔÏÒÎÉË', 'Tue' => '÷Ô', 'Wednesday' => ' óÒÅÄÕ', 'Wed' => 'óÒ', 'Thursday' => ' þÅÔ×ÅÒÇ', 'Thu' => 'þÔ', 'Friday' => ' ðÑÔÎÉÃÕ', 'Fri' => 'ðÔ', 'Saturday' => ' óÕÂÂÏÔÕ', 'Sat' => 'óÂ' ); %month = ( 'January' => 'ñÎ×ÁÒÑ', 'February' => 'æÅ×ÒÁÌÑ' , 'March' => 'íÁÒÔÁ', 'Jan' => 'ñÎ×', 'Feb' => 'æÅ×', 'Mar' => 'íÁÒ', 'April' => 'áÐÒÅÌÑ', 'May' => 'íÁÑ', 'June' => 'éÀÎÑ', 'Apr' => 'áÐÒ', 'May' => 'íÁÊ', 'Jun' => 'éÀÎ', 'July' => 'éÀÌÑ', 'August' => 'á×ÇÕÓÔÁ', 'September' => 'óÅÎÔÑÂÒÑ', 'Jul' => 'éÀÌ', 'Aug' => 'á×Ç', 'Sep' => 'óÅÎ', 'October' => 'ïËÔÑÂÒÑ', 'November' => 'îÏÑÂÒÑ', 'December' => 'äÅËÁÂÒÑ', 'Oct' => 'ïËÔ', 'Nov' => 'îÏÑ', 'Dec' => 'äÅË' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]."Ç. × ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Russian1251 Code sub russian1251 { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=windows-1251', 'Maximal 5 Minute Incoming Traffic' => 'Ìàêñèìàëüíûé âõîäÿùèé òðàôèê çà 5 ìèíóò', 'Maximal 5 Minute Outgoing Traffic' => 'Ìàêñèìàëüíûé èñõîäÿùèé òðàôèê çà 5 ìèíóò', 'the device' => 'óñòðîéñòâî', 'The statistics were last updated(.*)' => 'Âðåìÿ ïîñëåäíåãî îáíîâëåíèÿ: $1', ' Average\)
' => ')
', 'Average(.*)' => ' ñðåäíåì$1', 'Max(.*)' => 'Ìàêñèìàëüíî$1', 'Current(.*)' => 'Ñåé÷àñ$1', 'version' => 'âåðñèÿ', '`Daily\' Graph \((.*) Minute' => 'Ñóòî÷íûé òðàôèê (ñðåäíåå çà $1 ìèíóò', '`Weekly\' Graph \(30 Minute' => 'Íåäåëüíûé òðàôèê (ñðåäíåå çà 30 ìèíóò' , '`Monthly\' Graph \(2 Hour' => 'Ìåñÿ÷íûé òðàôèê (ñðåäíåå çà 2 ÷àñà', '`Yearly\' Graph \(1 Day' => 'Ãîäîâîé òðàôèê (ñðåäíåå çà 1 äåíü', 'Incoming Traffic in (\S+) per Second' => 'Âõîäÿùèé òðàôèê â $1 â ñåêóíäó', 'Outgoing Traffic in (\S+) per Second' => 'Èñõîäÿùèé òðàôèê â $1 â ñåêóíäó', 'at which time (\S+) had been up for (\S+)' => 'âðåìÿ ïîñëå èíèöèàëèçàöèè óñòðîéñòâà $1: $2.', 'at which time (\S+) had been up for (\S+) day, (\S+)' => 'âðåìÿ ïîñëå èíèöèàëèçàöèè óñòðîéñòâà $1: $2 ñóòêè, $3.', 'at which time (\S+) had been up for (\S+) days, (\S+)' => 'âðåìÿ ïîñëå èíèöèàëèçàöèè óñòðîéñòâà $1: $2 ñóòîê, $3.', #'([kMG]?)([bB])/s' => '$1$1/ñåê', #'([kMG]?)([bB])/min' => '$1$2/ìèí', '([kMG]?)([bB])/h' => '$1$2/÷àñ', 'Bits' => 'áèòàõ', 'Bytes' => 'áàéòàõ', ' In:' => ' Âõ:', ' Out:' => ' Èñõ:', ' Percentage' => ' Ïðîöåíòû:', 'Ported to OpenVMS Alpha by' => 'Àäàïòèðîâàíî äëÿ OpenVMS Alpha', 'Ported to WindowsNT by' => 'Àäàïòèðîâàíî äëÿ WindowsNT', 'and' => 'è', '^GREEN' => 'ÇÅËÅÍÛÉ', 'BLUE' => 'ÑÈÍÈÉ', 'DARK GREEN' => 'ÒÅÌÍÎÇÅËÅÍÛÉ', 'MAGENTA' => 'ÔÈÎËÅÒÎÂÛÉ', 'AMBER' => 'ßÍÒÀÐÍÛÉ' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => ' Âîñêðåñåíüå', 'Sun' => 'Âñ', 'Monday' => ' Ïîíåäåëüíèê', 'Mon' => 'Ïí', 'Tuesday' => ' Âòîðíèê', 'Tue' => 'Âò', 'Wednesday' => ' Ñðåäà', 'Wed' => 'Ñð', 'Thursday' => ' ×åòâåðã', 'Thu' => '×ò', 'Friday' => ' Ïÿòíèöà', 'Fri' => 'Ïò', 'Saturday' => ' Ñóááîòà', 'Sat' => 'Ñá' ); %month = ( 'January' => 'ßíâàðÿ', 'February' => 'Ôåâðàëÿ' , 'March' => 'Ìàðòà', 'Jan' => 'ßíâ', 'Feb' => 'Ôåâ', 'Mar' => 'Ìàð', 'April' => 'Àïðåëÿ', 'May' => 'Ìàÿ', 'June' => 'Èþíÿ', 'Apr' => 'Àïð', 'May' => 'Ìàÿ', 'Jun' => 'Èþí', 'July' => 'Èþëÿ', 'August' => 'Àâãóñòà', 'September' => 'Ñåíòÿáðÿ', 'Jul' => 'Èþë', 'Aug' => 'Àâã', 'Sep' => 'Ñåí', 'October' => 'Îêòÿáðÿ', 'November' => 'Íîÿáðÿ', 'December' => 'Äåêàáðÿ', 'Oct' => 'Îêò', 'Nov' => 'Íîÿ', 'Dec' => 'Äåê' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]."ã. â ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Serbian sub serbian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=windows-1250', 'Maximal 5 Minute Incoming Traffic' => 'Najveæi 5 minutni ulazni saobraæaj', 'Maximal 5 Minute Outgoing Traffic' => 'Najveæi 5 minutni izlazni saobraæaj', 'the device' => 'uredjaj', 'The statistics were last updated(.*)' => 'Poslednje ažuriranje podataka:$1', ' Average\)
' => ' prosek)
', 'Average(.*)' => 'Proseèni$1', 'Max(.*)' => 'Maksimalni$1', 'Current(.*)' => 'Trenutni$1', 'version' => 'verzija', '`Daily\' Graph \((.*) Minute' => 'Dnevni graf ($1 minutni ', '`Weekly\' Graph \(30 Minute' => 'Nedeljni graf (30 minutni ' , '`Monthly\' Graph \(2 Hour' => 'Meseèni graf (2 sata ', '`Yearly\' Graph \(1 Day' => 'Godišnji graf (1 dnevni ', 'Incoming Traffic in (\S+) per Second' => 'Ulazni saobraæaj - $1 u sekundi.', 'Outgoing Traffic in (\S+) per Second' => 'Izlazni saobraæaj - $1 u sekundi.', 'Incoming Traffic in (\S+) per Minute' => 'Ulazni saobraæaj - $1 u minutu', 'Outgoing Traffic in (\S+) per Minute' => 'Izlazni saobraæaj - $1 u minutu', 'Incoming Traffic in (\S+) per Hour' => 'Ulazni saobraæaj - $1 na sat', 'Outgoing Traffic in (\S+) per Hour' => 'Izlazni saobraæaj - $1 na sat', 'at which time (.*) had been up for(.*)' => 'Vreme neprekidnog rada sistema $1 : $2', #'([kMG]?)([bB])/s' => '\$1\$2/s', #'([kMG]?)([bB])/min' => '\$1\$2/min', #'([kMG]?)([bB])/h' => '$1$2/h', 'Bits' => 'Bita', 'Bytes' => 'Bajta', ' In:' => ' Ulaz:', ' Out:' => ' Izlaz:', ' Percentage' => ' Procenat', 'Ported to OpenVMS Alpha by' => 'Na OpenVMS portovao', 'Ported to WindowsNT by' => 'Na WindowsNT portovao', 'and' => 'i', '^GREEN' => 'Zeleno', 'BLUE' => 'Plavo', 'DARK GREEN' => 'Tamnozeleno', 'MAGENTA' => 'Ljubièasto', 'AMBER' => 'Narandžasto' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Nedelja', 'Sun' => 'Ned', 'Monday' => 'Ponedeljak', 'Mon' => 'Pon', 'Tuesday' => 'Utorak', 'Tue' => 'Uto', 'Wednesday' => 'Sreda', 'Wed' => 'Sre', 'Thursday' => 'Èetvrtak', 'Thu' => 'Èet', 'Friday' => 'Petak', 'Fri' => 'Pet', 'Saturday' => 'Subota', 'Sat' => 'Sub' ); %month = ( 'January' => 'januar', 'February' => 'februar', 'March' => 'mart', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'april', 'May' => 'maj', 'June' => 'jun', 'Apr' => 'Apr', 'May' => 'Maj', 'Jun' => 'Jun', 'July' => 'jul', 'August' => 'avgust', 'September' => 'septembar', 'Jul' => 'Jul', 'Aug' => 'Avg', 'Sep' => 'Sep', 'October' => 'oktobar','November' => 'novembar','December' => 'decembar', 'Oct' => 'Okt', 'Nov' => 'Nov', 'Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0].",".$quux[1]." "; }; return "$wday{$foo[0]} $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; } # # Slovak sub slovak { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=windows-1250', 'Maximal 5 Minute Incoming Traffic' => 'Maximálny 5 minútový prichádzajúci tok', 'Maximal 5 Minute Outgoing Traffic' => 'Maximálny 5 minútový odchádzajúci tok', 'the device' => 'zariadenie', 'The statistics were last updated(.*)' => 'Posledná aktualizácia ¹tatistík:$1', ' Average\)
' => ' priemer)
', 'Average(.*)' => 'Priem.$1', 'Max(.*)' => 'Max.$1', 'Current(.*)' => 'Akt.$1', 'version' => 'verzia', '`Daily\' Graph \((.*) Minute' => 'Denný graf ($1 minútový', '`Weekly\' Graph \(30 Minute' => 'Tý¾denný graf (30 minútový' , '`Monthly\' Graph \(2 Hour' => 'Mesaèný graf (2 hodinový', '`Yearly\' Graph \(1 Day' => 'Roèný graf (1 denný', 'Incoming Traffic in (\S+) per Second' => 'Prichádzajúci tok v $1 za sekundu.', 'Outgoing Traffic in (\S+) per Second' => 'Odchádzajúci tok v $1 za sekundu.', 'at which time (.*) had been up for(.*)' => 'Èas od posledného re¹tartu $1 : $2', #'([kMG]?)([bB])/s' => '\$1\$2/s', #'([kMG]?)([bB])/min' => '\$1\$2/min', #'([kMG]?)([bB])/h' => '$1$2/h', 'Bits' => 'bitoch', 'Bytes' => 'bytoch', #' In:' => ' In:', #' Out:' => ' Out:', ' Percentage' => ' Perc.', 'Ported to OpenVMS Alpha by' => 'Na OpenVMS portoval', 'Ported to WindowsNT by' => 'Na WindowsNT portoval', 'and' => 'a', '^GREEN' => 'Zelená', 'BLUE' => 'Modrá', 'DARK GREEN' => 'Tmavozelená', 'MAGENTA' => 'Fialová', 'AMBER' => '®ltá' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Nedeµa', 'Sun' => 'Ne', 'Monday' => 'Pondelok', 'Mon' => 'Po', 'Tuesday' => 'Utorok', 'Tue' => 'Ut', 'Wednesday' => 'Streda', 'Wed' => 'St', 'Thursday' => '©tvrtok', 'Thu' => '©t', 'Friday' => 'Piatok', 'Fri' => 'Pi', 'Saturday' => 'Sobota', 'Sat' => 'So' ); %month = ( 'January' => 'Január', 'February' => 'Február', 'March' => 'Marec', 'Jan' => 'Január', 'Feb' => 'Február', 'Mar' => 'Marec', 'April' => 'Apríl', 'May' => 'Máj', 'June' => 'Jún', 'Apr' => 'Apríl', 'May' => 'Máj', 'Jun' => 'Jún', 'July' => 'Júl', 'August' => 'August', 'September' => 'September', 'Jul' => 'Júl', 'Aug' => 'August', 'Sep' => 'September', 'October' => 'Október','November' => 'November','December' => 'December', 'Oct' => 'Október','Nov' => 'November','Dec' => 'December' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0].",".$quux[1]." hod."; }; return "$wday{$foo[0]} $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; } # # Slovenian sub slovenian { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( 'charset=iso-8859-1' => 'charset=windows-1250', 'Maximal 5 Minute Incoming Traffic' => 'Najvecji petminutni vhodni promet', 'Maximal 5 Minute Outgoing Traffic' => 'Najvecji petminutni izhodni promet', 'the device' => 'naprava', 'The statistics were last updated(.*)' => 'Zadnja posodobitev podatkov:$1', ' Average\)
' => ' povprecje)
', 'Average(.*)' => 'Povprecje$1', 'Max(.*)' => 'Maksimalno$1', 'Current(.*)' => 'Trenutno$1', 'version' => 'verzija', '`Daily\' Graph \((.*) Minute' => 'Dnevni graf ($1 min.', '`Weekly\' Graph \(30 Minute' => 'Tedenski graf (30 min.' , '`Monthly\' Graph \(2 Hour' => 'Mesecni graf (2 urno', '`Yearly\' Graph \(1 Day' => 'Letni graf (1 dnevno', 'Incoming Traffic in (\S+) per Second' => 'Vhodni promet v $1 na sekundo.', 'Outgoing Traffic in (\S+) per Second' => 'Izhodni promet v $1 na sekundo.', 'at which time (.*) had been up for(.*)' => 'Cas od zadnjega restarta sistema $1 : $2', #'([kMG]?)([bB])/s' => '\$1\$2/s', #'([kMG]?)([bB])/min' => '\$1\$2/min', #'([kMG]?)([bB])/h' => '$1$2/h', 'Bits' => 'bitov', 'Bytes' => 'bytov', ' In:' => ' Vhod:', ' Out:' => ' Izhod:', ' Percentage' => ' Proc.', 'Ported to OpenVMS Alpha by' => 'Na OpenVMS portiral', 'Ported to WindowsNT by' => 'Na WindowsNT portiral', 'and' => 'in', '^GREEN' => 'Zeleno', 'BLUE' => 'Modro', 'DARK GREEN' => 'Temnozeleno', 'MAGENTA' => 'Vijolicasto', 'AMBER' => 'Oranzno' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Nedelja', 'Sun' => 'Ne', 'Monday' => 'Ponedeljek', 'Mon' => 'Po', 'Tuesday' => 'Torek', 'Tue' => 'To', 'Wednesday' => 'Sreda', 'Wed' => 'Sr', 'Thursday' => 'Cetrtek', 'Thu' => 'Ce', 'Friday' => 'Petek', 'Fri' => 'Po', 'Saturday' => 'Sobota', 'Sat' => 'So' ); %month = ( 'January' => 'Januar', 'February' => 'Februar', 'March' => 'Marec', 'Jan' => 'Jan', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'April', 'May' => 'Maj', 'June' => 'Jun', 'Apr' => 'Apr', 'May' => 'Maj', 'Jun' => 'Jun', 'July' => 'Julij', 'August' => 'Avgust', 'September' => 'September', 'Jul' => 'Jul', 'Aug' => 'Avg', 'Sep' => 'Sep', 'October' => 'Oktober','November' => 'November','December' => 'December', 'Oct' => 'Okt','Nov' => 'Nov','Dec' => 'Dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0].",".$quux[1]." "; }; return "$wday{$foo[0]} $foo[1]. $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; } # # Spanish sub spanish { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... %translations = ( 'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Tráfico entrante máximo en 5 minutos', 'Maximal 5 Minute Outgoing Traffic' => 'Tráfico saliente máximo en 5 minutos', 'the device' => 'el dispositivo', 'The statistics were last updated(.*)' => 'Estadísticas actualizadas el $1', ' Average\)
' => ' Promedio)
', 'Average(.*)' => 'Promedio $1', 'Max(.*)' => 'Máx$1', 'Current(.*)' => 'Actual$1', 'version' => 'version', '`Daily\' Graph \((.*) Minute' => 'Gráfico diario ($1 minutos :', '`Weekly\' Graph \(30 Minute' => 'Gráfico semanal (30 minutos :' , '`Monthly\' Graph \(2 Hour' => 'Gráfico mensual (2 horas :', '`Yearly\' Graph \(1 Day' => 'Gráfico anual (1 día :', 'Incoming Traffic in (\S+) per Second' => 'Tráfico entrante en $1 por segundo', 'Outgoing Traffic in (\S+) per Second' => 'Tráfico saliente en $1 por segundo', 'at which time (.*) had been up for(.*)' => '$1 ha estado funcionando durante $2', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', # '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes' ' In:' => ' Entrante:', ' Out:' => ' Saliente:', ' Percentage' => ' Porcentaje:', 'Ported to OpenVMS Alpha by' => 'Portado a OpenVMS Alpha por', 'Ported to WindowsNT by' => 'Portado a WindowsNT por', 'and' => 'y', '^GREEN' => 'VERDE', 'BLUE' => 'AZUL', 'DARK GREEN' => 'VERDE OSCURO', 'MAGENTA' => 'MAGENTA', 'AMBER' => 'AMBAR' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Domingo', 'Sun' => 'Dom', 'Monday' => 'Lunes', 'Mon' => 'Lun', 'Tuesday' => 'Martes', 'Tue' => 'Mar', 'Wednesday' => 'Miércoles','Wed' => 'Mié', 'Thursday' => 'Jueves', 'Thu' => 'Jue', 'Friday' => 'Viernes', 'Fri' => 'Vie', 'Saturday' => 'Sábado', 'Sat' => 'Sab' ); %month = ( 'January' => 'Enero', 'February' => 'Febrero' , 'March' => 'Marzo', 'Jan' => 'Ene', 'Feb' => 'Feb', 'Mar' => 'Mar', 'April' => 'Abril', 'May' => 'Mayo', 'June' => 'Junio', 'Apr' => 'Abr', 'May' => 'Mai', 'Jun' => 'Jun', 'July' => 'Julio', 'August' => 'Agosto', 'September' => 'Setiembre', 'Jul' => 'Jul', 'Aug' => 'Ago', 'Sep' => 'Set', 'October' => 'Octubre', 'November' => 'Noviembre', 'December' => 'Diciembre', 'Oct' => 'Oct', 'Nov' => 'Nov', 'Dec' => 'Dic' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." a las ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] de $month{$foo[2]} de $foo[3]"; }; return $string; } # Swedish sub swedish { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... # charset=iso-2022-jp %translations = ( #'charset=iso-8859-1' => 'charset=iso-8859-1', 'Maximal 5 Minute Incoming Traffic' => 'Maximalt inkommande trafik i 5 minuter', 'Maximal 5 Minute Outgoing Traffic' => 'Maximalt utgående trafik i 5 minuter', 'the device' => 'enheten', 'The statistics were last updated(.*)' => 'Statistiken blev senast uppdaterad$1', ' Average\)
' => ')
', 'Average(.*)' => 'Medel$1', 'Max(.*)' => 'Max$1', 'Current(.*)' => 'Senaste$1', 'version' => 'version', '`Daily\' Graph \((.*) Minute' => 'Daglig graf (samplingsintervall $1 minut(er)', '`Weekly\' Graph \(30 Minute' => 'Veckovis graf (medelvärde per 30 minuter' , '`Monthly\' Graph \(2 Hour' => 'Månatlig graf (medelvärde per 2 timmar', '`Yearly\' Graph \(1 Day' => 'Årlig graf (medelvärde per dygn', 'Incoming Traffic in (\S+) per Second' => 'Inkommande trafik i $1 per sekund', 'Outgoing Traffic in (\S+) per Second' => 'Utgående trafik i $1 per sekund', 'at which time (.*) had been up for(.*) days,(.*)' => '$1 har varit igång i$2 dagar och$3', 'at which time (.*) had been up for(.*) day,(.*)' => '$1 har varit igång i$2 dag och$3', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bits', # 'Bytes' => 'Bytes', ' In:' => '  In:', ' Out:' => ' Ut:', ' Percentage' => ' Procent:', 'Ported to OpenVMS Alpha by' => 'Portad till OpenVMS av', 'Ported to WindowsNT by' => 'Portad till WindowsNT av', 'and' => 'och', '^GREEN' => 'GRÖN', 'BLUE' => 'BLÅ', 'DARK GREEN' => 'MÖRKGRÖN', 'MAGENTA' => 'MANGENTA', 'AMBER' => 'BRUN', ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'söndag', 'Sun' => 'sön', 'Monday' => 'måndag', 'Mon' => 'mån', 'Tuesday' => 'tisdag', 'Tue' => 'tis', 'Wednesday' => 'onsdag', 'Wed' => 'ons', 'Thursday' => 'torsdag', 'Thu' => 'tor', 'Friday' => 'fredag', 'Fri' => 'fre', 'Saturday' => 'lördag', 'Sat' => 'lör' ); %month = ( 'January' => 'januari', 'February' => 'februari' , 'March' => 'mars', 'Jan' => 'jan', 'Feb' => 'feb', 'Mar' => 'mar', 'April' => 'april', 'May' => 'maj', 'June' => 'juni', 'Apr' => 'apr', 'May' => 'maj', 'Jun' => 'jun', 'July' => 'juli', 'August' => 'augusti', 'September' => 'september', 'Jul' => 'jul', 'Aug' => 'aug', 'Sep' => 'sep', 'October' => 'oktober', 'November' => 'november', 'December' => 'december', 'Oct' => 'okt', 'Nov' => 'nov', 'Dec' => 'dec' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." kl.".$quux[1]; }; return "$wday{$foo[0]} den $foo[1] $month{$foo[2]} $foo[3]"; }; # # handle two different time/date formats: # return "$wday, $mday $month ".($year+1900)." at $hour:$min"; # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT"; # # handle nontranslated strings which ought to be translated # print STDERR "$_\n" or print DEBUG "not translated $_"; # but then again we might not want/need to translate all strings return $string; }; # Turkish sub turkish { my($string)=pop(@_); my(%translations,%month,%wday); my($i,$j); my(@dollar,@quux,@foo); # regexp => replacement string NOTE does not use autovars $1,$2... %translations = ( 'charset=iso-8859-9' => 'charset=iso-8859-9', 'Maximal 5 Minute Incoming Traffic' => '5 dakika için en yüksek giriþ trafiði', 'Maximal 5 Minute Outgoing Traffic' => '5 dakika için en yüksek çýkýþ trafiði', 'the device' => 'aygýt', 'The statistics were last updated(.*)' => 'Ýstatistiklerin en son güncellenmesi $1', ' Average\)
' => ' Ortalama)
', 'Average(.*)' => 'Ortalama $1', 'Max(.*)' => 'EnYüksek;x$1', 'Current(.*)' => 'ÞuAnki$1', 'version' => 'sürüm', '`Daily\' Graph \((.*) Minute' => 'Günlük ($1 dakika :', '`Weekly\' Graph \(30 Minute' => 'Haftalýk (30 dakika :' , '`Monthly\' Graph \(2 Hour' => 'Aylýk (2 saat :', '`Yearly\' Graph \(1 Day' => 'Yýllýk (1 gün :', 'Incoming Traffic in (\S+) per Second' => '$1 deki saniyelik giriþ trafiði', 'Outgoing Traffic in (\S+) per Second' => '$1 deki saniyelik çýkýþ trafiði', 'at which time (.*) had been up for(.*)' => '$1 Ne zamandan $2 beri ayakta', # '([kMG]?)([bB])/s' => '\$1\$2/s', # '([kMG]?)([bB])/min' => '\$1\$2/min', # '([kMG]?)([bB])/h' => '$1$2/t', # 'Bits' => 'Bit', # 'Bytes' => 'Byte' ' In:' => ' Giriþ:', ' Out:' => ' Çýkýþ:', ' Percentage' => ' Yüzge:', 'Ported to OpenVMS Alpha by' => 'OpenVMS Alpha ya uyarlayan', 'Ported to WindowsNT by' => 'WindowsNT ye uyarlayan', 'and' => 've', '^GREEN' => 'YEÞÝL', 'BLUE' => 'MAVÝ', 'DARK GREEN' => 'KOYU YEÞÝL', 'MAGENTA' => 'MACENTA', 'AMBER' => 'AMBER' ); # maybe expansions with replacement of whitespace would be more appropriate foreach $i (keys %translations) { if($string=~/$i/) { (@dollar)=($string=~/()$i/); # I hope this prevents the autovars $string=$translations{$i}; # And it only works from $1-$9 for($j=1;$dollar[$j];$j++) # s/// doesn't do any good with saved "$1"-exprs. { @quux=(); (@quux)=split(/\$$j/,$string); $string=$quux[0].$dollar[$j].$quux[1]; } ; return $string; }; }; %wday = ( 'Sunday' => 'Pazar', 'Pzr' => 'Dom', 'Monday' => 'Pazartesi', 'Pzt' => 'Lun', 'Tuesday' => 'Salý', 'Sal' => 'Mar', 'Wednesday' => 'Çarþamba', 'Çrþ' => 'Mié', 'Thursday' => 'Perþembe', 'Prþ' => 'Jue', 'Friday' => 'Cuma', 'Cum' => 'Vie', 'Saturday' => 'Cumartesi', 'Cmr' => 'Sab' ); %month = ( 'January' => 'Ocak', 'February' => 'Þubat', 'March' => 'Mart', 'Jan' => 'Ock', 'Feb' => 'Þub', 'Mar' => 'Mar', 'April' => 'Nisan', 'May' => 'Mayýs', 'June' => 'Haziran', 'Apr' => 'Nis', 'May' => 'May', 'Jun' => 'Hzr', 'July' => 'Temmuz', 'August' => 'Agustos', 'September' => 'Eylül', 'Jul' => 'Tem', 'Aug' => 'Agu', 'Sep' => 'Eyl', 'October' => 'Ekim', 'November' => 'Kasým', 'December' => 'Aralýk', 'Oct' => 'Ekm', 'Nov' => 'Kas', 'Dec' => 'Ara' ); @foo=($string=~/(\S+),\s+(\S+)\s+(\S+)(.*)/); if( $wday{$foo[0]} && $month{$foo[2]} ) { if($foo[3]=~(/(.*)at(.*)/)) { @quux=split(/at/,$foo[3]); $foo[3]=$quux[0]." a las ".$quux[1]; }; return "$wday{$foo[0]} $foo[1] de $month{$foo[2]} de $foo[3]"; }; }