Posted to tcl by mjanssen at Wed Oct 22 21:10:23 GMT 2008view pretty

set config_options {create_version video_player video_device frequency_table video_bitrate_high osd_enabled videoplayer_options temporal_filter video_standard_v4l2 video_standard_scantv mixer_channel update_daemon_enabled}

set option(video_player) Kaffeine
set option(frequency_table) europe-west
set option(video_bitrate)_high 0
set option(video_device) /dev/video0
set option(osd_enabled) 1
set option(videoplayer_options) "-m"
set option(temporal_filter) 0
set option(video_standard_v4l2) 0x000000000000000F
set option(video_standard_scantv) PAL-BGH
set option(mixer_channel) ""
set option(update_daemon_enabled) 1

if {[file exists "$::env(HOME)/Projekte/TV-Viewer/grundlagen/testconfigfile"]} {
	puts "
Found a config file,
reading values..."
	set open_config_file [open "$::env(HOME)/Projekte/TV-Viewer/grundlagen/testconfigfile" r]
	array set options [read $open_config_file]
        close $open_config_file
parray options

Configfile:

video_bitrate_high 1
.
.
. 
videoplayer_options {-m -k -l}