perfsonar development work

Author: roman
Date: 2007-05-07 07:59:42 -0400 (Mon, 07 May 2007)
New Revision: 2367

Modified:
   branches/JAVA-RRD-MA-STABLE/src/obs.pl
Log:

new version from the trunk



Modified: branches/JAVA-RRD-MA-STABLE/src/obs.pl
===================================================================
--- branches/JAVA-RRD-MA-STABLE/src/obs.pl      2007-05-07 10:40:54 UTC (rev 
2366)
+++ branches/JAVA-RRD-MA-STABLE/src/obs.pl      2007-05-07 11:59:42 UTC (rev 
2367)
@@ -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);
+        }
       }
     } 
   }