17 lines
254 B
Perl
Executable File
17 lines
254 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# $Id$
|
|
#
|
|
# Configuration converter
|
|
# Converts from old-style (Pre-2.3) configuration files to new format found in PMA-2.3
|
|
#
|
|
# Takes input from STDIN, sends output to STDOUT
|
|
#
|
|
|
|
while(<>)
|
|
{ s/\$cfg(\w+)/\$cfg\[\'$1\'\]/g;
|
|
print;
|
|
}
|
|
|
|
|