CGI example in router module

edwardt · Dec 6, 2010 · a93118e · a93118e
1 parent 1c5b279
commit a93118e
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/example/cgi.sh b/example/cgi.sh
@@ -0,0 +1,9 @@
+#!/bin/sh
+
+echo "Content-Type: text/html"
+echo ""
+
+echo "<html>"
+echo "<head><title>Very simple CGI</title></head>"
+echo "<body>This process $$ serving '$REQUEST_METHOD $PATH_TRANSLATED'</body>"
+echo "</html>"
diff --git a/example/src/webdirs.erl b/example/src/webdirs.erl
@@ -95,6 +95,9 @@ route_request(Request)
             ?INFO("Reloading plugin", []),
             _Pid = spawn(fun() -> reload() end),
             {reply, {200, "Reloading"}, [{'Content-Type', <<"text/html">>}], <<"Policy reloaded. <a href='/'>Try now.</a>\r\n">>}
+        ; "cgi-bin"
+            -> ?INFO("Executing CGI", [])
+            , {cgi, "cgi.sh"} % Absolute path, otherwise this runs from the CWD. The README says to run it from "example".
         ; _ ->
             Dirs = string:tokens(Path, "/"),
             case Dirs of