raspberrymatic-addon-rmupdate/addon/rmupdate.tcl

#!/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 usage {} {
	global argv0
	puts stderr ""
	puts stderr "usage: ${argv0} <module> <command>"
	puts stderr ""
	puts stderr "possible commands:"
	puts stderr "  firmware list                 : list available firmwares"
	puts stderr "  firmware show_current         : show current firmware version"
	puts stderr "  firmware show_latest          : show latest available firmware version"
	puts stderr "  firmware install_latest       : install latest available firmware version"
	puts stderr "  firmware install <version>    : install firmware VERSION"
	puts stderr "  addons list                   : list installed addons and versions"
	puts stderr "  system clone <target-device>  : clone system to TARGET-DEVICE"
}

proc main {} {
	global argc
	global argv
	
	set mod [string tolower [lindex $argv 0]]
	set cmd [string tolower [lindex $argv 1]]
	
	if {$mod == "firmware"} {
		if {$cmd == "list"} {
			foreach e [rmupdate::get_available_firmware_downloads] {
				set version [rmupdate::get_version_from_filename $e]
				puts $version
			}
		} elseif {$cmd == "show_current"} {
			puts [rmupdate::get_current_firmware_version]
		} elseif {$cmd == "show_latest"} {
			puts [rmupdate::get_latest_firmware_version]
		} elseif {$cmd == "install_latest"} {
			rmupdate::install_firmware_version [rmupdate::get_latest_firmware_version]
		} elseif {$cmd == "install"} {
			if {$argc < 2} {
				usage
				exit 1
			}
			rmupdate::install_firmware_version [lindex $argv 1]
		} else {
			usage
			exit 1
		}
	} elseif {$mod == "addons"} {
		if {$cmd == "list"} {
			array set addons [rmupdate::get_addon_info]
			set keys [array names addons]
			set keys [lsort $keys]
			foreach key $keys {
				set tmp [split $key "::"]
				set addon_id [lindex $tmp 0]
				set opt [lindex $tmp 2]
				if {$opt == "version"} {
					puts "${addon_id}: $addons($key)"
				}
			}
		} else {
			usage
			exit 1
		}
	} elseif {$mod == "system"} {
		if {$cmd == "clone"} {
			set target_device [lindex $argv 2]
			rmupdate::clone_system $target_device 1
			puts "System cloned to ${target_device}, shutting down"
			exec /sbin/poweroff
		}
		
	} else {
		usage
		exit 1
	}
}

if { [ catch {
	main
} err ] } {
	puts stderr "ERROR: $err"
	exit 1
}
exit 0