Diff

Differences From Artifact [ff68791fbb]:

To Artifact [6e02118269]:


   178    178   		catch {
   179    179   			set apiMethod [dict get $args(dict) action]
   180    180   		}
   181    181   
   182    182   		switch -exact -- $apiMethod {
   183    183   			build {
   184    184   				# Do nothing, handled below
          185  +			}
          186  +			storages {
          187  +				set apiResultDict {
          188  +					mk4 {Metakit}
          189  +					zip {Zip}
          190  +					cvfs {C-VFS}
          191  +					auto {Automatically Determine}
          192  +				}
   185    193   			}
   186    194   			platforms {
   187    195   				set apiResultDict [array get platforms]
   188    196   			}
   189    197   			tcl_versions {
   190    198   				set apiResultDict [array get tcl_versions]
   191    199   				dict set apiResultDict default $tcl_version_selected
................................................................................
   199    207   			}
   200    208   			packages {
   201    209   				set apiResultDict [array get packages]
   202    210   			}
   203    211   			help {
   204    212   				set apiResultDict {
   205    213   					build {Build a TclKit.  Accepts arguments: platform [mandatory, string], tcl_version [string], kitcreator_version [string], storage [string, one of mk4, cvfs, zip], options [array], packages [array]}
          214  +					storages {Get a list of supported storage mechanisms to use as the "storage" argument to build}
   206    215   					platforms {Get a list of platforms to use as the "platform" argument to build}
   207    216   					tcl_versions {Get a list of Tcl versions and their descriptions to use as the "tcl_version" argument to build}
   208    217   					kitcreator_versions {Get a list of KitCreator versions and their descriptions to use as the "kitcreator_version" argument to build}
   209    218   					options {Get a list of options and their descriptions}
   210    219   					packages {Get a list of packages and their descriptions}
   211    220   					examples {A few examples}
   212    221   					help {This help}
................................................................................
   446    455   
   447    456   		# Queue build up and wait for it to complete
   448    457   		set fd [open $queue a+]
   449    458   		puts $fd [list filename $filename key $key platform $build_platform tcl_version $build_tcl_version kitcreator_version $build_kitcreator_version packages $build_packages options [array get build_options]]
   450    459   		close $fd
   451    460   
   452    461   		set url "http://kitcreator.rkeene.org/kits/building/$key/"
   453         -		set kiturl "http://kitcreator.rkeene.org/kits/$key/$filename"
   454    462   
   455    463   		if {!$resultIsAPI} {
   456    464   			headers redirect $url
   457    465   ?><html>
   458    466   	<head>
   459    467   		<title>KitCreator, Web Interface</title>
   460    468   	</head>
................................................................................
   461    469   	<body>
   462    470   		<h1>KitCreator Web Interface</h1>
   463    471   		<p>Build in progress, see <a href="<? puts -nonewline $url ?>"><? puts -nonewline $url ?></a> for build information</p>
   464    472   	</body>
   465    473   </html>
   466    474   <?
   467    475   		} else {
          476  +			set kiturl "http://kitcreator.rkeene.org/kits/building/$apiReturnFormat/$key/"
          477  +
   468    478   			switch -exact -- $apiReturnFormat {
   469    479   				"json" {
   470         -					puts "{\"kit_url\": \"${kiturl}\"}"
          480  +					puts "{\"url\": \"${kiturl}\"}"
   471    481   				}
   472    482   				"dict" {
   473         -					puts [dict create kit_url $kiturl]
          483  +					puts [dict create url $kiturl]
   474    484   				}
   475    485   			}
   476    486   		}
   477    487   	} else {
   478    488   ?><html>
   479    489     <head>
   480    490       <title>KitCreator, Web Interface</title>