@@ -1,10 +1,15 @@ #! /usr/bin/env tclsh package require Tcl 8.5 set WEBDIR "/web/rkeene/devel/kitcreator/kitbuild" +if {[llength $argv] == 1} { + # If a single argument is given, put results in that sub-directory + set WEBDIR [file join $WEBDIR [lindex $argv 0]] +} + if {![file isdir "kits"]} { puts stderr "Could not find kits/ directory, aborting." exit 1 }