#!/bin/sh
# the next line restarts using wish \
exec tclsh "$0" "$@"  
if [file exists server.log] {
	puts "Removing server.log"
	exec rm server.log
}

set name [lindex $argv 0]
puts "Making Installation for $name"

if [file exists zipper.tgz] {
	puts "Removing zipper.tgz"
	exec rm zipper.tgz
}
if [file exists $name] {
	puts "Removing $name"
	exec rm $name
}

set list [exec ls]
set f [open mkins2 "w"] 

puts $f "exec tar -czf $name [join [split $list "\n"] " "]"
close $f
source mkins2
exec rm mkins2
exec mkinsI $name
