Author: vrockai Date: 2009-06-23 06:54:52 -0400 (Tue, 23 Jun 2009) New Revision: 13485 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:47:24 UTC (rev 13484) +++ branches/JBoss_Portal_Branch_2_7/testsuite/ui-tests/tools/extract.pl 2009-06-23 10:54:52 UTC (rev 13485) @@ -7,6 +7,8 @@ $mes = "getMes"; $fun = "get"; +$pfx = "prefix."; + if ( $mode eq "l" ) { $fun = $loc; } @@ -17,12 +19,16 @@ open (MYFILE, $file); while (<MYFILE>) { chomp; - if ( $_ =~ /^.*String\W*(\w+)\W=\W$fun*.*\"(.*)\"\W*\)\W*;\W*/ ) { + if ( $_ =~ /^.*String\W*casePfx\W*=\W*\"(.*)\"\W*;\W*$/ ) { + $pfx = $1; + } + + if ( $_ =~ /^.*String\W*(\w+)\W=\W$fun*.*\"(.*)\"\W*\)\W*;\W*$/ ) { $value= $2; $name =lc($1); $name =~ s/_/./g; - print $name."=".$value."\n"; + print $pfx.$name."=".$value."\n"; } } close (MYFILE);