53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
|
|
if {[cgi_get act] eq "xtelnet"} {
|
|
set val [cgi_get val off]
|
|
if {$val in {0 off}} {
|
|
file delete /mod/boot/xtelnet
|
|
puts "Telnet server expert mode will be disabled after next reboot."
|
|
} else {
|
|
exec /mod/bin/busybox/touch /mod/boot/xtelnet
|
|
puts "Telnet server expert mode will be enabled after next reboot."
|
|
}
|
|
exit
|
|
}
|
|
|
|
if {[cgi_get act] eq "cryptokey"} {
|
|
set val [cgi_get cryptokey ""]
|
|
if {[string length "$val"] == 0} {
|
|
set val [system encryptionkey]
|
|
puts "Using native encryption key.<br>"
|
|
} elseif {[string length $val] != 32} {
|
|
puts "Encryption key is too short."
|
|
exit
|
|
}
|
|
file write "/mod/boot/cryptokey" [binary format H* $val]
|
|
system nugget cryptokey -init
|
|
puts "Installed new encryption key."
|
|
exit
|
|
}
|
|
|
|
set pkgdev [$settings pkgdev]
|
|
set rtschedule [$settings rtschedule]
|
|
set noautoremove [$settings noautoremove]
|
|
set logsize [$settings logsize]
|
|
set logkeep [$settings logkeep]
|
|
set logage [$settings logage]
|
|
|
|
set cryptokey [system encryptionkey]
|
|
if {![catch {set ck_fd [open "/mod/boot/cryptokey"]}]} {
|
|
set ck_bytes [$ck_fd read 16]
|
|
$ck_fd close
|
|
binary scan $ck_bytes H* ck_key
|
|
if {[string length $ck_key] == 32} {
|
|
set cryptokey $ck_key
|
|
}
|
|
}
|
|
|
|
handle_int_update pkgdev $pkgdev "Development Package Display"
|
|
handle_int_update rtschedule $rtschedule "Real-time scheduling"
|
|
handle_int_update noautoremove $noautoremove "Package auto-remove"
|
|
handle_int_update logsize $logsize "Log rotation size"
|
|
handle_int_update logkeep $logkeep "Logs to keep"
|
|
handle_int_update logage $logage "Rotated log max age"
|
|
|