#!/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=(
'PATCHTAG\s*00',
'PATCHTAG\s*10',
'PATCHTAG\s*20',
'PATCHTAG\s*30',
'PATCHTAG\s*40',
'PATCHTAG\s*50',
'PATCHTAG\s*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 $_; };
};
};
};
};