head	1.1;
access;
symbols;
locks
	root:1.1; strict;
comment	@# @;


1.1
date	2005.10.17.17.16.54;	author root;	state Exp;
branches;
next	;


desc
@bluirp
@


1.1
log
@Initial revision
@
text
@<expire-time seconds=5><header name="Cache-Control" value=""><trimlines>
<TITLE>R1EuropeAuth_realmusic Cookie test of DOOM</TITLE>
<if  cookie="R1EuropeAuth_realmusic">

R1EuropeAuth_realmusic cookie is <insert encode=none cookie=R1EuropeAuth_realmusic>
<cset variable=fullcookie preparse><insert cookie=R1EuropeAuth_realmusic></cset>
<arraycadd preparse name=ray delim="|"><insert variable=fullcookie></arraycadd>
<cset variable=field0 preparse><arrayfetch name=ray index=0 encode=none></cset>
<cset variable=md5input preparse><arrayfetch name=ray index=1 encode=none></cset>
<set variable=secret value=cowsonthemooneatcheesewhilewatchingthestarsgoby>
<formoutput encode=none><md5 quiet>#field0#</md5><md5 quiet>#secret#</md5></formoutput><cset preparse variable=mymd5><md5digest></cset>
<BR>The MD5 that I calculate is <insert variable=mymd5> the cookie's MD5 is <insert variable=md5input></rnwrite>
<arraycset preparse name=ray delim=":"><insert variable=field0 encode=none></arraycset><arraysize name=ray set=numprods>
<COMMENT> FOR LOOP from HELL</COMMENT>
<formoutput quote=$$$><for variable=loopcounter from=1 to=$$$numprods$$$>
<HR>
<formoutput><set variable=arrayptr expr="#loopcounter#-1"</formoutput><if not variable=arrayptr><set variable=arrayptr value="0"></if>
<formoutput><cset variable=firstentitle preparse><arrayfetch name=ray index=#arrayptr# encode=none></cset></formoutput>
<arrayclear name=entitle><arraycadd preparse name=entitle delim="@@"><insert variable=firstentitle></arraycadd>
<cset variable=username preparse><arrayfetch name=entitle index=0 encode=none></cset>
username for velocity-checking purposes is: <insert variable=username><BR>
<cset variable=proddate preparse><arrayfetch name=entitle index=1 encode=none></cset>
<arraycset preparse name=entitle2 delim="/"><insert variable=proddate></arraycset>
<cset variable=prodcode preparse><arrayfetch name=entitle2 index=0 encode=none></cset>
<cset variable=datecodes preparse><arrayfetch name=entitle2 index=1 encode=none></cset>
<arraycset preparse name=entitle3 delim="_"><insert variable=datecodes></arraycset>
<cset variable=cookieepoch preparse><arrayfetch name=entitle3 index=0 encode=none></cset>

<cset preparse variable=diff><formoutput><rndate GMT add=-#cookieepoch#></formoutput></cset>
<formoutput><IF match="#diff# is -*">
cookie still valid! Luser "#username#" is entitled to see "#prodcode#" stuff! (assuming MD5 eval is ok)</IF>
</for></formoutput>
<COMMENT> FOR LOOP from HELL</COMMENT>

</if>
<else>There is no R1EuropeAuth_realmusic cookie</else>
</trimlines>
@