Changeset 17499

Timestamp:

May 2, 2008, 11:03:49 AM (18 years ago)

Author:

bills

Message:

tweaks to the web interface for the data store.
Get DB parameters from enviornment to remove dependence on ipp

Location:

trunk/DataStoreServer/web/cgi

Files:

• dodsfits (modified) (1 diff)
• dsdbh.pm (added)
• dsgetindex (modified) (2 diffs)

trunk/DataStoreServer/web/cgi/dodsfits

@@ -9 +9 @@
 
 $uri = $ARGV[0];
-print STDERR "uri is $uri\n";
+#print STDERR "uri is $uri\n";
 
 (my $left, my $param) = split(/\,/, $uri);
 
-print STDERR "left: $left param: $param\n";
+#print STDERR "left: $left param: $param\n";
 
 if ($left !~ /\.fits$/) {

trunk/DataStoreServer/web/cgi/dsgetindex

@@ -179 +179 @@
                 $ref->{bfree}/(1024*1024),
                 100.0*$ref->{bfree}/$ref->{blocks};
+        print "\n";
 
         # return link
+        print a({-href=>"./index.txt"}, "Text Version");
+
         if ($#path > 1) {
+            print "&nbsp&nbsp&nbsp&nbsp\n";
+
                 my $up = join('/', @path[0..$#path-1]);
             print a({-href=>"$up"}, "Up to $up");
+
         }
+        print "</p>\n";
+
 
     print '<table cellpadding="3">';
@@ -225 +233 @@
 
                 # if this is a file request, use a download cgi
-                if ($wpath =~ /\.fits$/) {
+                if ($wpath =~ /\.fits\s*$/) {
                         $wpath = '/ds-cgi/dsfits.cgi?'.substr($wpath, 4); # strip' /ds/'
                 }