perfsonar development work

Author: zurawski
Date: 2007-03-28 09:14:42 -0400 (Wed, 28 Mar 2007)
New Revision: 2304

Modified:
   trunk/perfsonar/src/obs.pl
Log:
Bug fix to omit 'handler' java files as well as the generic 'element'.

-jason



Modified: trunk/perfsonar/src/obs.pl
===================================================================
--- trunk/perfsonar/src/obs.pl  2007-03-28 12:52:19 UTC (rev 2303)
+++ trunk/perfsonar/src/obs.pl  2007-03-28 13:14:42 UTC (rev 2304)
@@ -18,25 +18,25 @@
       $package =~ s/\//\./g;      
       $package =~ s/\.\./\./g;
 
-
-         # transform all parts matching vX_Y
-         # to X.Y
-         @path_parts = split('/',$path);
-         for ($i=0;$i < scalar @path_parts; $i++) {
-                 if(@path_parts[$i] =~ m/^v[\d\_]*/) {
-                         @path_parts[$i] =~ s/v//g;
-                         @path_parts[$i] =~ s/\_/\./g;
-                 }
-         }
-         $path = join('/', @path_parts);
-
-            
+      # transform all parts matching vX_Y
+      # to X.Y
+      @path_parts = split('/',$path);
+      for ($i=0;$i < scalar @path_parts; $i++) {
+        if(@path_parts[$i] =~ m/^v[\d\_]*/) {
+         @path_parts[$i] =~ s/v//g;
+         @path_parts[$i] =~ s/\_/\./g;
+       }
+      }
+      $path = join('/', @path_parts);
+      
       if($file =~ m/^.*\.java$/) {
         $file =~ s/\.java//;
-        open(WRITE, ">>objects.config");
-        print WRITE $url , $path  , "/" , lcfirst($file) , "/";
-        print WRITE "\t" , $package , "." , $file , "\n";
-        close(WRITE);
+       if(!($file =~ m/.*Handler$/) and !($file =~ m/^Element$/)) {
+          open(WRITE, ">>objects.config");
+          print WRITE $url , $path  , "/" , lcfirst($file) , "/";
+          print WRITE "\t" , $package , "." , $file , "\n";
+          close(WRITE);
+        }
       }
     } 
   }