variable compat "2.1.b3"
#----------------------------------------------------------------------------#
#   menus.itcl -- Maintain TWP menu groupings and sequence                   #
#----------------------------------------------------------------------------#
register_module "menus" "MenuEditor" "Maintain TivoWebPlus menu groupings and sequence"

# MAIN ROUTINE
######################
proc action_menus {chan path env} {
  global hookA

  set submit ""
  set dnd_modlist ""
  eval_env

  puts $chan [html_start "TWP Menu Editor"][form -name f /menus]
  #~ puts $chan [html_form_start "POST" "/menus" "name='f'"]

  switch -glob $submit {
#######################
    # Display current menus and draggable lists of menu items for update
    "" - "Continue*" {
      #~ puts $chan "<style type='text\/css'>#dragrow td {vertical-align:top} .dragUL {min-height:12em}<\/style>"
      puts $chan [html_table_start "id='dragtable'" "" ""]

      puts $chan "<tr><th>[html_form_checkbox menusort $::dyncfg(menusort)] AutoSort</th><th colspan=99>TivoWebPlus Menu Editor</th></tr>"

      #~ set lrow "<tr><td><small><small>Labels:</small></small></td>"
      #~ set trow "</tr><tr><td><small><small>Desc:</small></small></td>"
      #~ set menrow "<tr id='dragrow'><td><small><small>Items:</small></small></td>"
      foreach {var lab} {lrow Labels trow Desc menrow Items} {
        set $var "<small><small>$lab:</small></small>"
      }
      set n -1
      foreach f $::dyncfg(menus) {
        incr n
        foreach {short long modlist} $f break
        lappend lrow [html_form_text 1 10 Label$n $short]
        lappend trow [html_form_text 1 16 Text$n $long]
        set tmp "<ul id='grp$n' class='dragUL'>\n"
        foreach u $::folds($n) {
          foreach {text l u2} [split $u |] break
          if [string match {f[0-9]} $u2] continue
          set url [string range $u2 1 end]
          regsub -all -nocase {[^A-Z0-9]} $text {} cleantext
          append tmp "  <li id='id_$cleantext|$url'>$text</li>\n"
        }
        lappend menrow $tmp</ul>
      }
      # write out label, text, and menu rows
      puts $chan "[row -multi 1 $lrow][row -multi 1 $trow][row -id dragrow -multi 1 $menrow]"
      # write out footer buttons
      puts $chan "<tr><td><small><small>Actions:</small></small></td><td colspan=99>
        [html_form_input "button" "sortLists" "Sort by Alpha" {onClick="SortLists()"}]&nbsp;&nbsp;
        [html_form_input "submit" "submit" "Reset to Defaults" {onClick="return confirm('Reset all menus and labels to defaults?')"}]&nbsp;&nbsp;
        [html_form_input "submit" "submit" "Export to File"]&nbsp;&nbsp;"
      if {[file exists $::data_dir/config/menus.cfg]} {
        puts $chan [html_form_input "submit" "submit" "Import from File"]
        puts $chan "&nbsp;&nbsp;"
      }
      puts $chan [html_form_input "button" "addGroup" "Add New Group" {onClick="AddGroup()"}]
      puts $chan "</td></tr></table>"
      puts $chan [html_form_input "submit" "submit" "Save Changes to Menus" {onClick="return calcLists()"}]
      puts $chan [html_form_hidden "dnd_modlist" ""]
      puts $chan [html_form_input "submit" "submit" "Continue (lose changes)"]
      puts $chan <br>[bodytext "Modify labels and drag menu items to resequence and change groupings." ]
      #~ puts $chan [js prototype]
      js prototype
      #~ puts $chan "<script type='text\/javascript' src='scriptaculous.js?load=effects,dragdrop'></script>"
      js "scriptaculous.js?load=effects,dragdrop"
      js menuedit
      #~ puts $chan [js menuedit]

      # only change cursor after page has completely loaded.
      puts $chan "<style type='text\/css'>#dragrow li {cursor:move}<\/style>"
    }

#######################
    "Save Changes*" {
       puts $chan [bodytext ">Saving Changes to Menus<"]<hr>
       #skip processing if modlist not returned (e.g. javascript problem)
       if {$dnd_modlist == ""} {
        #~ puts $chan [bodytext "Modlist not passed.  Menu settings NOT changed"]<br>
        #~ return
        throw "Modlist not passed.  Menu settings NOT changed"
      }
       #make sure invisible and mainmenu groups exist (even if empty)
       set grp(0) {}
       set grp(1) {}
       #convert syntax returned from javascript objects to tcl
       foreach {k v} [parse_post $dnd_modlist] {
         set k [string trim $k \{\}\[\]]
         set v [lindex [split $v |] 1]
         if [PrefixMatches grp $k] {
          lappend grp([string range $k 3 end]) $v
          } else { lappend $k $v }
       }
       #keep 1st 2 labels consistent (to limit confusion)
       set Label0 "Main"
       set Label1 "Invisible"
       #don't leave any labels blank
       foreach v [info vars Label*] {
         if {[set $v]==""} {set $v "-"}
       }

       # put returned values into folders variable
       set folders {}
       foreach n [lsort [array names grp]] {
         #~ set n [string range $v 3 end]
         #~ puts $n=[info exists grp$n]
         lappend folders [list [set Label$n] [set Text$n] $grp($n)]
       }

      # Save menu data to dyncfg.cfg
      #~ if [catch {
        set ::dyncfg(menus) $folders
        set ::dyncfg(menusort) [info exists menusort]
        puts $chan [bodytext "Menu settings successfully changed: $folders"]<br>
      #~ } errs] {
        #~ if {$::errorCode==1} {
          #~ puts $chan "<b>$errs</b><p>"
        #~ } else { error $errs $::errorInfo $::errorCode }
        #~ print_html_error $chan $errs
      #~ }
      make_menu
      puts $chan [html_form_input "submit" "submit" "Continue"]
    }

#######################
    "Export to File" {
      puts $chan [bodytext "Exporting Menu Settings to file $::data_dir/config/menus.cfg"]<hr>
      set menufile [open "$::data_dir/config/menus.cfg" w]
      puts $menufile "# This file contains menu settings data"
      puts $menufile "set ::dyncfg(menus) \{$::dyncfg(menus)\}"
      close $menufile
      puts $chan [bodytext "Menu settings successfully exported"]<br>
      puts $chan [html_form_input "submit" "submit" "Continue"]
    }

#######################
    "Import from File" {
      puts $chan [bodytext "Importing Menu Settings from file $::data_dir/config/menus.cfg"]<hr>
      catch {
        source $::data_dir/config/menus.cfg
        #~ saveConfig dyncfg "array set ::dyncfg \{\n[array get ::dyncfg]\n\}"
        puts $chan [bodytext "Menu settings successfully imported"]<br>
      } error
      if {$error != ""} {
        puts $chan [bodytext $error]
      }
      make_menu
      puts $chan [html_form_input "submit" "submit" "Continue"]
    }

#######################
    "Reset to Defaults" {
      puts $chan [bodytext "Resetting menus"]<hr>
      unset ::dyncfg(menus)
      saveConfig dyncfg "array set ::dyncfg \{\n[array get ::dyncfg]\n\}"
      loadConfig dyncfg 1
      make_menu
      puts $chan [bodytext "Menu settings successfully reset to defaults"]<br>
      puts $chan [html_form_input "submit" "submit" "Continue"]
    }
  }

  puts $chan [html_form_end]
}