#!/bin/sh
# -*- mode: Tcl -*-
#
# @package      hubzero-filexfer
# @file         filexfer
# @copyright    Copyright (c) 2004-2020 The Regents of the University of California.
# @license      http://opensource.org/licenses/MIT MIT
#
# Copyright (c) 2004-2020 The Regents of the University of California.
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
#
# HUBzero is a registered trademark of The Regents of the University of California.
#
# ----------------------------------------------------------------------
#\
. /etc/environ.sh
#\
use -e -r rappture
#\
exec wish "$0" ${1+"$@"}
# ----------------------------------------------------------------------
# tclsh executes everything from here on...

wm withdraw .
proc RecursiveCopy { src dest } {
   set tail [file tail $src]
   if { [file isdirectory $src] } {
       set subdir [file join $dest $tail]
       file mkdir $subdir
       foreach item [glob -nocomplain $src/*] {
          RecursiveCopy $item $subdir
       }
   } else {
       set file [file join $dest $tail]
       file copy $src $dest
       file attributes $file -permissions +rw
   }
}
set installdir $env(RAPPTURE_PATH)
set examplesdir [file join $installdir examples]
set dir [tk_chooseDirectory -title "Select where to create \"examples\""]
if  { $dir != "" } {
   file mkdir $dir
   RecursiveCopy $examplesdir $dir
}
exit 0

