|
|
|
@ -49,6 +49,9 @@ proc print_usage {argv0} {
|
|
|
|
|
puts stderr " --silent_start"
|
|
|
|
|
puts stderr " Do not issue the start message xorriso-tcltk-version."
|
|
|
|
|
puts stderr " This works only if --silent_start is the first argument."
|
|
|
|
|
puts stderr " --no_extract"
|
|
|
|
|
puts stderr " Do not allow extraction of files from ISO filesystem to"
|
|
|
|
|
puts stderr " hard disk. This is not revokable during the program run."
|
|
|
|
|
puts stderr " --no_bwidget"
|
|
|
|
|
puts stderr " Do not try to load the Tcl/Tk package BWidget which is"
|
|
|
|
|
puts stderr " a prerequisite for the \"/\" file browser buttons."
|
|
|
|
@ -200,7 +203,7 @@ set execute_script_conn ""
|
|
|
|
|
# Whether extraction to disk shall be allowed in scripts
|
|
|
|
|
set script_with_osirrox 0
|
|
|
|
|
|
|
|
|
|
# Whether extraction to disk is currently allowed
|
|
|
|
|
# Whether extraction to disk is allowed
|
|
|
|
|
set osirrox_allowed 1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -835,6 +838,8 @@ proc check_xorriso_version {} {
|
|
|
|
|
# is expected by this frontend.
|
|
|
|
|
#
|
|
|
|
|
proc setup_xorriso {} {
|
|
|
|
|
global osirrox_allowed
|
|
|
|
|
|
|
|
|
|
set cmd ""
|
|
|
|
|
|
|
|
|
|
# Invalidate possible -mark 1
|
|
|
|
@ -859,6 +864,10 @@ proc setup_xorriso {} {
|
|
|
|
|
set cmd "$cmd -iso_rr_pattern off"
|
|
|
|
|
set cmd "$cmd -disk_pattern off"
|
|
|
|
|
|
|
|
|
|
if {$osirrox_allowed == 0} {
|
|
|
|
|
set cmd "$cmd -osirrox banned"
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
set cmd "$cmd [xorriso_loggable_init_cmds]"
|
|
|
|
|
|
|
|
|
|
send_marked_cmd $cmd
|
|
|
|
@ -2431,6 +2440,10 @@ proc osirrox_banned {} {
|
|
|
|
|
|
|
|
|
|
send_loggable_cmd "-osirrox banned"
|
|
|
|
|
set osirrox_allowed 0
|
|
|
|
|
|
|
|
|
|
set m ".script_log.menu"
|
|
|
|
|
$m entryconfigure "Allow extract to disk" -state "disabled"
|
|
|
|
|
$m entryconfigure "Permanently ban extraction" -state "disabled"
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -3536,10 +3549,13 @@ proc init_gui {} {
|
|
|
|
|
#
|
|
|
|
|
proc init_input {} {
|
|
|
|
|
global borderwidth busy_text_exists xorriso_version debug_logging
|
|
|
|
|
global cmd_logging_mode cmd_log_target
|
|
|
|
|
global cmd_logging_mode cmd_log_target osirrox_allowed
|
|
|
|
|
global .input .input_line1 .xorriso_version .busy .busy_text
|
|
|
|
|
global .refresh_state .end_button .cmdline .log_pipes_switch
|
|
|
|
|
|
|
|
|
|
set extract_state "normal"
|
|
|
|
|
if {$osirrox_allowed == 0} {set extract_state "disabled"}
|
|
|
|
|
|
|
|
|
|
frame .input -borderwidth $borderwidth
|
|
|
|
|
frame .input_line1 -borderwidth 0
|
|
|
|
|
pack .input_line1 -in .input \
|
|
|
|
@ -3588,11 +3604,13 @@ proc init_input {} {
|
|
|
|
|
$m add command -label "Execute command script" \
|
|
|
|
|
-command "start_script_execution"
|
|
|
|
|
$m add checkbutton -label "Allow extract to disk" \
|
|
|
|
|
-state $extract_state \
|
|
|
|
|
-indicatoron 1 -selectcolor "" \
|
|
|
|
|
-variable script_with_osirrox \
|
|
|
|
|
-onvalue 1 -offvalue 0
|
|
|
|
|
$m add separator
|
|
|
|
|
$m add command -label "Permanently ban extraction" \
|
|
|
|
|
-state $extract_state \
|
|
|
|
|
-command "osirrox_banned"
|
|
|
|
|
|
|
|
|
|
button .help -text "Help" -command {window_help "Help" "grey"} \
|
|
|
|
@ -5802,6 +5820,7 @@ proc unescape_string {text} {
|
|
|
|
|
proc setup_by_args {argv0 argv} {
|
|
|
|
|
global cmd_pipe_adr reply_pipe_adr main_window_geometry click_to_focus
|
|
|
|
|
global have_bwidget cmd_conn reply_conn geometry stdout stdin
|
|
|
|
|
global osirrox_allowed
|
|
|
|
|
|
|
|
|
|
# wish normally eats the -geometry option and puts the result into $geometry
|
|
|
|
|
catch {set main_window_geometry $geometry}
|
|
|
|
@ -5867,6 +5886,10 @@ proc setup_by_args {argv0 argv} {
|
|
|
|
|
# postpone actual log start until start_xorriso has been passed
|
|
|
|
|
set script_logging 1
|
|
|
|
|
}
|
|
|
|
|
if {$opt == "--no_extract"} {
|
|
|
|
|
set ok "1"
|
|
|
|
|
set osirrox_allowed 0
|
|
|
|
|
}
|
|
|
|
|
if {$opt == "--no_bwidget"} {
|
|
|
|
|
set ok "1"
|
|
|
|
|
set have_bwidget "-1"
|
|
|
|
|