tools/configFileBuilder.pl

   1 while (<>)
   2 {
   3         next if (s/^cfg: // == 0);
   4         chomp;
   5         ($section, $value) = /\[(.*)\] (.*)/;
   6         $key{$section . "." . $value} = 1;
   7 }
   8
   9 foreach (sort keys %key)
  10 {
  11         ($section, $value) =  split(/\./, $_, 2);
  12         if ($section ne $oldSection)
  13         {
  14                 $oldSection = $section;
  15                 print "[", $section, "]\n";
  16         }
  17         print "\t", $value, "\n";
  18 }