# $Id: theme.itcl,v 1.2 2005/08/03 06:02:46 davidlallen Exp $
# Updated to save to update the confguration file

proc action_gallery {chan path env} {
  global source_dir
  if {[string index $path 0] == "/"} {
    set parsedPath [split $path {/}]
    set fsid [lindex $parsedPath 1]
    if { $fsid == "import" } {
      puts $chan [html_start "JPG Imported"]
      gallery_import $chan [join [lrange $parsedPath 2 end] {/}] $env
      puts $chan [html_end]
      return
    }
  }

  set style {   <style type="text/css">
   div#minipics ul{list-style-type: none;margin:0 15px;padding:0}
   div#minipics li{float: left;height: 120px;margin: 10px 10px 10px 0;background-color: #FFF;-moz-border-radius: 1em; text-align:center}
   div#minipics li img{display: block;height: 100px;margin:10px 10px;border: 0px}
   div#minipics li a:before, li a:after {content: ""}
   </style>}
  puts $chan [html_start "Gallery Browser" "" $style]
  puts $chan {<div id="minipics"><ul>}
  foreach filename [glob -nocomplain $source_dir/images/Gallery/*] {
    set fn [file tail $filename]
    puts $chan "<li>[html_link "/img/$fn" [img "" "$fn"]]</li>"
  }
  puts $chan "</ul></div>"
  puts $chan "<br clear=\"left\"><br>"
  puts $chan [html_link "/gallery/import" "Load a new image"]
  puts $chan [html_end]
}

proc gallery_import {chan path env} {
  global source_dir

  set submit ""
  eval $env

  if {$submit == "Import"} {
    if {$file == ""} {
      puts $chan "<B>Error: No File Specified</B>"
    } else {
      set filepath "$source_dir/uploads/$file"
      if { [catch { set fsize [file size $filepath] }] == 1} {
        puts $chan "<B>Error Opening File</B>"
      } elseif {[string tolower [file extension $filepath]] != ".jpg"} {
        puts $chan "<B>Error: File must end in .jpg</B>"
        file delete $filepath
      } elseif {$fsize == 0} {
        puts $chan "<B>Error: File Empty</B>"
        file delete $filepath
      } else {
        if {[file extension $filepath] == ".JPG"} {
          set oldpath $filepath
          set filepath "[file rootname $oldpath].jpg"
          if {[catch {file rename $oldpath $filepath}]} {
            puts $chan "<B>Error Renaming File</B><P>"
            file delete $oldpath
          }
        }
        if { [catch {file rename $filepath "$source_dir/images/Gallery"}] == 1} {
          puts $chan "<B>Error Moving File</B><P>"
          file delete $filepath
        } else {
          puts $chan "<B>Successfully Loaded Image</B><P>"
        }
      }
    }
  } else {
    puts $chan [html_form_start "POST" "/gallery/import/" "enctype='multipart/form-data'"]
    puts $chan "<font size=2>Images must be in JPEG format with a .jpg extension.</font><br>"
    puts $chan [html_table_start "" "" ""]
    puts $chan [tr "" [td "Image File"] [td [html_form_input {file" accept="image/jpeg" size="48} "file" ""]]]
    puts $chan [html_table_end]
    puts $chan [html_form_input "submit" "submit" "Import"]
    puts $chan [html_form_end]
  }
  puts $chan "<br>"
  puts $chan [html_link "/gallery" "Back to Gallery"]
}

register_module "gallery" "Gallery" "View the image gallery"