Artifact 9192efd9c02f4f54b8c550b7ed0cb63e754ff936:
0000: 3c 3f 0a 0a 23 20 54 68 69 73 20 66 69 6c 65 20 <?..# This file
0010: 68 61 73 20 6e 6f 20 6c 69 63 65 6e 73 65 2e 20 has no license.
0020: 20 49 74 20 69 73 20 69 6e 20 74 68 65 20 70 75 It is in the pu
0030: 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 23 20 2d blic domain..# -
0040: 2d 20 52 6f 79 20 4b 65 65 6e 65 20 3c 74 63 6c - Roy Keene <tcl
0050: 40 72 6b 65 65 6e 65 2e 6f 72 67 3e 20 5b 32 30 @rkeene.org> [20
0060: 30 38 31 30 32 35 54 31 34 30 30 51 5d 0a 0a 69 081025T1400Q]..i
0070: 66 20 7b 5b 76 61 72 20 65 78 69 73 74 73 20 73 f {[var exists s
0080: 6f 75 72 63 65 5d 7d 20 7b 0a 09 68 65 61 64 65 ource]} {..heade
0090: 72 73 20 74 79 70 65 20 22 74 65 78 74 2f 70 6c rs type "text/pl
00a0: 61 69 6e 3b 20 63 68 61 72 73 65 74 3d 75 73 2d ain; charset=us-
00b0: 61 73 63 69 69 22 0a 09 72 69 76 65 74 5f 66 6c ascii"..rivet_fl
00c0: 75 73 68 0a 0a 09 73 65 74 20 66 64 20 5b 6f 70 ush...set fd [op
00d0: 65 6e 20 24 3a 3a 65 6e 76 28 50 41 54 48 5f 54 en $::env(PATH_T
00e0: 52 41 4e 53 4c 41 54 45 44 29 20 72 5d 0a 09 66 RANSLATED) r]..f
00f0: 63 6f 70 79 20 24 66 64 20 73 74 64 6f 75 74 0a copy $fd stdout.
0100: 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 61 62 6f .close $fd...abo
0110: 72 74 5f 70 61 67 65 0a 09 65 78 69 74 20 30 0a rt_page..exit 0.
0120: 7d 0a 0a 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 }..source [file
0130: 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61 join [file dirna
0140: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d me [info script]
0150: 5d 20 63 6f 6d 6d 6f 6e 2e 74 63 6c 5d 0a 0a 69 ] common.tcl]..i
0160: 66 20 7b 5b 76 61 72 20 65 78 69 73 74 73 20 73 f {[var exists s
0170: 74 61 72 70 61 63 6b 5f 70 6c 61 74 66 6f 72 6d tarpack_platform
0180: 5d 20 26 26 20 5b 76 61 72 20 65 78 69 73 74 73 ] && [var exists
0190: 20 65 78 74 65 6e 73 69 6f 6e 73 5d 7d 20 7b 0a extensions]} {.
01a0: 0a 09 73 65 74 20 6f 75 72 6b 69 74 20 5b 65 78 ..set ourkit [ex
01b0: 65 63 20 24 3a 3a 63 75 73 74 6f 6d 6b 69 74 3a ec $::customkit:
01c0: 3a 66 69 6e 64 6b 69 74 5d 0a 0a 09 73 65 74 20 :findkit]...set
01d0: 73 74 61 72 70 61 63 6b 5f 70 6c 61 74 66 6f 72 starpack_platfor
01e0: 6d 20 5b 76 61 72 20 67 65 74 20 73 74 61 72 70 m [var get starp
01f0: 61 63 6b 5f 70 6c 61 74 66 6f 72 6d 5d 0a 09 73 ack_platform]..s
0200: 65 74 20 65 78 74 65 6e 73 69 6f 6e 73 20 5b 76 et extensions [v
0210: 61 72 20 67 65 74 20 65 78 74 65 6e 73 69 6f 6e ar get extension
0220: 73 5d 0a 0a 09 73 65 74 20 70 6c 61 74 66 6f 72 s]...set platfor
0230: 6d 69 6e 66 6f 20 24 3a 3a 63 75 73 74 6f 6d 6b minfo $::customk
0240: 69 74 3a 3a 4d 61 70 70 69 6e 67 28 24 73 74 61 it::Mapping($sta
0250: 72 70 61 63 6b 5f 70 6c 61 74 66 6f 72 6d 29 0a rpack_platform).
0260: 09 73 65 74 20 70 6c 61 74 66 6f 72 6d 69 6e 66 .set platforminf
0270: 6f 5f 6b 69 74 20 5b 6c 69 6e 64 65 78 20 24 70 o_kit [lindex $p
0280: 6c 61 74 66 6f 72 6d 69 6e 66 6f 20 30 5d 0a 09 latforminfo 0]..
0290: 73 65 74 20 70 6c 61 74 66 6f 72 6d 69 6e 66 6f set platforminfo
02a0: 5f 74 63 6c 76 65 72 20 5b 6c 69 6e 64 65 78 20 _tclver [lindex
02b0: 24 70 6c 61 74 66 6f 72 6d 69 6e 66 6f 20 31 5d $platforminfo 1]
02c0: 0a 09 73 65 74 20 70 6c 61 74 66 6f 72 6d 69 6e ..set platformin
02d0: 66 6f 5f 6f 73 20 5b 6c 69 6e 64 65 78 20 24 70 fo_os [lindex $p
02e0: 6c 61 74 66 6f 72 6d 69 6e 66 6f 20 32 5d 0a 09 latforminfo 2]..
02f0: 73 65 74 20 70 6c 61 74 66 6f 72 6d 69 6e 66 6f set platforminfo
0300: 5f 63 70 75 20 5b 6c 69 6e 64 65 78 20 24 70 6c _cpu [lindex $pl
0310: 61 74 66 6f 72 6d 69 6e 66 6f 20 33 5d 0a 0a 09 atforminfo 3]...
0320: 73 65 74 20 77 6f 72 6b 64 69 72 20 5b 66 69 6c set workdir [fil
0330: 65 20 6a 6f 69 6e 20 22 2f 74 6d 70 22 20 44 45 e join "/tmp" DE
0340: 4c 45 54 45 4d 45 5f 5b 3a 3a 6d 64 35 3a 3a 6d LETEME_[::md5::m
0350: 64 35 20 2d 68 65 78 20 5b 63 6c 6f 63 6b 20 73 d5 -hex [clock s
0360: 65 63 6f 6e 64 73 5d 5b 63 6c 6f 63 6b 20 63 6c econds][clock cl
0370: 69 63 6b 73 5d 5b 70 69 64 5d 5b 61 72 72 61 79 icks][pid][array
0380: 20 67 65 74 20 3a 3a 65 6e 76 5d 5d 5d 0a 09 73 get ::env]]]..s
0390: 65 74 20 65 78 74 70 61 74 68 20 5b 66 69 6c 65 et extpath [file
03a0: 20 6a 6f 69 6e 20 24 77 6f 72 6b 64 69 72 20 65 join $workdir e
03b0: 78 74 73 5d 0a 09 73 65 74 20 6b 69 74 70 61 74 xts]..set kitpat
03c0: 68 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 77 6f h [file join $wo
03d0: 72 6b 64 69 72 20 6b 69 74 5d 0a 09 66 69 6c 65 rkdir kit]..file
03e0: 20 6d 6b 64 69 72 20 24 77 6f 72 6b 64 69 72 0a mkdir $workdir.
03f0: 0a 09 61 72 72 61 79 20 73 65 74 20 69 6e 63 65 ..array set ince
0400: 78 74 65 6e 73 69 6f 6e 73 20 5b 3a 3a 63 75 73 xtensions [::cus
0410: 74 6f 6d 6b 69 74 3a 3a 64 6f 77 6e 6c 6f 61 64 tomkit::download
0420: 5f 65 78 74 65 6e 73 69 6f 6e 73 5f 74 65 61 70 _extensions_teap
0430: 6f 74 20 24 65 78 74 70 61 74 68 20 5b 6c 69 73 ot $extpath [lis
0440: 74 20 74 65 61 70 6f 74 2e 72 6b 65 65 6e 65 2e t teapot.rkeene.
0450: 6f 72 67 5d 20 24 65 78 74 65 6e 73 69 6f 6e 73 org] $extensions
0460: 20 24 70 6c 61 74 66 6f 72 6d 69 6e 66 6f 5f 6f $platforminfo_o
0470: 73 20 24 70 6c 61 74 66 6f 72 6d 69 6e 66 6f 5f s $platforminfo_
0480: 63 70 75 5d 0a 0a 09 73 65 74 20 77 65 62 6b 69 cpu]...set webki
0490: 74 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 6b 69 74 t [file join kit
04a0: 73 20 63 75 73 74 6f 6d 6b 69 74 2d 76 24 70 6c s customkit-v$pl
04b0: 61 74 66 6f 72 6d 69 6e 66 6f 5f 74 63 6c 76 65 atforminfo_tclve
04c0: 72 2d 24 70 6c 61 74 66 6f 72 6d 69 6e 66 6f 5f r-$platforminfo_
04d0: 6f 73 2d 24 70 6c 61 74 66 6f 72 6d 69 6e 66 6f os-$platforminfo
04e0: 5f 63 70 75 2d 5b 73 74 72 69 6e 67 20 74 6f 6c _cpu-[string tol
04f0: 6f 77 65 72 20 5b 3a 3a 6d 64 35 3a 3a 6d 64 35 ower [::md5::md5
0500: 20 2d 68 65 78 20 5b 6c 69 73 74 20 24 70 6c 61 -hex [list $pla
0510: 74 66 6f 72 6d 69 6e 66 6f 20 5b 61 72 72 61 79 tforminfo [array
0520: 20 67 65 74 20 69 6e 63 65 78 74 65 6e 73 69 6f get incextensio
0530: 6e 73 5d 5d 5d 5d 2e 62 69 6e 5d 0a 0a 09 69 66 ns]]]].bin]...if
0540: 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 {![file exists
0550: 24 77 65 62 6b 69 74 5d 7d 20 7b 0a 09 09 66 69 $webkit]} {...fi
0560: 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d le copy -force -
0570: 2d 20 24 70 6c 61 74 66 6f 72 6d 69 6e 66 6f 5f - $platforminfo_
0580: 6b 69 74 20 24 6b 69 74 70 61 74 68 0a 0a 09 09 kit $kitpath....
0590: 63 61 74 63 68 20 7b 0a 09 09 09 65 78 65 63 20 catch {....exec
05a0: 24 6f 75 72 6b 69 74 20 24 3a 3a 63 75 73 74 6f $ourkit $::custo
05b0: 6d 6b 69 74 3a 3a 73 64 78 20 73 79 6e 63 20 2d mkit::sdx sync -
05c0: 61 75 74 6f 20 31 20 2d 66 6f 72 63 65 64 65 73 auto 1 -forcedes
05d0: 74 20 31 20 24 65 78 74 70 61 74 68 20 24 6b 69 t 1 $extpath $ki
05e0: 74 70 61 74 68 0a 09 09 7d 0a 0a 09 09 66 69 6c tpath...}....fil
05f0: 65 20 6d 6b 64 69 72 20 5b 66 69 6c 65 20 64 69 e mkdir [file di
0600: 72 6e 61 6d 65 20 24 77 65 62 6b 69 74 5d 0a 09 rname $webkit]..
0610: 09 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 .file copy -forc
0620: 65 20 2d 2d 20 24 6b 69 74 70 61 74 68 20 24 77 e -- $kitpath $w
0630: 65 62 6b 69 74 0a 09 7d 0a 0a 09 66 69 6c 65 20 ebkit..}...file
0640: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d delete -force --
0650: 20 24 77 6f 72 6b 64 69 72 0a 7d 0a 0a 23 20 53 $workdir.}..# S
0660: 65 74 20 63 6f 6e 74 65 6e 74 2d 74 79 70 65 0a et content-type.
0670: 68 65 61 64 65 72 73 20 74 79 70 65 20 22 74 65 headers type "te
0680: 78 74 2f 68 74 6d 6c 3b 20 63 68 61 72 73 65 74 xt/html; charset
0690: 3d 75 73 2d 61 73 63 69 69 22 0a 0a 72 69 76 65 =us-ascii"..rive
06a0: 74 5f 66 6c 75 73 68 0a 0a 3f 3e 3c 21 44 4f 43 t_flush..?><!DOC
06b0: 54 59 50 45 20 48 54 4d 4c 20 50 55 42 4c 49 43 TYPE HTML PUBLIC
06c0: 20 22 2d 2f 2f 57 33 43 2f 2f 44 54 44 20 48 54 "-//W3C//DTD HT
06d0: 4d 4c 20 34 2e 30 31 2f 2f 45 4e 22 20 22 68 74 ML 4.01//EN" "ht
06e0: 74 70 3a 2f 2f 77 77 77 2e 77 33 2e 6f 72 67 2f tp://www.w3.org/
06f0: 54 52 2f 68 74 6d 6c 34 2f 73 74 72 69 63 74 2e TR/html4/strict.
0700: 64 74 64 22 3e 0a 3c 68 74 6d 6c 3e 0a 20 20 3c dtd">.<html>. <
0710: 68 65 61 64 3e 0a 20 20 20 20 3c 74 69 74 6c 65 head>. <title
0720: 3e 43 75 73 74 6f 6d 4b 69 74 20 42 75 69 6c 64 >CustomKit Build
0730: 65 72 3c 2f 74 69 74 6c 65 3e 0a 20 20 3c 2f 68 er</title>. </h
0740: 65 61 64 3e 0a 20 20 3c 62 6f 64 79 3e 0a 20 20 ead>. <body>.
0750: 20 20 3c 68 31 3e 43 75 73 74 6f 6d 4b 69 74 3c <h1>CustomKit<
0760: 2f 68 31 3e 0a 3c 3f 0a 69 66 20 7b 5b 69 6e 66 /h1>.<?.if {[inf
0770: 6f 20 65 78 69 73 74 73 20 77 65 62 6b 69 74 5d o exists webkit]
0780: 7d 20 7b 0a 3f 3e 20 20 20 20 3c 68 32 3e 43 6f } {.?> <h2>Co
0790: 6d 70 6c 65 74 65 3c 2f 68 32 3e 0a 20 20 20 20 mplete</h2>.
07a0: 3c 64 69 76 3e 0a 20 20 20 20 20 20 54 68 65 20 <div>. The
07b0: 66 6f 6c 6c 6f 77 69 6e 67 20 43 75 73 74 6f 6d following Custom
07c0: 4b 69 74 20 68 61 73 20 62 65 65 6e 20 63 72 65 Kit has been cre
07d0: 61 74 65 64 3a 20 3c 61 20 68 72 65 66 3d 22 3c ated: <a href="<
07e0: 3f 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e ? puts -nonewlin
07f0: 65 20 24 77 65 62 6b 69 74 20 3f 3e 22 3e 3c 3f e $webkit ?>"><?
0800: 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 puts -nonewline
0810: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 77 65 62 [file tail $web
0820: 6b 69 74 5d 20 3f 3e 3c 2f 61 3e 2e 20 20 49 74 kit] ?></a>. It
0830: 20 77 61 73 20 63 72 65 61 74 65 64 20 77 69 74 was created wit
0840: 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 h the following
0850: 70 61 72 61 6d 65 74 65 72 73 3a 0a 20 20 20 20 parameters:.
0860: 20 20 3c 74 61 62 6c 65 20 62 6f 72 64 65 72 3d <table border=
0870: 22 31 22 3e 0a 20 20 20 20 20 20 20 20 3c 74 72 "1">. <tr
0880: 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 74 64 3e >. <td>
0890: 54 63 6c 20 56 65 72 73 69 6f 6e 3a 3c 2f 74 64 Tcl Version:</td
08a0: 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 74 64 3e >. <td>
08b0: 3c 3f 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 <? puts -nonewli
08c0: 6e 65 20 24 70 6c 61 74 66 6f 72 6d 69 6e 66 6f ne $platforminfo
08d0: 5f 74 63 6c 76 65 72 20 3f 3e 3c 2f 74 64 3e 0a _tclver ?></td>.
08e0: 20 20 20 20 20 20 20 20 3c 2f 74 72 3e 0a 20 20 </tr>.
08f0: 20 20 20 20 20 20 3c 74 72 3e 0a 20 20 20 20 20 <tr>.
0900: 20 20 20 20 20 3c 74 64 3e 4f 53 3a 3c 2f 74 64 <td>OS:</td
0910: 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 74 64 3e >. <td>
0920: 3c 3f 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 <? puts -nonewli
0930: 6e 65 20 5b 3a 3a 63 75 73 74 6f 6d 6b 69 74 3a ne [::customkit:
0940: 3a 64 65 73 63 4f 53 4c 6f 63 61 6c 54 6f 45 6e :descOSLocalToEn
0950: 67 6c 69 73 68 20 24 70 6c 61 74 66 6f 72 6d 69 glish $platformi
0960: 6e 66 6f 5f 6f 73 5d 20 3f 3e 3c 2f 74 64 3e 0a nfo_os] ?></td>.
0970: 20 20 20 20 20 20 20 20 3c 2f 74 72 3e 0a 20 20 </tr>.
0980: 20 20 20 20 20 20 3c 74 72 3e 0a 20 20 20 20 20 <tr>.
0990: 20 20 20 20 20 3c 74 64 3e 43 50 55 3a 3c 2f 74 <td>CPU:</t
09a0: 64 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 74 64 d>. <td
09b0: 3e 3c 3f 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c ><? puts -nonewl
09c0: 69 6e 65 20 5b 3a 3a 63 75 73 74 6f 6d 6b 69 74 ine [::customkit
09d0: 3a 3a 64 65 73 63 43 50 55 4c 6f 63 61 6c 54 6f ::descCPULocalTo
09e0: 45 6e 67 6c 69 73 68 20 24 70 6c 61 74 66 6f 72 English $platfor
09f0: 6d 69 6e 66 6f 5f 63 70 75 5d 20 3f 3e 3c 2f 74 minfo_cpu] ?></t
0a00: 64 3e 0a 20 20 20 20 20 20 20 20 3c 2f 74 72 3e d>. </tr>
0a10: 0a 20 20 20 20 20 20 20 20 3c 74 72 3e 0a 20 20 . <tr>.
0a20: 20 20 20 20 20 20 20 20 3c 74 64 3e 49 6e 63 6c <td>Incl
0a30: 75 64 65 64 20 45 78 74 65 6e 73 69 6f 6e 73 3a uded Extensions:
0a40: 3c 2f 74 64 3e 0a 20 20 20 20 20 20 20 20 20 20 </td>.
0a50: 3c 74 64 3e 0a 3c 3f 0a 09 66 6f 72 65 61 63 68 <td>.<?..foreach
0a60: 20 7b 65 78 74 20 65 78 74 69 6e 66 6f 7d 20 5b {ext extinfo} [
0a70: 61 72 72 61 79 20 67 65 74 20 69 6e 63 65 78 74 array get incext
0a80: 65 6e 73 69 6f 6e 73 5d 20 7b 0a 09 09 73 65 74 ensions] {...set
0a90: 20 65 78 74 69 6e 66 6f 5f 76 65 72 20 5b 6c 69 extinfo_ver [li
0aa0: 6e 64 65 78 20 24 65 78 74 69 6e 66 6f 20 30 5d ndex $extinfo 0]
0ab0: 0a 09 09 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 ...if {[lsearch
0ac0: 24 65 78 74 65 6e 73 69 6f 6e 73 20 24 65 78 74 $extensions $ext
0ad0: 5d 20 3d 3d 20 2d 31 7d 20 7b 0a 09 09 09 70 75 ] == -1} {....pu
0ae0: 74 73 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ts "
0af0: 3c 69 3e 24 65 78 74 20 76 24 65 78 74 69 6e 66 <i>$ext v$extinf
0b00: 6f 5f 76 65 72 3c 2f 69 3e 3c 62 72 3e 22 0a 09 o_ver</i><br>"..
0b10: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 70 75 74 .} else {....put
0b20: 73 20 22 20 20 20 20 20 20 20 20 20 20 20 20 24 s " $
0b30: 65 78 74 20 76 24 65 78 74 69 6e 66 6f 5f 76 65 ext v$extinfo_ve
0b40: 72 3c 62 72 3e 22 0a 09 09 7d 0a 09 7d 0a 3f 3e r<br>"...}..}.?>
0b50: 20 20 20 20 20 20 20 20 20 20 3c 2f 74 64 3e 0a </td>.
0b60: 20 20 20 20 20 20 20 20 3c 2f 74 72 3e 0a 20 20 </tr>.
0b70: 20 20 20 20 20 20 3c 74 72 3e 0a 20 20 20 20 20 <tr>.
0b80: 20 20 20 20 20 3c 74 64 3e 45 78 63 6c 75 64 65 <td>Exclude
0b90: 64 20 45 78 74 65 6e 73 69 6f 6e 73 3a 3c 2f 74 d Extensions:</t
0ba0: 64 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 74 64 d>. <td
0bb0: 3e 0a 3c 3f 0a 09 66 6f 72 65 61 63 68 20 65 78 >.<?..foreach ex
0bc0: 74 20 24 65 78 74 65 6e 73 69 6f 6e 73 20 7b 0a t $extensions {.
0bd0: 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 ..if {![info exi
0be0: 73 74 73 20 69 6e 63 65 78 74 65 6e 73 69 6f 6e sts incextension
0bf0: 73 28 24 65 78 74 29 5d 7d 20 7b 0a 09 09 09 70 s($ext)]} {....p
0c00: 75 74 73 20 22 20 20 20 20 20 20 20 20 20 20 20 uts "
0c10: 20 3c 62 3e 24 65 78 74 3c 2f 62 3e 3c 62 72 3e <b>$ext</b><br>
0c20: 22 0a 09 09 7d 0a 09 7d 0a 3f 3e 20 20 20 20 20 "...}..}.?>
0c30: 20 20 20 20 20 3c 2f 74 64 3e 0a 20 20 20 20 20 </td>.
0c40: 20 20 20 3c 2f 74 72 3e 0a 20 20 20 20 20 20 3c </tr>. <
0c50: 2f 74 61 62 6c 65 3e 0a 20 20 20 20 3c 2f 64 69 /table>. </di
0c60: 76 3e 0a 20 20 20 20 3c 64 69 76 3e 0a 20 20 20 v>. <div>.
0c70: 20 20 20 3c 61 20 68 72 65 66 3d 22 3f 73 74 61 <a href="?sta
0c80: 72 74 5f 6f 76 65 72 3d 31 22 3e 53 74 61 72 74 rt_over=1">Start
0c90: 20 4f 76 65 72 3c 2f 61 3e 0a 20 20 20 20 3c 2f Over</a>. </
0ca0: 64 69 76 3e 0a 3c 3f 0a 7d 20 65 6c 73 65 20 7b div>.<?.} else {
0cb0: 0a 3f 3e 20 20 20 20 3c 68 32 3e 53 65 6c 65 63 .?> <h2>Selec
0cc0: 74 20 50 61 72 61 6d 65 74 65 72 73 3c 2f 68 32 t Parameters</h2
0cd0: 3e 0a 20 20 20 20 3c 66 6f 72 6d 20 6d 65 74 68 >. <form meth
0ce0: 6f 64 3d 22 70 6f 73 74 22 20 61 63 74 69 6f 6e od="post" action
0cf0: 3d 22 3c 3f 20 70 75 74 73 20 2d 6e 6f 6e 65 77 ="<? puts -nonew
0d00: 6c 69 6e 65 20 24 3a 3a 65 6e 76 28 52 45 51 55 line $::env(REQU
0d10: 45 53 54 5f 55 52 49 29 20 3f 3e 22 3e 0a 20 20 EST_URI) ?>">.
0d20: 20 20 20 20 3c 74 61 62 6c 65 3e 0a 20 20 20 20 <table>.
0d30: 20 20 20 20 3c 74 72 3e 0a 20 20 20 20 20 20 20 <tr>.
0d40: 20 20 20 3c 74 64 3e 54 61 72 67 65 74 20 50 6c <td>Target Pl
0d50: 61 74 66 6f 72 6d 3a 3c 2f 74 64 3e 0a 20 20 20 atform:</td>.
0d60: 20 20 20 20 20 20 20 3c 74 64 3e 0a 20 20 20 20 <td>.
0d70: 20 20 20 20 20 20 20 20 3c 73 65 6c 65 63 74 20 <select
0d80: 6e 61 6d 65 3d 22 73 74 61 72 70 61 63 6b 5f 70 name="starpack_p
0d90: 6c 61 74 66 6f 72 6d 22 3e 0a 3c 3f 0a 09 73 65 latform">.<?..se
0da0: 74 20 64 65 73 63 73 20 5b 3a 3a 63 75 73 74 6f t descs [::custo
0db0: 6d 6b 69 74 3a 3a 67 65 74 5f 64 65 73 63 73 5f mkit::get_descs_
0dc0: 66 72 6f 6d 5f 6d 61 70 70 69 6e 67 5d 0a 0a 09 from_mapping]...
0dd0: 66 6f 72 65 61 63 68 20 64 65 73 63 6b 65 79 20 foreach desckey
0de0: 5b 6c 73 6f 72 74 20 2d 64 69 63 74 69 6f 6e 61 [lsort -dictiona
0df0: 72 79 20 24 64 65 73 63 73 5d 20 7b 0a 09 09 73 ry $descs] {...s
0e00: 65 74 20 64 65 73 63 20 5b 6c 69 6e 64 65 78 20 et desc [lindex
0e10: 24 64 65 73 63 6b 65 79 20 30 5d 0a 09 09 73 65 $desckey 0]...se
0e20: 74 20 6b 65 79 20 5b 6c 69 6e 64 65 78 20 24 64 t key [lindex $d
0e30: 65 73 63 6b 65 79 20 31 5d 0a 09 09 70 75 74 73 esckey 1]...puts
0e40: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
0e50: 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 <option value=\"
0e60: 24 6b 65 79 5c 22 3e 24 64 65 73 63 3c 2f 6f 70 $key\">$desc</op
0e70: 74 69 6f 6e 3e 22 0a 09 7d 0a 3f 3e 20 20 20 20 tion>"..}.?>
0e80: 20 20 20 20 20 20 20 20 3c 2f 73 65 6c 65 63 74 </select
0e90: 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 2f 74 64 >. </td
0ea0: 3e 0a 20 20 20 20 20 20 20 20 3c 2f 74 72 3e 0a >. </tr>.
0eb0: 20 20 20 20 20 20 20 20 3c 74 72 3e 0a 20 20 20 <tr>.
0ec0: 20 20 20 20 20 20 20 3c 74 64 3e 45 78 74 65 6e <td>Exten
0ed0: 73 69 6f 6e 73 3a 3c 2f 74 64 3e 0a 20 20 20 20 sions:</td>.
0ee0: 20 20 20 20 20 20 3c 74 64 3e 0a 20 20 20 20 20 <td>.
0ef0: 20 20 20 20 20 20 20 3c 73 65 6c 65 63 74 20 6e <select n
0f00: 61 6d 65 3d 22 65 78 74 65 6e 73 69 6f 6e 73 22 ame="extensions"
0f10: 20 73 69 7a 65 3d 22 32 30 22 20 6d 75 6c 74 69 size="20" multi
0f20: 70 6c 65 3e 0a 3c 3f 0a 09 73 65 74 20 65 78 74 ple>.<?..set ext
0f30: 65 6e 73 69 6f 6e 73 69 6e 66 6f 20 5b 3a 3a 63 ensionsinfo [::c
0f40: 75 73 74 6f 6d 6b 69 74 3a 3a 67 65 74 5f 65 78 ustomkit::get_ex
0f50: 74 65 6e 73 69 6f 6e 73 5f 74 65 61 70 6f 74 20 tensions_teapot
0f60: 74 65 61 70 6f 74 2e 72 6b 65 65 6e 65 2e 6f 72 teapot.rkeene.or
0f70: 67 5d 0a 0a 09 73 65 74 20 65 78 74 65 6e 73 69 g]...set extensi
0f80: 6f 6e 73 20 5b 6c 69 73 74 5d 0a 09 66 6f 72 65 ons [list]..fore
0f90: 61 63 68 20 7b 65 78 74 65 6e 73 69 6f 6e 20 65 ach {extension e
0fa0: 78 74 64 61 74 61 7d 20 24 65 78 74 65 6e 73 69 xtdata} $extensi
0fb0: 6f 6e 73 69 6e 66 6f 20 7b 0a 09 09 69 66 20 7b onsinfo {...if {
0fc0: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 [lsearch -exact
0fd0: 24 65 78 74 65 6e 73 69 6f 6e 73 20 24 65 78 74 $extensions $ext
0fe0: 65 6e 73 69 6f 6e 5d 20 21 3d 20 2d 31 7d 20 7b ension] != -1} {
0ff0: 0a 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 7d ....continue...}
1000: 0a 0a 09 09 6c 61 70 70 65 6e 64 20 65 78 74 65 ....lappend exte
1010: 6e 73 69 6f 6e 73 20 24 65 78 74 65 6e 73 69 6f nsions $extensio
1020: 6e 0a 09 7d 0a 0a 09 66 6f 72 65 61 63 68 20 65 n..}...foreach e
1030: 78 74 65 6e 73 69 6f 6e 20 5b 6c 73 6f 72 74 20 xtension [lsort
1040: 2d 64 69 63 74 69 6f 6e 61 72 79 20 24 65 78 74 -dictionary $ext
1050: 65 6e 73 69 6f 6e 73 5d 20 7b 0a 09 09 70 75 74 ensions] {...put
1060: 73 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 s "
1070: 20 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c <option value=\
1080: 22 24 65 78 74 65 6e 73 69 6f 6e 5c 22 3e 24 65 "$extension\">$e
1090: 78 74 65 6e 73 69 6f 6e 3c 2f 6f 70 74 69 6f 6e xtension</option
10a0: 3e 22 0a 09 7d 0a 3f 3e 20 20 20 20 20 20 20 20 >"..}.?>
10b0: 20 20 20 20 3c 2f 73 65 6c 65 63 74 3e 0a 20 20 </select>.
10c0: 20 20 20 20 20 20 20 20 3c 2f 74 64 3e 0a 20 20 </td>.
10d0: 20 20 20 20 20 20 3c 2f 74 72 3e 0a 20 20 20 20 </tr>.
10e0: 20 20 20 20 3c 74 72 3e 0a 20 20 20 20 20 20 20 <tr>.
10f0: 20 20 20 3c 74 64 20 63 6f 6c 73 70 61 6e 3d 22 <td colspan="
1100: 32 22 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 2">.
1110: 3c 69 6e 70 75 74 20 74 79 70 65 3d 22 73 75 62 <input type="sub
1120: 6d 69 74 22 20 6e 61 6d 65 3d 22 73 75 62 6d 69 mit" name="submi
1130: 74 5f 75 70 6c 6f 61 64 22 20 76 61 6c 75 65 3d t_upload" value=
1140: 22 43 72 65 61 74 65 22 3e 0a 20 20 20 20 20 20 "Create">.
1150: 20 20 20 20 3c 2f 74 64 3e 0a 20 20 20 20 20 20 </td>.
1160: 20 20 3c 2f 74 72 3e 0a 20 20 20 20 20 20 3c 2f </tr>. </
1170: 74 61 62 6c 65 3e 0a 20 20 20 20 3c 2f 66 6f 72 table>. </for
1180: 6d 3e 0a 3c 3f 0a 7d 0a 3f 3e 20 20 20 20 3c 64 m>.<?.}.?> <d
1190: 69 76 3e 0a 20 20 20 20 20 20 3c 61 20 68 72 65 iv>. <a hre
11a0: 66 3d 22 3f 73 6f 75 72 63 65 3d 31 22 3e 53 6f f="?source=1">So
11b0: 75 72 63 65 3c 2f 61 3e 0a 20 20 20 20 3c 2f 64 urce</a>. </d
11c0: 69 76 3e 0a 20 20 3c 2f 62 6f 64 79 3e 0a 3c 2f iv>. </body>.</
11d0: 68 74 6d 6c 3e 0a html>.