polish.pmd

主要用于监控网络流量并动态产生可视化结果

###### PATCHTAG 00 ###################################################
###      Polish/Polski
###      => Lukasz Jokiel <[e-mail]>
###### PATCHTAG 10 ###################################################
  &polish
###### PATCHTAG 20 ###################################################
  'polish'	 => \&polish,
  'polski'       => \&polish,
###### PATCHTAG 30 ###################################################
# Polish/polski
   'polish' =>
   "  <HR NOSHADE>
  <TD WIDTH=388 ALIGN=RIGHT><FONT FACE=\"Arial,Helvetica\" SIZE=2>
  Polska lokalizacja
    <NOBR><A HREF=\"http://www.po.opole.pl/~lcj\">Lukasz Jokiel</A>
  <A HREF=\"mailto:Lukasz.Jokiel\@po.opole.pl\">
  &lt;Lukasz.Jokiel\@po.opole.pl&gt;</A></NOBR>",
###### PATCHTAG 40 ###################################################
$credits::LOCALE{'polski'}=$credits::LOCALE{'polish'};
###### PATCHTAG 50 ###################################################

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眂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\)</B><BR>'                     => '