f02145dc30
* bin/bld.bat
* bin/bld_os2.cmd
! Removed trailing backslash from default Harbour bin dirs.
* contrib/hbapollo/make_b32.bat
* contrib/hbapollo/make_vc.bat
* contrib/hbfbird/make_b32.bat
* contrib/hbfbird/make_vc.bat
* contrib/hbfimage/make_b32.bat
* contrib/hbfimage/make_vc.bat
* contrib/hbgd/make_b32.bat
* contrib/hbgd/make_vc.bat
* contrib/hbhpdf/make_b32.bat
* contrib/hbhpdf/make_vc.bat
* contrib/hbmysql/make_b32.bat
* contrib/hbmysql/make_vc.bat
* contrib/hbodbc/make_b32.bat
* contrib/hbodbc/make_vc.bat
* contrib/hbpgsql/make_b32.bat
* contrib/hbpgsql/make_vc.bat
* contrib/hbw32ddr/make_b32.bat
* contrib/hbw32ddr/make_vc.bat
* contrib/hbzlib/make_b32.bat
* contrib/hbzlib/make_vc.bat
* contrib/rddads/make_b32.bat
* contrib/rddads/make_vc.bat
! Fixed to handle long *_DIR settings in those
contribs where external packages are required.
* contrib/gtwvg/tests/bld_b32.bat
* contrib/gtwvg/tests/bld_vc.bat
* contrib/hbapollo/tests/bld_b32.bat
* contrib/hbapollo/tests/bld_vc.bat
* contrib/hbclipsm/tests/bld_b32.bat
* contrib/hbclipsm/tests/bld_vc.bat
* contrib/hbct/tests/bld_b32.bat
* contrib/hbct/tests/bld_vc.bat
* contrib/hbfbird/tests/bld_b32.bat
* contrib/hbfbird/tests/bld_vc.bat
* contrib/hbfimage/tests/bld_b32.bat
* contrib/hbfimage/tests/bld_vc.bat
* contrib/hbgd/tests/bld_b32.bat
* contrib/hbgd/tests/bld_vc.bat
* contrib/hbgf/tests/bld_b32.bat
* contrib/hbgf/tests/bld_vc.bat
* contrib/hbhpdf/tests/bld_b32.bat
* contrib/hbhpdf/tests/bld_vc.bat
* contrib/hbmisc/tests/bld_b32.bat
* contrib/hbmisc/tests/bld_vc.bat
* contrib/hbmysql/tests/bld_b32.bat
* contrib/hbmysql/tests/bld_vc.bat
* contrib/hbnf/tests/bld_b32.bat
* contrib/hbnf/tests/bld_vc.bat
* contrib/hbodbc/tests/bld_b32.bat
* contrib/hbodbc/tests/bld_vc.bat
* contrib/hbole/tests/bld_b32.bat
* contrib/hbole/tests/bld_vc.bat
* contrib/hbpgsql/tests/bld_b32.bat
* contrib/hbpgsql/tests/bld_vc.bat
* contrib/hbtpathy/tests/bld_b32.bat
* contrib/hbtpathy/tests/bld_vc.bat
* contrib/hbvpdf/tests/bld_b32.bat
* contrib/hbvpdf/tests/bld_vc.bat
* contrib/hbw32/tests/bld_b32.bat
* contrib/hbw32/tests/bld_vc.bat
* contrib/hbw32ddr/tests/bld_b32.bat
* contrib/hbw32ddr/tests/bld_vc.bat
* contrib/hbzlib/tests/bld_b32.bat
* contrib/hbzlib/tests/bld_vc.bat
* contrib/rddado/tests/bld_b32.bat
* contrib/rddado/tests/bld_vc.bat
* contrib/rddads/tests/bld_b32.bat
* contrib/rddads/tests/bld_vc.bat
! Fixed to honor HB_*_INSTALL envvar settings in
bld_*.bats for /tests
* contrib/examples/hscript/dir.hs
* contrib/examples/hscript/bld_b32.bat
- contrib/examples/hscript/makehtm.bat
* Cleanup.
* contrib/rddads/rddads.h
* contrib/rddads/adsfunc.c
* contrib/rddads/ads1.c
* contrib/rddads/adsmgmnt.c
* Header cleanup, minor code opt.
* ADS_REQUIRE_VERSION==8 is now equivalent to
ADS_LIB_VERSION=810. Brian suggested this is what
the majority of users need. See next however.
* ADS_REQUIRE_VERSION compatibility handling
disabled to make usage and support more
straightforward. I'd suggest everyone to remove
any old ADS_REQUIRE_VERSION settings, if - and only
if - there is a need to force an older version,
ADS_LIB_VERSION=??? should be used, where ??? is
810 for ACE 8.11 (for example).
51 lines
884 B
Haskell
51 lines
884 B
Haskell
<%
|
|
/*
|
|
* Written by Felipe Coury <fcoury@flexsys-ci.com>
|
|
* www - http://www.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] } )
|
|
%>
|
|
<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><% OutStd( aDir[i,1] ) %></TD>
|
|
<TD><% OutStd( aDir[i,2] ) %></TD>
|
|
<TD><% OutStd( aDir[i,3] ) %></TD>
|
|
<TD><% OutStd( aDir[i,4] ) %></TD>
|
|
<TD><% OutStd( aDir[i,5] ) %></TD>
|
|
</TR>
|
|
<%
|
|
NEXT
|
|
%>
|
|
</TABLE>
|
|
</BODY>
|
|
</HTML>
|
|
<%
|
|
|
|
RETURN( NIL )
|
|
%>
|