1
0
mirror of https://github.com/j-a-n/raspberrymatic-addon-rmupdate.git synced 2023-10-10 13:37:40 +02:00
raspberrymatic-addon-rmupdate/addon/www/rest.cgi

170 lines
5.6 KiB
Plaintext
Raw Normal View History

2017-03-24 19:57:23 +01:00
#!/bin/tclsh
# RaspMatic update addon
#
2018-02-26 22:52:33 +01:00
# Copyright (C) 2018 Jan Schneider <oss@janschneider.net>
2017-03-24 19:57:23 +01:00
#
# 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/>.
2018-02-07 23:17:34 +01:00
#lappend auto_path /www
#set env(TCLLIBPATH) [list /www /usr/local/addons/rmupdate/lib]
#source once.tcl
#source session.tcl
2017-03-24 19:57:23 +01:00
source /usr/local/addons/rmupdate/lib/rmupdate.tcl
proc process {} {
global env
if { [info exists env(QUERY_STRING)] } {
set query $env(QUERY_STRING)
2018-01-29 00:04:12 +01:00
set path [split $query {/}]
set plen [expr [llength $path] - 1]
if {[lindex $path 1] == "install_addon_archive"} {
set archive_file "/tmp/uploaded_addon.tar.gz"
catch {fconfigure stdin -translation binary}
catch {fconfigure stdin -encoding binary}
set out [open $archive_file w]
catch {fconfigure $out -translation binary}
catch {fconfigure $out -encoding binary}
puts -nonewline $out [read stdin]
close $out
set res [rmupdate::install_addon "" "file://${archive_file}"]
return "\"${res}\""
}
2017-03-24 19:57:23 +01:00
set data ""
if { [info exists env(CONTENT_LENGTH)] } {
set data [read stdin $env(CONTENT_LENGTH)]
}
if {[lindex $path 1] == "version"} {
return "\"[rmupdate::version]\""
2017-03-25 01:45:39 +01:00
} elseif {[lindex $path 1] == "get_firmware_info"} {
return [rmupdate::get_firmware_info]
} elseif {[lindex $path 1] == "get_system_info"} {
2018-01-27 09:10:10 +01:00
set system_type [rmupdate::get_rpi_version]
2018-02-26 22:52:33 +01:00
return "\{\"system_type\":\"${system_type}\"\}"
} elseif {[lindex $path 1] == "get_partitions"} {
return [array_to_json [rmupdate::get_partitions]]
2018-02-08 22:53:02 +01:00
} elseif {[lindex $path 1] == "system_reboot"} {
exec /sbin/reboot
return "\"reboot initiated\""
} elseif {[lindex $path 1] == "system_shutdown"} {
2018-02-11 19:07:21 +01:00
exec /sbin/poweroff
2018-02-08 22:53:02 +01:00
return "\"shutdown initiated\""
} elseif {[lindex $path 1] == "get_addon_info"} {
return [rmupdate::get_addon_info 1 1 1]
2017-03-26 00:26:39 +01:00
} elseif {[lindex $path 1] == "start_install_firmware"} {
2017-03-26 20:25:01 +02:00
regexp {\"version\"\s*:\s*\"([\d\.]+)\"} $data match version
2018-01-23 00:34:09 +01:00
regexp {\"language\"\s*:\s*\"([^\"]+)\"} $data match lang
2017-03-26 20:25:01 +02:00
regexp {\"reboot\"\s*:\s*(true|false)} $data match reboot
2017-06-16 22:18:28 +02:00
regexp {\"dryrun\"\s*:\s*(true|false)} $data match dryrun
regexp {\"keep_download\"\s*:\s*(true|false)} $data match keep_download
2017-03-26 00:26:39 +01:00
if { [info exists version] && $version != "" } {
2017-03-26 20:25:01 +02:00
if { ![info exists reboot] } {
set reboot "true"
}
if {$reboot == "true"} {
set reboot 1
} else {
set reboot 0
}
if { ![info exists dryrun] } {
2017-06-16 22:18:28 +02:00
set dryrun "false"
}
if {$dryrun == "true"} {
set dryrun 1
} else {
set dryrun 0
}
if { ![info exists keep_download] } {
set keep_download "false"
}
if {$keep_download == "true"} {
set keep_download 1
} else {
set keep_download 0
}
return "\"[rmupdate::install_firmware_version $version $lang $reboot $keep_download $dryrun]\""
2017-03-26 00:26:39 +01:00
} else {
error "Invalid version: ${data}"
}
2018-01-21 01:47:07 +01:00
} elseif {[lindex $path 1] == "install_addon"} {
regexp {\"addon_id\"\s*:\s*\"([^\"]+)\"} $data match addon_id
if { ![info exists addon_id] } {
set addon_id ""
}
regexp {\"download_url\"\s*:\s*\"([^\"]+)\"} $data match download_url
if { ![info exists download_url] } {
set download_url ""
}
return "\"[rmupdate::install_addon $addon_id $download_url]\""
} elseif {[lindex $path 1] == "uninstall_addon"} {
2018-01-21 01:47:07 +01:00
regexp {\"addon_id\"\s*:\s*\"([^\"]+)\"} $data match addon_id
if { [info exists addon_id] && $addon_id != "" } {
return "\"[rmupdate::uninstall_addon $addon_id]\""
2018-01-21 01:47:07 +01:00
} else {
error "Invalid addon_id: ${addon_id}"
}
2017-03-26 20:25:01 +02:00
} elseif {[lindex $path 1] == "delete_firmware_image"} {
regexp {\"version\"\s*:\s*\"([\d\.]+)\"} $data match version
if { [info exists version] && $version != "" } {
return "\"[rmupdate::delete_firmware_image $version]\""
2017-03-26 20:25:01 +02:00
} else {
error "Invalid version: ${data}"
}
} elseif {[lindex $path 1] == "is_system_upgradeable"} {
if {[rmupdate::is_system_upgradeable]} {
return "true"
} else {
return "false"
}
} elseif {[lindex $path 1] == "get_running_installation"} {
return "\"[rmupdate::get_running_installation]\""
2017-03-26 00:26:39 +01:00
} elseif {[lindex $path 1] == "read_install_log"} {
variable content_type "text/html"
return [rmupdate::read_install_log]
2018-02-07 23:17:34 +01:00
} elseif {[lindex $path 1] == "wlan_scan"} {
return [rmupdate::wlan_scan 1]
2018-02-08 22:38:33 +01:00
} elseif {[lindex $path 1] == "wlan_connect"} {
regexp {\"ssid\"\s*:\s*\"([^\"]+)\"} $data match ssid
set password ""
regexp {\"password\"\s*:\s*\"([^\"]+)\"} $data match password
return [rmupdate::wlan_connect $ssid $password]
} elseif {[lindex $path 1] == "wlan_disconnect"} {
return [rmupdate::wlan_disconnect]
2017-03-24 19:57:23 +01:00
}
}
error "invalid request" "Not found" 404
}
2017-03-26 00:26:39 +01:00
variable content_type "application/json"
2017-03-24 19:57:23 +01:00
if [catch {process} result] {
set status 500
if { [info exists $errorCode] } {
set status $errorCode
}
2017-03-26 00:26:39 +01:00
puts "Content-Type: ${content_type}"
2017-03-24 19:57:23 +01:00
puts "Status: $status";
puts ""
set result [json_string $result]
puts -nonewline "\{\"error\":\"${result}\"\}"
2017-03-26 00:26:39 +01:00
} else {
puts "Content-Type: ${content_type}"
2017-03-24 19:57:23 +01:00
puts "Status: 200 OK";
puts ""
puts -nonewline $result
}