%
% init a Tack cuppola for serving static files
% to the customer
%
_Xact

%
% no tack directory for this subject, create it
%
% stack: cur-xact
%
*finsures
second 1 left ^
dup !Tack
%
% create the new Tack xact directory
%
% stack: cur-xact cur-tack
%
*xactfold
%
% make subject entry for tack
%
*custtgsn
%
% stack: cur-xact
%
dup !Xact
%
% read the source page text at second level
%
2 *tacksorc

*custsrvr &"?view=Register" !RetUrl
*custsrvr "xact" ofchain &_Tack &"/" & !SetUrl
%
% replace all values for this source page
%
"___Subject___" _Shooter.Subject replall
"___SMS___" _Shooter.Sms replall
"___Portal___" *webhpulo *webaport replall
"___Tack___" _Tack replall
"___returl___" _RetUrl asc2hex replall
"___seturl___" _SetUrl asc2hex replall
"images/" "/images/" replall
"css/" "/css/" replall
 
%
% write to the first of three levels
% default.htm   (first, lowest, of our default document slots)
%
"default.htm" oftack
2 copy
write
third !Xact
*tackmkcg
dup !Xact
_Axu.Built
"tckinblt" log)(
<
|ToCloud
%
% no matter how registration is next handled,
% we must still initiate the tack to cloud server
%
 *camezflc

|Upcopy
%
% no matter how registration is next handled,
% we must still initiate the tack to public server
%
 *camezflr

> pop

%
% stack: cur-xact
%
!Xact