add www

addon/www/rest.cgi

@@ -0,0 +1,69 @@
+#!/bin/tclsh
+
+#  RaspMatic update addon
+#
+#  Copyright (C) 2017  Jan Schneider <oss@janschneider.net>
+#
+#  This program is free software: you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation, either version 3 of the License, or
+#  (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+source /usr/local/addons/rmupdate/lib/rmupdate.tcl
+
+proc json_string {str} {
+	set replace_map {
+		"\"" "\\\""
+		"\\" "\\\\"
+		"\b"  "\\b"
+		"\f"  "\\f"
+		"\n"  "\\n"
+		"\r"  "\\r"
+		"\t"  "\\t"
+	}
+	return "[string map $replace_map $str]"
+}
+
+proc process {} {
+	global env
+	if { [info exists env(QUERY_STRING)] } {
+		set query $env(QUERY_STRING)
+		set data ""
+		if { [info exists env(CONTENT_LENGTH)] } {
+			set data [read stdin $env(CONTENT_LENGTH)]
+		}
+		set path [split $query {/}]
+		set plen [expr [llength $path] - 1]
+		
+		if {[lindex $path 1] == "version"} {
+			return "\"[rmupdate::version]\""
+		} elseif {[lindex $path 1] == "xy"} {
+		}
+	}
+	error "invalid request" "Not found" 404
+}
+
+if [catch {process} result] {
+	set status 500
+	if { [info exists $errorCode] } {
+		set status $errorCode
+	}
+	puts "Content-Type: application/json"
+	puts "Status: $status";
+	puts ""
+	set result [json_string $result]
+	puts -nonewline "\{\"error\":\"${result}\"\}"
+} else {
+	puts "Content-Type: application/json"
+	puts "Status: 200 OK";
+	puts ""
+	puts -nonewline $result
+}