Index: /trunk/DataStoreServer/web/cgi/dodsfits
===================================================================
--- /trunk/DataStoreServer/web/cgi/dodsfits	(revision 17498)
+++ /trunk/DataStoreServer/web/cgi/dodsfits	(revision 17499)
@@ -9,9 +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$/) {
Index: /trunk/DataStoreServer/web/cgi/dsdbh.pm
===================================================================
--- /trunk/DataStoreServer/web/cgi/dsdbh.pm	(revision 17499)
+++ /trunk/DataStoreServer/web/cgi/dsdbh.pm	(revision 17499)
@@ -0,0 +1,20 @@
+# create a database handle based on the configuration given
+# in environment variables
+
+sub getDBHandle {
+    my $dbserver = $ENV{DBSERVER};
+    my $dbuser   = $ENV{DBUSER};
+    my $dbpass   = $ENV{DBPASSWORD};
+    my $dbname   = $ENV{DBNAME};
+
+    die "database enviornment not set up" unless defined($dbserver) and defined($dbuser)
+        and defined($dbpass) and defined($dbname);
+
+    my $dsn = "DBI:mysql:host=$dbserver;database=$dbname";
+
+    my $dbh = DBI->connect($dsn, $dbuser, $dbpass) or die "Cannot connect to server\n";
+
+    return $dbh;
+}
+
+return 1;
Index: /trunk/DataStoreServer/web/cgi/dsgetindex
===================================================================
--- /trunk/DataStoreServer/web/cgi/dsgetindex	(revision 17498)
+++ /trunk/DataStoreServer/web/cgi/dsgetindex	(revision 17499)
@@ -179,10 +179,18 @@
 		$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,5 +233,5 @@
 
 		# 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/'
 		}