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


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


desc
@duh-rivative.
@


1.1
log
@Initial revision
@
text
@<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.76 2004/03/15 17:26:43 root Exp root $
</COMMENT>

<COMMENT>Test PID-rewriter doodad for Anja Mia</COMMENT>
<if variable="pid is eu_test_redir"><set variable=pid value=eu_popidol></if>
<sed><e>s/^.*-(..).*\.rm$//</e><source variable=file><destination variable=twoletter></sed>

<COMMENT> *** Set default server.  Alter for special content *** </COMMENT>
<set variable="g2server" value="drache.euro.real.com">
<set variable="prerollserver" value="drache.euro.real.com">

<set variable=queryappend value="?">
<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>
<if variable="rnsession is 405"><cset preparse variable=pid><insert variable=eupid></cset></if>
<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_rr*,tw_*rr"><set variable=file value=radiopass/#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>

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


<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/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"> <set variable="g2server" value="210.71.186.95"> </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 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 **** </COMMENT>
<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>
</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*">
<if not variable="file is UEFA-Europe/*">
<if not variable="pid is tw_*rr,eu_rr*,eu_jazzf*">
<if not variable="pid is jp_*">
<if not variable="pid is eu_bb4uk*">
<if not variable="pid is eu_wim*">
<if not variable="pid is eu_popidol">
<if not variable="pid is eu_uefa">
<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>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> *** more IFORAMA -- partner entry -- </COMMENT>
<set variable=aolpartner value=no>
<if variable = "partner is aolbbuk"><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>
<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> *** CHELLO UEFA FREE-RIDE *** </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> *** 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>

<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> *** 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><set variable=show value=#show#lololo></if><else><rnwrite file=#file#>dogbarf is yum!</rnwrite></else
>rtsp://<insert variable=prerollserver>/unauthorized/welcome1.rm
</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#>
<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>



<COMMENT><set variable=liveserver value=62.201.160.68></COMMENT>
<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>
<set variable=togliveserver value=209.210.138.68></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> 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>

<formoutput><RANDOM><set variable=liveserver value=#togliveserver#>
<set variable=liveserver value=#togliveserver#>
<set variable=liveserver value=#hhliveserver#>
<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 bb4uk_*"><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 bb4uk_*"><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 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 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=basepath value=events><set variable=rollcode value=#goodrollcode#><set variable=show value=#file#></if></if></formoutput>

<COMMENT> *** FREE UEFA LIVE OCTOPUS BBCT STREAM OF DOOM *** </COMMENT>
<formoutput><if variable="file is uefalive8*"><if variable = "gooberific is ubetcha">
<set variable=uefalive8status value=kaputt><insert nocache file=UEFALIVE8STATUS><if variable="uefalive8status is alive">
<set variable=g2server value=real1rmlive.bbc.net.uk>
<set variable=basepath value="broadcast/*"><set variable=rollcode value="encoder"><set variable=show value=#file#></if></if></if></formoutput>

<COMMENT> *** SECOND FREE UEFA LIVE OCTOPUS BBCT STREAM OF DOOM *** 
<formoutput><if variable="file is uefalive7*"><if variable = "gooberific is ubetcha">
<set variable=uefalive7status value=kaputt><insert nocache file=UEFALIVE7STATUS><if variable="uefalive7status is alive">
<set variable=g2server value=real1rmlive.bbc.net.uk>
<set variable=basepath value="broadcast/*"><set variable=rollcode value="encoder"><set variable=show value=#file#></if></if></if></formoutput>
</COMMENT>

<COMMENT> *** THIRD FREE UEFA LIVE OCTOPUS BBCT STREAM OF DOOM *** </COMMENT>
<formoutput><if variable="file is uefalive16*"><if variable = "gooberific is ubetcha">
<set variable=uefalive16status value=kaputt><insert nocache file=UEFALIVE16STATUS><if variable="uefalive16status is alive">
<set variable=g2server value=real1rmlive.bbc.net.uk>
<set variable=basepath value="broadcast/*"><set variable=rollcode value="encoder"><set variable=show value=#file#></if></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 </COMMENT>
<formoutput><if variable="pid is 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  JAZZFM *** </COMMENT>
<formoutput><if variable = "pid is eu_jazzf*"><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  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>
<if variable="pid is eu_pb*"><set variable=g2server value=213.248.114.115>
<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> *** 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 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"><set variable=g2server value=210.71.186.95>
<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> *** 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">
<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> *** 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
><if variable="file is bb4uk_*"><if variable="show is *pgmedia-ja*">=moo</if><insert variable=queryappend encode=none>rpcontexturl=http://bigbrother.channel4.com/bigbrother/live/live_premium.html&rpcontextwidth=460&rpcontextheight=240&rpurl=http://bigbrother.channel4.com/bigbrother/live/index.html</if
>?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="rsrc">&rsrc=<insert variable="rsrc" encode=none></if
><if variable="gooey">&gooey=<insert variable="gooey" encode=none></if
><if variable="chello">&chello=<insert variable="chello" 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>
@