FiveTech Software tech support forums

Code: Select all

LoadModule fcgid_module modules/mod_fcgid.so
<FilesMatch "\.(prg|hrb)$">
    SetHandler fcgid-script
    Options +ExecCGI
    FcgidWrapper c:/Apache24/bin/modharbour.exe
</FilesMatch>

Code: Select all

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()
   local oDlg

   DEFINE DIALOG oDlg FROM 6, 6 TO 20, 60 TITLE "Convert Classic to FastCGI"

   @ 2, 2 BUTTON "&Convert to FASTCGI" OF oDlg ;
      ACTION ( convert() )

   @ 4, 2 BUTTON "&Bye!" OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg

return nil

//----------------------------------------------------------------------------//

function convert()
   local cText := ""
   local I := 0
   local aClassicToFASTCgi := {}
   local cPrg  := cGetFile( "(*.prg)|*.prg|", "Select prg" )
   local cDst := ""

   AADD( aClassicToFASTCgi, { "AP_RPUTS",          "MH_ECHO" } )
   AADD( aClassicToFASTCgi, { "AP_ARGS",           "MH_QUERY" } )
   AADD( aClassicToFASTCgi, { "AP_HEADERSOUTSET",  "MH_HEADER" } )
   AADD( aClassicToFASTCgi, { "AP_BODY",           "MH_BODY" } )

   cText := MemoRead( cPrg )

   for I = 1 to len( aClassicToFASTCgi )
      cText := STRTRAN(UPPER( cText ), aClassicToFASTCgi[I,1], aClassicToFASTCgi[I,2])
   next

   cDst := STRTRAN( UPPER( cPrg ), ".PRG", "_Fastcgi.prg" )
   memowrit( cDst, cText )

   ? "Done"
return nil

//----------------------------------------------------------------------------//