Diff

Differences From Artifact [3569e23d32]:

To Artifact [1084c25e06]:


     1      1   #! /usr/bin/env tclsh
     2      2   
     3      3   package require Tcl 8.5
     4      4   
     5      5   set WEBDIR "/web/rkeene/devel/kitcreator/kitbuild"
     6         -if {[llength $argv] == 1} {
     7         -	# If a single argument is given, put results in that sub-directory
     8         -	set WEBDIR [file join $WEBDIR [lindex $argv 0]]
            6  +
            7  +if {[llength $argv] != 1} {
            8  +	puts stderr "Usage: publish-tests <version>"
            9  +
           10  +	exit 1
           11  +}
           12  +
           13  +set kitcreator_vers [lindex $argv 0]
           14  +
           15  +if {$kitcreator_vers == ""} {
           16  +	puts stderr "Invalid version: \"$kitcreator_vers\""
           17  +
           18  +	exit 1
     9     19   }
           20  +
           21  +set WEBDIR [file join $WEBDIR $kitcreator_vers]
    10     22   
    11     23   if {![file isdir "kits"]} {
    12     24   	puts stderr "Could not find kits/ directory, aborting."
    13     25   
    14     26           exit 1
    15     27   }
    16     28