# $Id: theme.itcl,v 1.3.6.3 2002/09/20 23:00:46 lightn Exp $

proc action_theme {chan path env} {
  global source_dir
  if {[string index $path 0] == "/"} {
    set path [string range $path 1 end]
    if { $path != "" } {
      set TT_HTTPD::STYLE $path
    }
  }

  set ::theme_list ""
  foreach filename [glob -nocomplain $source_dir/*css] {
    set filename [file rootname [file tail $filename]]
    lappend ::theme_list $filename
  }

  puts $chan [html_start "Theme Browser"]
  puts $chan [html_table_start "" "" ""]
  puts $chan [tr "" [th "" "THEMES"]]

  foreach filename $::theme_list {
    puts $chan [tr "" [td [html_link $filename $filename]]]
  }
  puts $chan [html_table_end]
  puts $chan "<p><font size=2>If you'd like to use this theme as the default the next<br>time tivoweb is started then edit your tivoweb.cfg</font>"
  puts $chan [html_end]
}

global theme_list
set theme_list ""
foreach filename [glob -nocomplain $source_dir/*css] {
  set filename [file rootname [file tail $filename]]
  lappend theme_list $filename
}

register_module "theme" "Theme" "Change the look of this site"