SNMP

Development Platform:

C/C++

mergelocale.pl：Code Content

							#!/usr/bin/perl
#
# usage: ./mergelocale.pl skeleton.pm0 lang1.pmd lang2.pmd
# the script then creates locales_mrtg.pm
#
# If you want to modify a locale, modify the pmd file and rerun 
# this script and copy the generated locales_mrtg.pm to the run directory.
#
# If you want to translate a locale, copy one of the existing locales and 
# translate. Then rerun and copy. 
#
#################################################################
#
# Distributed under the GNU copyleft
#
###################################################################
open(OUTFILE,"> locales_mrtg.pm");
@patchdb=(
'PATCHTAGs*00',
'PATCHTAGs*10',
'PATCHTAGs*20',
'PATCHTAGs*30',
'PATCHTAGs*40',
'PATCHTAGs*50',
'PATCHTAGs*60',
);
while(@ARGV){
  push(@languages,shift);
};
foreach $patchtag (@patchdb)
{
  for $i (@languages)
  {
    open(LANGF,"< $i");
    $patch="";
    while(<LANGF>)
    {
      if(/#.S*PATCHTAG/)
      { 
        $patch=/$patchtag/;
      }
      else
      {
        if($patch) { print OUTFILE $_; };
      };
    };
  };
};

						