47 lines
763 B
Haskell
47 lines
763 B
Haskell
<%
|
|
FUNCTION Main()
|
|
|
|
LOCAL aDir := directory( "c:\*.*" )
|
|
LOCAL i
|
|
|
|
IF !empty( GetEnv( "SERVER_NAME" ) )
|
|
qqOut( "HTTP/1.0 200 OK" )
|
|
qOut( "CONTENT-TYPE: TEXT/HTML" )
|
|
qOut( "" )
|
|
ENDIF
|
|
|
|
aSort( aDir,,, { |x, y| x[1] < y[1] } )
|
|
%>
|
|
<HTML>
|
|
<HEAD><TITLE>dir.hs - HarourScript demo of active context</TITLE></HEAD>
|
|
|
|
<BODY>
|
|
<TABLE border=1>
|
|
<TR>
|
|
<TD><B>File Name</B></TD>
|
|
<TD><B>Size</B></TD>
|
|
<TD><B>Date</B></TD>
|
|
<TD><B>Time</B></TD>
|
|
<TD><B>Attributes</B></TD>
|
|
</TR>
|
|
<%
|
|
FOR i := 1 TO len( aDir )
|
|
%>
|
|
<TR>
|
|
<TD><% qOut( aDir[i,1] ) %></TD>
|
|
<TD><% qOut( aDir[i,2] ) %></TD>
|
|
<TD><% qOut( aDir[i,3] ) %></TD>
|
|
<TD><% qOut( aDir[i,4] ) %></TD>
|
|
<TD><% qOut( aDir[i,5] ) %></TD>
|
|
</TR>
|
|
<%
|
|
NEXT
|
|
%>
|
|
</TABLE>
|
|
</BODY>
|
|
</HTML>
|
|
<%
|
|
|
|
RETURN( NIL )
|
|
%>
|