split multicast setup in two scripts

this allows password protected setup

octoserve/var/www/mcconfig.lua

@@ -0,0 +1,144 @@
+#!/usr/bin/lua
+
+local host = os.getenv("HTTP_HOST")
+local proto = os.getenv("SERVER_PROTOCOL")
+local query = os.getenv("QUERY_STRING")
+local method = os.getenv("REQUEST_METHOD")
+local clength = os.getenv("CONTENT_LENGTH")
+local ctype = os.getenv("CONTENT_TYPE")
+
+function http_print(s)
+  if s then
+    io.stdout:write(tostring(s).."\r\n")
+  else
+    io.stdout:write("\r\n")
+  end
+end
+
+if #arg> 0 then
+  method="GET"
+  query="select=m3u"
+  proto = "HTTP/1.0"
+end
+
+function SendError(err,desc)
+  http_print(proto.." "..err)
+  http_print()
+  local file = io.open("e404.html")
+  if file then
+    local tmp = file:read("*a")
+    tmp = string.gsub(tmp,"404 Not Found",err .. " " .. desc)
+    http_print(tmp)
+    file:close()
+  end
+end
+
+function GetDevID()
+  local devid = nil
+  local tmp = io.open("/config/device.id")
+  if tmp then
+    devid = tonumber(tmp:read())
+    tmp:close()
+  end
+  return devid
+end
+
+
+if method == "GET" then
+  local path = nil
+  local disposition = nil
+  local subtype="csv"
+
+  if string.match(query,"select=copy") then
+    local name = string.match(query,"name=(%w+)")
+    if name then
+      path = "/var/mcsetup/"..name..".csv"
+      disposition = "copy"
+    else
+      SendError("404","Request Error")
+      return
+    end
+  elseif string.match(query,"select=disable") then
+    disposition = "disable"
+  end
+
+  if disposition == "disable" then
+    os.remove("/config/mcsetup.csv")
+    os.execute('echo "1" >/tmp/mc.tmp;mv -f /tmp/mc.tmp /tmp/mc.signal');
+    http_print(proto.." 303")
+    http_print("Location: http://"..host.."/multicast.html")
+    http_print("")
+    return
+  end
+  
+  if disposition == "copy" then
+    os.execute("cp "..path.." /config/mcsetup.csv")
+    os.execute('echo "1" >/tmp/mc.tmp;mv -f /tmp/mc.tmp /tmp/mc.signal');
+    http_print(proto.." 303")
+    http_print("Location: http://"..host.."/multicast.html")
+    http_print()
+    return
+  end
+  
+  local data = nil  
+  local tmp = io.open(path,"r")
+  if tmp then
+    data = tmp:read("*a")
+    tmp:close()
+  end
+  
+  if data then
+    http_print(proto.." 200" )
+    http_print("Pragma: no-cache")
+    http_print("Content-Type: text/"..subtype)
+    http_print('Content-Disposition: filename="'..disposition..'"')
+    http_print(string.format("Content-Length: %d",#data))
+    http_print()
+    http_print(data)
+  else
+    SendError("404",disposition.." not found")
+  end
+
+elseif method == "POST" and clength and ctype then
+
+  if not string.match(ctype,"multipart/form%-data") then
+    SendError("404","??")
+    return
+  end
+
+  local boundary = string.match(ctype,"boundary=(.*)") 
+  if not boundary then
+    SendError("404","???")
+    return
+  end
+
+  while true do
+    local line = io.stdin:read()
+    line = string.gsub(line,"\r","")
+    if line == "" then break end
+  end
+
+  data = io.stdin:read(16384)
+  data = string.sub(data,1,#data - #boundary - 4)
+  if data:match("^\239\187\191") then data = data:sub(4) end
+  
+  data = string.gsub(data,"\r\n","\n") -- Windows -> Unix
+  data = string.gsub(data,"\r","\n") -- MAC -> Unix
+  
+  -- if data:match("^TITLE,REQUEST,PIDS,PROTO,IP,PORT,TTL,LANPORTS") then
+  if data:match("^TITLE,REQUEST,PIDS,LANPORTS") or data:match("^TITLE,REQUEST,PIDS,PROTO,IP,PORT,TTL,LANPORTS") then
+    file = io.open("/config/mcsetup.csv","w")
+    if file then 
+      file:write(data)
+      file:close()
+      os.execute('echo "1" >/tmp/mc.tmp;mv -f /tmp/mc.tmp /tmp/mc.signal');
+    end
+  end
+  
+  http_print(proto.." 303")
+  http_print("Location: http://"..host.."/multicast.html")
+  http_print()
+  
+else
+  SendError("500","What")  
+end

octoserve/var/www/multicast.html

@@ -116,7 +116,7 @@ function WriteMCTable()
              Select Sample
             </td>
             <td>
-              <form action="multicast.lua" method="get">
+              <form action="mcconfig.lua" method="get">
                 <select name="name" size="1"  style="width: 300px">
                   <option value="astra19e">Astra 19.2</option>
                   <option value="kabelbw">Kabel BW</option>
@@ -132,7 +132,7 @@ function WriteMCTable()
           </tr>
           </tr>
             <td colspan="2">
-              <form action="multicast.lua" method="post" enctype="multipart/form-data">
+              <form action="mcconfig.lua" method="post" enctype="multipart/form-data">
                 <input type="file" name="filename" value="*.csv" size="30" accept="text/csv">
                 <input type="submit" value="Upload & Enable">
               </form>
@@ -142,7 +142,7 @@ function WriteMCTable()
           </tr>
           <tr>
             <td colspan="2">
-              <form action="multicast.lua" method="get">
+              <form action="mcconfig.lua" method="get">
                 <input type="submit" value="Disable" ></input>
                 <input type="hidden" name="select" value="disable" ></input>
               </form>

octoserve/var/www/multicast.lua

@@ -124,17 +124,6 @@ if method == "GET" then
     path = "m3u"
     disposition = "mclist.m3u"
     subtype = "m3u"
-  elseif string.match(query,"select=copy") then
-    local name = string.match(query,"name=(%w+)")
-    if name then
-      path = "/var/mcsetup/"..name..".csv"
-      disposition = "copy"
-    else
-      SendError("404","Request Error")
-      return
-    end
-  elseif string.match(query,"select=disable") then
-    disposition = "disable"
   end
 
   if disposition == "disable" then
@@ -178,46 +167,6 @@ if method == "GET" then
   else
     SendError("404",disposition.." not found")
   end
-
-elseif method == "POST" and clength and ctype then
-
-  if not string.match(ctype,"multipart/form%-data") then
-    SendError("404","??")
-    return
-  end
-
-  local boundary = string.match(ctype,"boundary=(.*)") 
-  if not boundary then
-    SendError("404","???")
-    return
-  end
-
-  while true do
-    local line = io.stdin:read()
-    line = string.gsub(line,"\r","")
-    if line == "" then break end
-  end
-
-  data = io.stdin:read(16384)
-  data = string.sub(data,1,#data - #boundary - 4)
-  if data:match("^\239\187\191") then data = data:sub(4) end
-  
-  data = string.gsub(data,"\r\n","\n") -- Windows -> Unix
-  data = string.gsub(data,"\r","\n") -- MAC -> Unix
-  
-  -- if data:match("^TITLE,REQUEST,PIDS,PROTO,IP,PORT,TTL,LANPORTS") then
-  if data:match("^TITLE,REQUEST,PIDS,LANPORTS") or data:match("^TITLE,REQUEST,PIDS,PROTO,IP,PORT,TTL,LANPORTS") then
-    file = io.open("/config/mcsetup.csv","w")
-    if file then 
-      file:write(data)
-      file:close()
-      os.execute('echo "1" >/tmp/mc.tmp;mv -f /tmp/mc.tmp /tmp/mc.signal');
-    end
-  end
-  
-  http_print(proto.." 303")
-  http_print("Location: http://"..host.."/multicast.html")
-  http_print()
   
 else
   SendError("500","What")