<COMMENT>$Id: krummel.html,v 1.16 2004/03/17 16:09:19 root Exp root $</COMMENT
><expire-time seconds=5><header name="Cache-Control" value=""><trimlines
> <if variable=nuke><rnwrite file=schlonk/moolog preparse CLOBBER>Log file reset at <date>\nTO ERASE THIS LOGFILE, VISIT: http://keksaa.euro.real.com/hurl/krummel.html?nuke=moo\n</rnwrite></if>
<rnwrite file=schlonk/moolog preparse>_____________________________________________________________________________\n<date>\nConnection from <echo REMOTE_ADDR>\nDocument URI (before query string) is http://<echo HTTP_HOST><echo DOCUMENT_URI>\nQuery String is <echo QUERY_STRING>\n</rnwrite>
<rnwrite file=schlonk/moolog preparse>Browser is <echo HTTP_USER_AGENT>\n</rnwrite>
<rnwrite file=schlonk/moolog preparse>Cookie inventory <insert cookies>\n</rnwrite>
<cset preparse variable=gserv>moo</cset>
<cset preparse variable=ftimecode><rndate GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=comp><formoutput>#ftimecode#<smallhash barf=saab93>#ftimecode#</smallhash></formoutput></cset>
<COMMENT> read/write cookies related to WIND third-party-login-goo </COMMENT>
<if  cookie="R1EuropeAuth_wind"><if not variable=nowind><set variable=windycity value=blows></if></if>
<if  cookie="R1EuropeAuth_v21cn"><if not variable=nowind><set variable=windycity value=blows></if></if>
<if  cookie="R1EuropeAuth_M2"><if not variable=nowind><set variable=windycity value=blows></if></if>
<if  cookie="R1EuropeAuth_realma"><if not variable=nowind><set variable=windycity value=blows></if></if>
<if  cookie="R1EuropeAuth_terra"><if not variable=nowind><set variable=windycity value=blows></if></if>
<if  cookie="R1EuropeAuth_pgmedia"><if not variable=nowind><set variable=windycity value=blows></if></if>
<rnwrite file=schlonk/moolog preparse>R1EuropeAuth_wind cookie is <insert encode=none cookie=R1EuropeAuth_wind>\n</rnwrite>
<rnwrite file=schlonk/moolog preparse>R1EuropeAuth_v21cn cookie is <insert encode=none cookie=R1EuropeAuth_v21cn>\n</rnwrite>
<rnwrite file=schlonk/moolog preparse>R1EuropeAuth_M2 cookie is <insert encode=none cookie=R1EuropeAuth_M2>\n</rnwrite>
<rnwrite file=schlonk/moolog preparse>R1EuropeAuth_realma cookie is <insert encode=none cookie=R1EuropeAuth_realma>\n</rnwrite>
<rnwrite file=schlonk/moolog preparse>R1EuropeAuth_terra cookie is <insert encode=none cookie=R1EuropeAuth_terra>\n</rnwrite>
<rnwrite file=schlonk/moolog preparse>R1EuropeAuth_pgmedia cookie is <insert encode=none cookie=R1EuropeAuth_pgmedia>\n</rnwrite>
<cset variable=queerstring preparse><echo QUERY_STRING></cset>
<if variable=windycity>
<if cookie=R1EuropeAuth_wind><rnwrite file=schlonk/moolog preparse><insert encode=none cookie=R1EuropeAuth_wind>\n</rnwrite></if>
<elseif cookie=R1EuropeAuth_v21cn><rnwrite file=schlonk/moolog preparse><insert encode=none cookie=R1EuropeAuth_v21cn>\n</rnwrite></elseif>
<elseif cookie=R1EuropeAuth_M2><rnwrite file=schlonk/moolog preparse><insert encode=none cookie=R1EuropeAuth_M2>\n</rnwrite></elseif>
<elseif cookie=R1EuropeAuth_realma><rnwrite file=schlonk/moolog preparse><insert encode=none cookie=R1EuropeAuth_realma>\n</rnwrite></elseif>
<elseif cookie=R1EuropeAuth_terra><rnwrite file=schlonk/moolog preparse><insert encode=none cookie=R1EuropeAuth_terra>\n</rnwrite></elseif>
<elseif cookie=R1EuropeAuth_pgmedia><rnwrite file=schlonk/moolog preparse><insert encode=none cookie=R1EuropeAuth_pgmedia>\n</rnwrite></elseif>
<cset preparse variable=httphost><echo HTTP_HOST></cset>
<set variable=secret value=MilkaKuhFleckenMitSpiegelEier>
<if cookie=R1EuropeAuth_wind><cset variable=fullcookie preparse><insert cookie=R1EuropeAuth_wind><set variable=gserv value=wind></cset></if>
<elseif cookie=R1EuropeAuth_v21cn><cset variable=fullcookie preparse><insert cookie=R1EuropeAuth_v21cn></cset><set variable=gserv value=21cn></elseif>
<elseif cookie=R1EuropeAuth_M2><cset variable=fullcookie preparse><insert cookie=R1EuropeAuth_M2></cset><set variable=gserv value=M2></elseif>
<elseif cookie=R1EuropeAuth_realma><cset variable=fullcookie preparse><insert cookie=R1EuropeAuth_realma></cset><set variable=gserv value=realma></elseif>
<elseif cookie=R1EuropeAuth_terra><cset variable=fullcookie preparse><insert cookie=R1EuropeAuth_terra></cset><set variable=gserv value=terra></elseif>
<elseif cookie=R1EuropeAuth_pgmedia><cset variable=fullcookie preparse><insert cookie=R1EuropeAuth_pgmedia></cset><set variable=gserv value=pgmedia></elseif>
<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>
<formoutput encode=none><md5 quiet>#field0#</md5>
<md5 quiet>#secret#</md5></formoutput>
<cset preparse variable=mymd5><md5digest></cset>
<rnwrite file=schlonk/moolog preparse>The MD5 that I calculate is <insert variable=mymd5> the cookie's MD5 is <insert variable=md5input>\n</rnwrite>

<arraycset preparse name=ray delim=":"><insert variable=field0 encode=none></arraycset>
<arraysize name=ray set=numprods>
<if variable="url is UEFA-Europe-*"><cset preparse variable=url>UEFA-Europe/uefa/<insert variable=url></cset>
<rnwrite file=schlonk/moolog preparse>Rewritten UEFA URL is <insert variable=url>\n</rnwrite></if>
<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 -*">
<rnwrite file=schlonk/moolog> cookie still valid! Luser "#username#" is entitled to see "#prodcode#" stuff! (assuming MD5 eval is ok)\n</rnwrite>

<COMMENT>RBN-SYNDICATION!</COMMENT>
<IF not variable=uefathrown><IF variable="pid is eu_news"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88602">BINGO!  EU-NEWS Entitlement via cookie verified!<BR>
<if not variable=expiration><set variable=expiration value="200404261956"></if><COMMENT> yyyyMMddHHmm (GMT)</COMMENT>
<if not variable=pid><set variable=pid value="abcchan"></if>
<if not variable=start><set variable=start value=""></if>
<if not variable=end><set variable=end value=""></if>
<if not variable=url><set variable=url value="anq2k_holiday.rm"></if>
<if not variable=passphrase><set variable=passphrase value="dogbarfontoast"></if>
<md5 quiet><insert variable=pid><insert variable=passphrase><insert variable=expiration><insert variable=start><insert variable=end></md5>
<cset preparse variable=toeken><insert variable=expiration>-<md5digest></cset>

<set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://mas.real.com/mas/start?url=^^^url^^^&pid=^^^pid^^^&ot=<insert variable=toeken></formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>

<if variable="pid is eu_rr*"><set variable=gserv value=sproing></if>
<if variable="pid is eu_uefa"><set variable=pid value=eu_ec_uefa></if>
<IF not variable=uefathrown><IF variable="pid is eu*vidz,eu_rr*,eu*uefa"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 4711"><set variable=uefathrown value=true>BINGO!  VidZone Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=^^^pid^^^&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is eu*uefa"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 3871">BINGO!  UEFA Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=eu_ec_uefa&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is eu*uefa"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88602">BINGO!  UEFA Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=eu_ec_uefa&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is sg_cna"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88602">BINGO!  TAIWAN-sg_cna Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=sg_cna&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is m2*uefa"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 3871">BINGO!  UEFA Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=m2_ec_uefa&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw*rr"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88601">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=tw_ec_rr&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is DOGCOWeu_news"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is DOGCOW-88602">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=eu_news&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is eu_c4"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is channel4">BINGO!  C4-digestive Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^&pid=eu_c4&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw_ttv"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88667">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^_ttv&pid=tw_ttv&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw_gtv"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88666">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^_ttv&pid=tw_gtv&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw_emcn"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88665">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^_ttv&pid=tw_emcn&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw_ctv"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88664">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^_ttv&pid=tw_ctv&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw_cts"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88663">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^_ttv&pid=tw_cts&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw_ctitv"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88662">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^_ttv&pid=tw_ctitv&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>
<IF not variable=uefathrown><IF variable="pid is tw_cmpc"><IF variable="mymd5 is #md5input#"><IF variable="prodcode is 88661">BINGO!  TWRADIO Entitlement via cookie verified!<BR><set variable=uefathrown value=true>LINK TO CONTENT: <cset preparse variable=hurlurl><formoutput quote=^^^>http://europarse.real.com/hurl/eurohurl.smil?file=^^^url^^^&gserv=^^^gserv^^^_ttv&pid=tw_cmpc&RealOne-Europe=^^^comp^^^</formoutput></cset><formoutput encode=none quote=^^^><A HREF="^^^hurlurl^^^">^^^hurlurl^^^</A><redirect to="^^^hurlurl^^^"></formoutput></IF></IF></IF></IF>

</IF>
<else><rnwrite file=schlonk/moolog>Testing #prodcode#: No product for you, either cookie is old or otherwise shitty.\n</rnwrite></else></formoutput></font></b><BR>
</for>
</formoutput>
<if not variable=uefathrown><COMMENT><HR>No cookie-entitlement for UEFA......</COMMENT>
<cset variable=appendarama preparse>&src=<if variable="src"><insert variable="src" encode=none></if><else>nosrc</else
><if variable="sn">&sn=<insert variable="sn" encode=none></if
><if variable="code">&code=<insert variable="code" encode=none></if
><if variable="rpurl">&rpurl=<insert variable="rpurl" encode=none></if
><if variable="rpcontextparams">&rpcontextparams=<insert variable="rpcontextparams" encode=none></if
><if variable="rpurlparams">&rpurlparams=<insert variable="rpurlparams" encode=none></if
><if variable="rpcontextheight">&rpcontextheight=<insert variable="rpcontextheight" encode=none></if
><if variable="rpcontextwidth">&rpcontextwidth=<insert variable="rpcontextwidth" encode=none></if
><if variable="rpcontexturl">&rpcontexturl=<insert variable="rpcontexturl" encode=none></if
><if variable="pcode">&pcode=<insert variable="pcode" encode=none></if
><if variable="rsrc">&rsrc=<insert variable="rsrc" encode=none></if
><if variable="cpath">&cpath=<insert variable="cpath" encode=none></if
><if variable="gooey">&gooey=<insert variable="gooey" encode=none></if
></cset>

<COMMENT><BR>Doing Redirect to failover site....</COMMENT>

<if  variable="pid is eu*vidz,eu_rr*"><IF variable="prodcode is 3871"><set variable=windredir value="http://www.libero.it/mondoadsl/real/reallogin.phtml"></if></if>
<if  variable="pid is sg_cna"><set variable=windredir value="http://asia-en.real.com/redirect_upsell.html?pid=tw_cna"></if>
<if  variable="pid is eu*uefa"><IF variable="prodcode is 3871"><set variable=windredir value="http://sport.libero.it/real/reallogin.phtml"></if></if>
<formoutput encode=none><rnwrite file=schlonk/moolog>Setting cookie R1EuropeAuth_url_of_DOOM with value http://start.real.com/rd?#queerstring#\n</rnwrite
><set_cookie domain=".euro.real.com" name="R1EuropeAuth_url_of_DOOM" value="http://start.real.com/rd?#queerstring#" days=7></formoutput>
<formoutput><rnwrite file=schlonk/moolog>prodcode is #prodcode#..REDIRECT to="http://keksaa.euro.real.com/hurl/reauth.ram?windredir=#windredir#"\n</rnwrite></formoutput>
<formoutput encode=none><REDIRECT to="http://keksaa.euro.real.com/hurl/reauth.ram?windredir=#windredir#"></formoutput>
</if>
</if><COMMENT>WIND TESTING (windycity --> no "nowind" variable, and R1EuropeAuth_wind cookie)</COMMENT>
<else><COMMENT>Gratis Hell</COMMENT>
<cset variable=poopypie preparse><insert encode=none cookie=R1EuropeAuth_reauth_url></cset>
<if  variable="pid is eu*vidz,eu_rr*"><set variable=windredir value="http%3a%2f%2fpremium%2elibero%2eit%2fl%5fsottocategoria%5fc%2ejhtml"><set variable=windid value="iol001oa"></if>
<if  variable="pid is eu*uefa"><set variable=windredir value="http%3a%2f%2fpremium%2elibero%2eit%2fl%5fsottocategoria%5fc%2ejhtml"><set variable=windid value="iol001pa"></if>
<cset variable=poopypie preparse>http://keksaa.euro.real.com/hurl/reauth.ram?windredir=<insert variable=windredir>&windid=<insert variable=windid></cset>
<formoutput encode=none><REDIRECT to="#poopypie#"></formoutput>
</else>
</trimlines>