Changeset 17755

Timestamp:

May 19, 2008, 4:39:56 PM (18 years ago)

Author:

bills

Message:

I wasn't dealing with run()'s output buf properly.
Turn of use of Df for now since the perl module isn't found

File:

• trunk/DataStoreServer/web/cgi/dsgetindex (modified) (4 diffs)

trunk/DataStoreServer/web/cgi/dsgetindex

@@ -149 +149 @@
 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 +157 @@
     #print @$out_buf;
     pprint_pre();
-    my @lines = split /^/, $out_buf->[0];
+    my @lines = split /^/, $outBuf;
     foreach my $line (@lines) {
         pprint($line);
@@ -169 +171 @@
 
 sub pprint_pre {
-    use Filesys::Df;
+    #use Filesys::Df;
 
     print header('text/html', '200 OK');
@@ -175 +177 @@
 
         # 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