Changeset 38254 for branches/eam_branches/ipp-20150419/oofview/cgi/dsgetindex.v1

Timestamp:

May 8, 2015, 2:20:51 PM (11 years ago)

Author:

eugene

Message:

updates

File:

• branches/eam_branches/ipp-20150419/oofview/cgi/dsgetindex.v1 (modified) (10 diffs)

branches/eam_branches/ipp-20150419/oofview/cgi/dsgetindex.v1

@@ -75 +75 @@
    $file    = shift @dirs;
 
+my $filelevel = "UNKNOWN";
+
 my $program;
 if ($file) {
     $program = "NONE";
+    $filelevel = "FILE";
 } elsif ($fileset) {
     $program = "dsfsindex";
+    $filelevel = "FILESET";
 } elsif ($product) {
     $program = "dsprodindex";
     $fileset = "";
+    $filelevel = "PRODUCT";
 } else {
     $program = "dsrootindex";
     $fileset = "";
     $product = "";
+    $filelevel = "ROOT";
 }
 
@@ -98 +104 @@
       print "PRODUCT: $product\n";
       print "FILE:    $filename\n";
+      print "FILELEVEL: $filelevel\n";
     }
 
@@ -104 +111 @@
     close (FILE);
 
-    print @list;
+    foreach my $line (@list) {
+        if ($line =~ m/OOF/) {
+            print $line;
+        }
+    }
+    # print @list;
 
     exit 0;
@@ -118 +130 @@
       print "PRODUCT: $product\n";
       print "FILE:    $filename\n";
+      print "FILELEVEL: $filelevel\n";
       print "run fhead\n";
     }
@@ -138 +151 @@
       print "PRODUCT: $product\n";
       print "FILE:    $filename\n";
+      print "FILELEVEL: $filelevel\n";
     }
 
@@ -218 +232 @@
         # return link
         if ($program ne "dsrootindex") {
-            print a({-href=>"./index.txt"}, "Text Version");
+            print a({-href=>"$script_name$path_info/index.txt"}, "Text Version");
         }
 
@@ -232 +246 @@
                     # no up link in dsroot
                 } else {
-                    print a({-href=>".."}, "Up to $script_name/$up");
+                    print a({-href=>"$script_name$up"}, "Up to $script_name$up");
                 }
             }
@@ -246 +260 @@
     print '</table>';
     print p();
+    print "<b>FILELEVEL: $filelevel</b>\n";
     print end_html();
 }
@@ -273 +288 @@
          # First column is link to an entity down one level in data store (product, fileset, file)
          # assumes id is always first field
-         my $wpath = "./$toks[0]";
+         my $wpath = "$script_name$path_info/$toks[0]";
 
          # if this is a file request, use a download cgi
@@ -303 +318 @@
                 $product =~ s/^\s+//;
                 $product =~ s/\s+$//;
-                print a({-href=>"./$product/$fileset"}, $fileset);
+                print a({-href=>"$script_name$product/$fileset"}, $fileset);
             }
         }