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


1.6
date	2005.10.27.08.13.08;	author root;	state Exp;
branches;
next	1.5;

1.5
date	2005.10.27.04.07.51;	author root;	state Exp;
branches;
next	1.4;

1.4
date	2005.10.17.17.16.54;	author root;	state Exp;
branches;
next	1.3;

1.3
date	2005.10.17.06.54.24;	author root;	state Exp;
branches;
next	1.2;

1.2
date	2005.10.12.06.16.49;	author root;	state Exp;
branches;
next	1.1;

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


desc
@original whatever version!
@


1.6
log
@moo
@
text
@<trimlines><expire-time seconds=5><header name="Cache-Control" value="">


<COMMENT> BEGINNING OF COOKIE EVALUATION SECTION </COMMENT>
<set variable=cookieexists value=no><set variable=goodcookie value=no>
<if  cookie="R1EuropeAuth_realmusic">
<set variable=cookieexists value=yes>

<COMMENT> R1EuropeAuth_realmusic cookie is <insert encode=none cookie=R1EuropeAuth_realmusic></COMMENT>

<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>

<COMMENT><BR>The MD5 that I calculate is <insert variable=mymd5> the cookie's MD5 is <insert variable=md5input></COMMENT>
<formoutput><if variable="mymd5 is #md5input#"><set variable=goodmd5 value=yes></if></formoutput>
<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$$$>
<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>
<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 -*"><set variable=cookietime value=good></IF></formoutput>
</for></formoutput>
<COMMENT> END OF FOR LOOP from HELL</COMMENT>

</if>
<COMMENT> END OF COOKIE EVALUATION SECTION </COMMENT>

<if variable="cookietime is good"><if variable="goodmd5 is yes"><set variable=thrown value=yes>
<header name="Content-Type" value="audio/x-pn-realaudio">
<COMMENT> *** Calculate the rollcode required by the honest-to-goodness voodoo plugin *** </COMMENT>
<md5 quiet>kanadian klowns kreate krap</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=goodrollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<set variable=appendarama value="">

<if not variable=pid><set variable=pid value=nopid></if><if not variable=spart><set variable=spart value=nospart></if>
<formoutput><if variable=copyright><cset preparse variable=appendarama>#appendarama#?copyright=<insert variable=copyright encode=url></cset></if></formoutput>

<if not variable=CDN><set variable=CDN value=SEA></if>

<if variable="CDN is HHD">
<set variable=streamingserver value=drache.euro.real.com>
</if>

<if variable="CDN is HH">
<set variable=streamingserver value=62.201.170.10>
</if>

<if variable="CDN is SEA">
<COMMENT> *** write a little file that indicates a stream request, a background job will discover it *** 
**** This script is: /home/rawww/html/euroc4/SKRIPPZ/radiopass/send-request-looper.csh</COMMENT>
<formoutput><rnwrite file=radiopass/#filename#>dogbarf is yum!</rnwrite></formoutput>
<set variable=streamingserver value=glomphradio.euro.real.com>
<set variable=prerollserver value=drache.euro.real.com>
rtsp://<insert variable=prerollserver>/unauthorized/welcome1.rm
</if>

rtsp://<insert variable=streamingserver>/events/<insert variable=goodrollcode>/radiopass/<insert variable=filename>?pid=<insert variable=pid>&spart=<insert variable=spart><if variable=copyright>&copyright=<insert variable=copyright encode=url></if>
</if></if><COMMENT>cookietime & goodmd5</COMMENT>

<if not variable=thrown>
<header name="Content-Type" value="application/smil">
<if variable="cookieexists is yes"><insert nocache file="relogin.smil"></if>
<else><insert nocache file="buysomethingyoujerk.smil"></else>
</if></trimlines>
@


1.5
log
@prior to cookieorama
@
text
@d2 41
a43 1

d53 2
d73 1
d75 5
a79 1
</trimlines>
@


1.4
log
@cows go moo
@
text
@d10 1
d30 1
a30 1
rtsp://<insert variable=streamingserver>/events/<insert variable=goodrollcode>/radiopass/<insert variable=filename><if variable=copyright>?copyright=<insert variable=copyright encode=url></if>
@


1.3
log
@moo
@
text
@d16 4
@


1.2
log
@first acceptable hurler
@
text
@d12 5
a18 1

d20 1
a20 1

d23 1
a23 2
rtsp://glomphradio.euro.real.com/events/<insert variable=goodrollcode>/radiopass/<insert variable=filename>?copyright=<insert variable=copyright encode=url>

d25 1
@


1.1
log
@Initial revision
@
text
@d10 2
d15 1
a15 1
<rnwrite file=radiopass/#station#.rm>dogbarf is yum!</rnwrite>
d19 1
a19 1
rtsp://glomphradio.euro.real.com/events/<insert variable=goodrollcode>/radiopass/<insert variable=station.rm>
@