Changeset 17499 for trunk/DataStoreServer/web/cgi/dsgetindex
- Timestamp:
- May 2, 2008, 11:03:49 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/DataStoreServer/web/cgi/dsgetindex (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/DataStoreServer/web/cgi/dsgetindex
r17381 r17499 179 179 $ref->{bfree}/(1024*1024), 180 180 100.0*$ref->{bfree}/$ref->{blocks}; 181 print "\n"; 181 182 182 183 # return link 184 print a({-href=>"./index.txt"}, "Text Version"); 185 183 186 if ($#path > 1) { 187 print "    \n"; 188 184 189 my $up = join('/', @path[0..$#path-1]); 185 190 print a({-href=>"$up"}, "Up to $up"); 191 186 192 } 193 print "</p>\n"; 194 187 195 188 196 print '<table cellpadding="3">'; … … 225 233 226 234 # if this is a file request, use a download cgi 227 if ($wpath =~ /\.fits $/) {235 if ($wpath =~ /\.fits\s*$/) { 228 236 $wpath = '/ds-cgi/dsfits.cgi?'.substr($wpath, 4); # strip' /ds/' 229 237 }
Note:
See TracChangeset
for help on using the changeset viewer.
