#!/usr/bin/env tclsh8.4

proc main {argc argv} {
 if {$argc < 1} {
  puts stderr "syntax is: [info script] file"
  return 1
 }

 set dir [file normalize .]
 set remote_dir [string range $dir [string first public_html $dir] end]

 puts REMOTE:$remote_dir

 set fd [open _script_ w]
 
 # Prefix the mkdir with - to avoid termination if it already exists.
 puts $fd "-mkdir -p $remote_dir"
 puts $fd "cd $remote_dir"

 foreach f $argv {
  puts "PUT $f"
  puts $fd "put $f\nls -l $f"
 }
 
 puts $fd quit

 close $fd

 if {[catch {exec sftp -b _script_ georgeps@xmission.com} r] && $::errorCode ne "NONE"} {
  puts stderr ERRORCODE:$::errorCode
  puts stderr ERROR:$r
  return 1
 }
 puts $r 

 file delete _script_

 return 0
}
exit [main $::argc $::argv]