Artifact c0bd1aef521a421db791b49e3d51f5e633a4892b02003a05ff759f08f486a8ec:
Wiki page
[
Etoyoc.com] by
hypnotoad
2018-05-03 22:41:01.
0000: 44 20 32 30 31 38 2d 30 35 2d 30 33 54 32 32 3a D 2018-05-03T22:
0010: 34 31 3a 30 31 2e 33 36 31 0a 4c 20 45 74 6f 79 41:01.361.L Etoy
0020: 6f 63 2e 63 6f 6d 0a 50 20 36 33 36 39 61 36 66 oc.com.P 6369a6f
0030: 66 31 66 31 64 33 32 30 33 66 37 64 32 31 38 64 f1f1d3203f7d218d
0040: 37 36 30 31 62 32 35 65 34 39 38 65 31 33 66 62 7601b25e498e13fb
0050: 36 63 39 32 62 39 61 32 31 31 61 37 39 30 66 33 6c92b9a211a790f3
0060: 65 39 62 66 31 62 61 61 62 0a 55 20 68 79 70 6e e9bf1baab.U hypn
0070: 6f 74 6f 61 64 0a 57 20 39 36 35 33 0a 3c 68 31 otoad.W 9653.<h1
0080: 3e 45 78 61 6d 69 6e 61 74 69 6f 6e 20 6f 66 20 >Examination of
0090: 74 68 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f the configuratio
00a0: 6e 20 66 6f 72 20 45 74 6f 79 6f 63 2e 63 6f 6d n for Etoyoc.com
00b0: 3c 2f 68 31 3e 0d 0a 54 68 65 20 77 65 62 73 65 </h1>..The webse
00c0: 72 76 65 72 20 68 74 74 70 3a 2f 2f 77 77 77 2e rver http://www.
00d0: 65 74 6f 79 6f 63 2e 63 6f 6d 20 69 73 20 74 68 etoyoc.com is th
00e0: 65 20 70 65 72 73 6f 6e 61 6c 20 77 65 62 20 73 e personal web s
00f0: 65 72 76 65 72 20 6f 66 20 53 65 61 6e 20 57 6f erver of Sean Wo
0100: 6f 64 73 2e 20 49 74 20 6d 61 6e 61 67 65 73 20 ods. It manages
0110: 73 65 76 65 72 61 6c 20 76 69 72 74 75 61 6c 20 several virtual
0120: 68 6f 73 74 73 20 28 77 77 77 2e 65 74 6f 79 6f hosts (www.etoyo
0130: 63 2e 63 6f 6d 2c 20 77 77 77 2e 67 62 65 65 66 c.com, www.gbeef
0140: 61 62 72 69 63 73 2e 63 6f 6d 29 20 61 73 20 77 abrics.com) as w
0150: 65 6c 6c 20 61 73 20 61 20 6d 69 78 20 6f 66 20 ell as a mix of
0160: 64 79 6e 61 6d 69 63 61 6c 6c 79 20 67 65 6e 65 dynamically gene
0170: 72 61 74 65 64 20 63 6f 6e 74 65 6e 74 20 61 6e rated content an
0180: 64 20 73 74 61 74 69 63 20 66 69 6c 65 73 2e 20 d static files.
0190: 54 68 69 73 20 70 61 67 65 20 69 73 20 61 6e 20 This page is an
01a0: 65 78 70 6c 61 69 6e 61 74 69 6f 6e 20 6f 66 20 explaination of
01b0: 68 6f 77 20 74 68 65 20 73 69 74 65 20 69 73 20 how the site is
01c0: 63 6f 6e 66 69 67 75 72 65 64 20 74 6f 20 72 75 configured to ru
01d0: 6e 20 3c 62 3e 74 6f 61 64 68 74 74 70 64 3c 2f n <b>toadhttpd</
01e0: 62 3e 20 69 6e 20 74 68 65 20 68 6f 70 65 73 20 b> in the hopes
01f0: 74 68 61 74 20 74 68 65 20 65 78 61 6d 70 6c 65 that the example
0200: 20 6d 61 79 20 61 6e 73 77 65 72 20 6f 6e 65 20 may answer one
0210: 6f 72 20 6d 6f 72 65 20 71 75 65 73 74 69 6f 6e or more question
0220: 73 20 79 6f 75 20 6d 61 79 20 68 61 76 65 20 61 s you may have a
0230: 62 6f 75 74 20 79 6f 75 72 20 6f 77 6e 20 73 65 bout your own se
0240: 74 75 70 2e 0d 0a 0d 0a 3c 68 32 3e 20 4f 76 65 tup.....<h2> Ove
0250: 72 76 69 65 77 3c 2f 68 32 3e 0d 0a 0d 0a 54 6f rview</h2>....To
0260: 20 6b 65 65 70 20 74 68 69 6e 67 73 20 2e 2e 2e keep things ...
0270: 20 73 61 6e 65 2e 2e 2e 20 53 65 61 6e 20 68 61 sane... Sean ha
0280: 73 20 62 72 6f 6b 65 6e 20 68 69 73 20 63 6f 6e s broken his con
0290: 66 69 67 75 72 61 74 69 6f 6e 20 66 69 6c 65 20 figuration file
02a0: 75 70 20 69 6e 74 6f 20 73 65 76 65 72 61 6c 20 up into several
02b0: 63 68 75 6e 6b 73 2e 20 3c 62 3e 63 6f 6e 66 69 chunks. <b>confi
02c0: 67 2e 74 63 6c 3c 2f 62 3e 20 69 73 20 6a 75 73 g.tcl</b> is jus
02d0: 74 20 74 68 65 20 6c 61 75 6e 63 68 69 6e 67 20 t the launching
02e0: 70 6f 69 6e 74 20 74 6f 20 67 65 74 20 74 6f 20 point to get to
02f0: 74 68 6f 73 65 20 66 69 6c 65 73 2e 0d 0a 0d 0a those files.....
0300: 46 69 6c 65 73 20 6f 6e 20 68 69 73 20 6c 69 6e Files on his lin
0310: 6f 64 65 20 61 72 65 20 68 6f 73 74 65 64 20 66 ode are hosted f
0320: 72 6f 6d 20 2f 6f 70 74 2f 77 77 77 2e 20 55 6e rom /opt/www. Un
0330: 64 65 72 20 74 68 61 74 20 64 69 72 65 63 74 6f der that directo
0340: 72 79 20 69 73 3a 0d 0a 3c 74 61 62 6c 65 3e 0d ry is:..<table>.
0350: 0a 3c 74 72 3e 3c 74 68 20 61 6c 69 67 6e 3d 6c .<tr><th align=l
0360: 65 66 74 3e 68 74 64 6f 63 73 2f 3c 2f 74 68 3e eft>htdocs/</th>
0370: 3c 74 64 3e 54 68 65 20 64 6f 63 5f 72 6f 6f 74 <td>The doc_root
0380: 20 66 6f 72 20 74 68 65 20 64 65 66 61 75 6c 74 for the default
0390: 20 68 6f 73 74 20 28 68 74 74 70 3a 2f 2f 77 77 host (http://ww
03a0: 77 2e 65 74 6f 79 6f 63 2e 63 6f 6d 29 3c 2f 74 w.etoyoc.com)</t
03b0: 64 3e 3c 2f 74 72 3e 0d 0a 3c 74 72 3e 3c 74 68 d></tr>..<tr><th
03c0: 20 61 6c 69 67 6e 3d 6c 65 66 74 3e 73 69 74 65 align=left>site
03d0: 73 2f 67 62 65 65 66 61 62 72 69 63 73 20 3c 2f s/gbeefabrics </
03e0: 74 68 3e 3c 74 64 3e 54 68 65 20 63 6f 6e 66 69 th><td>The confi
03f0: 67 75 72 61 74 69 6f 6e 20 66 69 6c 65 20 61 6e guration file an
0400: 64 20 73 74 61 74 69 63 20 63 6f 6e 74 65 6e 74 d static content
0410: 20 66 6f 72 20 68 74 74 70 3a 2f 2f 77 77 77 2e for http://www.
0420: 67 62 65 65 66 61 62 72 69 63 73 2e 63 6f 6d 3c gbeefabrics.com<
0430: 2f 74 64 3e 3c 2f 74 72 3e 0d 0a 3c 74 72 3e 3c /td></tr>..<tr><
0440: 74 68 20 61 6c 69 67 6e 3d 6c 65 66 74 3e 73 69 th align=left>si
0450: 74 65 73 2f 66 6f 73 73 69 6c 3c 2f 74 68 3e 3c tes/fossil</th><
0460: 74 64 3e 54 68 65 20 63 6f 6e 66 69 67 75 72 61 td>The configura
0470: 74 69 6f 6e 20 66 69 6c 65 20 61 6e 64 20 73 74 tion file and st
0480: 61 74 69 63 20 63 6f 6e 74 65 6e 74 20 66 6f 72 atic content for
0490: 20 68 74 74 70 3a 2f 2f 66 6f 73 73 69 6c 2e 65 http://fossil.e
04a0: 74 6f 79 6f 63 2e 63 6f 6d 3c 2f 74 64 3e 3c 2f toyoc.com</td></
04b0: 74 72 3e 0d 0a 3c 74 72 3e 3c 74 68 20 61 6c 69 tr>..<tr><th ali
04c0: 67 6e 3d 6c 65 66 74 3e 73 69 74 65 73 2f 79 6f gn=left>sites/yo
04d0: 64 61 3c 2f 74 68 3e 3c 74 64 3e 54 68 65 20 63 da</th><td>The c
04e0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 69 6c onfiguration fil
04f0: 65 20 61 6e 64 20 73 74 61 74 69 63 20 63 6f 6e e and static con
0500: 74 65 6e 74 20 53 65 61 6e 27 73 20 70 65 72 73 tent Sean's pers
0510: 6f 6e 61 6c 20 77 65 62 73 69 74 65 20 68 74 74 onal website htt
0520: 70 3a 2f 2f 77 77 77 2e 65 74 6f 79 6f 63 2e 63 p://www.etoyoc.c
0530: 6f 6d 2f 79 6f 64 61 3c 2f 74 64 3e 3c 2f 74 72 om/yoda</td></tr
0540: 3e 0d 0a 3c 74 72 3e 3c 74 68 20 61 6c 69 67 6e >..<tr><th align
0550: 3d 6c 65 66 74 20 3e 73 69 74 65 73 2f 70 66 66 =left >sites/pff
0560: 3c 2f 74 68 3e 3c 74 64 3e 54 68 65 20 63 6f 6e </th><td>The con
0570: 66 69 67 75 72 61 74 69 6f 6e 20 66 69 6c 65 2c figuration file,
0580: 20 73 74 61 74 69 63 20 63 6f 6e 74 65 6e 74 2c static content,
0590: 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 73 2c customizations,
05a0: 20 65 74 63 20 66 6f 72 20 61 6e 20 6f 6e 6c 69 etc for an onli
05b0: 6e 65 20 76 6f 6c 75 6e 74 65 65 72 20 72 65 67 ne volunteer reg
05c0: 69 73 74 72 61 74 69 6f 6e 20 64 61 74 61 62 61 istration databa
05d0: 73 65 20 74 68 65 20 53 65 61 6e 20 72 75 6e 73 se the Sean runs
05e0: 20 66 6f 72 20 74 68 65 20 50 68 69 6c 61 64 65 for the Philade
05f0: 6c 70 68 69 61 20 46 6f 6c 6b 20 46 65 73 74 69 lphia Folk Festi
0600: 76 61 6c 73 27 20 43 61 6d 70 69 6e 67 20 43 6f vals' Camping Co
0610: 6d 6d 69 74 74 65 65 2e 20 28 68 74 74 70 3a 2f mmittee. (http:/
0620: 2f 70 66 66 2e 65 74 6f 79 6f 63 2e 63 6f 6d 29 /pff.etoyoc.com)
0630: 3c 2f 74 64 3e 3c 2f 74 72 3e 0d 0a 3c 2f 74 61 </td></tr>..</ta
0640: 62 6c 65 3e 0d 0a 0d 0a 54 6f 20 6d 61 6b 65 20 ble>....To make
0650: 74 68 69 6e 67 73 20 65 78 74 72 61 20 69 6e 74 things extra int
0660: 65 72 65 73 74 69 6e 67 2c 20 53 65 61 6e 20 62 eresting, Sean b
0670: 75 69 6c 64 73 20 61 6c 6c 20 6f 66 20 68 69 73 uilds all of his
0680: 20 63 6f 6e 74 65 6e 74 20 61 74 20 68 6f 6d 65 content at home
0690: 2c 20 61 6e 64 20 73 79 6e 63 68 72 6f 6e 69 7a , and synchroniz
06a0: 65 73 20 74 68 65 20 66 69 6c 65 20 73 79 73 74 es the file syst
06b0: 65 6d 73 20 6f 6e 20 6c 69 6e 6f 64 65 20 76 69 ems on linode vi
06c0: 61 20 72 73 79 6e 63 2e 20 53 6f 20 74 68 65 72 a rsync. So ther
06d0: 65 20 61 72 65 20 73 65 76 65 72 61 6c 20 70 6f e are several po
06e0: 69 6e 74 73 20 69 6e 20 74 68 65 20 63 6f 6e 66 ints in the conf
06f0: 69 67 75 72 61 74 69 6f 6e 20 77 68 65 72 65 20 iguration where
0700: 61 6e 20 61 6c 74 65 72 6e 61 74 65 20 55 52 4c an alternate URL
0710: 20 69 73 20 70 72 6f 76 69 64 65 64 20 69 66 20 is provided if
0720: 74 68 65 20 72 65 71 75 65 73 74 20 77 61 73 20 the request was
0730: 66 6f 72 20 6c 6f 63 61 6c 68 6f 73 74 2c 20 61 for localhost, a
0740: 6e 64 20 6e 6f 74 20 61 20 70 75 62 6c 69 63 20 nd not a public
0750: 64 6f 6d 61 69 6e 20 6e 61 6d 65 2e 0d 0a 0d 0a domain name.....
0760: 3c 68 33 3e 63 6f 6e 66 69 67 2e 74 63 6c 3c 2f <h3>config.tcl</
0770: 68 33 3e 0d 0a 53 65 61 6e 27 73 20 63 6f 6e 66 h3>..Sean's conf
0780: 69 67 2e 74 63 6c 20 69 73 20 6c 65 73 73 20 61 ig.tcl is less a
0790: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 configuration f
07a0: 69 6c 65 20 74 68 61 6e 20 61 20 6c 61 75 6e 63 ile than a launc
07b0: 68 69 6e 67 20 70 6f 69 6e 74 20 74 6f 20 6c 6f hing point to lo
07c0: 61 64 20 6f 74 68 65 72 20 63 6f 6e 66 69 67 75 ad other configu
07d0: 72 61 74 69 6f 6e 20 66 69 6c 65 73 3a 0d 0a 0d ration files:...
07e0: 0a 3c 76 65 72 62 61 74 69 6d 3e 0d 0a 23 23 23 .<verbatim>..###
07f0: 0d 0a 23 20 54 68 65 20 73 65 72 76 65 72 27 73 ..# The server's
0800: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 63 configuration c
0810: 61 6e 20 62 65 20 6d 6f 64 69 66 69 65 64 20 77 an be modified w
0820: 69 74 68 20 63 61 6c 6c 73 20 74 6f 20 22 6d 79 ith calls to "my
0830: 20 63 6f 6e 66 69 67 20 73 65 74 22 0d 0a 23 23 config set"..##
0840: 23 0d 0a 6d 79 20 63 6f 6e 66 69 67 20 73 65 74 #..my config set
0850: 20 64 6f 63 5f 74 74 6c 20 39 30 30 0d 0a 0d 0a doc_ttl 900....
0860: 23 23 23 0d 0a 23 20 50 61 63 6b 61 67 65 20 72 ###..# Package r
0870: 65 71 75 69 72 65 20 74 68 65 20 73 74 6f 63 6b equire the stock
0880: 20 70 6c 75 67 69 6e 73 20 77 65 20 6e 65 65 64 plugins we need
0890: 0d 0a 23 23 23 0d 0a 70 61 63 6b 61 67 65 20 72 ..###..package r
08a0: 65 71 75 69 72 65 20 74 6f 61 64 68 74 74 70 64 equire toadhttpd
08b0: 3a 3a 73 71 6c 69 74 65 0d 0a 70 61 63 6b 61 67 ::sqlite..packag
08c0: 65 20 72 65 71 75 69 72 65 20 74 6f 61 64 68 74 e require toadht
08d0: 74 70 64 3a 3a 62 6f 75 6e 63 65 72 0d 0a 70 61 tpd::bouncer..pa
08e0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6f ckage require to
08f0: 61 64 68 74 74 70 64 3a 3a 63 6c 69 71 75 65 0d adhttpd::clique.
0900: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0910: 20 74 6f 61 64 68 74 74 70 64 3a 3a 66 6f 73 73 toadhttpd::foss
0920: 69 6c 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 il..package requ
0930: 69 72 65 20 74 6f 61 64 68 74 74 70 64 3a 3a 74 ire toadhttpd::t
0940: 72 69 76 69 61 0d 0a 70 61 63 6b 61 67 65 20 72 rivia..package r
0950: 65 71 75 69 72 65 20 74 6f 61 64 68 74 74 70 64 equire toadhttpd
0960: 3a 3a 62 6f 6f 74 73 74 72 61 70 0d 0a 70 61 63 ::bootstrap..pac
0970: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6f 61 kage require toa
0980: 64 68 74 74 70 64 3a 3a 6e 61 64 67 65 72 0d 0a dhttpd::nadger..
0990: 0d 0a 23 23 23 0d 0a 23 20 53 6f 6d 65 20 70 6c ..###..# Some pl
09a0: 75 67 69 6e 73 20 69 6e 6a 65 63 74 20 62 65 68 ugins inject beh
09b0: 61 76 69 6f 72 20 69 6e 74 6f 20 74 68 65 20 73 avior into the s
09c0: 65 72 76 65 72 20 6f 62 6a 65 63 74 0d 0a 23 20 erver object..#
09d0: 64 6f 20 74 68 61 74 20 70 72 6f 63 65 73 73 0d do that process.
09e0: 0a 23 23 23 0d 0a 6d 79 20 70 6c 75 67 69 6e 20 .###..my plugin
09f0: 62 6f 75 6e 63 65 72 0d 0a 6d 79 20 70 6c 75 67 bouncer..my plug
0a00: 69 6e 20 73 71 6c 69 74 65 0d 0a 6d 79 20 70 6c in sqlite..my pl
0a10: 75 67 69 6e 20 63 6c 69 71 75 65 0d 0a 6d 79 20 ugin clique..my
0a20: 70 6c 75 67 69 6e 20 62 6f 6f 74 73 74 72 61 70 plugin bootstrap
0a30: 0d 0a 6d 79 20 70 6c 75 67 69 6e 20 6e 61 64 67 ..my plugin nadg
0a40: 65 72 0d 0a 0d 0a 23 20 52 65 6d 65 6d 62 65 72 er....# Remember
0a50: 20 74 68 69 73 20 6c 6f 63 61 74 69 6f 6e 0d 0a this location..
0a60: 73 65 74 20 73 72 76 68 65 72 65 20 5b 66 69 6c set srvhere [fil
0a70: 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 e dirname [file
0a80: 6e 6f 72 6d 61 6c 69 7a 65 20 5b 69 6e 66 6f 20 normalize [info
0a90: 73 63 72 69 70 74 5d 5d 5d 0d 0a 0d 0a 23 23 23 script]]]....###
0aa0: 0d 0a 23 20 53 6f 6d 65 20 70 6c 75 67 69 6e 73 ..# Some plugins
0ab0: 20 72 65 71 75 69 72 65 20 61 64 64 69 74 69 6f require additio
0ac0: 6e 61 6c 20 73 69 74 65 20 73 70 65 63 69 66 69 nal site specifi
0ad0: 63 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d c configuration.
0ae0: 0a 23 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0d 0a .# information..
0af0: 23 23 23 0d 0a 6d 79 20 63 6f 6e 66 69 67 20 73 ###..my config s
0b00: 65 74 20 6e 6f 74 69 66 69 65 72 5f 73 65 6e 64 et notifier_send
0b10: 65 72 20 20 20 20 20 7b 54 68 65 20 42 6c 75 65 er {The Blue
0b20: 20 46 61 69 72 79 7d 0d 0a 6d 79 20 63 6f 6e 66 Fairy}..my conf
0b30: 69 67 20 73 65 74 20 6e 6f 74 69 66 69 65 72 5f ig set notifier_
0b40: 6f 72 69 67 69 6e 61 74 6f 72 20 52 45 44 41 43 originator REDAC
0b50: 54 45 44 5f 45 4d 41 49 4c 5f 41 44 44 52 45 53 TED_EMAIL_ADDRES
0b60: 53 0d 0a 6d 79 20 63 6f 6e 66 69 67 20 73 65 74 S..my config set
0b70: 20 6e 6f 74 69 66 69 65 72 5f 70 6f 72 74 73 20 notifier_ports
0b80: 20 20 20 20 20 20 20 52 45 44 41 43 54 45 44 5f REDACTED_
0b90: 53 4d 54 50 5f 50 4f 52 54 53 0d 0a 6d 79 20 63 SMTP_PORTS..my c
0ba0: 6f 6e 66 69 67 20 73 65 74 20 6e 6f 74 69 66 69 onfig set notifi
0bb0: 65 72 5f 73 65 72 76 65 72 20 20 20 20 20 20 20 er_server
0bc0: 52 45 44 41 43 54 45 44 5f 53 4d 54 50 5f 53 45 REDACTED_SMTP_SE
0bd0: 52 56 45 52 0d 0a 6d 79 20 63 6f 6e 66 69 67 20 RVER..my config
0be0: 73 65 74 20 6e 6f 74 69 66 69 65 72 5f 75 73 65 set notifier_use
0bf0: 72 6e 61 6d 65 20 20 52 45 44 41 43 54 45 44 5f rname REDACTED_
0c00: 53 4d 54 50 5f 55 53 45 52 0d 0a 6d 79 20 63 6f SMTP_USER..my co
0c10: 6e 66 69 67 20 73 65 74 20 6e 6f 74 69 66 69 65 nfig set notifie
0c20: 72 5f 70 61 73 73 77 6f 72 64 20 20 52 45 44 41 r_password REDA
0c30: 43 54 45 44 5f 53 4d 54 50 5f 50 41 53 53 57 4f CTED_SMTP_PASSWO
0c40: 52 44 0d 0a 0d 0a 6e 61 6d 65 73 70 61 63 65 20 RD....namespace
0c50: 65 76 61 6c 20 3a 3a 65 74 6f 79 6f 63 20 7b 7d eval ::etoyoc {}
0c60: 0d 0a 23 23 23 0d 0a 23 20 4c 6f 61 64 20 6c 6f ..###..# Load lo
0c70: 6e 67 2d 66 6f 72 6d 20 63 75 73 74 6f 6d 69 7a ng-form customiz
0c80: 61 74 69 6f 6e 73 20 66 72 6f 6d 20 74 68 65 20 ations from the
0c90: 6c 69 62 74 6d 6c 20 64 69 72 65 63 74 6f 72 79 libtml directory
0ca0: 0d 0a 23 23 23 0d 0a 66 6f 72 65 61 63 68 20 66 ..###..foreach f
0cb0: 69 6c 65 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d ile [glob -nocom
0cc0: 70 6c 61 69 6e 20 5b 66 69 6c 65 20 6a 6f 69 6e plain [file join
0cd0: 20 24 73 72 76 68 65 72 65 20 6c 69 62 74 6d 6c $srvhere libtml
0ce0: 20 2a 2e 74 63 6c 5d 5d 20 7b 0d 0a 20 20 74 72 *.tcl]] {.. tr
0cf0: 79 20 7b 0d 0a 20 20 20 20 73 6f 75 72 63 65 20 y {.. source
0d00: 24 66 69 6c 65 0d 0a 20 20 7d 20 6f 6e 20 65 72 $file.. } on er
0d10: 72 6f 72 20 7b 65 72 72 20 65 72 72 64 61 74 7d ror {err errdat}
0d20: 20 7b 0d 0a 20 20 20 20 70 75 74 73 20 22 46 69 {.. puts "Fi
0d30: 6c 65 3a 20 24 66 69 6c 65 22 0d 0a 20 20 20 20 le: $file"..
0d40: 70 75 74 73 20 22 45 72 72 6f 72 3a 20 24 65 72 puts "Error: $er
0d50: 72 22 0d 0a 20 20 20 20 70 75 74 73 20 22 54 72 r".. puts "Tr
0d60: 61 63 65 3a 20 5b 64 69 63 74 20 67 65 74 20 24 ace: [dict get $
0d70: 65 72 72 64 61 74 20 2d 65 72 72 6f 72 69 6e 66 errdat -errorinf
0d80: 6f 5d 22 0d 0a 20 20 7d 0d 0a 7d 0d 0a 23 23 23 o]".. }..}..###
0d90: 0d 0a 23 20 47 6f 20 6f 75 74 20 74 6f 20 65 61 ..# Go out to ea
0da0: 63 68 20 73 69 74 65 20 61 6e 64 20 6c 6f 61 64 ch site and load
0db0: 20 61 6e 79 20 63 75 73 74 6f 6d 69 7a 61 74 69 any customizati
0dc0: 6f 6e 73 20 74 68 65 79 20 6e 65 65 64 0d 0a 23 ons they need..#
0dd0: 23 23 0d 0a 66 6f 72 65 61 63 68 20 73 69 74 65 ##..foreach site
0de0: 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 [glob -nocompla
0df0: 69 6e 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 73 in [file join $s
0e00: 72 76 68 65 72 65 20 73 69 74 65 73 20 2a 5d 5d rvhere sites *]]
0e10: 20 7b 0d 0a 20 20 66 6f 72 65 61 63 68 20 66 69 {.. foreach fi
0e20: 6c 65 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 le [glob -nocomp
0e30: 6c 61 69 6e 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 lain [file join
0e40: 24 73 69 74 65 20 6c 69 62 74 6d 6c 20 2a 2e 74 $site libtml *.t
0e50: 63 6c 5d 5d 20 7b 0d 0a 20 20 20 20 74 72 79 20 cl]] {.. try
0e60: 7b 0d 0a 20 20 20 20 20 20 73 6f 75 72 63 65 20 {.. source
0e70: 24 66 69 6c 65 0d 0a 20 20 20 20 7d 20 6f 6e 20 $file.. } on
0e80: 65 72 72 6f 72 20 7b 65 72 72 20 65 72 72 64 61 error {err errda
0e90: 74 7d 20 7b 0d 0a 20 20 20 20 20 20 70 75 74 73 t} {.. puts
0ea0: 20 22 46 69 6c 65 3a 20 24 66 69 6c 65 22 0d 0a "File: $file"..
0eb0: 20 20 20 20 20 20 70 75 74 73 20 22 45 72 72 6f puts "Erro
0ec0: 72 3a 20 24 65 72 72 22 0d 0a 20 20 20 20 20 20 r: $err"..
0ed0: 70 75 74 73 20 22 54 72 61 63 65 3a 20 5b 64 69 puts "Trace: [di
0ee0: 63 74 20 67 65 74 20 24 65 72 72 64 61 74 20 2d ct get $errdat -
0ef0: 65 72 72 6f 72 69 6e 66 6f 5d 22 0d 0a 20 20 20 errorinfo]"..
0f00: 20 7d 0d 0a 20 20 7d 0d 0a 7d 0d 0a 23 23 23 0d }.. }..}..###.
0f10: 0a 23 20 53 65 6e 64 20 72 65 71 75 65 73 74 73 .# Send requests
0f20: 20 66 6f 72 20 70 6f 70 75 6c 61 72 20 73 63 72 for popular scr
0f30: 69 70 74 20 61 74 74 61 63 6b 20 76 65 63 74 6f ipt attack vecto
0f40: 72 73 20 74 6f 0d 0a 23 20 74 68 65 20 62 6c 61 rs to..# the bla
0f50: 63 6b 20 68 6f 6c 65 20 69 6d 70 6c 65 6d 65 6e ck hole implemen
0f60: 74 65 64 20 69 6e 20 74 68 65 20 62 6f 75 6e 63 ted in the bounc
0f70: 65 72 20 70 6c 75 67 69 6e 0d 0a 23 23 23 0d 0a er plugin..###..
0f80: 6d 79 20 75 72 69 20 61 64 64 20 25 20 7b 0d 0a my uri add % {..
0f90: 20 20 2f 63 63 76 76 0d 0a 20 20 2f 61 64 6d 69 /ccvv.. /admi
0fa0: 6e 25 0d 0a 20 20 2f 74 65 73 74 2f 77 70 2d 61 n%.. /test/wp-a
0fb0: 64 6d 69 6e 25 0d 0a 20 20 2f 77 70 2d 6c 6f 67 dmin%.. /wp-log
0fc0: 69 6e 2e 70 68 70 25 0d 0a 20 20 2f 43 47 49 2f in.php%.. /CGI/
0fd0: 45 78 65 63 75 74 65 20 2f 50 68 70 4d 79 41 64 Execute /PhpMyAd
0fe0: 6d 69 6e 25 20 25 2e 70 68 70 0d 0a 20 20 2f 6d min% %.php.. /m
0ff0: 61 6e 61 67 65 72 2f 68 74 6d 6c 0d 0a 20 20 2f anager/html.. /
1000: 77 6c 73 2d 77 73 61 74 25 20 2f 2e 44 53 5f 53 wls-wsat% /.DS_S
1010: 74 6f 72 65 25 20 2f 2e 67 69 74 25 20 20 2f 2e tore% /.git% /.
1020: 68 67 25 20 20 2f 2e 69 64 65 61 25 20 20 2f 2e hg% /.idea% /.
1030: 73 73 68 25 0d 0a 20 20 2f 2e 77 65 6c 6c 2d 6b ssh%.. /.well-k
1040: 6e 6f 77 6e 25 20 20 25 70 68 70 75 6e 69 74 25 nown% %phpunit%
1050: 20 20 2f 73 66 74 70 5f 63 6f 6e 66 69 67 2e 25 /sftp_config.%
1060: 0d 0a 7d 20 7b 0d 0a 20 20 6d 69 78 69 6e 20 74 ..} {.. mixin t
1070: 6f 61 64 68 74 74 70 64 3a 3a 63 6f 6e 74 65 6e oadhttpd::conten
1080: 74 2e 68 6f 6e 65 79 70 6f 74 0d 0a 7d 0d 0a 0d t.honeypot..}...
1090: 0a 23 23 23 0d 0a 23 20 20 4c 6f 61 64 20 74 68 .###..# Load th
10a0: 65 20 73 69 74 65 20 73 70 65 63 69 66 69 63 20 e site specific
10b0: 55 52 4c 20 72 75 6c 65 73 0d 0a 23 23 23 0d 0a URL rules..###..
10c0: 66 6f 72 65 61 63 68 20 73 69 74 65 20 5b 67 6c foreach site [gl
10d0: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 5b ob -nocomplain [
10e0: 66 69 6c 65 20 6a 6f 69 6e 20 24 73 72 76 68 65 file join $srvhe
10f0: 72 65 20 73 69 74 65 73 20 2a 5d 5d 20 7b 0d 0a re sites *]] {..
1100: 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 if {![file exi
1110: 73 74 73 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 sts [file join $
1120: 73 69 74 65 20 63 6f 6e 66 69 67 2e 74 63 6c 5d site config.tcl]
1130: 5d 7d 20 63 6f 6e 74 69 6e 75 65 0d 0a 20 20 74 ]} continue.. t
1140: 72 79 20 7b 0d 0a 20 20 20 20 73 65 74 20 73 69 ry {.. set si
1150: 74 65 6e 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 tename [file tai
1160: 6c 20 24 73 69 74 65 5d 0d 0a 20 20 20 20 73 6f l $site].. so
1170: 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 urce [file join
1180: 24 73 69 74 65 20 63 6f 6e 66 69 67 2e 74 63 6c $site config.tcl
1190: 5d 0d 0a 20 20 7d 20 6f 6e 20 65 72 72 6f 72 20 ].. } on error
11a0: 7b 65 72 72 20 65 72 72 64 61 74 7d 20 7b 0d 0a {err errdat} {..
11b0: 20 20 20 20 70 75 74 73 20 22 53 69 74 65 3a 20 puts "Site:
11c0: 24 73 69 74 65 22 0d 0a 20 20 20 20 70 75 74 73 $site".. puts
11d0: 20 22 45 72 72 6f 72 3a 20 24 65 72 72 22 0d 0a "Error: $err"..
11e0: 20 20 20 20 70 75 74 73 20 22 54 72 61 63 65 3a puts "Trace:
11f0: 20 5b 64 69 63 74 20 67 65 74 20 24 65 72 72 64 [dict get $errd
1200: 61 74 20 2d 65 72 72 6f 72 69 6e 66 6f 5d 22 0d at -errorinfo]".
1210: 0a 20 20 7d 0d 0a 7d 0d 0a 3c 2f 76 65 72 62 61 . }..}..</verba
1220: 74 69 6d 3e 0d 0a 0d 0a 3c 68 33 3e 73 69 74 65 tim>....<h3>site
1230: 73 2f 66 6f 73 73 69 6c 2f 63 6f 6e 66 69 67 2e s/fossil/config.
1240: 74 63 6c 3c 2f 68 33 3e 0d 0a 3c 76 65 72 62 61 tcl</h3>..<verba
1250: 74 69 6d 3e 0d 0a 23 23 23 0d 0a 23 20 53 69 74 tim>..###..# Sit
1260: 65 73 20 63 61 6e 20 6c 6f 61 64 20 74 68 65 69 es can load thei
1270: 72 20 6f 77 6e 20 70 61 63 6b 61 67 65 73 0d 0a r own packages..
1280: 23 23 23 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 ###..package req
1290: 75 69 72 65 20 74 6f 61 64 68 74 74 70 64 3a 3a uire toadhttpd::
12a0: 66 6f 73 73 69 6c 0d 0a 73 65 74 20 68 65 72 65 fossil..set here
12b0: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
12c0: 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 0d 0a 0d info script]]...
12d0: 0a 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 .if {[file exist
12e0: 73 20 2f 6f 70 74 2f 66 6f 73 73 69 6c 5d 7d 20 s /opt/fossil]}
12f0: 7b 0d 0a 20 20 23 23 23 0d 0a 20 20 23 20 4f 6e {.. ###.. # On
1300: 20 74 68 65 20 73 65 72 76 65 72 20 77 65 20 6f the server we o
1310: 6e 6c 79 20 64 65 6c 69 76 65 72 20 66 6f 73 73 nly deliver foss
1320: 69 6c 20 72 65 70 6f 73 20 69 6e 20 74 68 65 20 il repos in the
1330: 2f 6f 70 74 2f 66 6f 73 73 69 6c 20 64 69 72 65 /opt/fossil dire
1340: 63 74 6f 72 79 0d 0a 20 20 23 23 23 0d 0a 20 20 ctory.. ###..
1350: 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67 6c foreach file [gl
1360: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2f ob -nocomplain /
1370: 6f 70 74 2f 66 6f 73 73 69 6c 2f 2a 2e 66 6f 73 opt/fossil/*.fos
1380: 73 69 6c 5d 20 7b 0d 0a 20 20 20 20 73 65 74 20 sil] {.. set
1390: 70 72 6f 6a 20 5b 66 69 6c 65 20 72 6f 6f 74 6e proj [file rootn
13a0: 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 ame [file tail $
13b0: 66 69 6c 65 5d 5d 0d 0a 20 20 20 20 23 23 23 0d file]].. ###.
13c0: 0a 20 20 20 20 23 20 41 64 64 20 74 6f 20 74 68 . # Add to th
13d0: 65 20 67 6c 6f 62 61 6c 20 72 6f 62 6f 74 73 2e e global robots.
13e0: 74 78 74 20 66 69 6c 65 20 74 68 61 74 20 77 65 txt file that we
13f0: 20 52 45 41 4c 4c 59 20 64 6f 20 6e 6f 74 20 77 REALLY do not w
1400: 61 6e 74 20 74 6f 20 73 65 65 20 72 6f 62 6f 74 ant to see robot
1410: 73 20 68 69 74 74 69 6e 67 0d 0a 20 20 20 20 23 s hitting.. #
1420: 20 61 6e 79 20 6f 66 20 74 68 65 20 66 6f 6c 6c any of the foll
1430: 6f 77 69 6e 67 20 55 52 49 73 20 74 68 61 74 20 owing URIs that
1440: 66 6f 73 73 69 6c 20 68 6f 73 74 73 0d 0a 20 20 fossil hosts..
1450: 20 20 23 23 23 0d 0a 20 20 20 20 66 6f 72 65 61 ###.. forea
1460: 63 68 20 61 72 65 61 20 7b 6c 6f 67 69 6e 20 6c ch area {login l
1470: 65 61 76 65 73 20 66 69 6c 65 73 20 62 72 6c 69 eaves files brli
1480: 73 74 20 74 61 67 6c 69 73 74 20 72 65 70 6f 72 st taglist repor
1490: 74 6c 69 73 74 20 73 65 74 75 70 20 74 65 73 74 tlist setup test
14a0: 20 74 6b 74 68 69 73 74 6f 72 79 20 68 65 6c 70 tkthistory help
14b0: 20 76 64 69 66 66 7d 20 7b 0d 0a 20 20 20 20 20 vdiff} {..
14c0: 20 6d 79 20 72 6f 62 6f 74 73 2e 74 78 74 20 61 my robots.txt a
14d0: 64 64 20 2f 66 6f 73 73 69 6c 2f 24 70 72 6f 6a dd /fossil/$proj
14e0: 2f 24 61 72 65 61 0d 0a 20 20 20 20 7d 0d 0a 20 /$area.. }..
14f0: 20 7d 0d 0a 20 20 6d 79 20 75 72 69 20 61 64 64 }.. my uri add
1500: 20 66 6f 73 73 69 6c 2e 65 74 6f 79 6f 63 2e 63 fossil.etoyoc.c
1510: 6f 6d 20 7b 2f 66 6f 73 73 69 6c 2f 20 2f 66 6f om {/fossil/ /fo
1520: 73 73 69 6c 2f 69 6e 64 65 78 25 7d 20 7b 0d 0a ssil/index%} {..
1530: 20 20 20 20 6d 69 78 69 6e 20 68 74 74 70 64 3a mixin httpd:
1540: 3a 63 6f 6e 74 65 6e 74 2e 72 65 64 69 72 65 63 :content.redirec
1550: 74 20 4c 4f 43 41 54 49 4f 4e 20 68 74 74 70 3a t LOCATION http:
1560: 2f 2f 66 6f 73 73 69 6c 2e 65 74 6f 79 6f 63 2e //fossil.etoyoc.
1570: 63 6f 6d 2f 66 6f 73 73 69 6c 0d 0a 20 20 7d 0d com/fossil.. }.
1580: 0a 20 20 6d 79 20 75 72 69 20 61 64 64 20 66 6f . my uri add fo
1590: 73 73 69 6c 2e 65 74 6f 79 6f 63 2e 63 6f 6d 20 ssil.etoyoc.com
15a0: 2f 66 6f 73 73 69 6c 20 7b 0d 0a 20 20 20 20 6d /fossil {.. m
15b0: 69 78 69 6e 20 74 6f 61 64 68 74 74 70 64 3a 3a ixin toadhttpd::
15c0: 63 6f 6e 74 65 6e 74 2e 66 6f 73 73 69 6c 5f 72 content.fossil_r
15d0: 6f 6f 74 0d 0a 20 20 20 20 66 6f 73 73 69 6c 5f oot.. fossil_
15e0: 72 6f 6f 74 20 2f 6f 70 74 2f 66 6f 73 73 69 6c root /opt/fossil
15f0: 0d 0a 20 20 20 20 70 72 65 66 69 78 20 66 6f 73 .. prefix fos
1600: 73 69 6c 0d 0a 20 20 7d 0d 0a 20 20 6d 79 20 75 sil.. }.. my u
1610: 72 69 20 61 64 64 20 66 6f 73 73 69 6c 2e 65 74 ri add fossil.et
1620: 6f 79 6f 63 2e 63 6f 6d 20 2f 66 6f 73 73 69 6c oyoc.com /fossil
1630: 2f 25 20 7b 0d 0a 20 20 20 20 6d 69 78 69 6e 20 /% {.. mixin
1640: 74 6f 61 64 68 74 74 70 64 3a 3a 63 6f 6e 74 65 toadhttpd::conte
1650: 6e 74 2e 66 6f 73 73 69 6c 5f 6e 6f 64 65 5f 73 nt.fossil_node_s
1660: 63 67 69 0d 0a 20 20 20 20 70 72 65 66 69 78 20 cgi.. prefix
1670: 66 6f 73 73 69 6c 0d 0a 20 20 20 20 66 6f 73 73 fossil.. foss
1680: 69 6c 5f 72 6f 6f 74 20 2f 6f 70 74 2f 66 6f 73 il_root /opt/fos
1690: 73 69 6c 0d 0a 20 20 7d 0d 0a 7d 20 65 6c 73 65 sil.. }..} else
16a0: 20 7b 0d 0a 20 20 23 23 23 0d 0a 20 20 23 20 4f {.. ###.. # O
16b0: 6e 20 74 68 65 20 64 65 76 20 6d 61 63 68 69 6e n the dev machin
16c0: 65 2c 20 6f 66 66 65 72 20 75 70 20 61 6e 79 20 e, offer up any
16d0: 66 6f 73 73 69 6c 20 72 65 70 6f 73 69 74 6f 72 fossil repositor
16e0: 79 0d 0a 20 20 23 20 74 68 61 74 20 63 61 6e 20 y.. # that can
16f0: 62 65 20 6c 6f 63 61 74 65 64 20 62 79 20 22 66 be located by "f
1700: 6f 73 73 69 6c 20 6c 69 73 74 22 0d 0a 20 20 23 ossil list".. #
1710: 23 0d 0a 20 20 6d 79 20 75 72 69 20 61 64 64 20 #.. my uri add
1720: 6c 6f 63 61 6c 68 6f 73 74 20 7b 2f 66 6f 73 73 localhost {/foss
1730: 69 6c 20 2f 66 6f 73 73 69 6c 2f 20 2f 66 6f 73 il /fossil/ /fos
1740: 73 69 6c 2f 69 6e 64 65 78 25 7d 20 7b 0d 0a 20 sil/index%} {..
1750: 20 20 20 6d 69 78 69 6e 20 74 6f 61 64 68 74 74 mixin toadhtt
1760: 70 64 3a 3a 63 6f 6e 74 65 6e 74 2e 66 6f 73 73 pd::content.foss
1770: 69 6c 5f 72 6f 6f 74 0d 0a 20 20 20 20 70 72 65 il_root.. pre
1780: 66 69 78 20 66 6f 73 73 69 6c 0d 0a 20 20 7d 0d fix fossil.. }.
1790: 0a 20 20 6d 79 20 75 72 69 20 61 64 64 20 6c 6f . my uri add lo
17a0: 63 61 6c 68 6f 73 74 20 2f 66 6f 73 73 69 6c 2f calhost /fossil/
17b0: 25 20 7b 0d 0a 20 20 20 20 54 54 4c 20 30 0d 0a % {.. TTL 0..
17c0: 20 20 20 20 6d 69 78 69 6e 20 74 6f 61 64 68 74 mixin toadht
17d0: 74 70 64 3a 3a 63 6f 6e 74 65 6e 74 2e 66 6f 73 tpd::content.fos
17e0: 73 69 6c 5f 6e 6f 64 65 5f 73 63 67 69 0d 0a 20 sil_node_scgi..
17f0: 20 20 20 70 72 65 66 69 78 20 66 6f 73 73 69 6c prefix fossil
1800: 0d 0a 20 20 7d 0d 0a 7d 0d 0a 3c 2f 76 65 72 62 .. }..}..</verb
1810: 61 74 69 6d 3e 0d 0a 0d 0a 3c 68 33 3e 73 69 74 atim>....<h3>sit
1820: 65 73 2f 67 62 65 65 66 61 62 72 69 63 73 2f 6c es/gbeefabrics/l
1830: 69 62 74 6d 6c 2f 67 62 65 65 2e 74 63 6c 3c 2f ibtml/gbee.tcl</
1840: 68 33 3e 0d 0a 54 68 69 73 20 66 69 6c 65 20 61 h3>..This file a
1850: 64 64 20 73 6f 6d 65 20 63 75 73 74 6f 6d 69 7a dd some customiz
1860: 65 64 20 62 65 68 61 76 69 6f 72 73 0d 0a 3c 76 ed behaviors..<v
1870: 65 72 62 61 74 69 6d 3e 0d 0a 6e 61 6d 65 73 70 erbatim>..namesp
1880: 61 63 65 20 65 76 61 6c 20 3a 3a 67 62 65 65 20 ace eval ::gbee
1890: 7b 7d 0d 0a 74 6f 6f 6c 3a 3a 64 65 66 69 6e 65 {}..tool::define
18a0: 20 3a 3a 67 62 65 65 3a 3a 73 74 79 6c 65 20 7b ::gbee::style {
18b0: 0d 0a 20 20 73 75 70 65 72 63 6c 61 73 73 20 3a .. superclass :
18c0: 3a 65 74 6f 79 6f 63 3a 3a 73 74 79 6c 65 0d 0a :etoyoc::style..
18d0: 0d 0a 20 20 6d 65 74 68 6f 64 20 68 74 6d 6c 5f .. method html_
18e0: 63 73 73 20 7b 7d 20 7b 0d 0a 20 20 20 20 75 70 css {} {.. up
18f0: 76 61 72 20 31 20 69 73 5f 6c 6f 63 61 6c 68 6f var 1 is_localho
1900: 73 74 20 69 73 5f 6c 6f 63 61 6c 68 6f 73 74 0d st is_localhost.
1910: 0a 20 20 20 20 69 66 20 7b 24 69 73 5f 6c 6f 63 . if {$is_loc
1920: 61 6c 68 6f 73 74 7d 20 7b 0d 0a 20 20 20 20 20 alhost} {..
1930: 20 73 65 74 20 73 69 74 65 5f 72 6f 6f 74 20 2f set site_root /
1940: 67 62 65 65 0d 0a 20 20 20 20 20 20 73 65 74 20 gbee.. set
1950: 73 69 74 65 5f 72 65 6c 20 7b 7d 0d 0a 20 20 20 site_rel {}..
1960: 20 20 20 73 65 74 20 73 74 79 6c 65 73 68 65 65 set styleshee
1970: 74 20 2f 67 62 65 65 2f 73 74 79 6c 65 2e 63 73 t /gbee/style.cs
1980: 73 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d s.. } else {.
1990: 0a 20 20 20 20 20 20 73 65 74 20 73 69 74 65 5f . set site_
19a0: 72 6f 6f 74 20 7b 7d 0d 0a 20 20 20 20 20 20 73 root {}.. s
19b0: 65 74 20 73 69 74 65 5f 72 65 6c 20 7b 7d 0d 0a et site_rel {}..
19c0: 20 20 20 20 20 20 73 65 74 20 73 74 79 6c 65 73 set styles
19d0: 68 65 65 74 20 2f 73 74 79 6c 65 2e 63 73 73 0d heet /style.css.
19e0: 0a 20 20 20 20 7d 0d 0a 20 20 20 20 61 70 70 65 . }.. appe
19f0: 6e 64 20 72 65 73 75 6c 74 20 22 3c 6c 69 6e 6b nd result "<link
1a00: 20 72 65 6c 3d 5c 22 73 74 79 6c 65 73 68 65 65 rel=\"styleshee
1a10: 74 5c 22 20 68 72 65 66 3d 5c 22 24 7b 73 74 79 t\" href=\"${sty
1a20: 6c 65 73 68 65 65 74 7d 5c 22 3e 22 0d 0a 20 20 lesheet}\">"..
1a30: 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 append result
1a40: 5c 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20 7b 73 \n [uplevel 1 {s
1a50: 75 62 73 74 20 7b 3c 73 74 79 6c 65 20 6d 65 64 ubst {<style med
1a60: 69 61 3d 22 73 63 72 65 65 6e 22 20 74 79 70 65 ia="screen" type
1a70: 3d 22 74 65 78 74 2f 63 73 73 22 3e 0d 0a 62 6f ="text/css">..bo
1a80: 64 79 20 7b 0d 0a 09 62 61 63 6b 67 72 6f 75 6e dy {...backgroun
1a90: 64 3a 20 20 75 72 6c 28 24 7b 73 69 74 65 5f 72 d: url(${site_r
1aa0: 6f 6f 74 7d 2f 69 6d 61 67 65 73 2f 62 65 65 2d oot}/images/bee-
1ab0: 66 6c 65 65 63 65 2e 6a 70 67 29 20 72 65 70 65 fleece.jpg) repe
1ac0: 61 74 3b 0d 0a 09 66 6f 6e 74 2d 66 61 6d 69 6c at;...font-famil
1ad0: 79 3a 20 73 65 72 69 66 3b 0d 0a 09 63 6f 6c 6f y: serif;...colo
1ae0: 72 3a 23 30 30 30 30 36 36 3b 0d 0a 09 66 6f 6e r:#000066;...fon
1af0: 74 2d 73 69 7a 65 3a 20 31 32 70 74 3b 0d 0a 7d t-size: 12pt;..}
1b00: 0d 0a 2e 63 6f 6e 74 61 69 6e 65 72 20 7b 0d 0a ...container {..
1b10: 20 20 20 20 62 61 63 6b 67 72 6f 75 6e 64 2d 63 background-c
1b20: 6f 6c 6f 72 3a 20 77 68 69 74 65 3b 0d 0a 7d 0d olor: white;..}.
1b30: 0a 2e 6e 6f 72 6d 61 6c 20 7b 0d 0a 20 20 20 20 ..normal {..
1b40: 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f 72 background-color
1b50: 3a 20 77 68 69 74 65 3b 0d 0a 7d 0d 0a 3c 2f 73 : white;..}..</s
1b60: 74 79 6c 65 3e 7d 7d 5d 0d 0a 0d 0a 20 20 7d 0d tyle>}}].... }.
1b70: 0a 20 20 6d 65 74 68 6f 64 20 68 74 6d 6c 5f 68 . method html_h
1b80: 65 61 64 65 72 20 7b 74 69 74 6c 65 20 61 72 67 eader {title arg
1b90: 73 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20 72 65 s} {.. set re
1ba0: 73 75 6c 74 20 7b 7d 0d 0a 20 20 20 20 75 70 6c sult {}.. upl
1bb0: 65 76 65 6c 20 31 20 7b 0d 0a 73 65 74 20 69 73 evel 1 {..set is
1bc0: 5f 6c 6f 63 61 6c 68 6f 73 74 20 5b 65 78 70 72 _localhost [expr
1bd0: 20 7b 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 74 {[lindex [split
1be0: 20 5b 6d 79 20 68 74 74 70 5f 69 6e 66 6f 20 67 [my http_info g
1bf0: 65 74 6e 75 6c 6c 20 48 54 54 50 5f 48 4f 53 54 etnull HTTP_HOST
1c00: 5d 20 3a 5d 20 30 5d 20 65 71 20 22 6c 6f 63 61 ] :] 0] eq "loca
1c10: 6c 68 6f 73 74 22 7d 5d 0d 0a 20 20 20 20 7d 0d lhost"}].. }.
1c20: 0a 20 20 20 20 75 70 76 61 72 20 31 20 69 73 5f . upvar 1 is_
1c30: 6c 6f 63 61 6c 68 6f 73 74 20 69 73 5f 6c 6f 63 localhost is_loc
1c40: 61 6c 68 6f 73 74 0d 0a 20 20 20 20 69 66 20 7b alhost.. if {
1c50: 24 69 73 5f 6c 6f 63 61 6c 68 6f 73 74 7d 20 7b $is_localhost} {
1c60: 0d 0a 20 20 20 20 20 20 73 65 74 20 73 69 74 65 .. set site
1c70: 5f 72 6f 6f 74 20 2f 67 62 65 65 0d 0a 20 20 20 _root /gbee..
1c80: 20 20 20 73 65 74 20 73 69 74 65 5f 72 65 6c 20 set site_rel
1c90: 7b 7d 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 {}.. set st
1ca0: 79 6c 65 73 68 65 65 74 20 2f 67 62 65 65 2f 73 ylesheet /gbee/s
1cb0: 74 79 6c 65 2e 63 73 73 0d 0a 20 20 20 20 7d 20 tyle.css.. }
1cc0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 else {.. se
1cd0: 74 20 73 69 74 65 5f 72 6f 6f 74 20 7b 7d 0d 0a t site_root {}..
1ce0: 20 20 20 20 20 20 73 65 74 20 73 69 74 65 5f 72 set site_r
1cf0: 65 6c 20 7b 7d 0d 0a 20 20 20 20 20 20 73 65 74 el {}.. set
1d00: 20 73 74 79 6c 65 73 68 65 65 74 20 2f 73 74 79 stylesheet /sty
1d10: 6c 65 2e 63 73 73 0d 0a 20 20 20 20 7d 0d 0a 20 le.css.. }..
1d20: 20 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 append result
1d30: 20 22 3c 48 54 4d 4c 3e 3c 48 45 41 44 3e 22 0d "<HTML><HEAD>".
1d40: 0a 20 20 20 20 69 66 20 7b 24 74 69 74 6c 65 20 . if {$title
1d50: 6e 65 20 7b 7d 7d 20 7b 0d 0a 20 20 20 20 20 20 ne {}} {..
1d60: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 22 3c append result "<
1d70: 54 49 54 4c 45 3e 24 74 69 74 6c 65 3c 2f 54 49 TITLE>$title</TI
1d80: 54 4c 45 3e 22 0d 0a 20 20 20 20 7d 0d 0a 20 20 TLE>".. }..
1d90: 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 append result
1da0: 5b 6d 79 20 68 74 6d 6c 5f 63 73 73 5d 0d 0a 20 [my html_css]..
1db0: 20 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 append result
1dc0: 20 22 3c 2f 48 45 41 44 3e 3c 42 4f 44 59 3e 3c "</HEAD><BODY><
1dd0: 21 2d 2d 20 47 62 65 65 20 68 65 61 64 65 72 20 !-- Gbee header
1de0: 2d 2d 3e 22 0d 0a 20 20 20 20 61 70 70 65 6e 64 -->".. append
1df0: 20 72 65 73 75 6c 74 20 5c 6e 20 7b 3c 64 69 76 result \n {<div
1e00: 20 69 64 3d 22 74 6f 70 2d 6d 65 6e 75 22 3e 7d id="top-menu">}
1e10: 0d 0a 20 20 20 20 69 66 20 7b 5b 64 69 63 74 20 .. if {[dict
1e20: 65 78 69 73 74 73 20 24 61 72 67 73 20 62 61 6e exists $args ban
1e30: 6e 65 72 5d 7d 20 7b 0d 0a 20 20 20 20 20 20 61 ner]} {.. a
1e40: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 22 3c 69 ppend result "<i
1e50: 6d 67 20 73 72 63 3d 5c 22 5b 64 69 63 74 20 67 mg src=\"[dict g
1e60: 65 74 20 24 61 72 67 73 20 62 61 6e 6e 65 72 5d et $args banner]
1e70: 5c 22 3e 22 0d 0a 20 20 20 20 7d 20 65 6c 73 65 \">".. } else
1e80: 20 7b 0d 0a 20 20 20 20 20 20 61 70 70 65 6e 64 {.. append
1e90: 20 72 65 73 75 6c 74 20 22 3c 69 6d 67 20 73 72 result "<img sr
1ea0: 63 3d 5c 22 24 7b 73 69 74 65 5f 72 6f 6f 74 7d c=\"${site_root}
1eb0: 2f 69 6d 61 67 65 73 2f 67 62 65 65 2d 6c 6f 67 /images/gbee-log
1ec0: 6f 2e 6a 70 67 5c 22 3e 22 0d 0a 20 20 20 20 7d o.jpg\">".. }
1ed0: 0d 0a 20 20 20 20 69 66 20 7b 5b 64 69 63 74 20 .. if {[dict
1ee0: 65 78 69 73 74 73 20 24 61 72 67 73 20 73 69 64 exists $args sid
1ef0: 65 69 6d 67 5d 7d 20 7b 0d 0a 20 20 20 20 20 20 eimg]} {..
1f00: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 22 5c append result "\
1f10: 6e 3c 64 69 76 20 6e 61 6d 65 3d 5c 22 73 69 64 n<div name=\"sid
1f20: 65 69 6d 67 5c 22 3e 3c 69 6d 67 20 61 6c 69 67 eimg\"><img alig
1f30: 6e 3d 72 69 67 68 74 20 73 72 63 3d 5c 22 5b 64 n=right src=\"[d
1f40: 69 63 74 20 67 65 74 20 24 61 72 67 73 20 73 69 ict get $args si
1f50: 64 65 69 6d 67 5d 5c 22 20 77 69 64 74 68 3d 32 deimg]\" width=2
1f60: 35 25 3e 3c 2f 64 69 76 3e 22 0d 0a 20 20 20 20 5%></div>"..
1f70: 7d 0d 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65 }.. append re
1f80: 73 75 6c 74 20 7b 3c 64 69 76 20 69 64 3d 22 63 sult {<div id="c
1f90: 6f 6e 74 65 6e 74 22 3e 7d 0d 0a 20 20 20 20 72 ontent">}.. r
1fa0: 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 eturn $result..
1fb0: 20 7d 0d 0a 20 20 6d 65 74 68 6f 64 20 68 74 6d }.. method htm
1fc0: 6c 5f 66 6f 6f 74 65 72 5f 63 6f 6e 74 65 6e 74 l_footer_content
1fd0: 20 7b 61 72 67 73 7d 20 7b 0d 0a 20 20 20 20 20 {args} {..
1fe0: 72 65 74 75 72 6e 20 5b 73 75 62 73 74 20 7b 3c return [subst {<
1ff0: 66 6f 6e 74 20 73 69 7a 65 3d 22 2d 31 22 3e 41 font size="-1">A
2000: 6c 6c 20 63 6f 6e 74 65 6e 74 20 63 6f 70 79 72 ll content copyr
2010: 69 67 68 74 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d ight [clock form
2020: 61 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 at [clock second
2030: 73 5d 20 2d 66 6f 72 6d 61 74 20 25 59 5d 2c 20 s] -format %Y],
2040: 47 42 65 65 20 46 61 62 72 69 63 73 20 7c 20 3c GBee Fabrics | <
2050: 74 74 3e 65 6d 61 69 6c 3a 20 3c 61 20 68 72 65 tt>email: <a hre
2060: 66 3d 22 67 62 65 65 5f 66 61 62 72 69 63 73 40 f="gbee_fabrics@
2070: 65 74 6f 79 6f 63 2e 63 6f 6d 22 3e 67 62 65 65 etoyoc.com">gbee
2080: 5f 66 61 62 72 69 63 73 40 65 74 6f 79 6f 63 2e _fabrics@etoyoc.
2090: 63 6f 6d 3c 2f 61 3e 20 3c 2f 74 74 3e 3c 2f 62 com</a> </tt></b
20a0: 3e 7d 5d 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0d 0a 3c >}].. }..}....<
20b0: 2f 76 65 72 62 61 74 69 6d 3e 0d 0a 0d 0a 3c 68 /verbatim>....<h
20c0: 33 3e 73 69 74 65 73 2f 67 62 65 65 66 61 62 72 3>sites/gbeefabr
20d0: 69 63 73 2f 63 6f 6e 66 69 67 2e 74 63 6c 3c 2f ics/config.tcl</
20e0: 68 33 3e 0d 0a 3c 76 65 72 62 61 74 69 6d 3e 0d h3>..<verbatim>.
20f0: 0a 73 65 74 20 68 65 72 65 20 5b 66 69 6c 65 20 .set here [file
2100: 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 6e 6f dirname [file no
2110: 72 6d 61 6c 69 7a 65 20 5b 69 6e 66 6f 20 73 63 rmalize [info sc
2120: 72 69 70 74 5d 5d 5d 0d 0a 0d 0a 23 23 23 0d 0a ript]]]....###..
2130: 23 20 47 62 65 65 66 61 62 72 69 63 73 20 75 73 # Gbeefabrics us
2140: 65 73 20 61 20 63 75 73 74 6f 6d 20 63 6f 6e 74 es a custom cont
2150: 65 6e 74 20 67 65 6e 65 72 61 74 6f 72 20 74 6f ent generator to
2160: 20 64 65 6c 69 76 65 72 0d 0a 23 20 6e 65 77 73 deliver..# news
2170: 20 61 6e 64 20 65 76 65 6e 74 73 0d 0a 23 23 23 and events..###
2180: 0d 0a 6d 79 20 75 72 69 20 61 64 64 20 77 77 77 ..my uri add www
2190: 2e 67 62 65 65 66 61 62 72 69 63 73 2e 63 6f 6d .gbeefabrics.com
21a0: 20 7b 2f 6e 65 77 73 25 20 2f 65 76 65 6e 74 73 {/news% /events
21b0: 25 7d 20 7b 0d 0a 20 20 43 4f 4e 54 45 4e 54 5f %} {.. CONTENT_
21c0: 54 54 4c 20 38 36 34 30 30 0d 0a 20 20 6d 69 78 TTL 86400.. mix
21d0: 69 6e 6d 61 70 20 7b 72 65 70 6c 79 20 3a 3a 65 inmap {reply ::e
21e0: 74 6f 79 6f 63 3a 3a 63 6f 6e 74 65 6e 74 2e 6e toyoc::content.n
21f0: 65 77 73 20 73 74 79 6c 65 20 3a 3a 67 62 65 65 ews style ::gbee
2200: 3a 3a 73 74 79 6c 65 7d 0d 0a 20 20 70 72 65 66 ::style}.. pref
2210: 69 78 20 2f 6e 65 77 73 0d 0a 20 20 70 61 74 68 ix /news.. path
2220: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 68 65 72 [file join $her
2230: 65 20 68 74 64 6f 63 73 20 6e 65 77 73 5d 0d 0a e htdocs news]..
2240: 7d 0d 0a 23 23 23 0d 0a 23 20 41 6c 6c 20 6f 74 }..###..# All ot
2250: 68 65 72 20 74 72 61 66 66 69 63 20 66 6f 72 20 her traffic for
2260: 67 62 65 65 20 66 61 62 72 69 63 73 20 69 73 20 gbee fabrics is
2270: 73 74 61 74 69 63 20 63 6f 6e 74 65 6e 74 0d 0a static content..
2280: 23 20 73 65 72 76 65 64 20 66 72 6f 6d 20 73 69 # served from si
2290: 74 65 73 2f 67 62 65 65 66 61 62 72 69 63 73 2f tes/gbeefabrics/
22a0: 68 74 64 6f 63 73 0d 0a 23 20 4e 6f 74 65 3a 20 htdocs..# Note:
22b0: 57 65 20 75 73 65 20 61 6e 20 61 6c 74 65 72 6e We use an altern
22c0: 61 74 65 20 73 74 79 6c 65 20 70 6c 75 67 69 6e ate style plugin
22d0: 0d 0a 23 23 23 0d 0a 6d 79 20 75 72 69 20 61 64 ..###..my uri ad
22e0: 64 20 77 77 77 2e 67 62 65 65 66 61 62 72 69 63 d www.gbeefabric
22f0: 73 2e 63 6f 6d 20 25 20 7b 0d 0a 20 20 54 54 4c s.com % {.. TTL
2300: 20 38 36 34 30 30 0d 0a 20 20 6d 69 78 69 6e 6d 86400.. mixinm
2310: 61 70 20 7b 72 65 70 6c 79 20 68 74 74 70 64 3a ap {reply httpd:
2320: 3a 63 6f 6e 74 65 6e 74 2e 66 69 6c 65 20 73 74 :content.file st
2330: 79 6c 65 20 3a 3a 67 62 65 65 3a 3a 73 74 79 6c yle ::gbee::styl
2340: 65 7d 0d 0a 20 20 70 61 74 68 20 5b 66 69 6c 65 e}.. path [file
2350: 20 6a 6f 69 6e 20 24 68 65 72 65 20 68 74 64 6f join $here htdo
2360: 63 73 5d 0d 0a 7d 0d 0a 23 23 23 0d 0a 23 20 54 cs]..}..###..# T
2370: 68 65 20 77 65 62 73 69 74 65 20 68 61 73 20 68 he website has h
2380: 61 64 20 61 20 66 65 77 20 64 69 66 66 65 72 65 ad a few differe
2390: 6e 74 20 6e 61 6d 65 73 20 74 68 61 74 0d 0a 23 nt names that..#
23a0: 20 68 61 76 65 20 62 65 65 6e 20 70 72 69 6e 74 have been print
23b0: 65 64 20 74 6f 20 62 75 69 73 6e 65 73 73 20 63 ed to buisness c
23c0: 61 72 64 73 2c 20 72 65 64 69 72 65 63 74 20 74 ards, redirect t
23d0: 68 65 6d 0d 0a 23 20 74 6f 20 74 68 65 20 63 61 hem..# to the ca
23e0: 6e 6f 6e 69 63 61 6c 20 6c 6f 63 61 74 69 6f 6e nonical location
23f0: 0d 0a 23 23 23 0d 0a 6d 79 20 75 72 69 20 61 64 ..###..my uri ad
2400: 64 20 67 62 65 65 25 2e 65 74 6f 79 6f 63 2e 63 d gbee%.etoyoc.c
2410: 6f 6d 20 25 20 7b 0d 0a 20 20 6d 69 78 69 6e 20 om % {.. mixin
2420: 68 74 74 70 64 3a 3a 63 6f 6e 74 65 6e 74 2e 72 httpd::content.r
2430: 65 64 69 72 65 63 74 0d 0a 20 20 4c 4f 43 41 54 edirect.. LOCAT
2440: 49 4f 4e 20 68 74 74 70 3a 2f 2f 77 77 77 2e 67 ION http://www.g
2450: 62 65 65 66 61 62 72 69 63 73 2e 63 6f 6d 0d 0a beefabrics.com..
2460: 7d 0d 0a 0d 0a 23 23 23 0d 0a 23 20 4f 6e 20 74 }....###..# On t
2470: 68 65 20 64 65 76 20 62 6f 78 2c 20 49 20 6a 75 he dev box, I ju
2480: 73 74 20 6e 65 65 64 20 73 6f 6d 65 20 72 75 6c st need some rul
2490: 65 73 20 74 6f 20 64 65 6c 69 76 65 72 20 74 68 es to deliver th
24a0: 65 20 77 65 62 73 69 74 65 20 0d 0a 23 20 74 6f e website ..# to
24b0: 20 68 74 74 70 3a 2f 2f 6c 6f 63 61 6c 68 6f 73 http://localhos
24c0: 74 2f 67 62 65 65 0d 0a 23 23 23 0d 0a 6d 79 20 t/gbee..###..my
24d0: 75 72 69 20 61 64 64 20 6c 6f 63 61 6c 68 6f 73 uri add localhos
24e0: 74 20 7b 2f 67 62 65 65 2f 6e 65 77 73 25 20 2f t {/gbee/news% /
24f0: 67 62 65 65 2f 65 76 65 6e 74 73 25 7d 20 7b 0d gbee/events%} {.
2500: 0a 20 20 54 54 4c 20 30 0d 0a 20 20 6d 69 78 69 . TTL 0.. mixi
2510: 6e 6d 61 70 20 7b 72 65 70 6c 79 20 3a 3a 65 74 nmap {reply ::et
2520: 6f 79 6f 63 3a 3a 63 6f 6e 74 65 6e 74 2e 6e 65 oyoc::content.ne
2530: 77 73 20 73 74 79 6c 65 20 3a 3a 67 62 65 65 3a ws style ::gbee:
2540: 3a 73 74 79 6c 65 7d 0d 0a 20 20 70 72 65 66 69 :style}.. prefi
2550: 78 20 2f 67 62 65 65 2f 6e 65 77 73 0d 0a 20 20 x /gbee/news..
2560: 70 61 74 68 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 path [file join
2570: 24 68 65 72 65 20 68 74 64 6f 63 73 20 6e 65 77 $here htdocs new
2580: 73 5d 0d 0a 7d 0d 0a 6d 79 20 75 72 69 20 61 64 s]..}..my uri ad
2590: 64 20 6c 6f 63 61 6c 68 6f 73 74 20 2f 67 62 65 d localhost /gbe
25a0: 65 25 20 7b 0d 0a 20 20 43 4f 4e 54 45 4e 54 5f e% {.. CONTENT_
25b0: 54 54 4c 20 30 0d 0a 20 20 6d 69 78 69 6e 6d 61 TTL 0.. mixinma
25c0: 70 20 7b 72 65 70 6c 79 20 68 74 74 70 64 3a 3a p {reply httpd::
25d0: 63 6f 6e 74 65 6e 74 2e 66 69 6c 65 20 73 74 79 content.file sty
25e0: 6c 65 20 3a 3a 67 62 65 65 3a 3a 73 74 79 6c 65 le ::gbee::style
25f0: 7d 0d 0a 20 20 70 61 74 68 20 5b 66 69 6c 65 20 }.. path [file
2600: 6a 6f 69 6e 20 24 68 65 72 65 20 68 74 64 6f 63 join $here htdoc
2610: 73 5d 0d 0a 20 20 70 72 65 66 69 78 20 2f 67 62 s].. prefix /gb
2620: 65 65 0d 0a 7d 0d 0a 3c 2f 76 65 72 62 61 74 69 ee..}..</verbati
2630: 6d 3e 0a 5a 20 61 32 63 61 38 37 37 30 36 31 63 m>.Z a2ca877061c
2640: 30 32 32 30 36 65 32 37 64 37 37 66 66 65 66 65 02206e27d77ffefe
2650: 63 65 65 30 30 0a cee00.