dutch.pmd
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:5k
源码类别:

SNMP编程

开发平台:

C/C++

  1. ###### PATCHTAG00 ####################################################
  2. ###      Dutch/Nederlands
  3. ###      => Barry van Dijk <barry@dijk.com>
  4. ###### PATCHTAG10 ####################################################
  5.   &dutch
  6. ###### PATCHTAG20 ####################################################
  7.   'dutch'        => &dutch,
  8.   'nederlands'   => &dutch,
  9. ###### PATCHTAG30 ####################################################
  10. # Dutch/nederlands
  11.    'dutch' =>
  12.    "Vertaald naar het Nederlands door
  13. <a href="http://doema.peterson.nl">Barry van Dijk</a>
  14. <a href="mailto:barry@dijk.com">&lt;barry@dijk.com&gt;</a><br />;
  15.   Aangepast door Paul Slootman
  16. <a href="mailto:paul@debian.org">&lt;paul@debian.org&gt;</a>",
  17. ###### PATCHTAG40 ####################################################
  18. $credits::LOCALE{'nederlands'}=$credits::LOCALE{'dutch'};
  19. ###### PATCHTAG50 ####################################################
  20. # Dutch
  21. sub dutch
  22. {
  23.   my $string = shift;
  24. return "" unless defined $string;
  25.   my(%translations,%month,%wday);
  26.   my($i,$j);
  27.   my(@dollar,@quux,@foo);
  28.   
  29.   # regexp => replacement string NOTE does not use autovars $1,$2...
  30.   %translations =
  31.   (  
  32.      #'charset=iso-8859-1'                     => 'charset=iso-8859-1',
  33.      'Maximal 5 Minute Incoming Traffic'      => 'Maximaal inkomend verkeer per 5 minuten',
  34.      'Maximal 5 Minute Outgoing Traffic'      => 'Maximaal uitgaand verkeer per 5 minuten',
  35.      'the device'                             => 'het apparaat',
  36.      'The statistics were last updated(.*)'   => 'Statistieken voor het laatst bijgewerkt op$1',
  37.      ' Average)'                             => ' gemiddeld)',
  38.      'Average'                                => 'Gemiddeld',
  39.      'Max'                                    => 'Max',
  40.      'Current'                                => 'Actueel',
  41.      'version'                                => 'versie',
  42.      '`Daily' Graph ((.*) Minute'           => '`Dagelijkse' grafiek ($1 minuten',
  43.      '`Weekly' Graph (30 Minute'            => '`Wekelijkse' grafiek (30 minuten' ,
  44.      '`Monthly' Graph (2 Hour'              => '`Maandelijkse' grafiek (2 uur',
  45.      '`Yearly' Graph (1 Day'                => '`Jaarlijkse' grafiek (1 dag', 
  46.      'Incoming Traffic in (S+) per Second'   => 'Inkomend verkeer in $1 per seconde',
  47.      'Outgoing Traffic in (S+) per Second'   => 'Uitgaand verkeer in $1 per seconde',
  48.      'at which time (.*) had been up for(.*)' => 'op het moment dat $1 reeds actief was voor$2',
  49.      # '([kMG]?)([bB])/s'                 => '$1$2/s',
  50.      # '([kMG]?)([bB])/min'              => '$1$2/min',
  51.      '([kMG]?)([bB])/h'                       => '$1$2/u',
  52.      # 'Bits'                                => 'Bits',
  53.      # 'Bytes'                              => 'Bytes'
  54.      # '&nbsp;In:</FONT>'                      => '&nbsp;In:</FONT>',
  55.      'Out'                                    => 'Uit',
  56.      'Percentage'                             => 'Procent',
  57.      'Ported to OpenVMS Alpha by'             => 'Ported naar OpenVMS door', 
  58.      'Ported to WindowsNT by'                 => 'Ported naar WindowsNT door',
  59.      'and'                                    => 'en',
  60.      'DARK GREEN'                             => 'DONKER GROEN',
  61.      '^GREEN'                                  => 'GROEN',
  62.      'BLUE'                                   => 'BLAUW',
  63.      'MAGENTA'                                => 'LILA',
  64.      'AMBER'                                  => 'AMBER'
  65.   );
  66. # maybe expansions with replacement of whitespace would be more appropriate
  67. foreach $i (keys %translations)
  68. {  
  69.   my $trans = $translations{$i};
  70.   $trans =~ s/|/|/;  
  71.   return $string if eval " $string =~ s|${i}|${trans}| ";
  72. };
  73. %wday = 
  74.     (
  75.       'Sunday'    => 'zondag',           'Sun' => 'zon',
  76.       'Monday'    => 'maandag',          'Mon' => 'maa',
  77.       'Tuesday'   => 'dinsdag',          'Tue' => 'din',
  78.       'Wednesday' => 'woensdag',         'Wed' => 'woe',
  79.       'Thursday'  => 'donderdag',        'Thu' => 'don',
  80.       'Friday'    => 'vrijdag',          'Fri' => 'vri',
  81.       'Saturday'  => 'zaterdag',         'Sat' => 'zat' 
  82.     );
  83. %month = 
  84.     (
  85.       'January'   => 'januari',   'February'  => 'februari',    'March'     => 'maart',
  86.       'Jan'       => 'jan',       'Feb'       => 'feb',         'Mar'       => 'mrt',
  87.       'April'     => 'april',     'May'       => 'mei',         'June'      => 'juni', 
  88.       'Apr'       => 'apr',       'May'       => 'mei',         'Jun'       => 'jun',
  89.       'July'      => 'juli',      'August'    => 'augustus',    'September' => 'september', 
  90.       'Jul'       => 'jul',       'Aug'       => 'aug',         'Sep'       => 'sep', 
  91.       'October'   => 'oktober',   'November'  => 'november',    'December'  => 'december', 
  92.       'Oct'       => 'okt',       'Nov'       => 'nov',         'Dec'       => 'dec' 
  93.     );
  94.   @foo=($string=~/(S+),s+(S+)s+(S+)(.*)/);
  95.   if($foo[0] && $wday{$foo[0]} && $foo[2] && $month{$foo[2]} )
  96.     {
  97.         if($foo[3]=~(/(.*)at(.*)/))
  98.       { 
  99.         @quux=split(/at/,$foo[3]);
  100.         $foo[3]=$quux[0]." om".$quux[1]; 
  101.       };
  102.       return "$wday{$foo[0]} $foo[1] $month{$foo[2]} $foo[3]"; 
  103.     };
  104. #
  105. # handle two different time/date formats:  
  106. # return "$wday, $mday $month ".($year+1900)." at $hour:$min";
  107. # return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT";
  108. #
  109. # handle nontranslated strings which ought to be translated
  110. # print STDERR "$_n" or print DEBUG "not translated $_";
  111. # but then again we might not want/need to translate all strings
  112.   
  113.   return $string;
  114. };