开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > SNMP编程 > 查看源码
spanish.pmd
资源名称：mrtg-2.13.2.zip　[点击查看]
上传用户：shbosideng
上传日期：2013-05-04
资源大小：1555k
文件大小：5k
源码类别：

SNMP编程

开发平台：

C/C++

spanish.pmd：源码内容
  1. ###### PATCHTAG00 ####################################################
  2. ###      Spanish/Espa駉l
  3. ###      => Marcelo Roccasalva <marcelo@linuxfan.com>
  4. ###### PATCHTAG10 ####################################################
  5.   &spanish
  6. ###### PATCHTAG20 ####################################################
  7.   'spanish'  => &spanish,
  8.   'espanol'  => &spanish,
  9. ###### PATCHTAG30 ####################################################
  10. # Spanish/espa駉l
  11.     'spanish' =>
  12.     "Preparado para localizaci髇 por
  13. <a href="mailto:marcelo@linuxfan.com">Marcelo Roccasalva</a>",
  14. ###### PATCHTAG40 ####################################################
  15. $credits::LOCALE{'espanol'}=$credits::LOCALE{'spanish'};
  16. ###### PATCHTAG50 ####################################################
  17. # Spanish
  19. sub spanish
  20. {
  21.   my $string = shift;
  22. return "" unless defined $string;
  23.   my(%translations,%month,%wday);
  25.   my($i,$j);
  26.   my(@dollar,@quux,@foo);
  28.   
  29.   # regexp => replacement string NOTE does not use autovars $1,$2...
  31.   %translations =
  32.   (  
  33.      #'iso-8859-1'                             => 'iso-8859-1',
  34.      'Maximal 5 Minute Incoming Traffic'      => 'Tr&aacute;fico entrante m&aacute;ximo en 5 minutos',
  35.      'Maximal 5 Minute Outgoing Traffic'      => 'Tr&aacute;fico saliente m&aacute;ximo en 5 minutos',
  36.      'the device'                             => 'el dispositivo',
  37.      'The statistics were last updated(.*)'   => 'Estad&iacute;sticas actualizadas el $1',
  38.      ' Average)'                             => ' Promedio)',
  39.      'Average'                                => 'Promedio',
  40.      'Max'                                    => 'M&aacute;x',
  41.      'Current'                                => 'Actual',
  42.      'version'                                => 'version',
  43.      '`Daily' Graph ((.*) Minute'           => 'Gr&aacute;fico diario ($1 minutos :',
  44.      '`Weekly' Graph (30 Minute'            => 'Gr&aacute;fico semanal (30 minutos :' ,
  45.      '`Monthly' Graph (2 Hour'              => 'Gr&aacute;fico mensual (2 horas :',
  46.      '`Yearly' Graph (1 Day'                => 'Gr&aacute;fico anual (1 d&iacute;a :', 
  47.      'Incoming Traffic in (S+) per Second'   => 'Tr&aacute;fico entrante en $1 por segundo',
  48.      'Outgoing Traffic in (S+) per Second'   => 'Tr&aacute;fico saliente en $1 por segundo',
  49.      'at which time (.*) had been up for(.*)' => '$1 ha estado funcionando durante $2',
  50.      # '([kMG]?)([bB])/s'                      => '$1$2/s',
  51.      # '([kMG]?)([bB])/min'                    => '$1$2/min',
  52.      # '([kMG]?)([bB])/h'                       => '$1$2/t',
  53.      # 'Bits'                                  => 'Bits',
  54.      # 'Bytes'                                 => 'Bytes'
  55.      'In'                                     => 'Entrante:',
  56.      'Out'                                    => 'Saliente:',
  57.      'Percentage'                             => 'Porcentaje:',
  58.      'Ported to OpenVMS Alpha by'             => 'Portado a OpenVMS Alpha por',
  59.      'Ported to WindowsNT by'                 => 'Portado a WindowsNT por',
  60.      'and'                                    => 'y',
  61.      '^GREEN'                                  => 'VERDE',
  62.      'BLUE'                                   => 'AZUL',
  63.      'DARK GREEN'                             => 'VERDE OSCURO',
  64.      'MAGENTA'                                => 'MAGENTA',
  65.      'AMBER'                                  => 'AMBAR'
  66.   );
  68. # maybe expansions with replacement of whitespace would be more appropriate
  70. foreach $i (keys %translations)
  71. {  
  72.   my $trans = $translations{$i};
  73.   $trans =~ s/|/|/;  
  74.   return $string if eval " $string =~ s|${i}|${trans}| ";
  75. };
  77. %wday = 
  78.     (
  79.       'Sunday'    => 'Domingo', 'Sun' => 'Dom',
  80.       'Monday'    => 'Lunes', 'Mon' => 'Lun',
  81.       'Tuesday'   => 'Martes', 'Tue' => 'Mar',
  82.       'Wednesday' => 'Mi&eacute;rcoles','Wed' => 'Mi&eacute;',
  83.       'Thursday'  => 'Jueves', 'Thu' => 'Jue',
  84.       'Friday'    => 'Viernes', 'Fri' => 'Vie',
  85.       'Saturday'  => 'S&aacute;bado', 'Sat' => 'Sab' 
  86.     );
  88. %month = 
  89.     (
  90.  'January' => 'Enero',   'February' => 'Febrero' ,  'March'     => 'Marzo',
  91.  'Jan'     => 'Ene',     'Feb'      => 'Feb',       'Mar'       => 'Mar',
  92.  'April'   => 'Abril',   'May'      => 'Mayo',      'June'      => 'Junio', 
  93.  'Apr'     => 'Abr',     'May'      => 'Mai',       'Jun'       => 'Jun',
  94.  'July'    => 'Julio',   'August'   => 'Agosto',    'September' => 'Setiembre', 
  95.  'Jul'     => 'Jul',     'Aug'      => 'Ago',       'Sep'       => 'Set', 
  96.  'October' => 'Octubre', 'November' => 'Noviembre', 'December'  => 'Diciembre', 
  97.  'Oct'     => 'Oct',     'Nov'       => 'Nov',      'Dec'       => 'Dic' 
  98.     );
  100.   @foo=($string=~/(S+),s+(S+)s+(S+)(.*)/);
  101.   if($foo[0] && $wday{$foo[0]} && $foo[2] && $month{$foo[2]} )
  102.     {
  103. if($foo[3]=~(/(.*)at(.*)/))
  104.       { 
  105.         @quux=split(/at/,$foo[3]);
  106.         $foo[3]=$quux[0]." a las ".$quux[1]; 
  107.       };
  108.       return "$wday{$foo[0]} $foo[1] de $month{$foo[2]} de $foo[3]"; 
  109.     };
  110.   return $string;
  111. }