<% /* * $Id$ */ /* * Written by Felipe Coury * www - http://harbour-project.org * */ FUNCTION Start() LOCAL aDir := Directory( "*.*" ) LOCAL i IF !Empty( GetEnv( "SERVER_NAME" ) ) OutStd( "HTTP/1.0 200 OK" + chr(10) ) OutStd( "CONTENT-TYPE: TEXT/HTML" + chr(10) + chr(10) ) ENDIF ASort( aDir,,, { |x, y| x[1] < y[1] } ) %> <% FOR i := 1 TO Len( aDir ) %> <% NEXT %>

File Name	Size	Date	Time	Attributes
<% OutStd( aDir[i,1] ) %>	<% OutStd( aDir[i,2] ) %>	<% OutStd( aDir[i,3] ) %>	<% OutStd( aDir[i,4] ) %>	<% OutStd( aDir[i,5] ) %>

<% RETURN NIL %>