<div>For test, normally I deploy an standart untrusted image, and then I run the image with an script like below to initialize some apps:<br></div><div><br></div><div>_________________________</div><div><br>"+++ Password Protection (choose the password) +++"<br>
<br>#('browse' 'comet' 'config' 'examples' 'status' 'tests' 'tools' 'welcome' 'piersetup' .........) do: [ :e | | h |<br> h := (WADispatcher default handlerAt: e).<br>
h configuration addParent: WAAuthConfiguration instance.<br> h preferenceAt: #login put: 'admin'.<br> h preferenceAt: #passwordHash put: (GRPlatform current secureHashFor: 'share-password').<br>
h addFilter: WAAuthenticationFilter new ].<br>!<br><br>"+++ Start the adaptor (choose the port prefix). Note: only one adaptor of same type can exists +++"<br><br>ZnZincServerAdaptor startOn: 8509.<br>!</div>
<div>____________________</div><div><br></div><div><br></div><div>Regards.</div><br><br><div class="gmail_quote">2012/6/29 Lawson English <span dir="ltr"><<a href="mailto:lenglish5@cox.net" target="_blank">lenglish5@cox.net</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">I got tired of having to manually either assign every application in seaside its own password if I wanted to partially test deployment, so I tried to move a specific set of applications inside an inner directory and then give the directory a password. This works. However, I thought I'd put the process in a loop, and it didn't work as I expected.<br>
<br>
This works:<br>
<br>
"++++++++++++++++++++++++++++++++++++++++++++++"<br>
<br>
"NOTE: only do this after you have created the Dispatcher named 'innerdispatcher' and have made 'browse' the default application"<br>
<br>
defaultH := WADispatcher default.<br>
innerDispatcher := defaultH handlerAt: 'innerdispatcher'.<br>
<br>
tests := defaultH handlerAt: 'comet'.<br>
defaultH unregister: 'comet'.<br>
innerDispatcher register: tests at: 'comet'.<br>
<br>
tests := defaultH handlerAt: 'config'.<br>
defaultH unregister: 'config'.<br>
innerDispatcher register: tests at: 'config'.<br>
<br>
tests := defaultH handlerAt: 'examples'.<br>
defaultH unregister: 'examples'.<br>
innerDispatcher register: tests at: 'examples'.<br>
<br>
tests := defaultH handlerAt: 'javascript'.<br>
defaultH unregister: 'javascript'.<br>
innerDispatcher register: tests at: 'javascript'.<br>
<br>
tests := defaultH handlerAt: 'seaside'.<br>
defaultH unregister: 'seaside'.<br>
innerDispatcher register: tests at: 'seaside'.<br>
<br>
tests := defaultH handlerAt: 'status'.<br>
defaultH unregister: 'status'.<br>
innerDispatcher register: tests at: 'status'.<br>
<br>
<br>
tests := defaultH handlerAt: 'tests'.<br>
defaultH unregister: 'tests'.<br>
innerDispatcher register: tests at: 'tests'.<br>
<br>
tests := defaultH handlerAt: 'tools'.<br>
defaultH unregister: 'tools'.<br>
innerDispatcher register: tests at: 'tools'.<br>
<br>
tests := defaultH handlerAt: 'files'.<br>
defaultH unregister: 'files'.<br>
innerDispatcher register: tests at: 'files'.<br>
"++++++++++++++++++++++++++++++++++++++++++++++"<br>
<br>
This only partially works (some of the Dispatchers are left unmoved):<br>
<br>
<br>
<br>
"++++++++++++++++++++++++++++++++++++++++++++++"<br>
defaultH := WADispatcher default.<br>
innerDispatcher := defaultH handlerAt: 'innerdispatcher'.<br>
<br>
defaultH handlers keysAndValuesDo:<br>
[:key :value|<br>
((key = 'innerdispatcher' or: [key = 'browse']) or: [key = 'welcome']) ifFalse:<br>
[<br>
defaultH unregister: (defaultH handlerAt: key).<br>
innerDispatcher register: value at: key.<br>
]<br>
]<br>
"++++++++++++++++++++++++++++++++++++++++++++++"<br>
<br>
<br>
Any ideas?<span class="HOEnZb"><font color="#888888"><br>
<br>
-- <br>
Squeak from the very start (introduction to Squeak and Pharo Smalltalk for the (almost) complete and compleate beginner).<br>
<a href="https://www.youtube.com/playlist?list=PL6601A198DF14788D&feature=view_all" target="_blank">https://www.youtube.com/playlist?list=PL6601A198DF14788D&feature=view_all</a><br>
<br>
_______________________________________________<br>
seaside mailing list<br>
<a href="mailto:seaside@lists.squeakfoundation.org" target="_blank">seaside@lists.squeakfoundation.org</a><br>
<a href="http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside" target="_blank">http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside</a><br>
</font></span></blockquote></div><br>