#!/bin/sh
# -*- mode: Tcl -*-
#
# @package      hubzero-filexfer
# @file         filexfer
# @author       Michael McLennan <mmclennan@purdue.edu>
# @author       Nicholas J. Kisseberth <nkissebe@purdue.edu>
# @copyright    Copyright (c) 2004-2013 HUBzero Foundation, LLC.
# @license      http://www.gnu.org/licenses/lgpl-3.0.html LGPLv3
#
# Copyright (c) 2004-2013 HUBzero Foundation, LLC.
#
# This file is part of: The HUBzero(R) Platform for Scientific Collaboration
#
# The HUBzero(R) Platform for Scientific Collaboration (HUBzero) is free
# software: you can redistribute it and/or modify it under the terms of
# the GNU Lesser General Public License as published by the Free Software
# Foundation, either version 3 of the License, or (at your option) any
# later version.
#
# HUBzero is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# HUBzero is a registered trademark of HUBzero Foundation, LLC.
#
# ----------------------------------------------------------------------
#\
. /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

