Author: vrockai Date: 2009-06-23 06:36:44 -0400 (Tue, 23 Jun 2009) New Revision: 13483 Modified: branches/JBoss_Portal_Branch_2_7/testsuite/ui-tests/tools/extract.pl Log: [selenium] - extract tool fix Modified: branches/JBoss_Portal_Branch_2_7/testsuite/ui-tests/tools/extract.pl =================================================================== --- branches/JBoss_Portal_Branch_2_7/testsuite/ui-tests/tools/extract.pl 2009-06-23 10:25:28 UTC (rev 13482) +++ branches/JBoss_Portal_Branch_2_7/testsuite/ui-tests/tools/extract.pl 2009-06-23 10:36:44 UTC (rev 13483) @@ -5,8 +5,12 @@ open (MYFILE, $file); while (<MYFILE>) { chomp; - if ( $_ =~ /^.*String\W*(\w+)\W=\W*\"(.*)\"\W*;/ ) { - print $1."=".$2."\n"; + if ( $_ =~ /^.*String\W*(\w+)\W=\W*.*\"(.*)\"\W*\)\W*;\W*/ ) { + $value= $2; + $name =lc($1); + $name =~ s/_/./g; + + print $name."=".$value."\n"; } } close (MYFILE);