Changeset 28794 for branches/eam_branches/ipp-20100621/ippScripts/scripts/make_burntool_pcontrol.pl

Timestamp:

Jul 30, 2010, 9:31:50 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

File:

• branches/eam_branches/ipp-20100621/ippScripts/scripts/make_burntool_pcontrol.pl (modified) (2 diffs)

branches/eam_branches/ipp-20100621/ippScripts/scripts/make_burntool_pcontrol.pl

@@ -48 +48 @@
 while(<LAZY>) {
     chomp;
-    if ($_ =~ /BURNTOOL.STATE.GOOD/) {
+    if ($_ =~ /BURNTOOL.STATE.GOOD\s/) {
         @line = split /\s+/;
         $burntoolStateGood = $line[2];
@@ -328 +328 @@
         foreach my $target (@target_list) {
 #           print STDERR "$target $obsmode_list{$target} $exp_type $obs_mode $object $comment\n";
-            if (($obs_mode =~ /$obsmode_list{$target}/)&&
-                ($object   =~ /$object_list{$target}/)&&
-                ($comment  =~ /$comment_list{$target}/)) {
+            if (($obs_mode =~ /$obsmode_list{$target}/i)&&
+                ($object   =~ /$object_list{$target}/i)&&
+                ($comment  =~ /$comment_list{$target}/i)) {
                 $return_value = 1;
             }
-#           print ">$return_value $exp_type $obs_mode $object $comment $target $obsmode_list{$target} $object_list{$target} $comment_list{$target}\n";
+#           print ">$return_value $exp_type $obs_mode $object $comment <> $target $obsmode_list{$target} $object_list{$target} $comment_list{$target}\n";
             if ($return_value) {
                 return($return_value);