Author: vrockai Date: 2009-06-23 06:47:24 -0400 (Tue, 23 Jun 2009) New Revision: 13484 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:36:44 UTC (rev 13483) +++ branches/JBoss_Portal_Branch_2_7/testsuite/ui-tests/tools/extract.pl 2009-06-23 10:47:24 UTC (rev 13484) @@ -1,11 +1,23 @@ #!/usr/bin/perl -w +$mode = shift; $file = shift; +$loc = "getLoc"; +$mes = "getMes"; +$fun = "get"; + +if ( $mode eq "l" ) { + $fun = $loc; +} +elsif ($mode eq "m") { + $fun = $mes; +} + open (MYFILE, $file); while (<MYFILE>) { chomp; - if ( $_ =~ /^.*String\W*(\w+)\W=\W*.*\"(.*)\"\W*\)\W*;\W*/ ) { + if ( $_ =~ /^.*String\W*(\w+)\W=\W$fun*.*\"(.*)\"\W*\)\W*;\W*/ ) { $value= $2; $name =lc($1); $name =~ s/_/./g;