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


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

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

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

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

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


desc
@The code I wrote on 13 Dec 2005 at the Reciva premises in Cambridge, UK
@


1.5
log
@prior to piers debug
@
text
@<trimlines>
<set variable=XXXbugde value=uye>
<cset variable=md5secret>ThereoncewasagirlnamedMarywhowantedtobeafairy.Soshetriedaspellthatdidntgowellandnowherhandsarehairy.</cset>
<COMMENT> Following 4 lines are mandatory headers - doing the cset protects against ugly 'Unknown Variable' errors</COMMENT> 
<cset variable=xauthtoken preparse><insert cookie=AuthToken></cset>
<cset variable=xuid preparse><insert cookie=UID></cset>
<cset variable=xdeviceid preparse><insert cookie=DeviceID></cset>
<cset variable=xpubid preparse><insert cookie=PubID></cset>

<rnwrite file=reciva/moolog preparse><date>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>Handling request from <echo  REMOTE_ADDR>: </rnwrite>
<rnwrite file=reciva/moolog preparse>Browser is <echo HTTP_USER_AGENT>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>received cookies are <insert cookies>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>AuthToken cookie is <insert cookie=AuthToken>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>UID cookie is <insert cookie=UID>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>DeviceID cookie is <insert cookie=DeviceID>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>PubID cookie is <insert cookie=PubID>\n</rnwrite>


<set variable=goodpubid value=itsucks>

<arraycset name=offset delim=",">0,1,-1,-2,-3,-4</arraycset>
<for variable=i from=0 to=5 step=1><COMMENT>Hard-coded Loop size!</COMMENT>
<formoutput><cset preparse variable=dayoffset><arrayfetch name=offset index=#i#></cset></formoutput>
<formoutput><cset preparse variable=pubiddate><date part=date day=#dayoffset# strftime="%Y%m%d"></cset></formoutput>
<formoutput><md5 quiet preparse><insert variable=pubiddate><insert variable=md5secret></md5></formoutput>
<cset variable=pubidfullstring preparse><insert variable=pubiddate><md5digest></cset>
<arraycadd name=pubidarray preparse><insert variable=pubidfullstring></arraycadd>
<if variable=bugde>Offset=<insert variable=dayoffset>day(s) - Result is <insert variable=pubidfullstring><BR></if>
<formoutput><if variable="xpubid is #pubidfullstring#"><set variable=goodpubid value=yes></if></formoutput>
</for>

<if variable=bugde><P><HR>
<arrayoutput arrays=pubidarray>#pubidarray#<HR></arrayoutput></if>

<COMMENT>Calculate MD5 for given headers</COMMENT>
<cset variable=arthurssecret>hoomohH3yishiePh2zu1ooseejua9u</cset>
<md5 quiet preparse><insert variable=xuid><insert variable=xdeviceid><insert variable=xpubid><insert variable=arthurssecret></md5>
<cset preparse variable=mymd5sum><md5digest></cset>

<rnwrite file=reciva/moolog preparse>Components of MD5(AuthToken):\n 
1: the UID:  <insert variable=xuid>  ; 2: the DeviceID: <insert variable=xdeviceid> \n
3: the PubID <insert variable=xpubid> ; 4: The Secret(hoo...a9u) \n</rnwrite>

<if variable=bugde>input is <B><insert variable=xuid> <insert variable=xdeviceid> <insert variable=xpubid> <insert variable=xauthtoken></B><BR>
my calculated md5sum is <B><insert variable=mymd5sum></B></if>
<formoutput><if variable="goodpubid is yes"><if variable="mymd5sum is #xauthtoken#"><set variable=gooberific value=yes></if></if></formoutput>

<rnwrite file=reciva/moolog preparse>Indication of received pubid value: <insert variable=goodpubid>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>My calculated md5sum: <insert variable=mymd5sum>\n</rnwrite>
<rnwrite file=reciva/moolog preparse>Transaction complete\n\n</rnwrite>

<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="contentpath" value="radiopass/">
<header name="Content-Type" value="audio/reciva">


<COMMENT><set variable=CDN value=SEA><set variable=filename value=1.rm></COMMENT>

<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 HHDL">
<RANDOM><set variable=hhliveserver value=213.128.134.1>
<set variable=hhliveserver value=213.128.134.2>
<set variable=hhliveserver value=213.128.134.3></RANDOM>

<COMMENT> 24 April 2006 kalb-1 and kalb-2 take over! </COMMENT>
<RANDOM><set variable=hhliveserver value=62.201.160.85>
<set variable=hhliveserver value=62.201.160.86></RANDOM>

<cset variable=streamingserver preparse><insert variable=hhliveserver></cset>
<set variable="contentpath" value="">
</if>

<if variable="CDN is SEA">
<COMMENT> *** write a little file that indicates a stream request, a background job will discover it *** 
    one file for realmusic, one for radiopass  [get rid of radiopass one after launch]
**** This script is: /home/rawww/html/euroc4/SKRIPPZ/radiopass/send-request-looper.csh</COMMENT>
<set variable=directory value=radiopass>
<formoutput><rnwrite file=#directory#/#filename#>dogbarf is yum!</rnwrite></formoutput>
<set variable=directory value=realmusic>
<formoutput><rnwrite file=#directory#/#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
<cset preparse variable=filename>RM<insert variable=filename></cset>
</if>

<if variable="gooberific is yes">
rtsp://<insert variable=streamingserver>/events/<insert variable=goodrollcode>/<insert variable=contentpath><insert variable=filename>?pid=<insert variable=pid>&spart=<insert variable=spart><if variable=copyright>&copyright=<insert variable=copyright encode=url></if><if variable=stationid>&stationid=<insert variable=stationid encode=url></if>
<if>



<COMMENT>Date: Tue, 13 Dec 2005 13:54:10 +0000
From: Arthur Taylor <at@@reciva.com>
To: black@@euro.real.com
Subject: Secret

Details for Reciva Units:

hoomohH3yishiePh2zu1ooseejua9u
X-AuthToken (md5hash)
X-UID
X-DeviceID
X-PubID
</COMMENT>
</trimlines>
@


1.4
log
@prior to major rework end 2006
@
text
@d2 1
a2 1
<set variable=XXbugde value=uye>
@


1.3
log
@prior to 31 Jan md5 problem debug
@
text
@d41 4
d75 5
@


1.2
log
@added the other CDNs.... next step is to merge this goo into the main rmhurl creature.
@
text
@d10 10
d45 4
@


1.1
log
@Initial revision
@
text
@d40 4
d45 15
a60 2
<header name="Content-Type" value="audio/reciva">
<set variable=CDN value=SEA><set variable=filename value=1.rm>
@