1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
<?
set sourcedir "/web/rkeene/devel/kitcreator/all"
foreach file [glob -tails -nocomplain -directory $sourcedir "kitcreator-*.tar.gz"] {
regexp {^kitcreator-(.*).tar.gz$} $file -> vers
set kitcreator_versions($vers) $vers
}
set kitcreator_versions(trunk) "Fossil Trunk Tip"
set tcl_versions(8.4.19) 8.4.19
set tcl_versions(8.5.9) 8.5.9
set tcl_versions(cvs_HEAD) "Fossil Trunk Tip"
set platforms(linux-x86) "Linux on x86"
set platforms(linux-amd64) "Linux on amd64"
set platforms(linux-mipsel) "Linux on MIPSEL"
set platforms(windows-x86) "Windows on x86"
?><html>
<head>
<title>KitCreator, Web Interface</title>
</head>
<body>
<h1>KitCreator Web Interface</h1>
<form method="post" enctype="multipart/form-data">
<table>
<tr>
<td>KitCreator Version:</td>
<td>
<select name="kitcreator_version">
<?
foreach kitcreator_version [lsort -dictionary [array names kitcreator_versions]] {
set kitcreator_version_name $kitcreator_versions($kitcreator_version)
puts " <option value=\"${kitcreator_version}\">${kitcreator_version_name}</option>"
}
?>
</select>
</td>
</tr>
<tr>
<td>Tcl Version:</td>
<td>
<select name="tcl_version">
<?
foreach tcl_version [lsort -dictionary [array names tcl_versions]] {
set tcl_version_name $tcl_versions($tcl_version)
puts " <option value=\"${tcl_version}\">${tcl_version_name}</option>"
}
?>
</select>
</td>
</tr>
<tr>
<td>Platform:</td>
<td>
<select name="platform">
<?
foreach platform [lsort -dictionary [array names platforms]] {
set platform_name $platforms($platform)
puts " <option value=\"${platform}\">${platform_name}</option>"
}
?>
</select>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
>
>
>
>
>
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
<?
set sourcedir "/web/rkeene/devel/kitcreator/all"
foreach file [glob -tails -nocomplain -directory $sourcedir "kitcreator-*.tar.gz"] {
regexp {^kitcreator-(.*).tar.gz$} $file -> vers
set kitcreator_versions($vers) $vers
}
set kitcreator_version_selected [lindex [lsort -dictionary [array names kitcreator_versions]] end]
set kitcreator_versions(trunk) "Fossil Trunk Tip"
set tcl_versions(8.4.19) 8.4.19
set tcl_versions(8.5.9) 8.5.9
set tcl_versions(cvs_HEAD) "Fossil Trunk Tip"
set platforms(linux-x86) "Linux on x86"
set platforms(linux-amd64) "Linux on amd64"
set platforms(linux-mipsel) "Linux on MIPSEL"
set platforms(windows-x86) "Windows on x86"
set disable {
platform linux-amd64 tk
platform linux-mipsel tk
}
set specific {
platform windows-x86 file icon {Kit Icon}
platform windows-x86 text description {Description}
}
?><html>
<head>
<title>KitCreator, Web Interface</title>
<script>
<!--
function verifyOptions() {
var kitcreator_version;
var tcl_version;
var platform;
kitcreator_version = document.getElementsByName('kitcreator_version')[0].value;
tcl_version = document.getElementsByName('tcl_version')[0].value;
platform = document.getElementsByName('platform')[0].value;
}
-->
</script>
</head>
<body>
<h1>KitCreator Web Interface</h1>
<form method="post" enctype="multipart/form-data">
<table>
<tr>
<td>KitCreator Version:</td>
<td>
<select name="kitcreator_version" onChange="verifyOptions();">
<?
foreach kitcreator_version [lsort -dictionary [array names kitcreator_versions]] {
set kitcreator_version_name $kitcreator_versions($kitcreator_version)
if {$kitcreator_version == $kitcreator_version_selected} {
set selected " selected"
} else {
set selected ""
}
puts " <option value=\"${kitcreator_version}\"${selected}>${kitcreator_version_name}</option>"
}
?>
</select>
</td>
</tr>
<tr>
<td>Tcl Version:</td>
<td>
<select name="tcl_version" onChange="verifyOptions();">
<?
foreach tcl_version [lsort -dictionary [array names tcl_versions]] {
set tcl_version_name $tcl_versions($tcl_version)
puts " <option value=\"${tcl_version}\">${tcl_version_name}</option>"
}
?>
</select>
</td>
</tr>
<tr>
<td>Platform:</td>
<td>
<select name="platform" onChange="verifyOptions();">
<?
foreach platform [lsort -dictionary [array names platforms]] {
set platform_name $platforms($platform)
puts " <option value=\"${platform}\">${platform_name}</option>"
}
?>
</select>
|
81
82
83
84
85
86
87
88
89
90
|
<tr>
<td>Description:</td>
<td>
<input type="text" name="platform-windows-x86-desc">
</td>
</tr>
</table>
</form>
</body>
</html>
|
>
|
113
114
115
116
117
118
119
120
121
122
123
|
<tr>
<td>Description:</td>
<td>
<input type="text" name="platform-windows-x86-desc">
</td>
</tr>
</table>
<input type="submit" name="submit" value="Create">
</form>
</body>
</html>
|