SNMP编程

开发平台：

C/C++

polish.pmd：源码内容

							###### PATCHTAG 00 ###################################################
###      Polish/Polski
###      => Lukasz Jokiel <Lukasz.Jokiel@klonex.com.pl>
###### PATCHTAG 10 ###################################################
  &polish
###### PATCHTAG 20 ###################################################
  'polish'	 => &polish,
  'polski'       => &polish,
###### PATCHTAG 30 ###################################################
# Polish/polski
   'polish' =>
   "Polska lokalizacja
				<a href="http://www.klonex.com.pl/~lcj">Lukasz Jokiel</a>
				<a href="mailto:Lukasz.Jokiel@klonex.com.pl">&lt;Lukasz.Jokiel@klonex.com.pl&gt;</a>",
###### PATCHTAG 40 ###################################################
$credits::LOCALE{'polski'}=$credits::LOCALE{'polish'};
###### PATCHTAG 50 ###################################################
sub polish
{
  my $string = shift;
return "" unless defined $string;
  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 =
  (  
     'iso-8859-1'                             => 'iso-8859-2',
     'Maximal 5 Minute Incoming Traffic'      => 'Maksymalny ruch przychodz眂y w ci眊u 5 minut',
     'Maximal 5 Minute Outgoing Traffic'      => 'Maksymalny ruch wychodz眂y w ci眊u 5 minut',
     'the device'                             => 'urz眃zenie',
     'The statistics were last updated(.*)'   => 'Ostatnie uaktualnienie statystyki $1',
     ' Average)'                             => ' 

						