<trimlines><expire-time seconds=5><header name="Cache-Control" value="">

<COMMENT>January 2003 J Glomph Black smart hurlerama
    Continuously Modified and version-controlled via RCS
    This is version $Id: eurohurl.ram,v 1.151 2007/03/29 15:03:26 root Exp $
</COMMENT>

<COMMENT>Test PID-rewriter doodad for Anja Mia</COMMENT>
<if variable="pid is eu_test_redir"><set variable=pid value=eu_popidol></if>

<COMMENT>TWOLETTER calculation from filename</COMMENT>
<COMMENT><sed><e>s/^.*-(..).*\.rm$//</e><source variable=file><destination variable=twoletter></sed></COMMENT>
<sed><e>s/^.*(..)..\.rm$//</e><source variable=file><destination variable=twoletter></sed>

<COMMENT>spart="syndication partner" tracking variable</COMMENT>
<if variable=gserv><cset preparse variable=spart><insert variable=gserv></cset></if>
<if variable="chello is ya"><cset preparse variable=spart>chello</cset></if>
<if variable="freenet is ya"><cset preparse variable=spart>freenet</cset></if>
<if variable="mdata is ya"><cset preparse variable=spart>mdata</cset></if>

<COMMENT> *** Set default server.  Alter for special content *** </COMMENT>
<set variable="g2server" value="drache.euro.real.com">
<COMMENT>WHILE BOD IS MOVED<if variable="pid is *euroc*,*uefa*,*eu*c4"><RANDOM><set variable="g2server" value="drache.euro.real.com">
<set variable="g2server" value="bod.euro.real.com">
<set variable="g2server" value="bod.euro.real.com"></RANDOM></if></COMMENT>
<set variable="prerollserver" value="drache.euro.real.com">
<if variable="pid is tw*rr"><set variable="prerollserver" value="203.208.242.51"></if>
<if variable="pid is tw*lr"><set variable="prerollserver" value="203.208.242.51"></if>

<set variable=queryappend value="?">
<COMMENT><if  variable="pid is eu_rwc"><set variable="pid" value="eu_bb6uk"></if></COMMENT>
<if  variable="pid is eu_xfactor"><set variable="pid" value="eu_euronews"></if>
<if  variable="pid is eu_ec_euroc"><set variable="pid" value="eu_euroc"></if>
<if  variable="pid is eu_ec_uefa"><set variable="pid" value="eu_uefa"></if>
<if  variable="pid is eu_ec_rr"><set variable="pid" value="eu_rr"></if>
<if  variable="pid is eu_ec_rr_lo"><set variable="pid" value="eu_rr_lo"></if>
<if variable="file is salon_lo.rm"><set variable=file value=salon_lo></if>
<if variable="file is salon_hi.rm"><set variable=file value=salon_hi></if>
<formoutput><if variable="pid is eu_mtv"><set variable=file value=RealOne-Europe/mtvuk/#twoletter#/#file#></if></formoutput>
<if variable="rnsession is 405"><cset preparse variable=pid><insert variable=eupid></cset></if>
<COMMENT>
STUPID FUCKING workaround to the non-syndicated syndication!  19-Dez-2004
</COMMENT>
<if variable="file is *-UEFA_audio-*"><set variable=pid value=eu_uefa_audio>
<sed><e>s/UEFA-Europe.uefa../XXMOOXX/</e><source variable=file><destination variable=renamedfile></sed><cset variable=file preparse><insert variable=renamedfile></cset></if>
<if not variable="file is uefalive*rm"><formoutput><if variable="pid is eu_uefa_audio"><set variable=file value=UEFA-Europe/uefa_audio/#twoletter#/#file#></if><if variable="pid is eu_*euroc"><set variable=file value=UEFA-Europe/euroc/#twoletter#/#file#></if></formoutput></if>

<formoutput><if variable="pid is eu_wolymp2006"><set variable=file value=RealOne-Europe/notontv/#twoletter#/#file#></if></formoutput>

<formoutput><if variable="pid is eu_xfactor"><set variable=file value=RealOne-Europe/xfactor/#twoletter#/#file#></if></formoutput>

<formoutput><if variable="pid is eu_pbtp405*"><set variable=file value=RealOne-Europe/pbtp405/#file#></if></formoutput>
<formoutput><if variable="pid is eu_pbtv406*"><set variable=file value=RealOne-Europe/pbtv406/#file#></if></formoutput>
<formoutput><if variable="pid is eu_pbac407*"><set variable=file value=RealOne-Europe/pbac407/#file#></if></formoutput>
<formoutput><if variable="pid is eu_pbsp408*"><set variable=file value=RealOne-Europe/pbsp408/#file#></if></formoutput>
<formoutput><if variable="pid is eu_pbspl409*"><set variable=file value=RealOne-Europe/pbspl409/#file#></if></formoutput>
<formoutput><if variable="pid is eu_btbs"><set variable=file value=RealOne-Europe/btbs/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is eu_rr*,tw_*rr,tw_*lr"><if not variable="file is Solar*,GCap*,GMG*,moslive*,ClipRadio-*,Jazzfm*"><set variable=file value=radiopass/#file#></if></if></formoutput>
<formoutput><if variable="pid is tw_stv"><set variable=file value=RealOne-Taiwan/stv/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is tw_cp11"><set variable=file value=RealOne-Taiwan/cp11/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is tw_cp12"><set variable=file value=RealOne-Taiwan/cp12/#twoletter#/#file#></if></formoutput>
<COMMENT><formoutput><if variable="pid is tw_ftv"><set variable=file value=RealOne-Taiwan/ftv/#twoletter#/#file#></if></formoutput></COMMENT>
<formoutput><if variable="pid is tw_fltv"><set variable=file value=RealOne-Taiwan/fltv/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is tw_ttv"><set variable=file value=RealOne-Taiwan/ttv/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is tw_cmpc"><set variable=file value=RealOne-Taiwan/cmpc/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is tw_ctitv"><set variable=file value=RealOne-Taiwan/ctitv/#twoletter#/#file#></if></formoutput>
<COMMENT><formoutput><if variable="pid is tw_cts"><set variable=file value=RealOne-Taiwan/cts/#twoletter#/#file#></if></formoutput></COMMENT>
<formoutput><if variable="pid is tw_ctv"><set variable=file value=RealOne-Taiwan/ctv/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is tw_emcn"><set variable=file value=RealOne-Taiwan/emcn/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is tw_gtv"><set variable=file value=RealOne-Taiwan/gtv/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is eu_undlondon"><set variable=file value=RealOne-Europe/undlondon/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is eu_britgolf06"><set variable=file value=RealOne-Europe/opengolf/#twoletter#/#file#></if></formoutput>
<formoutput><if variable="pid is eu_ec_uefaGORI"><set variable=file value=#file#></if></formoutput>
<formoutput><if variable="pid is eu_rwc">
<if not variable="file is RealOne-Europe/rugby/*"><set variable=file value=RealOne-Europe/rugby/#file#></if></if></formoutput>
<formoutput><if variable="pid is eu_*vidz"><set variable=file value=RealOne-Europe/vidz/#twoletter#/#file#></if></formoutput>
<COMMENT> *** RAYBO STUFF 1 Oct 2003 *** </COMMENT>
<formoutput><if variable="pid is jp_test"><set variable=file value=RealOne-Asia/jptest/#file#></if></formoutput>
<formoutput><if variable="pid is jp_jjazz"><set variable=file value=RealOne-Asia/jjazz/#twoletter#/#file#></if></formoutput>
<COMMENT> *** SINGAPOO 16 Nov 2003 *** </COMMENT>
<formoutput><if variable="pid is sg_m2"><set variable=file value=RealOne-Singapore/m2/#twoletter#/#file#><set variable="g2server" value="203.208.242.51"></if></formoutput>
<formoutput><if variable="pid is sg*cna"><if not variable="file is *live.rm"><set variable=file value=RealOne-Singapore/cna/#twoletter#/#file#></if><set variable="g2server" value="203.208.242.51"></if></formoutput>
<formoutput><if variable="pid is tw*cts"><if not variable="file is *live*.rm"><set variable=file value=RealOne-Taiwan/cts/#twoletter#/#file#></if><RANDOM separator=$><set variable="g2server" value="61.63.34.62">$<set variable="g2server" value="61.63.34.62"></RANDOM></if></formoutput>
<formoutput><if variable="pid is tw*ftv"><if not variable="file is *live*.rm"><set variable=file value=RealOne-Taiwan/ftv/#twoletter#/#file#></if><RANDOM separator=$><set variable="g2server" value="61.63.34.62">$<set variable="g2server" value="61.63.34.62"></RANDOM></if></formoutput>

<COMMENT>ClipRadio:Carl Cox and bruddas</COMMENT>
<if variable="file is ClipRadio-*">
<formoutput><set variable=file value=ClipRadio-Europe/carlcox/#twoletter#/#file#></formoutput>
</if>

<COMMENT>Repair path of the new UEFA Highlights directory</COMMENT>
<if variable="file is *-UefaHL-*"><formoutput>
<cset preparse variable=renamedfile><insert variable=file></cset>
<sed split=@><e>s@/uefa_hl/UEFA-Europe-@/uefa_hl/#twoletter#/UEFA-Europe-@</e><source variable=file><destination variable=renamedfile></sed>
<cset preparse variable=file><insert variable=renamedfile></cset>
</formoutput></if>

<COMMENT>PopIdol server to node5/garfield</COMMENT>
<if variable="file is *-PopIdol-*"><set variable="g2server" value="62.201.160.70"></if>

<COMMENT> *** Calculate all possible good rollcodes, put into "comp" variables *** </COMMENT>
<cset preparse variable=timecode><rndate GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode1><rndate add=60 GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode2><rndate add=-60 GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode3><rndate add=120 GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode4><rndate add=-120 GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecodea><rndate GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode1a><rndate add=60 GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode2a><rndate add=-60 GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode3a><rndate add=120 GMT>20%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode4a><rndate add=-120 GMT>20%y%m%d%H%M</rndate></cset>

<cset preparse variable=comp><formoutput>#timecode#<smallhash barf=saab93>#timecode#</smallhash></formoutput></cset>
<cset preparse variable=comp1><formoutput>#timecodea#<smallhash barf=saab93>#timecode1#</smallhash></formoutput></cset>
<cset preparse variable=comp2><formoutput>#timecode1#<smallhash barf=saab93>#timecode2#</smallhash></formoutput></cset>
<cset preparse variable=comp3><formoutput>#timecode1a#<smallhash barf=saab93>#timecode3#</smallhash></formoutput></cset>
<cset preparse variable=comp4><formoutput>#timecode2#<smallhash barf=saab93>#timecode4#</smallhash></formoutput></cset>
<cset preparse variable=comp1a><formoutput>#timecode2a#<smallhash barf=saab93>#timecode2a#</smallhash></formoutput></cset>
<cset preparse variable=comp2a><formoutput>#timecode3#<smallhash barf=saab93>#timecode3#</smallhash></formoutput></cset>
<cset preparse variable=comp3a><formoutput>#timecode3a#<smallhash barf=saab93>#timecode3a#</smallhash></formoutput></cset>
<cset preparse variable=comp4a><formoutput>#timecode4#<smallhash barf=saab93>#timecode4#</smallhash></formoutput></cset>
<cset preparse variable=compa><formoutput>#timecode4a#<smallhash barf=saab93>#timecode4a#</smallhash></formoutput></cset>

<COMMENT> *** Playboy calculation of comp-x codes *** </COMMENT>
<if variable="pid is eu_pb*"><insert file=playboy-compcode.rx></if>

<if variable=debugg0>
<COMMENT><insert variable=timecode><BR><insert variable=timecodea><BR><insert variable=timecode1><BR><insert variable=timecode1a><BR><insert variable=timecode2><BR> 
<insert variable=timecode2a><BR><insert variable=timecode3a><BR><insert variable=timecode4><BR><insert variable=timecode4a><BR></COMMENT>
token--<insert variable=comp>--token
         input--<insert variable = "RealOne-Europe">--input
</if>

<COMMENT> *** Set default result as unauthorized *** </COMMENT>
<set variable=show  value=unauthorized.smi>
<set variable=rollcode  value=unauthorized>
<set variable=basepath  value="">
<set variable=gooberific value=no>

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

<COMMENT> *** IF-O-RAMA - Test against all possible good rollcodes *** </COMMENT>
<formoutput><if variable = "RealOne-Europe is #comp#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #compa#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp1#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp1a#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp2#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp2a#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp3#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp3a#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp4#"><set variable=gooberific value=ubetcha></if></formoutput>
<formoutput><if variable = "RealOne-Europe is #comp4a#"><set variable=gooberific value=ubetcha></if></formoutput>

<COMMENT> *** end of IF-O-RAMA - roll code good sets gooberific=ubetcha *** </COMMENT>

<COMMENT> *** x-factor is toast end of 2004.  It gets you the unauthorized link *** </COMMENT>
<if variable="pid is eu_xfactor"><set variable=gooberific value=no></if>

<if variable="file is radiopass/*">
<set variable="g2server" value="glomphradio.euro.real.com">
<if variable="file is radiopass/rn*"> <set variable="g2server" value="drache.euro.real.com"> </if>
<if variable="file is radiopass/darkz*"> <set variable="g2server" value="drache.euro.real.com"> </if>
<if variable="file is radiopass/carlcox*"> <set variable="g2server" value="drache.euro.real.com"> </if>
<if variable="file is radiopass/chillz*"> <set variable="g2server" value="drache.euro.real.com"> </if>
<if variable="file is radiopass/100*"> <set variable="g2server" value="drache.euro.real.com"> </if>
<if variable="pid is eu_rr*_jpn"> <set variable="g2server" value="61.195.68.57"> </if>
<if variable="pid is tw_*rr,tw_*lr"> <set variable="g2server" value="61.63.34.62"> </if>
</if>

<formoutput><if variable="file is *UEFA-Europe/uefa/*">
<COMMENT> *** RENAME REQUESTS FOR UEFA   --hi-- to  --00300-- </COMMENT>
<cset preparse variable=renamedfile><insert variable=file></cset>
<sed><e>s/UEFA-Europe(.*)-hi-/UEFA-Europe\1-enUK-00300-/</e><source variable=file><destination variable=renamedfile></sed>
<cset preparse variable=file><insert variable=renamedfile></cset>
<if variable="gserv is realma,quicksilver"><set variable=g2server value=203.208.242.51></if>
<if match="#gooey# is SG,IN,PK,ID,MY,NZ,AU,PH,TH,BD,CN,HK,KR,TW"
><set variable=asiaserver value=ya><set variable="g2server" value="203.208.242.51"></if>
</if></formoutput>

<COMMENT> *** RXML BASENAME FUNCTION, FOR DOING MYSQL LOOKUP *** </COMMENT>
<if variable=asiaserver>
<arraycset preparse name=path delim="/"><insert variable=file encode=none></arraycset>
<arraysize name=path set=pathitemcount>
<formoutput><set variable=basenameptr expr="#pathitemcount#-1"</formoutput><if not variable=basenameptr><set variable=basenameptr value="0"></if>
<formoutput><cset variable=basename preparse><arrayfetch name=path index=#basenameptr# encode=none></cset></formoutput>

<COMMENT> *** MYSQL PART **** 
<formoutput quote=^^^><sqloutput host=mysql://localhost/filestatus query="select * from fileonly where filename='^^^basename^^^'">#filetagg#<BR></sqloutput></formoutput>
<else><set variable=primaryserver value=ok></else><if  not variable=primaryserver><set variable="g2server" value="drache.euro.real.com"> </if></COMMENT>
<COMMENT> ***MYSQL BYPASS***</COMMENT><set variable=primaryserver value=ok><if  not variable=primaryserver><set variable="g2server" value="drache.euro.real.com"> </if>
<COMMENT>Lock down to germany</COMMENT><set variable="g2server" value="drache.euro.real.com">
</if>




<COMMENT> *** RAYBO STUFF 1 Oct 2003 *** </COMMENT>
<if variable="pid is jp_*"><set variable="g2server" value="61.195.68.57"></if>

<COMMENT> *** If authenticated, but outside the showtimes, then display /unauthorized/closed.smi *** </COMMENT>
<COMMENT> THIS LOGIC IS BACKWARDS, FIX IT, U GOON! </COMMENT>
<if variable="gooberific is ubetcha">
<if not variable="file is *RealOne-Europe*">
<if not variable="file is above_the_below_*">
<if not variable="file is c4_shattered_*">
<if not variable="file is uefalive*,bbc_hi.rm,bbc_lo.rm">
<if not variable="file is UEFA-Europe/*">
<if not variable="pid is tw_ftv,tw_fltv,tw_stv,tw_cp11,tw_cp12,tw_ttv,tw_cmpc,tw_ctitv,tw_cts,tw_ctv,tw_emcn,tw_gtv,tw_*lr,tw_*rr,eu_rr*,eu_jazzf*">
<if not variable="pid is jp_*,eu_bbcwn*,eu_undlondon,eu_britgolf06">
<if not variable="pid is eu_aljazeera,eu_euronews,eu_bb7uk*,eu_comedytime,eu_sntv,eu_cnn,eu_c4,eu_bb4uk*,eu_mtv,eu_xfactor,eu_wolymp2006">
<if not variable="pid is eu_wim*">
<if not variable="pid is eu_popidol,eu_btbs">
<if not variable="pid is eu_uefa_audio,eu_uefa,eu_euroc">
<if not variable="pid is eu_rwc*">
<if not variable="pid is eu_*vidz">
<if not variable="pid is eu_pb*">
<if not variable="pid is sg_*">
<comment>was 0945/1915 during winter, 0845/1815 during summer</comment>
<comment>now 1000/1900 during winter, 0900/1800 during summer</comment>
<set variable=opentime value=1000><set variable=closedtime value=1900>
<if date=20031026 before><set variable=opentime value=0900><set variable=closedtime value=1800></if>
<COMMENT>CHRISTMAS CLOSURE!<set variable=opentime value=0300><set variable=closedtime value=0259></COMMENT>
<formoutput>
<cset preparse variable=daystring><date part=day type=string lower></cset>
<if not date=20040111>
<if match="#daystring# is saturday,sunday"><set variable=show value=closed.smi><set variable=rollcode  value=unauthorized><set variable=basepath  value=""><set variable=gooberific value=no></if>
</if>
<if time=#opentime# before><set variable=show value=closed.smi><set variable=rollcode  value=unauthorized><set variable=basepath  value=""><set variable=gooberific value=no></if>
<if time=#closedtime# after><set variable=show value=closed.smi><set variable=rollcode  value=unauthorized><set variable=basepath  value=""><set variable=gooberific value=no></if>
</formoutput>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>
</if>


<COMMENT>KINGS of COMEDY CLOSURE
From: Simon Reid <SReid@Channel4.co.uk>
To: "Gunther E. Biernat" <GEBiernat@real.com>
Date: Thursday, October 7, 2004, 5:12:38 PM
Subject: koc

These are the timings all in BST (from this sunday):

sun: 2pm - 4pm

mon, tue wed: 2pm - 4:30
</COMMENT>
<if variable="file is king_comedy_*">
<set variable=kocsuck value=off>
<cset preparse variable=daystring><date part=day type=string lower></cset>
<if variable="daystring is sunday"><if time=1258 after><if time=1501 before><set variable=kocsuck value=on></if></if></if>
<if variable="daystring is monday,tuesday,wednesday"><if time=1258 after><if time=1531 before><set variable=kocsuck value=on></if></if></if>
<if date=20041010 before><set variable=kocsuck value=off></if>

<if variable="kocsuck is off"><set variable=show value=kingsofcomedy-closed.smi><set variable=rollcode  value=unauthorized><set variable=basepath  value=""><set variable=gooberific value=no></if>
</if>

<COMMENT>SHATTERED CLOSURE SECTION OF DOOM</COMMENT>
<if variable="file is c4_shattered_*">
<if time=1700 after><set variable=shatstatus value=closed></if><if time=1859 after><set variable=shatstatus value=open></if>
<if time=2000 after><set variable=shatstatus value=closed></if><if time=2339 after><set variable=shatstatus value=open></if>
<if date=20040104><if time=2340 before><set variable=shatstatus value=closed></if></if>
<if date=20040110>
<if time=1430 after><set variable=shatstatus value=closed></if><if time=1959 after><set variable=shatstatus value=open></if><if time=2200 after><set variable=shatstatus value=closed></if>
</if>
<if date=20040104 before><set variable=shatstatus value=closed></if>
<if date=20040110 after><set variable=shatstatus value=closed></if>
<if variable="shatstatus is closed"><set variable=show value=shattered-closed.smi><set variable=rollcode  value=unauthorized><set variable=basepath  value=""><set variable=gooberific value=no></if>
</if>

<COMMENT>BBUK-2004 Closure</COMMENT>
<if variable="file is GWBushsucksbigtime.rm,bb5uk_live_*rm">
<if date=20040806 after><set variable=BB5ukshut value=ya></if>
<if date=20040805 after><if time=2100 after><set variable=BB5ukshut value=ya></if></if>
<if variable="BB5ukshut is ya">
<set variable=show value=BB5UK-closed.smi><set variable=rollcode  value=unauthorized><set variable=basepath  value=""><set variable=gooberific value=no>
</if></if>

<COMMENT>CelebBBUK-2005 Closure</COMMENT>
<if variable="file is GWBushsucksbigtime.rm,celebbbuk*rm">
<if date=20050122 after><if time=2300 after><set variable=celebbbukshut value=ya></if></if>
<if date=20050123 after><set variable=celebbbukshut value=ya></if>
<if variable="celebbbukshut is ya">
<set variable=show value=cbbuk-closed.smi><set variable=rollcode  value=unauthorized><set variable=basepath  value=""><set variable=gooberific value=no>
</if></if>

<COMMENT> *** more IFORAMA -- partner entry -- </COMMENT>
<set variable=aolpartner value=no>
<if variable = "partner is WUZZaolbbuk"><set variable=aolpartner value=yes></if>
<if variable = "partner is aolpiuk"><set variable=aolpartner value=yes></if>
<if variable = "aolpartner is yes">
<set variable=partnervalid value=noway><set variable=show value=no_aol_ip.smi>
<set variable=rollcode  value=unauthorized><set variable=basepath  value="">
<ipnetmatch file=/home/rawww/html/euroc4/aolIP><set variable=partnervalid value=woohoo></ipnetmatch>
<set variable=spart value=aol>
<if variable="pid is *uefa*"><set variable=partnervalid value=lame-oh></if>
<if variable="partnervalid is woohoo">
<set variable=gooberific value=ubetcha>
<formoutput><set variable=file value="#file#?aolbbuk-ja"></formoutput>
<formoutput><if variable="pid is eu_bb4uk"><if variable = "file is RealOne-Europe-*"><set variable=file value=bb4uk/#file#></if></if></formoutput>
<formoutput><if variable="partner is aolbbuk"><if variable = "file is RealOne-Europe-*"><set variable=file value=bb4uk/#file#></if></if></formoutput>
<formoutput><if variable="partner is aolpiuk"><if variable = "file is RealOne-Europe-*"><set variable=file value=RealOne-Europe/popidol/#file#></if></if></formoutput>
</if><COMMENT>partnervalid</COMMENT>
</if><COMMENT>aolpartner</COMMENT>

<COMMENT> *** scheissangst deluxe:  PGMEDIA IFORAMA!! *** </COMMENT>
<if variable = "partner is pgmedia">
<set  variable=timematch value=no><set variable=partnervalid value=noway><set variable=show value=no_aol_ip.smi>
<set variable=rollcode  value=unauthorized><set variable=basepath  value="">
<if not variable=u><set variable=u value=useless></if><if not variable=jmt><set variable=jmt value=jarrestrasse></if>
<if not variable=sm><set variable=sm value=sadomasochism></if>
<set variable=s value="ich saz uf einem steine">
<md5 quiet>#u##jmt##sm##s#</md5><cset variable=mym preparse><md5digest></cset>
<COMMENT> *** NOTE! THIS COMPARISON IS IN GERMAN SUMMER TIME!!!  *** 
<cset variable=timenow preparse><rndate GMT add=7200>%H%M</rndate></cset>
<cset variable=timenow1 preparse><rndate GMT add=7260>%H%M</rndate></cset>
<cset variable=timenowm1 preparse><rndate GMT add=7140>%H%M</rndate></cset>
<cset variable=timenow2 preparse><rndate GMT add=7320>%H%M</rndate></cset>
<cset variable=timenowm2 preparse><rndate GMT add=7080>%H%M</rndate></cset></COMMENT>
<COMMENT> *** NOTE! THIS COMPARISON IS IN GREENWICH MEAN AND ANGRY TIME!!!  *** </COMMENT>
<cset variable=timenow preparse><rndate GMT add=0>%H%M</rndate></cset>
<cset variable=timenow1 preparse><rndate GMT add=60>%H%M</rndate></cset>
<cset variable=timenowm1 preparse><rndate GMT add=-60>%H%M</rndate></cset>
<cset variable=timenow2 preparse><rndate GMT add=120>%H%M</rndate></cset>
<cset variable=timenowm2 preparse><rndate GMT add=-120>%H%M</rndate></cset>
<formoutput><if variable=mym is #m#>
<if variable="timenow is #sm#"><set  variable=timematch value=yes></if>
<if variable="timenow1 is #sm#"><set  variable=timematch value=yes></if>
<if variable="timenow1m is #sm#"><set  variable=timematch value=yes></if>
<if variable="timenow2 is #sm#"><set  variable=timematch value=yes></if>
<if variable="timenow2m is #sm#"><set  variable=timematch value=yes></if>
</if></formoutput>
<cset variable=heute preparse><rndate GMT>20%y%m%d</rndate></cset>
<cset variable=gestern preparse><rndate GMT add=-86400>20%y%m%d</rndate></cset>
<if cookie=pgmedia-jmt><if cookie=pgmedia-u><set variable=timematch value=no>
<cset variable=cookiejmt preparse><insert cookie=pgmedia-jmt></cset>
<cset variable=cookieu preparse><insert cookie=pgmedia-u></cset>
<cset variable=cookiem preparse><insert cookie=pgmedia-m></cset>
<cset variable=cookiesm preparse><insert cookie=pgmedia-sm></cset>
<FORMOUTPUT><md5 quiet>#cookieu##cookiejmt##cookiesm##s#</md5><cset variable=mym preparse><md5digest></cset>
<if variable="heute is #cookiejmt#"><if variable="mym is #cookiem#"><set  variable=timematch value=yes><set  variable=hasgoodcookie value=yes><set  variable=u value=#cookieu#></if></if>
<if variable="gestern is #cookiejmt#"><if variable="mym is #cookiem#"><set  variable=timematch value=yes><set  variable=hasgoodcookie value=yes><set  variable=u value=#cookieu#></if></if></FORMOUTPUT>
<COMMENT> **** ADD MORE STRICT HASH_TEST HERE TO VALIDATE COOKIE ****</COMMENT>
</if></if>
<formoutput><if variable="timematch is yes"><if not variable=hasgoodcookie>
<set_cookie persistent name=pgmedia-u value=#u#><set_cookie persistent name=pgmedia-jmt value=#jmt#>
<set_cookie persistent name=pgmedia-sm value=#sm#><set_cookie persistent name=pgmedia-m value=#m#>
</if>
<set variable=gooberific value=ubetcha>
<cset variable=file>#file#?pgmedia-ja-#u#</cset>
<set variable=queryappend value="&">
<if variable = "file is RealOne-Europe-*"><set variable=file value=bb4uk/#file#></if>
</if></formoutput>
</if>
<COMMENT> *** scheissangst deluxe:  PGMEDIA IFORAMA!! *** </COMMENT>



<COMMENT> *** If the code is good, and the show is running, set valid values to variables *** </COMMENT>
<if variable = "gooberific is ubetcha">
<set variable="basepath" value="events">

<COMMENT> *** COMEDYTIME PID DIARRHEA ***</COMMENT>
<sed><e>s/^.*(..)..rm$//</e><source variable=file><destination variable=twoletter></sed>
<formoutput><if variable="pid is eu_comedytime"><if variable = "file is CT_*"><set variable=file value=RealOne-Europe/comedytime/#twoletter#/#file#></if></if></formoutput>

<COMMENT> *** SNTV PID DIARRHEA ***</COMMENT>
<sed><e>s/^.*-(..).*\.rm$//</e><source variable=file><destination variable=twoletter></sed>
<formoutput><if variable="pid is eu_sntv"><if variable = "file is RealOne-Europe-*"><set variable=file value=RealOne-Europe/sntv/#twoletter#/#file#></if></if></formoutput>

<COMMENT> *** BB6 PID DIARRHEA ***</COMMENT>
<COMMENT> *** C4 PID DIARRHEA ***</COMMENT>
<sed><e>s/^.*-(..).*\.rm$//</e><source variable=file><destination variable=twoletter></sed>
<formoutput><if variable="pid is eu_c4"><if variable = "file is RealOne-Europe-*"><set variable=file value=eu_c4/#twoletter#/#file#></if></if></formoutput>

<COMMENT> *** BB6 PID DIARRHEA ***</COMMENT>
<sed><e>s/^.*(..)..\.rm$//</e><source variable=file><destination variable=twoletter></sed>
<formoutput><if variable="pid is eu_bb7uk"><if not variable="file is bb7uk_live*"><set variable=file value=RealOne-Europe/bb7uk/#twoletter#/#file#></if></if></formoutput>

<formoutput><set variable=rollcode value=#goodrollcode#><set variable=show  value=#file#></formoutput>
<COMMENT> *** HEY!  THIS IS PRE-SHOW STUFF ***
<formoutput><if variable = "pid is eu_bb4uk"><set variable=show  value=unauthorized/bb_coming_soon_b.smil></if></formoutput>
</COMMENT>
<formoutput><if variable = "pid is eu_bb4uk"><set variable=show  value=bb4uk/#file#></if></formoutput>
<formoutput><if variable = "pid is eu_popidol"><set variable=show  value=RealOne-Europe/popidol/#file#></if></formoutput>
</if>

<COMMENT>KILL OFF LOLOLOLO</COMMENT>
<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>
<if variable = "gooberific is ubetcha">
<formoutput><if variable="file is radiopass/*">
<if variable="pid is eu_rr_lo*"><rnwrite file=#file#lololo>dogbarf is yum!</rnwrite><if not variable="show is Karlcox_*,Knuk_12.rm><set variable=show value=#show#lololo></if></if><else><rnwrite file=#file#>dogbarf is yum!</rnwrite></else
><if not variable="file is radiopass/rnuk_2*">rtsp://<insert variable=prerollserver>/unauthorized/welcome1.rm?clipinfo="title=RealOne Radio|artist name=RealNetworks|comments=Welcome to RealOne Radio"
</if></if></formoutput>
</if>

<COMMENT>UEFA RAM FILE SCREWUP 30 NOV 2003</COMMENT>
<if variable="file is *.r"><cset preparse variable=file><insert variable=file>m</cset></if>

<formoutput><if variable="gratis is true"><set variable=rollcode value=gratis/#genre#><set variable=show value=#file#>
<COMMENT>DEBUG -- #gratis#-gratis #show#-show #file#-file   GSERV is #gserv#</COMMENT>
<cset variable=thisfile preparse><echo variable=DOCUMENT_NAME></cset>
<if variable="thisfile is barfpuppy.html"><set variable=stoptime value=30><set variable=gserv value=wind></if>
<COMMENT><if variable=file is uefa/*><cset preparse variable=rollcode><insert variable=rollcode></cset></if></COMMENT>
</if></formoutput>



<RANDOM><set variable=togliveserver value=209.210.138.65>
<set variable=togliveserver value=209.210.138.66>
<set variable=togliveserver value=209.210.138.67>
</RANDOM>

<COMMENT><set variable=togliveserver value=209.210.138.68>
<set variable=togliveserver value=207.188.30.97>
<set variable=togliveserver value=207.188.30.67></COMMENT>

<COMMENT>30.97 is pepe.real.com   and  30.67/138.68  is euromail4</COMMENT>
<COMMENT>207.188.30.83/em6/1stQ  207.188.30.105/em7/2ndQ 207.188.30.106/em5/3rdQ </COMMENT>

<RANDOM><set variable=togliveserver value=207.188.30.83>
<set variable=togliveserver value=207.188.30.105>
<set variable=togliveserver value=207.188.30.106>
<set variable=togliveserver value=207.188.20.215>
<set variable=togliveserver value=207.188.20.216>
<set variable=togliveserver value=207.188.20.217>
<set variable=togliveserver value=207.188.20.218>
<set variable=togliveserver value=207.188.20.215>
<set variable=togliveserver value=207.188.20.216>
<set variable=togliveserver value=207.188.20.217>
<set variable=togliveserver value=207.188.20.218>
<set variable=togliveserver value=207.188.20.215>
<set variable=togliveserver value=207.188.20.216>
<set variable=togliveserver value=207.188.20.217>
<set variable=togliveserver value=207.188.20.218></RANDOM>

<RANDOM><set variable=togliveserver value=207.188.30.83>
<set variable=togliveserver value=207.188.30.105>
<set variable=togliveserver value=207.188.30.106></RANDOM>

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

<COMMENT> HARDCODE TO NODE9 <set variable=hhliveserver value=213.128.134.2></COMMENT>

<COMMENT> LIVESERVER SELECTION... AOL GETS TOG, ALL OTHERS GET WEIGHTED RANDOM LOCATION
                      Normally, the weighting is 2:1   tog:hh    </COMMENT>

<set variable=togsplit7 value=207.188.20.218>
<set variable=stier value=62.201.160.84>
<set variable=elbe02 value=62.201.160.81>

<formoutput>
<COMMENT> MOOCOW THIS SECTION IS WHERE THE LIVESERVER VARIABLE IS SET FOR MOST CONTENT </COMMENT>


<set variable=liveserver value=#hhliveserver#>
<set variable=liveserver value=#togliveserver#>

<COMMENT>
<RANDOM><set variable=liveserver value=#togliveserver#>
<set variable=liveserver value=#togliveserver#>
<set variable=liveserver value=#togliveserver#>
<set variable=liveserver value=#togsplit7#>
<set variable=liveserver value=#elbe02#>
<set variable=liveserver value=#stier#>
<set variable=liveserver value=#stier#>
<set variable=liveserver value=#stier#>
<set variable=liveserver value=#stier#>
<set variable=liveserver value=#hhliveserver#>
<set variable=liveserver value=#hhliveserver#>
<set variable=liveserver value=#hhliveserver#></RANDOM>
</COMMENT>

<RANDOM><set variable=liveserver value=#togliveserver#>
<set variable=liveserver value=#hhliveserver#></RANDOM>

</formoutput>

<formoutput><if variable = "partner is aolbbuk"><set variable=liveserver value=#togliveserver#></if></formoutput>

<COMMENT> *** LIVE SERVER and BASEPATH setting section! *** </COMMENT>
<COMMENT> *** LIVE BIGBRO STREAMS OF DOOM </COMMENT>
<COMMENT><formoutput><if variable="file is bb5uk_live_*"><if variable = "gooberific is ubetcha"><set variable=g2server value=#liveserver#>
<set variable=basepath value=broadcast/*><set variable=rollcode value=encoder><set variable=show value=#file#></if></if></formoutput></COMMENT>
<formoutput><if variable="file is bb7uk_live_*,celebbbuk_live_*"><if variable = "gooberific is ubetcha"><set variable=g2server value=#liveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE BBC WORLD STREAMS OF DOOM </COMMENT>
<formoutput><if variable="pid is eu_bbcwn_live">
<if variable="file is high.rm"><set variable=file value=bbc_hi.rm></if>
<if variable="file is low.rm"><set variable=file value=bbc_lo.rm></if></if></formoutput>
<formoutput><if variable="pid is eu_bbcwn_live"><if variable = "gooberific is ubetcha">
<set variable=g2server value=#liveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE SALON/SHATTERED STREAMS OF DOOM </COMMENT>
<formoutput><if variable="file is the_salon_*,c4_shattered_*"><if variable = "gooberific is ubetcha">
<set variable=g2server value=#hhliveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE DAVID BLAINE STREAMS OF DOOM </COMMENT>
<formoutput><if variable="file is king_comedy_*"><if variable = "gooberific is ubetcha">
<set variable=g2server value=#liveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE DAVID BLAINE STREAMS OF DOOM </COMMENT>
<formoutput><if variable="file is above_the_below_*"><if variable = "gooberific is ubetcha">
<set variable=g2server value=#hhliveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE  SINGAPORE CNA SCHEISSE **** (not necessary at first!)
<formoutput><if variable="pid is sg_cna"><if variable = "gooberific is ubetcha"><if variable = "file is *cna*live.ram">
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></if></formoutput>
</COMMENT>

<COMMENT> *** LIVE  WIMBLEDOOM OR CNN</COMMENT>
<formoutput><if variable="pid is eu_cnn,eu_wim_live*"><if variable = "gooberific is ubetcha"><set variable=g2server value=#liveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE  JAPANESE JAZZFM *** </COMMENT>
<formoutput><if variable = "pid is jp_jazzfm*"><if variable = "gooberific is ubetcha"><set variable=g2server value=#togliveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE  JAZZFM *** </COMMENT>
<set variable=gjazz value=no><if variable = "pid is eu_jazzf*,eu_rr"><if variable = "file is Jazzfm*rm"><set variable=gjazz value=yes></if></if>
<if variable = "pid is eu_rr_lo"><if variable = "file is Jazzfm*rm"><set variable=gjazz value=yes></if></if>
<formoutput><if variable = "gjazz is yes"><if variable = "gooberific is ubetcha"><set variable=g2server value=#hhliveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#>
<if variable = "pid is eu_rr_lo"><sed><e>s/Jazzfm(..)hi\.rm/Jazzfm\1lo.rm/</e><source variable=show><destination variable=jazztmp></sed><cset variable=show preparse><insert variable=jazztmp></cset></if>
</if></if></formoutput>

<COMMENT> *** LIVE  RUGBY RWC </COMMENT>
<formoutput><if variable="pid is eu_rwc_live*"><if variable = "gooberific is ubetcha"><set variable=g2server value=#hhliveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** HEY!  THIS IS PRE-SHOW STUFF ***</COMMENT>
<if variable="show is unauthorized/bb_coming_soon_b.smil">
<set variable=g2server value=62.201.160.66><set variable=gooberific value=nope><set variable=rollcode value=unauthorized>
<set variable=show value=bb_coming_soon_b.smil></if>

<COMMENT> *** AUSTRALIA TELSTRA BIGPOND RUGBY STREAMS OF DOOM *** </COMMENT>
<COMMENT>FREE</COMMENT>
<formoutput><if variable = "gratis is true"><if variable = "genre is rugby"><ipnetmatch file=/home/rawww/html/euroc4/telstraIP>
<set variable=rollcode value=gratis/#genre#><set variable=show value=#file#>
<set variable=g2server value=139.130.1.18><set variable=g2server value=139.130.1.18>
</ipnetmatch></if></if></formoutput>
<COMMENT>NOT SO FREE</COMMENT>
<formoutput><if variable="pid is eu_rwc"><if variable = "gooberific is ubetcha"><ipnetmatch file=/home/rawww/html/euroc4/telstraIP> 
<set variable=g2server value=139.130.1.18><set variable=g2server value=139.130.1.18>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></ipnetmatch></if></if></formoutput>

<COMMENT> *** AOL RUGBY WEIRDNESS *** 
<formoutput>
<if not variable=twopass><if variable="pid is eu_rwc"><if variable="aol is ya"><redirect to="http://www.uk.aol.com/aolplus/rwc/rwc.adp?stream=http://europarse.real.com/rwc/rwc.html?file=#file#%26pcode=rwc03%26cpath=CNT%26twopass=yes"></if></if></if>
</formoutput>
<formoutput><if variable="pid is eu_rwc"><if variable="aol is ya"><redirect to="http://www.aolsvc.co.uk/aolplus/rwc/rwc.adp?stream=http://europarse.real.com/rwc/rwc.html?file=#file#%26pcode=rwc03%26cpath=CNT%26twopass=yes"></if></if></if></formoutput></COMMENT>

<COMMENT> *** PLAYBOY STREAMS OF POON *** </COMMENT>
<COMMENT>individ. servers are .115/.116 - load balancer is .123</COMMENT>
<if variable="pid is eu_pb*"><RANDOM><set variable=g2server value=213.248.114.115>
<set variable=g2server value=213.248.114.115></RANDOM>
<COMMENT> *** rotation usually 115/116... 115/115 setting 17 Nov 2004*** </COMMENT>
<md5 quiet>evaWa1deM OpenPass jtg79v9753</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=goodrollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset></if>
<formoutput><if variable="pid is eu_pb*"><if variable = "gooberific is ubetcha">
<set variable=basepath value=MWV/openpass><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** Chello UEFA SERVICE *** </COMMENT>
<if variable="chello is ya"><if variable="file is UEFA-Europe/uefa/*">
<set variable=basepath value=CHL/uefa><random separator=$><set variable=g2server value=213.46.242.16>$<set variable=g2server value=213.46.242.16></RANDOM>
<md5 quiet>011ehC toof11ab 7432hhn</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT> Non-cookie, so no twoletter appending here!  and the 300-to-500 code is different</COMMENT>
<COMMENT>Chello is NOW forced to 500k streams!</COMMENT>
<sed><e>s/(.*)-00300-(.*)/\1-00300-\2/</e><source variable=show><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if></if>

<COMMENT> *** Tiantian SERVICE *** </COMMENT>
<if variable="gserv is tiantian"><random separator=$><set variable=g2server value=202.108.10.120>$<set variable=g2server value=202.108.10.121>$<set variable=g2server value=202.108.10.122>$<set variable=g2server value=202.108.10.123>$<set variable=g2server value=202.108.10.124></random>
<md5 quiet>no bushit ani mor</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
<COMMENT>TianTian is NOT forced to 500k streams!</COMMENT>
<sed><e>s/(.*)-00MOOKOWMOO300-(.*)/\1-00500-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>

<COMMENT> *** Belgacom SERVICE *** </COMMENT>
<if variable="gserv is belgacom,uefa-coach"><set variable=g2server value=drache.euro.real.com>
<md5 quiet>kanadian klowns kreate krap</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
<COMMENT>Belgacom is USUALLY forced to 500k streams!</COMMENT>
<sed><e>s/(.*)-00300-(.*)/\1-00300-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>

<COMMENT> *** Terra SERVICE *** </COMMENT>
<if variable="gserv is terra"><set variable=g2server value=drache.euro.real.com>
<md5 quiet>kanadian klowns kreate krap</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
<COMMENT>terra is forced to 150k streams!</COMMENT>
<sed><e>s/(.*)-00300-(.*)/\1-00180-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>

<COMMENT> *** Mdata Greek SERVICE *** </COMMENT>
<if variable="gserv is mdata"><set variable=g2server value=drache.euro.real.com>
<md5 quiet>kanadian klowns kreate krap</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<if not variable="show is *XXMOOXX*">
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
</if><else><sed><e>s/XXMOOXX/U/</e><source variable=show><destination variable=output></sed></else>
<COMMENT>mdata cannot use MOOKOWMOO streams!</COMMENT>
<sed><e>s/(.*)-00MOOOO300-(.*)/\1-00180-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>

<COMMENT> *** Freenet SERVICE *** </COMMENT>
<if variable="gserv is freenet"><set variable=g2server value=drache.euro.real.com>
<md5 quiet>kanadian klowns kreate krap</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<if not variable="show is *XXMOOXX*">
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
</if><else><sed><e>s/XXMOOXX/U/</e><source variable=show><destination variable=output></sed></else>
<COMMENT>freenet cannot use MOOKOWMOO streams!</COMMENT>
<sed><e>s/(.*)-00MOOKOWMOO-(.*)/\1-00300-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>

<COMMENT> *** REALMA SERVICE *** </COMMENT>
<if variable="gserv is realma,quicksilver">
<COMMENT>NONONONO<if not variable="pid is eu*uefa,sg_cna"><set variable=g2server value=61.63.34.62></if></COMMENT>
<md5 quiet>kanadian klowns kreate krap</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
<COMMENT>M2 cannot use MOOKOWMOO streams!</COMMENT>
<sed><e>s/(.*)-00MOOKOWMOO-(.*)/\1-00300-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>

<COMMENT> *** REALMA-ondemand-standalone SERVICE *** </COMMENT>
<if not variable="gserv is quicksilver">
<set variable=twhell value=notyet>
<if variable="gserv is realma_ttv"><set variable=twhell value=youbet></if>
<if variable="file is *RealOne-Singa*"><if variable="pid is sg_cna"><set variable=twhell value=youbet></if></if>
<if variable="twhell is youbet">
<set variable=g2server value=61.63.34.62><COMMENT>make this a random tag, .93 and .94</COMMENT>
<md5 quiet>leee deung whui sucks</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
<COMMENT>M2 cannot use MOOKOWMOO streams!</COMMENT>
<sed><e>s/(.*)-00MOOKOWMOO-(.*)/\1-00300-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if></if>

<COMMENT> *** quicksilver/sg_cna *** server selection 
<if variable="file is *RealOne-Singa*"><if variable="pid is sg_cna">
<set variable=g2server value=203.208.242.51></if></COMMENT>

<COMMENT> *** M2 SERVICE *** </COMMENT>
<COMMENT><if variable="gserv is M2"><set variable=g2server value=203.208.242.51>
<md5 quiet>kanadian klowns kreate krap</Md5></COMMENT>
<if variable="gserv is M2">
<COMMENT>Node3 broken 22 Jun 05<set variable=g2server value=220.95.210.183>
</COMMENT>
<RANDOM><set variable=g2server value=220.95.210.180>
<set variable=g2server value=220.95.210.182></RANDOM>
<md5 quiet>jeepaneez arh piggs</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
<COMMENT>M2 cannot use MOOKOWMOO streams!</COMMENT>
<sed><e>s/(.*)-00MOOKOWMOO-(.*)/\1-00300-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>


<COMMENT> *** 21CN SERVICE *** </COMMENT>
<if variable="gserv is 21cn"><set variable=g2server value=218.16.123.176>
<md5 quiet>Hoi Sing Kwok is punctual with his clock</Md5>
<Md5 quiet><rndate GMT>%y%m%d%H%M</Rndate></MD5>
<cset preparse variable=rollcode><rndate GMT>%d%H%M</rndate>.<md5digest></cset>
<COMMENT>Cookie-based auth requires -twoletter- treatment, as is done in the uefa_switch.smoo file for WIND</COMMENT>
<formoutput><sed><e>s/(.*)(UEFA-Europe-.*)/\1#twoletter#^\2/</e><source variable=show><destination variable=output></sed></formoutput>
<COMMENT>21CN cannot use 500k streams!</COMMENT>
<sed><e>s/(.*)-00500-(.*)/\1-00300-\2/</e><source variable=output><destination variable=output2></sed>
<cset preparse variable=show><insert "^"="/" variable=output2 encode=none></cset>
</if>


<COMMENT> *** LIVE MISERY of SOUND *** </COMMENT>
<formoutput><if variable="file is moslive*,GMG*,Solar*,GCap*"><if variable = "gooberific is ubetcha">
<set variable=g2server value=#hhliveserver#>
<set variable=g2server value=#liveserver#>
<set variable=gtitle value="Ministry of Sound Radio">
<if variable="file is GMG*"><set variable=gtitle value="GMG Radio someplace"></if>
<if variable="file is Solar*"><set variable=gtitle value="Solar Radio London"></if>
<if variable="file is GCap*"><set variable=gtitle value="GCap Radio London"></if>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE UEFA LIVE OCTOPUS STREAMS OF DOOM *** </COMMENT>
<formoutput><if variable="file is uefalive*"><if variable = "gooberific is ubetcha">
<set variable=g2server value=#hhliveserver#>
<set variable=g2server value=#liveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** LIVE EURONEWS STREAMS OF DOOM *** </COMMENT>
<COMMENT> EURONEWS STREAMS ALL BLACK  2006-21-NOV</COMMENT>
<if variable="file is YESCHEESEeuronews*"><set variable=file value=cnn_en_hi.rm></if>
<formoutput><if variable="pid is eu_euronews,eu_aljazeera"><if variable = "gooberific is ubetcha">
<set variable=g2server value=#hhliveserver#>
<set variable=g2server value=#liveserver#>
<set variable=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** THIS LINE SHOULD NOT BE NECESSARY!!!! **** 29 April 2005
<if variable="file is radiopass/carlcox*"> <set variable="g2server" value="drache.euro.real.com"> </if></COMMENT>

<COMMENT> *** END of LIVE SERVER and BASEPATH setting section! *** </COMMENT>

<COMMENT> *** Finally, the goddamn URL *** </COMMENT>
<if variable="gserv is wind"><insert nocache file=uefa_switch.smoo></if>
<if not variable="gserv is wind"><header name="Content-Type" value="audio/x-pn-realaudio">
rtsp://<insert variable=g2server
><if variable = "gooberific is ubetcha">/<insert variable=basepath></if
>/<insert variable=rollcode>/<insert variable=show
>?src=<if variable="src"><insert variable="src" encode=none></if
><if variable="pid">&pid=<insert variable="pid" encode=none></if
><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="cpath">&cpath=<insert variable="cpath" encode=none></if
><if variable="gvar">&gvar=<insert variable="gvar" encode=none></if
><if variable="rsrc">&rsrc=<insert variable="rsrc" encode=none></if
><if variable="spart">&spart=<insert variable="spart" encode=none></if
><if variable="gooey">&gooey=<insert variable="gooey" encode=none></if
><if variable="chello">&chello=<insert variable="chello" encode=none></if
><if variable="freenet">&freenet=<insert variable="freenet" encode=none></if
><if variable="mdata">&mdata=<insert variable="mdata" encode=none></if
><if variable="gtitle">&title=<insert variable="gtitle" encode=none></if
></if><COMMENT>** gserv is wind **</COMMENT>

<cset preparse variable=nerdsip preparse><echo REMOTE_ADDR></cset>
<if variable="nerdsip is 213.128.132.66,62.158.89.57,213.39.202.16">
<rnwrite file=schlonk/moolog preparse>EUROHURL.RAM IP NUMBER is <echo  REMOTE_ADDR> </rnwrite>
<rnwrite file=schlonk/moolog preparse>EUROHURL.RAM Browser is <echo HTTP_USER_AGENT> </rnwrite>
<rnwrite file=schlonk/moolog preparse>
BOGAHURL:  rtsp://<insert variable=g2server>/<insert variable=basepath>/rollcode/<insert variable=show>\n</rnwrite>
</if>


<COMMENT> *** Dead Code Mortuary *** below this point
<cset preparse variable=earl
><insert variable=g2server>/<insert variable=basepath>/<rndate GMT>%d%H%M</rndate>.<md5digest>/<insert variable=show></cset>
rtsp://<insert variable=earl>

(16:55:08) vandenberg: string dt = sprintf("%04d%02d%02d%02d%02d", 1900 + gmt->year, gmt->mon+1, gmt->mday, gmt->hour,gmt->min);
(17:06:41) vandenberg: http://europarse.real.com/euroc4/eurohurl.ram?RealOne-Europe=200301100102VRZ2F&file=1.rm&case=ok&pid=eu_c4&url=1.rm
(17:07:22) vandenberg: Generating hash for string '200301100102' with secret 'saab93' => '200301100102VRZ2F'


&rpcontexturl=http://www.channel4.com/bigbrother/live/live_premium.html&rpcontextwidth=542&rpcontextheight=240&rpurl=http://www.channel4.com/bigbrother/live/&src=R1E.ch4

privatelog  cookie expiry

*** END of Dead Code Mortuary *** </COMMENT></trimlines>