scripts/convertcfg.pl

   1 #!/usr/bin/perl
   2 #
   3 # $Id$
   4 #
   5 # Configuration converter
   6 # Converts from old-style (Pre-2.3) configuration files to new format found in PMA-2.3
   7 #
   8 # Takes input from STDIN, sends output to STDOUT
   9 #
  10 # By Robin Johnson robbat2@users.sourceforge.net
  11 # Many thanks to Patrick Lougheed pat@tfsb.org
  12 #
  13
  14 while(<>)
  15 {       s/\$cfg(\w+)/\$cfg\[\'$1\'\]/g;
  16         print;
  17         }
  18
  19