[portal-commits] JBoss Portal SVN: r13484 - branches/JBoss_Portal_Branch_2_7/testsuite/ui-tests/tools.
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;