Kaynağa Gözat

New CGI script for ajax test

bel2125 10 yıl önce
ebeveyn
işleme
bb5bc3ff99
2 değiştirilmiş dosya ile 81 ekleme ve 73 silme
  1. 8 73
      test/ajax/echo.cgi
  2. 73 0
      test/ajax/echo.cgi.old

+ 8 - 73
test/ajax/echo.cgi

@@ -1,73 +1,8 @@
-#!/usr/bin/lua5.1
-
--- Every CGI script that returns any valid JSON object will work in the test.
--- In case you do not have not yet used CGI, you may want to use this script which is written in Lua.
--- You may download an interpreter from http://luabinaries.sourceforge.net/download.html, extract it
--- to some folder in your search path (the path of the webserver or /usr/bin on Linux), and add the
--- following lines to your .conf file.
--- cgi_interpreter c:\somewhere\lua5.1.exe
--- enable_keep_alive yes
-
-resp = "{";
-
-method = os.getenv("REQUEST_METHOD")
-uri = os.getenv("REQUEST_URI");
-query = os.getenv("QUERY_STRING");
-datalen = os.getenv("CONTENT_LENGTH");
-
-if method then
-  resp = resp .. '"method" : "' .. method .. '", ';
-end
-if uri then
-  resp = resp .. '"uri" : "' .. uri .. '", ';
-end
-if query then
-  resp = resp .. '"query" : "' .. query .. '", ';
-end
-if datalen then
-  resp = resp .. '"datalen" : "' .. datalen .. '", ';
-end
-
-resp = resp .. '"time" : "' .. os.date() .. '" ';
-
-resp = resp .. "}";
-
-
-
-
-print "Status: 200 OK"
-print "Connection: close"
---print "Connection: keep-alive"
-print "Content-Type: text/html; charset=utf-8"
-print "Cache-Control: no-cache"
---print ("Content-Length: " .. resp:len())
-print ""
-
-print (resp)
-
-
-doLogging = false
-
-if (doLogging) then
-  -- Store the POST data to a file
-  if (method == "POST") then
-    myFile = io.open("data" .. query:sub(4) .. ".txt", "wb");
-    myFile:write(resp)
-    myFile:write("\r\n\r\n")  
-    if datalen then
-      datalen = tonumber(datalen)
-      myFile:write("<<< " .. datalen .. " bytes of data >>>\r\n")
-      
-      data = io.stdin:read(datalen)
-      myFile:write(data)
-      
-      myFile:write("\r\n<<< end >>>\r\n")
-    else
-      myFile:write("<<< no data >>>\r\n")
-    end  
-    myFile:close()
-  end
-end
-
-
-
+#!/bin/sh
+
+echo "Content-Type: text/plain; charset=utf-8"
+echo "Connection: close"
+echo "Cache-Control: no-cache"
+echo ""
+
+echo "{}"

+ 73 - 0
test/ajax/echo.cgi.old

@@ -0,0 +1,73 @@
+#!/usr/bin/lua5.1
+
+-- Every CGI script that returns any valid JSON object will work in the test.
+-- In case you do not have not yet used CGI, you may want to use this script which is written in Lua.
+-- You may download an interpreter from http://luabinaries.sourceforge.net/download.html, extract it
+-- to some folder in your search path (the path of the webserver or /usr/bin on Linux), and add the
+-- following lines to your .conf file.
+-- cgi_interpreter c:\somewhere\lua5.1.exe
+-- enable_keep_alive yes
+
+resp = "{";
+
+method = os.getenv("REQUEST_METHOD")
+uri = os.getenv("REQUEST_URI");
+query = os.getenv("QUERY_STRING");
+datalen = os.getenv("CONTENT_LENGTH");
+
+if method then
+  resp = resp .. '"method" : "' .. method .. '", ';
+end
+if uri then
+  resp = resp .. '"uri" : "' .. uri .. '", ';
+end
+if query then
+  resp = resp .. '"query" : "' .. query .. '", ';
+end
+if datalen then
+  resp = resp .. '"datalen" : "' .. datalen .. '", ';
+end
+
+resp = resp .. '"time" : "' .. os.date() .. '" ';
+
+resp = resp .. "}";
+
+
+
+
+print "Status: 200 OK"
+print "Connection: close"
+--print "Connection: keep-alive"
+print "Content-Type: text/html; charset=utf-8"
+print "Cache-Control: no-cache"
+--print ("Content-Length: " .. resp:len())
+print ""
+
+print (resp)
+
+
+doLogging = false
+
+if (doLogging) then
+  -- Store the POST data to a file
+  if (method == "POST") then
+    myFile = io.open("data" .. query:sub(4) .. ".txt", "wb");
+    myFile:write(resp)
+    myFile:write("\r\n\r\n")  
+    if datalen then
+      datalen = tonumber(datalen)
+      myFile:write("<<< " .. datalen .. " bytes of data >>>\r\n")
+      
+      data = io.stdin:read(datalen)
+      myFile:write(data)
+      
+      myFile:write("\r\n<<< end >>>\r\n")
+    else
+      myFile:write("<<< no data >>>\r\n")
+    end  
+    myFile:close()
+  end
+end
+
+
+