rivet-3.1.1/doc/examples/hello1.rvt 000644 001750 001750 00000000025 13415407112 017714 0 ustar 00manghi manghi 000000 000000
rivet-3.1.1/doc/xml/directives.xml 000644 001750 001750 00000050034 13415407112 017645 0 ustar 00manghi manghi 000000 000000 Apache Rivet &version; Configuration
Rivet directives are used within the Apache httpd server
configuration to set up the environment where Rivet script
will be run.
Apache Rivet Configuration lines
Rivet has 3 general scope directives
RivetDirConf: for configuration directives meant to
apply to a directory treeRivetUserConf: for directives specific to
a user private spaceRivetServerConf: for any directive meant to apply
globally (either to the whole Rivet installation or a single
virtual host)
These directives are applied so that RivetDirConf will
override RivetUserConf, which in turn overrides any
RivetServerConf directives. Not every configuration directory
is meaningful to a scope directive, as shown in the table below. The scope
of application of a configuration line is matched also with the context where
it appears. Virtual hosts definitions are contexts where rivet configuration
lines can appear in many adding further customization to a given virtual
host server.
Example of configuration of a web server having independent
interpreters for each virtual host, a larger default cache and a specific
script to be executed before any templates/scripts located in /var/www/myrivetapp
<IfModule rivet_module>
AddType application/x-httpd-rivet .rvt
AddType application/x-rivet-tcl .tcl
RivetServerConf CacheSize 100
RivetServerConf SeparateVirtualInterps On
</IfModule>
<Directory /var/www/myrivetapp>
RivetDirConf BeforeScript "source /var/www/myrivetapp/before_script.tcl"
</Directory>Configuration Directives
Configuration Directives
DirConf
UserConf
ServerConf
Virtual Host
Notes
AbortScript
X
X
X
X
AfterScript
X
X
X
X
AfterEveryScript
X
X
X
X
BeforeScript
X
X
X
X
CacheSize
X
ChildExitScript
X
ChildInitScript
X
ErrorScript
X
X
X
X
ExportRivetNS
X
GlobalInitScript
X
effective only when SeparateVirtualInterps is Off (default)
ImportRivetNS
X
HonorHeaderOnlyRequests
X
MpmBridge
X
global setting
RequestHandler
X
X
SeparateChannels
X
global setting
SeparateVirtualInterps
X
global setting
ServerInitScript
X
UploadDirectory
X
X
X
UploadFilesToVar
X
UploadMaxSize
X
X
AbortScriptscript
If an is defined control is passed to it as
soon as the command is called.
is the right place where specific actions can be taken
to catch resources left dangling by the sudden interruption.
AfterScriptscript
Script to be called after each parsed .rvt template or .tcl script
is executed
In virtual hosts, this option overrides any AfterScript
definitions at the global level.
AfterEveryScriptscript
is a script that is to
be run anyway before requests processing ends. This script
is therefore run both when the content generation script
completes successfully and when its execution is interrupted
by . The code in this script
can understand whether it's running after the page was
interrupted by calling
with the argument -aborting. The command
will return 1 if an abort_page call took place
earlier in the request processing.
BeforeScriptscript
Script to be evaluated before each server parsed
(.rvt) page. This can be used to create a standard
header, for instance. It could also be used to load
code that you need for every page, if you don't want
to put it in a
when you are first
developing a web site.
This code is evaluated at the global level, not
inside the request namespace where pages are
evaluated.
In virtual hosts, this option takes precedence over
the global setting.
CacheSizesize
Sets the size of the internal page cache, where
is
the number of byte-compiled pages to be cached for
future use. Default is
MaxRequestsPerChild / 5, or 50,
if MaxRequestsPerChild is 0.
This option is completely global, even when using
separate per-virtual host interpreters.
ChildExitScriptscript
Script to be evaluated when each Apache child
process exits. This is the logical place to clean
up resources created in ,
if necessary.
In virtual hosts, this script is run in addition to
any global childexitscript.
When SeparateVirtualInterp
any ChildExitScript placed within a
will be that Virtual Host specific exit handler
ChildInitScriptscript
Script to be evaluated when each Apache child
process is initialized. This is the recommended
place to load modules, create global variables, open
connections to other facilities (such as databases)
and so on.
In virtual hosts, this script is run in addition to
any global childinitscript.
When SeparateVirtualInterp
any ChildInitScript placed within a
will be that Virtual Host specific ininitalization
ErrorScriptscript
When Rivet encounters an error in a script, it
constructs an HTML page with some information about
the error, and the script that was being
evaluated. If an is
specified, it is possible to create custom error
pages. This may be useful if you want to make sure
that users never view your source code.
In virtual hosts, this option takes precedence over
the global setting.
ExportRivetNSyesno
Rivet commands are created within the ::rivet namespace. Setting
this option you tell mod_rivet to place the whole command set on
the export list of namespace, enabling your scripts to import
them in a different namespace.
This option is, by nature, only available at the global levelHonorHeaderOnlyRequestsyesno
If a HEAD requests is issued by the client Rivet detects
this case and sends back to the client a standard header
response. If the real header has to be examined (e.g.
for debugging) you can turn this options on.
This option is, by nature, only available at the global levelImportRivetNSyesno
Rivet commands are created within the ::rivet namespace. Setting
this option you tell mod_rivet to place the whole command set on
the export list of namespace (implicitly forcing also ExportRivetNS)
and then importing the commands on the namespace export list into the
global namespace
This option is provided only for compatibility with existing code that assumes
mod_rivet commands to reside in the global namespace. It's utterly discouraged to
use it and it could be removed in future versions of Rivet
This option is, by nature, only available at the global level
MpmBridgestring
This global only option tells mod_rivet which MPM bridge has
to be loaded. The string argument is interpreted
first as a name of an MPM bridge and it's interpolated in the
string
bridge = apr_pstrcat(pool,RIVET_DIR,"/mpm/rivet_",rsc->mpm_bridge,"_mpm.so",NULL);
Where RIVET_DIR is the location of the rivet libraries whose definition
is controlled by the configuration argument --with-rivet-target-dir=DIR.
For example
RivetServerConf MpmBridge lazy will cause the
rivet_lazy_mpm.so library module to be loaded. If such library does not exists
mod_rivet tries to check if such definition is the fully qualified path to
such MPM bridge. If this fails the module causes the web server to stop with an error.
RequestHandlerrequest_handler_filename
Filename of the request handler script. Overrides the default request handler. Can
be virtual host specific
Note that changing this scripts requires the programmer to understand mod_rivet
request processing model. See the request processing
manual page
SeparateChannelsyesno
Internally mod_rivet creates a new Tcl channel (Rivet channel) which is configured
as stdout and registered to each existing interpreter.
There is no need of multiple channels in a single thread as each thread can
serve only one request at a time. But if you are deploying mod_rivet in a
complex environment running unrelated applications developed by
different teams, it could be the case to have SeparateVirtualInterps
set. If you want to enhance the environment separation you may also
set SeparateChannels to force mod_rivet to create
a channel per each Tcl interpreter thus enabling single application
code to change the Rivet channel parameters without affecting other
applications (even though changing the Tcl channel parameters is a rare
necessity). Setting this options increases the system overheads as each
Rivet channel needs to allocate its own control structures and internal
buffers.
This option is implemented in order to have fine-grained control over mod_rivet. In
nearly all practical cases you won't need to change Rivet Channel (stdout) settings
for different applications by calling fconfigure stdout .....
This option is, by nature, only available at the global level and has effect only if
also SeparateVirtualInterps is set
SeparateVirtualInterpsyesno
If on, Rivet will create a separate Tcl interpreter
for each Apache virtual host. This is useful in an
ISP type situation where it is desirable to separate
clients into separate interpreters, so that they
don't accidentally interfere with one another.
This option is, by nature, only available at the
global level. By enabling SeparateVirtualInterps
you must rely only on ChildInitScript to
initialize the interpreters. Don't expect the
initialization done in ServerInitScript and
GlobalInitScript to be handed down to the
slave interpreters that are private to each configured
virtual host.
ServerInitScriptscript
The directive ServerInitScript plays a special
role since the script runs within the master interpreter,
an interpreter created when the Apache web server is setting up
for answering requests and before worker processes/threads are
started. During this stage Apache is still running as a
single process, so this is the right place for doing
initialization of systems such as any IPC systems.
On systems with the capability of forking child processes
the Apache web server can run the prefork MPM. By default
rivet selects the prefork brigde which makes mod_rivet work
the way mod_rivet &version2-generic; work.
In a web server with this set up child processes inherit a copy of the
address space from the parent processes and therefore
Tcl interpreters too are replicated into the child address space.
If SeparateVirtualInteprs is Off child processes run with a
copy of the Tcl master interpreter and ServerInitScipt
thus provides a way to initialize only once
any subsequent Tcl interpreters created by fork calls as each
of them are clones of the master interpreter.
UploadDirectorydirectoryDirectory to place uploaded files.
In virtual hosts, this option takes precedence over
the global setting.
UploadFilesToVaryesno
This option controls whether it is possible to
upload files to a Tcl variable. If you have a size
limit, and don't have to deal with large files, this
might be more convenient than sending the data to a
file on disk.
UploadMaxSizesizeMaximum size for uploaded files.
In virtual hosts, this option takes precedence over
the global setting.
rivet-3.1.1/doc/images/draft.png 000644 001750 001750 00000042056 13415407112 017242 0 ustar 00manghi manghi 000000 000000 PNG
IHDR KZJ gAMA a IDATxv۸a sV8 B Lhp7 v 8<[ w ` 9*i $4 `-B
!
x b^8 x5oT G a 0 s ;&! b;0 7 kBC} b$xk eY? |o s$x c x ? /
{w :Rq pt5Ih'x H1'
桕R4EAB;[ ?Hhŏ1}ZBNBHQvC4)rB 29턶n} |CCkׯzA= 4 ew i}dx4!
ZHNWUŸC4 b/_a~9B [4 l/C4 l,+4 l)rϟ? 4`3&+m-c 8z%*i @55 WO#xyy9NB7? 6ϳ3cNhLkظwN H1&i֮.yB e=9i 4M8mrv/ .@b,5ẻVwͬ [ xm=oD%
k v R"e2ʽV}B v=%~n 4M0\.OǽKkm {_ބ4 Dd桿 8 Z9ɧGHhT4{C%
μ$ʤ k4 !OT,;NB rzAHCyiʲ,NӂZikòvV4 1} 7 }JyeѳIބ4 <蛄zӾgiB cB rzi:InL녙~~~.K܅J rWB+iO}%BH $ 3? UN pEz2? ,fN nXk]%k g~J ~ZK=q i bߛy q |ArBkyݗۉ#1'
_Ьvmۮy*[OSIH] Vބ4 |ޑ ZMrn xޣ$eQI w*~o*i {Oθ Rb44 Њ.uYT iI _;[IptЩJph:szs {SI8.j#u=M%
H44#b=촞p8>O QcN >4!
(Hh4!
XE4UU" i gMӐ{T.r8$u 7!
eFI??MHHQӄ44;}NLl
AvNr.}CӮ$t⬧ i IS 0 i S +Ŗӄ4D ND~1 )`nEGF%
`Hh8ɸ7!
`HhxCN vWO F M]bO1U 4 i ;&9MH
ӄ4`O1l.XN?uB>/7" ' ZQI ]p2iB+B@Hhʜ*!
B$49sVJ @\H5q aq vuY'"D^Cm[2 !אr<6j@H^(;4M֕!
;O }N1 %oEQ$!
/5t4^oy^UUUUί kxI] kPCC i>jh l,zzve8l,iN XNpdrCI>Ӟv,QtkT vF,4-)7Ri546AHث09:: !
`O@BIرe~iHh( `iqoWHhJY? n&qx5]"i2 <&ڜ& J4 \*Ih` pnmOXu ҴiQIHֆ4
'i )dP 8Ih8Ĝ4+T !غi8BQy_^^i8AH804\ڭ m[Ƙ_~eY%<*i ø7pD4vn 5rqoĉJqc.˒zq" ڒ{#B w ވ4 0H 9(@\q}BN#6Iy}},K9P)4|f~Zko=B$ygYVU1>2D.UU繜 uӈ!
lVJYkEQy^UQ !
lBf} A=mnIO\ 9
f Nh6ƔeYEe06V&5km4YIaMZ@Nc4 0Ȫ-9+1pFx4^H]ueEQ(
kiFHAu]d5cn вj2WiCHLOITSX;AN# Ba^
XReiY~Qʲmim \nFX8'Cx !
?n iaij^зl ~`~ ooo}?|.Zoa-cw2r"}ߟ1MTUKw]
eY>??? <8>|^sI=:"y◗5t:ep5,!MF<2i|BCW*RN|
D6p/̩_.%w}Ж ._{,\54+*i`38,w&M4ϳXK sߺ,ˤ2:~42HY
/diIS?U|Ǹ7 / wÕׇ0 r:(
9b+{9CVm+qoWGлC%
lm.J)kP0RU/M?Id2i|_Q&$^u~LY]}\duuGa.ޖ-#kss:Haؒ fY2eqs>)y9i/B/7v\}Y[Zske75~QIbuu<[zE%
kו;eZQL/b,˺i^-g2ĆeuefY _zW\Z*Q9:YU|c,x¶i j0q W>YKڐ^Xk*7&v)a|Vi vooo]Hi}$tQ߷6m4@6,M=;i [%!?69Lؒ
F\݃WBN0 "9[vG|e ޘ_k}:qC#J+Y$@1MӬÚw ބPR:+䈎(Xup| ݼWOh Hw,G꺮JEvEeMӐP4{uXZ맧`FRCOi.ZNHhB؇y7^u4Mߎ%>KpuCX>Hm:Z(W jmBvc?\IXIӄ&CRX')5 {"FT
D J,d ۉ
4'8_u:8W7&ߑC$e w>NBSUrYsIy F
Ry˪ye m$4GH{bq}E0ӫߑC$1KgmHhv/UNo/wxRXB( F ԲglGDvZ+GnqZ7_j5mB/ Aļ=$J|/ҟ _qW'KetߓEUUOOOө,[އe_n? YF:Y!ӏE#YT-U80
ZIiMI-O>FBe,VJɦfHh܋Jثmjyzz7I[,v,M0PId-BT{wx7ZήUUI}aOi`e)˲;Km+ʷf^6տ#_ WZN 1t})VE 6?`ߜ :uݏӮMӐ^W@ve~L~Hh`I#" Z;ϳA$[k- 7Z~SwA~X%ҁ.~DHcKKO$t( %9 u5gyJ]EHS}wNBb4!Nx,zZJjJ8///+w϶u] 4 A6yXZbpyaMdeZk<ш/&QI# NBk[2x{z Ǘ?ڲ,1$4B!H+} IDAT)gWUroleOOOr5 !
$۶dLZ7M|___ y}!
neOz\&On{'Xk-ےDBk\X`CZ9XW
grʯʲl[AbI/^ dOx4ܓ}߯_RWU^N֣cڶm{Gz˧iJ/?1UU$4??pF^__o;/&:^1 _x~Ϝ|>;y~}anZeYYeYfY˘Ll;Udw ]j ^z_
1{RC;OOtrʲӠ4r0r䆓K: ~DH?xSt:UUUsG7H1d~&W# GH|Z_~eiwG ^I74دb4ׯ_n_ZuݮZ+ /%_i(a[w>Na
菤vR:}c_J>Ӏo4rp]ۮYʲiL 68yOd8n |>:5tMlA%v]LN.u\8u!}hkh <#YD++ !士m - IM8- /j.(<0 b!9Oh+#eY:aj SJMӔD+)4 gB L'ڊ8[N]) EH?sJeYd`VN\mYk˲trҀ'>UIb_qX;HfsuoD++:HW\'믣
SxO
'J)cL{Vǜm
@ABbᔢ*'kpn7OX<^8g 4v
' ;y 1 dkmBv56}2 ]>gq# u]hTeۦQ8Ԟb7r2-f&dY䳋r0
8ק-磆|OWiN)pyu)9ŧ1feNf&)ZّɥdKPtzH Zm s5<0 Cu@҉!o&bYm[.r+ a:Ȁ| A۶m:` -e3R}1(
WEc-FʏЏY?~òI۠}O7𰔟ȩ:$+^q -Y0 0 I$ ckmoѢ,KWcfsGy褁QoZWUu(
WiX3
<&GsJH5iZ3!mͲ,h0Ƹ:rAo1?@B1MW# #gapr)P@'^celM%W}az GΙ 3z^Ikuʾncc wZm! Ůicqu?;"3? @1
(O=b{LE a(i|>; &4M0,u km4+{:z_v aGB]Gk& _cp zdQTχFuyElB;Y##Nni첫Oi^Ek4,vrc@9٘b|JEʮ->N:KFe$ ܈'іڶu:T4־RCZ+.u\ \~q9r#e)> t]v=5kr䟉<_c㑔<ҒZ+gr?Y/j1Ŷ, `wOx !
yyoc$,˲,`VJ}/,9돟$3[)@~1j[ίw;tx#WXZ;r߫|tUU5M#ߗeQE~$R巌'ǜ?5nq:RFHo)LNDnZ)U8-ijDKGr|!=G>X-㸮kלNoyB+ny]cO R1Y ޞmz=x qo e`|c?*/Slӷ;TBtwPz<5cRd a7Iΰ 1 0 {r3YFŗs/g2(cEHG9MBozT\)u]dE"ٲH! c8wI,Et J OX˒ǻ]0\ BzӌrGNe܅2އ4 fFAx72Xk0 LBGNvA!`$7IhY <ϳ ^G-[Rt/+jh` $9 [!Q2jD냗%654 !?^nIbUJxdm9Rb&In q }u{iߣܲ+u]\JmّIJ):i!c{?/_B*,<@E$s< )܃s}oNK,˪zm0 { A
!yw]z`M.RHw$2 -[@lYON\f^^>@o>\`& jۂ&H
崵r(О,TȾ^ߵ"E%izf.NB1#SmNБ%]|
bFH'n>2:Nga$4-B:}iz"܋;4/p YQ $?*VOkHB8&*VO;GB8,B@[$4##e_9MB88Bp$4 GN Ê9Ih qř$4 ,C-Ih FH ݒrwBB;f$뺖7ABGl oHh Ih
! ??MB7rPN o2,}1&s B%Zi71Z,c1J)1F#'ظ4M:ܓqgcLu4
_U˯G]-\Eey/ն/m,* GX%8ھiZf)oRUei[aeiek$8JNoEQcZFɽnk)m CYyWUaxuY mO@i
{{{KcH@VZ8 C4A7 i f8}솱8e GRaƽӉqo 㐖sXӆ֧)zi m>=0wv7Mi ǰn+Ƙii~ D!=MS۶;3 u4z{Q i^^^PsUUeYn}/J\?-e L[k1,3?@"}œHx++qIږ I7 <,G0 oooZbXV-kS-_ȟ9V7joez=.˲T eYJdYfonQe<8>hH tuu 0
Ȝ=H`|\<BZݵFf9LZe5)7**ߓm} _ 9xʓЛXa|&r>?&@=7} *RV{x ezЛ.Z|1rq<^!Б,|l>M|' *JY<n6B1?
Iu/Ga}lA8 g[Et:i}10 yA&z: 6Mm Aw D4Fg{QEYiʲdVxxcHhW꺞贜aby&l{yNO4M1&Ao:eAZ-'R8=b8SsK" 4HN8!CMGd~Qn I䯗Jk-oyv<4bi&,3s454iӓeYQny.bZݐ b ! w]iGx44M>˲TQr{`]?}dőLodYFB .E9 1(
Wnr 5 /@NSUo^bkؓ>,Noǎz`_=7 vZ, 7;? 8;a #!놝\JL; ._plJ |d)לz:Czz2}%X|7/7 繓B, yDkm[ n=$iZyd-= {8SO-sc ꖐVө+ɑ4M n}4G0Io< K
Q?өיb oN1&˲Evgi pHr:=ڢ(VNK*,Ů& #er:1ZkcNn iźeY
n pNeDN^ _ ЪiHƽAJ phCNJ -LiX%| !T,e iEN1| g![ 29g뻻i "wZ+ \%X VG[+Ka-/!؏lֿ$4 8+ i pcH+]ӠNf !#k3B \ Ҋ W^7 \ *TN'8w BZ#\.q DVEL ʸw\}Y( 9iy $ޑYJ.9 f{ǣZ-g{ߛy@;][ |{ߛƘ_ ťސ$7Gk]% ! q} C!-hq |JNhTQv"Ry WH+r:q ۶] cLUU (V8^.'b1 'ƐVO|IR*Z x ZkmuN6 뚖1 'ސVZ,SRF??aiʳ4EQuR O Ҋvm[W eY]l
^ 90 08Y-ic Ҋ^g]utka6 |s~պsuih Ҋ~ۄ.˒0vҊr9Ϯzz# IDAT. "o6RUUS7 ːV
weY ^CZN$4 l"V aBkhB 6NHN1yQ/ [I*!s({\4
J-rzm&VpuM iuz&5t: 4CZ =r+ b?.e pV"i,^ CZn6XNK說؝ ~H+9--rwB
rVI䴿h$8>29qi }dkh "tJZ촞&j9MBa .ծr#;֜秗' ޘ `XIiOO* !"iF ƽ CW"z ,ii < Üj~Z"|& RC w4 004 _YYk |לw^k$4 $לv8}dn Bgi CH$& Ii REH!& a}i FH-& y#6i ~І9MBAҏ$Ih 8Bz9MBk,Ih 8Bځ 9]eUU$4
`9,FTO pXKs## st9i: +s (Bڟs Bڣr ,ii pƜ& !$4 #B:orZ: ! Χ9$:- bFH.Ih 7Ж& m ?`u IENDB` rivet-3.1.1/doc/xml/help.xml 000644 001750 001750 00000005706 13415407112 016442 0 ustar 00manghi manghi 000000 000000 Resources - How to Get HelpMailing Lists
The Rivet mailing list is the first place you should turn for
help. If you haven't found the solution to your problem in the documentation
or you have a question, idea, or comment about the Rivet code itself send email to
rivet-dev@tcl.apache.org. To subscribe to the list, post email to
rivet-dev-subscribe@tcl.apache.org.
The mailing list archives are available at Newsgroup
The newsgroup is a good
place to ask about Tcl questions in general. Rivet developers
also follow the newsgroup, but it's best to ask Rivet-specific
questions on the Rivet list.
Web Sites
There are several web sites that cover Apache and Tcl
extensively.
is the home for the
Apache Tcl project. Go there for the latest versions of
our software (if you aren't reading these pages off of the
site!).
is the first
place to go for questions about the Apache web server.
is the canonical site
for Tcl information.
is the Tcl'ers Wiki, a
free-form place to search for answers and ask for help.
Bug Tracking System
Apache Rivet uses the Apache Bug Tracking system at . Here,
you can report problems, or check and see if existing issues
are already known and being dealt with.
IRC
Occasionally, someone from the Rivet team is on IRC at
irc.freenode.net, channel #tcl.
Editing Rivet Template Files
Rivet makes available code for two popular editors,
emacs and
vim to facilitate the editing of
Rivet template files. The key concept is that the editor is
aware of the <? and ?> tags and switches back and forth
between Tcl and HTML modes as the cursor moves. These files,
two-mode-mode.el and
rvt.vim are available in the
contrib/ directory.
rivet-3.1.1/doc/html/escape_sgml_chars.html 000664 001750 001750 00000005325 13414171740 021467 0 ustar 00manghi manghi 000000 000000 escape_sgml_chars
escape_sgml_chars
Rivet Tcl Commands and Variables
Name
escape_sgml_chars — escape special SGML characters in a string.
Synopsis
::rivet::escape_sgml_chars ?string?
Description
Scans through each character in the specified string looking
for any special (with respect to SGML, and hence HTML) characters
from the specified string, and returns the result.
For example, the right angle bracket is escaped to the corrected
ampersand gt symbol.
rivet-3.1.1/contrib/rvt.vim 000644 001750 001750 00000001101 13415407112 016374 0 ustar 00manghi manghi 000000 000000 " RVT (mod_dtcl) syntax file.
" Language: Tcl + HTML
" Maintainer: Wojciech Kocjan
" Filenames: *.rvt
if version < 600
syntax clear
elseif exists("b:current_syntax")
finish
endif
if !exists("main_syntax")
let main_syntax = 'rvt'
endif
if version < 600
so :p:h/html.vim
else
runtime! syntax/html.vim
unlet b:current_syntax
endif
syntax include @tclTop syntax/tcl.vim
syntax region rvtTcl keepend matchgroup=Delimiter start="" contains=@tclTop
let b:current_syntax = "rvt"
if main_syntax == 'rvt'
unlet main_syntax
endif
rivet-3.1.1/rivet/packages/session/session-drop.sql 000644 001750 001750 00000000166 13415407112 023156 0 ustar 00manghi manghi 000000 000000 --
-- Drop session management SQL tables
--
-- $Id$
--
--
drop table rivet_session_cache;
drop table rivet_session;
rivet-3.1.1/tests/docroot2/vhost2.rvt 000644 001750 001750 00000000370 13415407112 020272 0 ustar 00manghi manghi 000000 000000 "
puts "::childinit2 exists "
} elseif {[info exists ::beforescript2]} {
?>Virtual Host2 Test"
}
?>
rivet-3.1.1/tests/inspect.test 000644 001750 001750 00000002343 13415407112 017125 0 ustar 00manghi manghi 000000 000000
::tcltest::test inspect-1.1 {basic introspection 1.1} {
apachetest::start {
-c "RivetServerConf ChildInitScript \"set init 1\"" } {} {
catch {
set inspect_page [::http::geturl "${urlbase}inspect.tcl?p=childinit"]
set match [string trim [::http::data $inspect_page]]
::http::cleanup $inspect_page
}
}
set match
} {set init 1}
::tcltest::test inspect-1.2 {basic introspection 1.2} {
apachetest::start {
-c "RivetServerConf ChildInitScript \"set init 1\"" } {} {
catch {
set inspect_page [::http::geturl "${urlbase}inspect.tcl"]
set match [string trim [::http::data $inspect_page]]
::http::cleanup $inspect_page
}
}
set match
} {server {ChildInitScript {set init 1}}}
::tcltest::test inspect-1.3 {basic introspection 1.3} {
file copy -force inspect.tcl /tmp/
apachetest::start {
-c "DocumentRoot /tmp" } {} {
catch {
set inspect_page [::http::geturl "${urlbase}inspect.tcl?p=script"]
set match [::http::data $inspect_page]
::http::cleanup $inspect_page
}
}
file delete /tmp/inspect.tcl
set match
} {/tmp/inspect.tcl}
rivet-3.1.1/doc/html/xml.html 000664 001750 001750 00000012702 13414171740 016622 0 ustar 00manghi manghi 000000 000000 xml
Given a string and a variable number of tag descriptors return XML fragment made
by nesting the tags with the same hierarchical order they are listed on the command
line. The tag descriptors can be a one element list (the tag) or an odd-length list whose
first argument is the tag namme and the remaining elements are interpreted as
attribute name-attribute value pairs.
::rivet::xml can work as a replacement of ::rivet::html
provided you take care of sending the string with command puts
::rivet::xml "a string" b u
<== <b><u>a string</u></b>
You can specify the tags attributes by replacing a tag specification
with a odd-length list containing the tag name and a series of
attribute-value pairs
::rivet::xml "a string" [list div class box id testbox] b i
<== <div class="box" id="testbox"><b><i>a string</i></b></div>
::rivet::xml "text to be wrapped in XML" div [list a href http://..../ title "info message"]
<== <div><a href="http://..../" title="info message">text to be wrapped in XML</a></div>
A single argument is interpreted as a list of tag name and attributes to be
coded as a self closing element
rivet-3.1.1/doc/html/images/warning.png 000644 001750 001750 00000002331 13414160235 020544 0 ustar 00manghi manghi 000000 000000 PNG
IHDR ש PLTE ! ) 1 B J R Z k s { {{RRZZ{{ 99JJ 11 )) )) )) !! p; bKGD H IDATxm}o0M5%%m
szP^UDKnk[;һ?0n!q CtEXtSoftware @(#)ImageMagick 4.2.8 99/08/01 cristy@mystic.es.dupont.com! *tEXtSignature c42b7d2d564aab588891979703f02b45Oߓ tEXtPage 24x24+0+0r[ 1 IENDB` rivet-3.1.1/doc/html/formbroker.html 000664 001750 001750 00000006671 13414171740 020202 0 ustar 00manghi manghi 000000 000000 The Form Broker
The Form Broker
The Form Broker
Introduction
The FormBroker package creates instances of
form data description objects. These objects instances have
a simple set of methods to validate and control data
as typically posted by HTML forms,
thus data represented as the map of form variables
to their values. In Rivet this association can be obtained either
calling load_response or
var, (form variables can be selectively
read also calling ::rivet::var_post or
::rivet::var_qs)
Note
The FormBroker package is still experimental.
Basic functionalities and interface are not likely to change but
internal details and implementation could be redesigned
in future releases. More specifically the external validator mechanism
will likely need design improvements.
rivet-3.1.1/tests/tclconf.tcl 000644 001750 001750 00000000105 13415407112 016705 0 ustar 00manghi manghi 000000 000000 # fake tcl 'config' file
puts stderr [info script]
puts stderr [pwd] rivet-3.1.1/tests/config.test 000644 001750 001750 00000006242 13415407112 016727 0 ustar 00manghi manghi 000000 000000 # $Id$
set testfilename1 config.rvt
::tcltest::test config-1.1 {ErrorScript config test} {
apachetest::start {
-c "RivetUserConf ErrorScript 'puts \"Page broken\"'"
} {} {
catch {
set page [::http::geturl "${urlbase}$testfilename1?brokenpage"]
set match [string trim [::http::data $page]]
::http::cleanup $page
}
}
set match
} {Page broken}
::tcltest::test config-1.2 {ErrorScript config test} {
apachetest::start {
-c "RivetUserConf ErrorScript 'puts \"Page broken\"'" -c "AccessFileName test-htaccess"
} {} {
catch {
set page [::http::geturl "${urlbase}$testfilename1?brokenpage"]
set match [string trim [::http::data $page]]
::http::cleanup $page
}
}
set match
} {Local Page Header
this page is BROKEN}
::tcltest::test config-2.1 {BeforeScript test} {
set fl [open htaccess2 w]
puts $fl {RivetUserConf BeforeScript 'puts "Local Page Header"'}
close $fl
apachetest::start { -c "AccessFileName htaccess2" } {} {
catch {
set page [::http::geturl "${urlbase}$testfilename1?goodpage"]
set match [string trim [::http::data $page]]
::http::cleanup $page
# Now change what's in the ".htaccess" file, and see if it
# picks it up.
set fl [open htaccess2 w]
puts $fl {RivetUserConf BeforeScript 'puts "New Local Page Header"'}
close $fl
set page [::http::geturl "${urlbase}$testfilename1?goodpage"]
append match [string trim [::http::data $page]]
::http::cleanup $page
}
}
set match
} {Local Page Header
Page BodyNew Local Page Header
Page Body}
# List of all the configs to try
set ConfigList {
{-c "RivetUserConf BeforeScript 'puts \"Page Header\"'"}
{-c "RivetUserConf BeforeScript 'puts \"Page Header\"'" -c "AccessFileName test-htaccess"}
{-c "RivetUserConf AfterScript 'puts \"Page Footer\"'"}
{-c "RivetUserConf AfterScript 'puts \"Page Footer\"'" -c "AccessFileName test-htaccess"}
{-D DIRTEST}
{-D DIRTEST -c "AccessFileName test-htaccess"}
{-D DIRTEST -D SERVERCONFTEST}
{-D SERVERCONFTEST -c "AccessFileName test-htaccess"}
{-D SERVERCONFTEST}
{-D DIRTEST -D SERVERCONFTEST -c "AccessFileName test-htaccess"}
}
# Corresponding list of results we should get
set ResultList {
{Page Header
Page Body}
{Local Page Header
Page Body
Local Page Footer}
{Page Body
Page Footer}
{Local Page Header
Page Body
Local Page Footer}
{Page Header
Page Body
Page Footer}
{Local Page Header
Page Body
Local Page Footer}
{Page Header
Page Body
Page Footer}
{Local Page Header
Page Body
Local Page Footer}
{Page Header
Page Body
Page Footer}
{Local Page Header
Page Body
Local Page Footer}
}
set i 0
foreach Config $ConfigList {
incr i
::tcltest::test config-auto-${i}.1 {config test} {
apachetest::start $Config {} {
catch {
set page [::http::geturl "${urlbase}$testfilename1?goodpage"]
set match [string trim [::http::data $page]]
}
}
set match
} [lindex $ResultList [expr $i - 1]]
}
rivet-3.1.1/doc/README 000644 001750 001750 00000001740 13415407112 015042 0 ustar 00manghi manghi 000000 000000 $Id$
Graphic files that are to be displayed in the manual must be in the doc/images/ directory.
Files in this directory are copied into the doc/html/images directory where they are referenced
by the html pages. Files have to be added to svn manually. References to this files must be relative
to the manual root and therefore they look like
Code examples can be put in their native form in 'doc/examples'.
Adding new examples to the documentation is a 4 step procedure now:
1) Compile and install Rivet
2) Create a new code example in the doc/examples directory. The file has to keep code
in native form, i.e. capable to run when placed in your webspace.
3) Run 'make examples'. This procedure will collect the files in 'examples' and store them
escaped into 'examples-sgml'. Thus files in this directory are fit for inclusion in
XML/XHTML documentation
4) Update the manual to add the reference to the newly generated example.
rivet-3.1.1/tests/exit.tcl 000644 001750 001750 00000000225 13415407112 016231 0 ustar 00manghi manghi 000000 000000 # -- exit.tcl
#
# testing effects of calling the core exit command which
# actually should have been trapped by ::rivet::exit
#
# $Id: $
::exit 100
rivet-3.1.1/rivet/packages/form/form2.tcl 000644 001750 001750 00000042112 13415407112 021016 0 ustar 00manghi manghi 000000 000000 # form.tcl -- generate forms automatically.
# Copyright 2002-2004 The Apache Software Foundation
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
# http://www.apache.org/licenses/LICENSE-2.0
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
package require Itcl
package provide form 2.1
# Rivet form class
#
#
::itcl::class form {
constructor {args} {
# set the form method to be a post and the action to be
# a refetching of the current page
set arguments(method) post
set arguments(action) [::rivet::env DOCUMENT_URI]
# use $this for the type for form-global stuff like form arguments
import_data form $this arguments $args
if {[info exists arguments(defaults)]} {
# make the public variable contain the name of the array
# we are sucking default values out of
set defaults $arguments(defaults)
upvar 1 $arguments(defaults) callerDefaults
array set DefaultValues [array get callerDefaults]
unset arguments(defaults)
} else {
array set DefaultValues {}
}
}
destructor {
}
method destroy {} {
::itcl::delete object $this
}
#
# import_data -- given a field type, field name, name of an array, and a
# list of key-value pairs, prepend any default key-value pairs,
# then store the resulting key-value pairs in the named array
#
protected method import_data {type name arrayName list} {
upvar 1 $arrayName data
# we now guarantee an array, though empty, will exist
array set data {}
#
# If there are elements in the defaultArgs array for the
# specified type, combine them with the list of key-value
# pairs, putting the DefaultArgs values first so the
# key-value pairs from list can possibly override them.
#
if {[info exists DefaultArgs($type)]} {
set list [concat $DefaultArgs($type) $list]
}
#
# if we don't have an even number of key-value pairs,
# that just ain't right
#
if {[llength $list] % 2} {
return -code error "Unmatched key-value pairs"
}
#
# for each key-value pair in the list, strip the first
# dash character from the key part and map it to lower
# case, then use that as the key for the passed-in
# array and store the corresonding value in there
#
# we also prep and return the list of key-value pairs, normalized
# with the lowercase thing
#
set return ""
foreach {var val} $list {
set var [string range [string tolower $var] 1 end]
if {$var == "prefix"} {
set prefix $val
continue
}
set data($var) $val
if {($var == "values") || ($var == "labels")} { continue }
lappend return -$var $val
}
return $return
}
#
# argstring - given an array name, construct a string of the
# style key1="data1" key2="data2" etc for each key value pair in the
# array
#
protected method argstring {arrayName} {
upvar 1 $arrayName data
set string ""
foreach arg [lsort [array names data]] {
append string " $arg=\"$data($arg)\""
}
return $string
}
#
# default_value ?-list? ?--? name ?value?
#
# If value is not given, returns a default value
# for that name if one exists, else an empty list.
#
# if a name and a value are given, the default value is set to that
# name (and the new default value is returned).
#
# The default value is a list if "-list" is given.
method default_value {args} {
# Command line
if {[lindex $args 0] eq "-list"} {
set isList 1
set args [lrange $args 1 end]
}
if {[lindex $args 0] eq "--"} {
set args [lrange $args 1 end]
}
switch -exact -- [llength $args] {
1 { # Return default value
lassign $args name
if {default_exists $name]} {
if {[info exists isList]} {
return [default_list_get $name]
} else {
return [default_value_get $name]
}
} else {
return
}
}
2 { # Set default value
lassign $args name value
set DefaultValues($name) $value
if {[info exists isList]} {
set DefaultValues(__$name) 1
} else {
unset -nocomplain DefaultValues(__$name)
}
}
default { error "wrong argument count" }
}
}
#
# default_exists - return true, if a default value exists
protected method default_exists {name} {
return [info exists DefaultValues($name)]
}
#
# default_list_get - get the default value as a list
# return with error if there is no default value
protected method default_list_get {name} {
if {[info exists DefaultValues(__$name)]} {
return $DefaultValues($name)
} else {
return [list $DefaultValues($name)]
}
}
#
# default_value_get - get the default value as a value
# return with error if there is no default value
protected method default_value_get {name} {
if {[info exists DefaultValues(__$name)]} {
return [lindex $DefaultValues($name) 0]
} else {
return $DefaultValues($name)
}
}
#
# default_value_exists - return true, if the given value exists in the
# default list
protected method default_value_exists {name value} {
if { ! [info exists DefaultValues($name)] } {
return 0
}
if {[info exists DefaultValues(__$name)]} {
return [expr {$value in $DefaultValues($name)}]
}
return [expr {$value eq $DefaultValues($name)}]
}
#
# default_args - given a type and a variable number of arguments,
# if there are no arguments other than the type, return the
# element of that name from the DefaultArgs array, if that element
# exists, else return an empty list.
#
# if a name and a value are given, sets the DefaultArgs to the variable
# list of arguments.
#
method default_args {type args} {
# if only one argument was specified
if {[::rivet::lempty $args]} {
if {![info exists DefaultArgs($type)]} { return }
return $DefaultArgs($type)
}
# make sure we have an even number of key-value pairs
if {[llength $args] % 2} {
return -code error "Unmatched key-value pairs"
}
# set the DefaultArgs for the specified type
return [set DefaultArgs($type) $args]
}
#
# start - generate the
#
method end {} {
::rivet::html ""
}
#
# field - emit a field of the given field type and name, including
# any default key-value pairs defined for this field type and
# optional key-value pairs included with the statement
#
method field {type name args} {
# import any default key-value pairs, then any specified in this
# field declaration
import_data $type $name data $args
switch -- $type {
"radio" -
"checkbox" {
# if there's a label then prepare to output it.
if {[info exists data(label)]} {
set label "" $data(label) ""
}
# if there is a default value for this field
# and it matches the value we have for it, make
# the field show up as selected (checked)
# Alternatively, select a checkbox, if it has no value but a
# default value with arbitrary value.
if { [info exists data(value)]
&& [default_value_exists $name $data(value)]
|| ![info exists data(value)]
&& $type eq "checkbox"
&& [info exists DefaultValues($name)]
} {
set data(checked) "checked"
}
}
}
# For non multi-choice widgets: set default value if there is no value
# given
if { ! [info exists data(value)]
&& [default_exists $name]
&& $type ni {"select" "radio" "checkbox"}
} {
set data(value) [default_value_get $name]
}
# generate the field definition
set string ""
if {[info exists label]} {
append string $label
}
# ...and emit it
::rivet::html $string
}
#
# text -- emit an HTML "text" field
#
method text {name args} {
field text $name {*}$args
}
#
# password -- emit an HTML "password" field
#
method password {name args} {
field password $name {*}$args
}
#
# hidden -- emit an HTML "hidden" field
#
method hidden {name args} {
field hidden $name {*}$args
}
#
# submit -- emit an HTML "submit" field
#
method submit {name args} {
field submit $name {*}$args
}
#
# button -- emit an HTML "button" field
#
method button {name args} {
field button $name {*}$args
}
#
# reset -- emit an HTML "reset" button
#
method reset {name args} {
field reset $name {*}$args
}
#
# image -- emit an HTML image field
#
method image {name args} {
field image $name {*}$args
}
#
# checkbox -- emit an HTML "checkbox" form field
#
method checkbox {name args} {
field checkbox $name {*}$args
}
#
# radio -- emit an HTML "radiobutton" form field
#
method radio {name args} {
field radio $name {*}$args
}
#
# color -- emit an HTML 5 "color" form field
#
method color {name args} {
field color $name {*}$args
}
#
# date -- emit an HTML 5 "date" form field
#
method date {name args} {
field date $name {*}$args
}
#
# datetime -- emit an HTML 5 "datetime" form field
#
method datetime {name args} {
field datetime $name {*}$args
}
#
# datetime_local -- emit an HTML 5 "datetime-local" form field
#
method datetime_local {name args} {
field datetime-local $name {*}$args
}
#
# email -- emit an HTML 5 "email" form field
#
method email {name args} {
field email $name {*}$args
}
#
# file -- emit an HTML 5 "file" form field
#
method file {name args} {
field file $name {*}$args
}
#
# month -- emit an HTML 5 "month" form field
#
method month {name args} {
field month $name {*}$args
}
#
# number -- emit an HTML 5 "number" form field
#
method number {name args} {
field number $name {*}$args
}
#
# range -- emit an HTML 5 "range" form field
#
method range {name args} {
field range $name {*}$args
}
#
# search -- emit an HTML 5 "search" form field
#
method search {name args} {
field search $name {*}$args
}
#
# tel -- emit an HTML 5 "tel" form field
#
method tel {name args} {
field tel $name {*}$args
}
#
# time -- emit an HTML 5 "time" form field
#
method time {name args} {
field time $name {*}$args
}
#
# url -- emit an HTML 5 "url" form field
#
method url {name args} {
field url $name {*}$args
}
#
# week -- emit an HTML 5 "week" form field
#
method week {name args} {
field week $name {*}$args
}
#
# radiobuttons --
#
method radiobuttons {name args} {
set data(values) [list]
set data(labels) [list]
set list [import_data radiobuttons $name data $args]
if {[::rivet::lempty $data(labels)]} {
set data(labels) $data(values)
}
foreach label $data(labels) value $data(values) {
radio $name {*}$list -label $label -value $value
}
}
#
# checkboxes --
#
method checkboxes {name args} {
set data(values) [list]
set data(labels) [list]
set list [import_data checkboxes $name data $args]
if {[::rivet::lempty $data(labels)]} {
set data(labels) $data(values)
}
foreach label $data(labels) value $data(values) {
checkbox $name {*}$list -label $label -value $value
}
}
#
# select -- generate a selector
#
# part of the key value pairs can include -values with a list,
# and -labels with a list and it'll populate the
![[Note]](images/note.png)