5c3718eeba
* contrib/hbgt/Makefile
* contrib/hbgt/common.mak
- contrib/hbgt/strdiff.c
+ contrib/hbgt/strdiffg.c
- contrib/hbgt/charmix.c
+ contrib/hbgt/charmixg.c
- contrib/hbgt/asciisum.c
+ contrib/hbgt/asciisgt.c
- contrib/hbgt/ascpos.c
+ contrib/hbgt/ascposgt.c
* contrib/hbgf/hbgfos2/Makefile
- contrib/hbgf/hbgfos2/tmenuitm.prg
+ contrib/hbgf/hbgfos2/tmenuit.prg
! Some files renamed to collide with each other on
non-GNU make systems.
* contrib/examples/hscript/cgi.ch
* contrib/examples/hscript/dir.hs
* contrib/examples/hscript/multiply.hs
* contrib/examples/hscript/ugly.hs
* contrib/examples/hscript/hello.hs
* contrib/examples/guestbk/guestbk.ini
+ Added SVN headers.
+ source/rtl/gtalleg/common.mak
+ source/rtl/gtalleg/make_gcc.sh
+ source/rtl/gtalleg/make_b32.bat
+ source/rtl/gtalleg/make_vc.bat
+ Added non-GNU make file as an ugly hack to
build them on Windows systems.
- tests/altd.prg
+ tests/altdtest.prg
* Rename.
* include/hbver.h
* harbour-ce-spec
* harbour-w32-spec
* harbour.spec
* Version changed to '1.0.1dev'.
Trunk will need to be synced to tag/1.0.
* common.mak
+ Added version to harbour.dll: harbour-101-b32/vc.dll
; Work in progress. Pls comment.
55 lines
900 B
Haskell
55 lines
900 B
Haskell
<%
|
|
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* 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 )
|
|
%>
|