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

  1. 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}
  2.  
  3. set option(video_player) Kaffeine
  4. set option(frequency_table) europe-west
  5. set option(video_bitrate)_high 0
  6. set option(video_device) /dev/video0
  7. set option(osd_enabled) 1
  8. set option(videoplayer_options) "-m"
  9. set option(temporal_filter) 0
  10. set option(video_standard_v4l2) 0x000000000000000F
  11. set option(video_standard_scantv) PAL-BGH
  12. set option(mixer_channel) ""
  13. set option(update_daemon_enabled) 1
  14.  
  15. if {[file exists "$::env(HOME)/Projekte/TV-Viewer/grundlagen/testconfigfile"]} {
  16. puts "
  17. Found a config file,
  18. reading values..."
  19. set open_config_file [open "$::env(HOME)/Projekte/TV-Viewer/grundlagen/testconfigfile" r]
  20. array set options [read $open_config_file]
  21. close $open_config_file
  22. parray options
  23.  
  24. Configfile:
  25.  
  26. video_bitrate_high 1
  27. .
  28. .
  29. .
  30. videoplayer_options {-m -k -l}
  31.