diff --git a/Setup.hs b/Setup.hs index 68d4035a4..38b4ed1f6 100644 --- a/Setup.hs +++ b/Setup.hs @@ -28,12 +28,12 @@ main = defaultMainWithHooks simpleUserHooks{ preBuild =checkRGLArgs } where gfPostInst args flags pkg lbi = - do installWeb args flags pkg lbi - installRGL args flags pkg lbi + do installRGL args flags pkg lbi + installWeb args flags pkg lbi gfPostCopy args flags pkg lbi = - do copyWeb args flags pkg lbi - copyRGL args flags pkg lbi + do copyRGL args flags pkg lbi + copyWeb args flags pkg lbi -------------------------------------------------------- -- Commands for building the Resource Grammar Library diff --git a/src/compiler/GFServer.hs b/src/compiler/GFServer.hs index bc5bdbdaf..4b796efce 100644 --- a/src/compiler/GFServer.hs +++ b/src/compiler/GFServer.hs @@ -25,21 +25,22 @@ import GF.Infra.UseIO(readBinaryFile,writeBinaryFile) import qualified PGFService as PS import qualified ExampleService as ES import Paths_gf(getDataDir) -import RunHTTP(Options(..),cgiHandler) +import RunHTTP(cgiHandler) -- * HTTP server server execute1 state0 = do state <- newMVar M.empty cache <- PS.newPGFCache datadir <- getDataDir - let options = Options { documentRoot = datadir"www", port = 41296 } + let root = datadir"www" + port = 41296 putStrLn $ "Starting HTTP server, open http://localhost:" - ++show (port options)++"/ in your web browser." - initServer (port options) - (modifyMVar state . handle options state0 cache execute1) + ++show port++"/ in your web browser." + setCurrentDirectory root + initServer port (modifyMVar state . handle state0 cache execute1) -- * HTTP request handler -handle options state0 cache execute1 +handle state0 cache execute1 rq@(Request method URI{uriPath=upath,uriQuery=q} hdrs body) state = do let qs = decodeQ $ case method of @@ -63,7 +64,7 @@ handle options state0 cache execute1 where path = translatePath rpath _ -> return (state,resp400 upath) where - root = documentRoot options + root = "." translatePath rpath = rootrpath -- hmm, check for ".." diff --git a/src/www/gfse/Makefile b/src/www/gfse/Makefile index 00a97b337..f2e33c3fb 100644 --- a/src/www/gfse/Makefile +++ b/src/www/gfse/Makefile @@ -4,4 +4,4 @@ save: save.hs install:: @make save - rsync -avz --exclude .DS_Store P *.html *.css *.js ../../runtime/javascript/minibar/support.js *.cgi *.manifest save www.grammaticalframework.org:/usr/local/www/GF/demos/gfse + rsync -avz --exclude .DS_Store P *.html *.css *.js *.cgi *.manifest save www.grammaticalframework.org:/usr/local/www/GF/demos/gfse diff --git a/src/www/gfse/index.html b/src/www/gfse/index.html index c683a1ebf..52c96a34f 100644 --- a/src/www/gfse/index.html +++ b/src/www/gfse/index.html @@ -37,7 +37,7 @@ HTML About

  
-
+
 
 
 
diff --git a/src/www/gfse/share.html b/src/www/gfse/share.html
index 260a7b066..70bd44526 100644
--- a/src/www/gfse/share.html
+++ b/src/www/gfse/share.html
@@ -14,7 +14,7 @@
 
Last modified: Mon Oct 10 20:29:01 CEST 2011 - + diff --git a/src/www/index.html b/src/www/index.html index b1aa24028..7a924e808 100644 --- a/src/www/index.html +++ b/src/www/index.html @@ -5,7 +5,7 @@ GF web service

GF web service

-

Available web services

+

Available web applications