<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>&quot;+++ Password Protection (choose the password) +++&quot;<br>
<br>#(&#39;browse&#39; &#39;comet&#39; &#39;config&#39; &#39;examples&#39; &#39;status&#39; &#39;tests&#39; &#39;tools&#39; &#39;welcome&#39; &#39;piersetup&#39; .........) do: [ :e | | h |<br>         h := (WADispatcher default handlerAt: e).<br>
         h configuration addParent: WAAuthConfiguration instance.<br>         h preferenceAt: #login put: &#39;admin&#39;.<br>   h preferenceAt: #passwordHash put: (GRPlatform current secureHashFor: &#39;share-password&#39;).<br>
         h addFilter: WAAuthenticationFilter new ].<br>!<br><br>&quot;+++ Start the adaptor (choose the port prefix). Note: only one adaptor of same type can exists +++&quot;<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">&lt;<a href="mailto:lenglish5@cox.net" target="_blank">lenglish5@cox.net</a>&gt;</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&#39;d put the process in a loop, and it didn&#39;t work as I expected.<br>

<br>
This works:<br>
<br>
&quot;++++++++++++++++++++++++++++++++++++++++++++++&quot;<br>
<br>
&quot;NOTE: only do this after you have created the Dispatcher named &#39;innerdispatcher&#39; and have made &#39;browse&#39; the default application&quot;<br>
<br>
defaultH := WADispatcher default.<br>
innerDispatcher := defaultH handlerAt: &#39;innerdispatcher&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;comet&#39;.<br>
defaultH unregister: &#39;comet&#39;.<br>
innerDispatcher register: tests at: &#39;comet&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;config&#39;.<br>
defaultH unregister: &#39;config&#39;.<br>
innerDispatcher register: tests at: &#39;config&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;examples&#39;.<br>
defaultH unregister: &#39;examples&#39;.<br>
innerDispatcher register: tests at: &#39;examples&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;javascript&#39;.<br>
defaultH unregister: &#39;javascript&#39;.<br>
innerDispatcher register: tests at: &#39;javascript&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;seaside&#39;.<br>
defaultH unregister: &#39;seaside&#39;.<br>
innerDispatcher register: tests at: &#39;seaside&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;status&#39;.<br>
defaultH unregister: &#39;status&#39;.<br>
innerDispatcher register: tests at: &#39;status&#39;.<br>
<br>
<br>
tests := defaultH handlerAt: &#39;tests&#39;.<br>
defaultH unregister: &#39;tests&#39;.<br>
innerDispatcher register: tests at: &#39;tests&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;tools&#39;.<br>
defaultH unregister: &#39;tools&#39;.<br>
innerDispatcher register: tests at: &#39;tools&#39;.<br>
<br>
tests := defaultH handlerAt: &#39;files&#39;.<br>
defaultH unregister: &#39;files&#39;.<br>
innerDispatcher register: tests at: &#39;files&#39;.<br>
&quot;++++++++++++++++++++++++++++++++++++++++++++++&quot;<br>
<br>
This only partially works (some of the Dispatchers are left unmoved):<br>
<br>
<br>
<br>
&quot;++++++++++++++++++++++++++++++++++++++++++++++&quot;<br>
defaultH := WADispatcher default.<br>
innerDispatcher := defaultH handlerAt: &#39;innerdispatcher&#39;.<br>
<br>
defaultH handlers keysAndValuesDo:<br>
    [:key :value|<br>
        ((key = &#39;innerdispatcher&#39; or: [key = &#39;browse&#39;]) or: [key = &#39;welcome&#39;]) ifFalse:<br>
        [<br>
            defaultH unregister: (defaultH handlerAt: key).<br>
            innerDispatcher register: value at: key.<br>
        ]<br>
    ]<br>
&quot;++++++++++++++++++++++++++++++++++++++++++++++&quot;<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&amp;feature=view_all" target="_blank">https://www.youtube.com/playlist?list=PL6601A198DF14788D&amp;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>