Index: /trunk/DataStoreServer/web/cgi/dsgetindex
===================================================================
--- /trunk/DataStoreServer/web/cgi/dsgetindex	(revision 17754)
+++ /trunk/DataStoreServer/web/cgi/dsgetindex	(revision 17755)
@@ -149,5 +149,7 @@
 sub html_index {
 
-    my $out_buf = $_[0];
+    my $out_array_ref = shift;
+    my $outBuf = join( "", @$out_array_ref);
+
     #print header('text/plain', '200 OK');
 
@@ -155,5 +157,5 @@
     #print @$out_buf;
     pprint_pre();
-    my @lines = split /^/, $out_buf->[0];
+    my @lines = split /^/, $outBuf;
     foreach my $line (@lines) {
         pprint($line);
@@ -169,5 +171,5 @@
 
 sub pprint_pre {
-    use Filesys::Df;
+    #use Filesys::Df;
 
     print header('text/html', '200 OK');
@@ -175,9 +177,9 @@
 
 	# get free space
-	my $ref = df($DS_ROOT);
-	printf '<p>Free space: %.2fG (%.1f%%)</p>',
-		$ref->{bfree}/(1024*1024),
-		100.0*$ref->{bfree}/$ref->{blocks};
-        print "\n";
+#	my $ref = df($DS_ROOT);
+#	printf '<p>Free space: %.2fG (%.1f%%)</p>',
+#		$ref->{bfree}/(1024*1024),
+#		100.0*$ref->{bfree}/$ref->{blocks};
+#        print "\n";
 
 	# return link