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}