Rev Author Line No. Line
250 kaklik 1 #!/usr/bin/perl
2 #
3 # $Id: convertcfg.pl,v 2.0 2003/11/18 15:20:45 nijel Exp $
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