#!/usr/local/bin/perl
#VERSION 1.003.1
#UPDATED: 1/12/01 by BRENT NELSON
#
#Version 1.1 UPDATED 06/13/02 by Jeff McAdoo
#Changed CSS implementation; worked on NS6 compatibility; reduced number of dependant files; removed unnecessary subs
#
#Version 1.2 UPDATED 12/16/02 by Jeff McAdoo
#Added dynamic metafile generation to handle pre/post-rolls; removed "more stories"; incorporated two hitbox scripts, one for audio
# and one for video
#
#Version 1.2 UPDATED 12/16/02 by Jeff McAdoo
#Added dynamic metafile generation to handle pre/post-rolls; removed "more stories"; incorporated two hitbox scripts, one for audio
# and one for video

use XML::Parser;
use XML::Parser::Expat;
use Time::localtime;
use Time::Local;
use CGI;
#use CGI::Carp qw(fatalsToBrowser);#for debugging only
use CGI qw(:standard);

my $file = param("file");
my $mediatype = param("mp");
my $mediaformat = param("av");
my $contenttype = param("type");
my $contentid = param("id");
my $brand = param("brnd");
my $bandwidth = param("band");
my $mediasubject = param("subj");
my $contentlid = param("lid");

$audImg = qq(<img src="http://images.sportsline.com/u/mp/1/images/iconAud.gif" width="17" height="15" align="top" border="0">); 
$vidImg = qq(<img src="http://images.sportsline.com/u/mp/1/images/iconVid.gif" width="14" height="17" align="top" border="0">); 
$background = qq(<img src="/u/mp/images/mediaplayer.gif" width="475" height="475" border="0" usemap="#playerskin" alt="SportsLine Media Center">); 

open (LOCK, "/html/u/mp/1/lock.dat");
flock(LOCK, 2);
flock(LOCK, 8);
%att = ();

my $cgi = CGI::new();
print $cgi->header(-type=>'text/html');

#Browser sniff
$browser = $ENV{'HTTP_USER_AGENT'};
if($browser =~ "netscape"){
    $browser = "netscape";
}else{
    $browser = "ie";
}

#PARSE QUERY STRING VALUES
if($ENV{'QUERY_STRING'}){
	#still need to parse old way due to var $file usage; not good.
	&parse_vars($ENV{'QUERY_STRING'});
	unless(($contenttype eq "1") || ($contenttype eq "2") || ($contenttype eq "3")){
		if($mediaformat eq "a"){
			#TYPE 4 - ALPHABETIZED AUDIO (TYPE = A..Z) CHANGE TYPE FROM LETTER ("H") TO "4"   
			$alphaXML = $contentid . "_" . $contenttype;
			$contenttype = "4"; 
		}elsif(($mediaformat eq "v") && ($contenttype ne "temp") && ($contenttype ne "6")){
			#TYPE 5 - VIDEO (TYPE = A..Z) CHANGE TYPE FROM LETTER ("H") TO "4"   
			$alphaXML = $contentid . "_" . $contenttype;
			$contenttype = "4"; 
			$contenttype = "5"; 
		}elsif(($mediaformat eq "v") && ($contenttype ne "temp") && ($contenttype ne "5")){
			#TYPE 5 - VIDEO (TYPE = A..Z) CHANGE TYPE FROM LETTER ("H") TO "4"
			$alphaXML = $contentid . "_" . $contenttype;
			$contenttype = "6";
		}elsif(($mediaformat eq "v") && ($contenttype eq "temp") && ($contenttype ne "6")){
			$alphaXML = $contentid . "_" . $contenttype;
			$contenttype = "temp"; 
		}
	}
}

#BEGIN ASSEMBLING PAGE
&loadTopOfPage;

#META ID (Determines the selected media clip) 
@meta = split(/\//, $file);
$n = @meta;
$metaId = $meta[$n-1];

#FIND STORY ID  
if($contentid){
	$storyId = $contentid;
}else{ 
	#PARSE REFERER STRING >BACKUP TO $contentid 
	$httpreferer = $ENV{'HTTP_REFERER'};
	@pathsegments = split(/\//, $httpreferer);
	$segsize = @pathsegments;
	($multiId) = split(/\./,$pathsegments[$segsize-1]);
	@storyId = split(/\,/, $multiId);
	($storyId) = split(/\_/, $storyId[2]);
}

#DEFINE COMPONENTS
&definitions;

#PROCESS XML FILES
&parseXML;

#GENERATE SPORT MENU
if($mediatype eq "ram"){
    $menu = &makeMenu;
}

#FINISH ASSEMBLING PAGE
&paint;

exit 0;
########################################################

sub loadTopOfPage(){
	$table = "page/page_top.html";
	$page .= `cat $table`;
	$hitbox="";
    
	if($mediaformat eq "v"){
  	    $hitbox = qq(<!-- media center video hitbox -->\n);
        $hitbox .= `cat /html/u/includes/ads/MediaPlayer_video_applethdr.htm`;
	}
	else{
   	    $hitbox = qq(<!-- media center audio hitbox -->\n);
        $hitbox .= `cat /html/u/includes/ads/MediaPlayer_audio_applethdr.htm`;
	}
	
	if ((($brand eq "NCAAB")||($contentid eq "55")||($mediasubject eq "basketball.ncaab") || ($contentlid eq "55") || ($contentlid eq "291994") || ($contentlid eq "291409")) && ($mediaformat eq "v")){
	    $hitbox = qq(<!-- tourney video hightlight hitbox -->\n);
        $hitbox .= `cat /html/u/includes/ads/BKCmadness_mediaplayer_highlights_applethdr.htm`;
	}
	
	if ($brand eq "xp"){
	    $hitbox = qq(<!-- dunk of the day hitbox -->\n);
        $hitbox .= `cat /html/u/includes/ads/BKCmadness_mediaplayer_dunkoftheday_applethdr.htm`;
	}
    
    $page .= $hitbox;
    
    #since most media is audio display audio msg
    $player_vis = "hidden";
    $ad_vis = "visible";
    if ($mediaformat eq "v"){
        $player_vis = "visible";
        $ad_vis = "hidden";
    }

	$audioID = "3281";
	$videoID = "3596";
	if($mediaformat eq "v"){
	    $media = "video";			
	    $mediaID = "0,$videoID,";
	}
        else{ 					
	    $media = "audio";
	    $mediaID = "0,$audioID,";
	}
    
	$body = "OnLoad=\"Load('$media')\"";
    
    $page =~ s/\$player_vis\$/$player_vis/;
    $page =~ s/\$ad_vis\$/$ad_vis/;
	$page =~ s/\$body\$/$body/; 

	print "$page";
	print PAGE $page;
}

#PARSE THE VARS PASSED VIA THE QUERY STRING 
sub parse_vars() {
	my $string = shift;
	$query_string = $string;
	my @vars = split(/\&/, $string);
	my ($name,$value);
	foreach $var (@vars){
	    ($name,$value) = split(/\=/, $var);
	    $var{$name} = $value;
	}
}

sub definitions(){
	$table = "page/page_bottom.html";

	if ($bandwidth eq "56k"){
        $mediaWidth = 160;
	    $mediaHeight = 120;
	}
	elsif ($bandwidth eq "100k" || $bandwidth eq "300k"){
  	    $mediaWidth = 240;
	    $mediaHeight = 180;
	}
	else{
  	    $mediaWidth = 240;
	    $mediaHeight = 180;
	}
	
	#DIRECTORY LOCATIONS 
	$mainDir = "/html/u/mp/1/";
	$headlineDir = "/html/u/components/headlines/xml/";
	$audiopageDir = "/html/u/components/audio/xml/";
	$mediapageDir = "/html/u/components/video/xml/league/";
	
	#SUBJECT DEFINITIONS 
	open(SUBJECTS, "subjects.txt");
	while(<SUBJECTS>){
	    chomp;
	    @line = split(/\^/, $_);
	    $subjectID{$line[1]} = $line[0];
	}
	close(SUBJECTS);

	@values = ("football.nfl", "basketball.nba", "baseball.mlb", "hockey.nhl", "football.ncaaf", "golf", "tennis", "autoracing", "horseracing", "boxing", "baseball.college", "soccer.mls", "basketball.ncaab", "basketball.wnba", "cycling", "olympics", "volleyball", "wrestling", "other"  
        );

	%sportID = ("5", "soccer", "6", "autoracing", "7", "tennis", "8", "boxing", "9", "golf", "10", "horseracing", "39", "baseball.college", "52", "baseball.mlb", "53", "soccer.mls", "54", "basketball.nba", "55", "basketball.ncaab", "56", "football.ncaaf", "59", "football.nfl", "60", "hockey.nhl", "73", "basketball.wnba", "10916", "cycling", "15", "olympics",  "10931", "volleyball", "10934", "wrestling", "13", "other" 
	);

	#sportsId - for audio page XML files
	%sportsId = ("soccer","5", "autoracing","6", "tennis","7", "boxing", "8", "golf", "64", "horseracing", "10", "baseball.college", "39", "baseball.mlb", "52", "soccer.mls", "53", "basketball.nba", "54", "basketball.ncaab", "55", "football.ncaaf", "56", "football.nfl", "59", "hockey.nhl", "60", "basketball.wnba", "73", "cycling", "10916",  "olympics", "15", "volleyball", "10931", "wrestling", "10934", "other", "13"
	);
			
	@menuOrder = ("NFL", "NCAAB", "NBA", "MLB", "NHL", "Golf");

	%codes = ("NFL", "football.nfl", "NBA", "basketball.nba", "WNBA", "basketball.wnba", "MLB", "baseball.mlb", "NHL", "hockey.nhl", "NCAAF", "football.ncaaf", "Golf", "golf", "Tennis", "tennis", "Racing", "autoracing", "NCAAB", "basketball.ncaab", "Horses", "horseracing"
	);

	%text = ("NFL", "NFL", "NBA", "NBA", "WNBA", "WNBA", "MLB", "MLB", "NHL", "NHL", "NCAAF", "NCAA Football", "Golf", "Golf", "Tennis", "Tennis", "Racing", "Racing", "NCAAB", "NCAA Hoops" , "Horses" ," Horse Racing"
	);
			
	$color1="#FFFFFF";
	$color2="#EDEDED";
	@color = ($color1,$color2);
	%boxColor = ("box","#000175","outline","#000175");
	$boxText = "#FFFFFF";
	#Set initial color array value 
	$color = "0";
	#$presby = qq(<table width="220" height="30" cellpadding="0" cellspacing="0" border="0"><tr><td align="center"><a href="http://ad.doubleclick.net/clk;5010135;7511299;a?http://ad.doubleclick.net/clk;4892312;7773380;p?http://www.microsoft.com/windowsxp/" target="_blank"><img src="/images/multimedia/player/presby_microsoft_150x30.gif" border="0" alt="Presented by Microsoft Windows XP"></a></td></tr></table>);
	$brandTags =qq(<div style="left:16; top:405; position:absolute; z-index:20; font-size:10px; font-family:arial, sans-serif;"><table cellpadding="0" cellspacing="0" border="0" width="240"><tr><td align="center"></td></tr></table></div>);

	#SPECIAL BRANDING 
	if(($brand eq "NCAAB")||($contentid eq "55")||($mediasubject eq "basketball.ncaab") || ($contentlid eq "55") || ($contentlid eq "291994") || ($contentlid eq "291409")){
	}
	if(($mediasubject eq "football.nfl") || ($contenttype eq "3" && $contentid eq "59") || ($contenttype eq "1" && $var{'file'} =~ /nfl/) || ($brand eq "NFL")){
		$brandTags = qq(<div style="left:65; top:395; position:absolute; z-index:20;"><a href="http://www.nfl.com/multimedia/" target="new"><img src="http://images.sportsline.com/u/mp/images/nfl-shield-greybg.gif" border="0" width="33" height="39"></a></div>);
		$brandTags .=qq(<div style="left:105; top:403; position:absolute; z-index:20; font-size:10px; font-family:arial, sans-serif;"><a href="http://www.nfl.com/fieldpass" target="_blank"><font color="#000000">For more NFL audio<br>and video visit NFL.com</font></a></div>);
	}
	if($brand eq "xp"){
		#$presby =qq(<table width="220" height="30" cellpadding="0" cellspacing="0" border="0"><tr><td align="center"><a href="http://www.sportsline.com/redir?url=206" target="_blank"><img src="/images/multimedia/player/presby_microsoftxp_220x30.gif" border="0" alt="Presented by MicrosoftXP"></a></td></tr></table>);
	}
	if($brand eq "NBA" || $contentlid eq "54"){}
	if($brand eq "MLB"){}
	if($brand eq "GOLF"){}
	
	$template = $table unless($template);
	$page = `cat $template`;
}

sub makeMenu(){
	my $menu;
	my $class; 
	my $brand;
	my $size = @menuOrder;
	
	foreach $menuItem (@menuOrder){
		if(($codes{$menuItem} eq $mediasubject) || ($sportsId{$codes{$menuItem}} == $contentid) || ($sportsId{$codes{$menuItem}} == $contentlid)){
			$class = "active";
		}else{
			$class = "inactive";
		}

		$brand = "spl";
		$mediatype = "ram" unless($mediatype); 
		$args  = "subj=$codes{$menuItem}&mp=$mediatype&brnd=$brand&band=$bandwidth&av=a&type=2'";
		$menu .= "<a class=$class href='/u/mp/1/mp.cgi?$args>$text{$menuItem}</a> \n";
		$menu .= "&nbsp;<b>&#149;</b>&nbsp;\n" unless($menuItem eq $menuOrder[$size-1]); 
	}
	
	return($menu);
}

sub paint(){
	#DIV2: Embedded Mediaplayer
	if ($contenttype eq "1" && $mediaformat eq "v"){
			$var{'file'} =~ s/http\:\/\/play.rbn.com\///g;
			#$t2_first_clip = "http://play.rbn.com/?url=/". $var{'file'} . "&proto=rtsp";
			$t2_first_clip = "?url=". $var{'file'} . "&proto=rtsp";
			# Change by Ray
			#$embedRef = $t2_first_clip;
			$embedRef = $var{'file'} . ".$mediatype";
	}elsif(($var{'file'} && $contenttype ne "5") && ($var{'file'} && $contenttype ne "1")){
			$embedRef = $var{'file'} . ".$mediatype";
	}else{
		if($contenttype eq "2" || $contenttype eq "5"){
			$embedRef = $t2_first_clip;
		}
	}

	&div2("$embedRef"); #file , autostart 
	$page =~ s/\$div2\$/$div2/;

	#MPcontrols: Player controls
	$controls = &mediacontrols;
	$page =~ s/\$controls\$/$controls/g;

	#DIV3: Media navigation 
	$div3 = "$m_media\n";
	$page =~ s/\$div3\$/$div3/; 

	#TEXT MENU 
	$page =~ s/\$menu\$/$menu/; 

	#JAVASCRIPT FUNCTIONS
	if($mediatype eq "ram"){
		$player_js = qq(<script type="text/javascript" language="JavaScript" src="/u/mp/1/page/real.js"></script>); 
	}elsif($mediatype eq "asx"){
		$player_js = qq(<script type="text/javascript" language="JavaScript" src="/u/mp/1/page/wmp.js"></script>); 
	}
	$page =~ s/\$player_js\$/$player_js/;

	#BACKGROUND
	$page =~ s/\$background\$/$background/g;
	$page =~ s/\$brandTags\$/$brandTags/g; 
	$page =~ s/\$presby\$/$presby/g; 

	print "$page";
	print PAGE $page;
	close(PAGE);
}

sub div2(){  
	my $file = shift;
	my $embed;
	my $src;

	#EMBED AUDIO REAL OR WINDOWS MEDIA 
	$src = $file;
	if($mediatype eq "ram"){ 		
		$embed = &embed_realmedia($src);
	}elsif($mediatype eq "asx"){ 	
		$embed = &embed_windowsmedia($src);
	}
	$div2 = "$embed";
} 

sub mediacontrols(){  
	my $file = shift;
	my $controls;

	#Embed RealPlayer Controls
	if($mediatype eq "ram"){	
		$controls = qq(<OBJECT ID="mediacontrols" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="240" height="85">); 
		$controls .= qq(<PARAM NAME="CONTROLS" VALUE="ALL"><PARAM NAME="CONSOLE" VALUE="clip1"><PARAM NAME="AUTOSTART" VALUE="True"><PARAM NAME="LOOP" VALUE="False"><PARAM NAME="ShowStatusBar" VALUE="True"><PARAM NAME="ShowControls" VALUE="True"><PARAM NAME="NoLogo" VALUE="True"><PARAM NAME="NoLabels" VALUE="True"><EMBED type="audio/x-pn-realaudio-plugin" pluginspage="http://www.real.com/player/" width="240" height="85" CONTROLS="All" name="mediacontrols" ShowStatusBar="1" ShowControls="1" AutoStart="true" Console="clip1" NoLogo="true" NoLabels="true">);
		$controls .= qq(</EMBED></OBJECT>);
	}
	elsif($mediatype eq "asx"){	
		$controls = qq(<OBJECT ID="mediacontrols" width="240" height="85" classid="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"  type="application/x-oleobject"><PARAM NAME="AutoStart" VALUE="true"><PARAM NAME="ShowStatusBar" VALUE="true"><param name="ShowControls" value="true"><param name="ShowTracker" value="true"><param name="ShowDisplay" value="false"><EMBED TYPE="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/default.asp" Name="mediacontrols" Width="240" Height="85" showcontrols="1" showtracker="1" showdisplay="0" showstatusbar="1" AutoStart="1"></EMBED></OBJECT>);
	}
	
	return($controls); 
} 

sub embed_realmedia(){
	my $file = shift;
	my $code;
	my $mediasource;

	if ($file =~ /sportsline_nfl/ || $file =~ /nflfilms/){
		$file =~s/real\/sportsline_nfl/\/real\/sportslinenfl/;
		$file = "http:\/\/boss.streamos.com$file";
    }
	elsif ($file =~ /sportslinenfl/){
		$file = "http:\/\/boss.streamos.com$file";
	}
	else {
		$file = "http://ww1.sportsline.com".$file;
		#$file = "http://stage1.sportsline.com".$file;
	}
	
 	if(($brand eq "NCAAB")||($contentid eq "55")||($mediasubject eq "basketball.ncaab")){			
		$mediasource = $file;
	}
	elsif($mediaformat eq "v"){
		#$mediasource = "/u/mp/1/playlist-video-real.cgi?file=$file";
		$mediasource = $file;
	}else{ 					
		$mediasource = $file;
	}

	#RealPlayer Object
	$code = qq(<OBJECT ID="MediaPlayer" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH=$mediaWidth HEIGHT=$mediaHeight>);
	$code .= qq(<PARAM NAME="AUTOSTART" VALUE="true">);
	$code .= qq(<PARAM NAME="CONTROLS" VALUE="imagewindow">);
	$code .= qq(<PARAM NAME="SRC" VALUE="$mediasource">);
	$code .= qq(<PARAM NAME="CONSOLE" VALUE="clip1">);
	$code .= qq(<PARAM NAME="LOOP" VALUE="false">);
	$code .= qq(<PARAM NAME="ShowStatusBar" VALUE="false">);
	$code .= qq(<PARAM NAME="ShowControls" VALUE="True">);
	$code .= qq(<PARAM NAME="NoLogo" VALUE="False">);
	$code .= qq(<PARAM NAME="NoLabels" VALUE="True">);
	$code .= qq(<EMBED TYPE="audio/x-pn-realaudio-plugin" pluginspage="http://www.real.com/player/" WIDTH="240" HEIGHT="180" NAME="MediaPlayer" SRC="$mediasource" CONTROLS="ImageWindow" ShowStatusBar="false" ShowControls="0" AUTOSTART="true" CONSOLE="clip1" NoLogo="true" NoLabels="true">);
	$code .= qq(</EMBED>);
	$code .= qq(</OBJECT>);

	return($code);
}

sub embed_windowsmedia(){
	my $file = shift;
	my $code;
	my $mediasource;
	
	#$file = "http://ww1.sportsline.com".$file unless($file =~ /http\:\/\/www\.sportsline\.com/);
	#$file = "http://stage1.sportsline.com".$file;
	#$file = "http://ww1.sportsline.com".$file;
	
	$file = "http://ww1.sportsline.com".$file;
	
	if($mediaformat eq "v"){
		#$mediasource = $file;
		$mediasource = "/u/mp/1/playlist-video-wmp.cgi?file=".$file."&band=".$bandwidth;
	}else{ 			
		$mediasource = $file;
	}


	$code = qq(<OBJECT ID="MediaPlayer" standby="Loading Microsoft® Windows® Media Player" CODEBASE="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" type="application/x-oleobject" CLASSID="CLSID:22D6f312-B0F6-11D0-94AB-0080C74C7E95" WIDTH="240" HEIGHT="265">);
	$code .= qq(<PARAM NAME="FileName" VALUE="$mediasource">); 
	$code .= qq(<PARAM NAME="AnimationatStart" VALUE="true">); 
	$code .= qq(<PARAM NAME="TransparentatStart" VALUE="False">); 
	$code .= qq(<PARAM NAME="AutoStart" VALUE="true">);
	$code .= qq(<PARAM NAME="ShowControls" VALUE="1">); 
	$code .= qq(<PARAM NAME="ControlType" VALUE="1">); 
	$code .= qq(<PARAM NAME="ShowStatusBar" VALUE="True">); 
	$code .= qq(<Embed TYPE="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/default.asp" SRC="$mediasource" Name="MediaPlayer" showDisplay="0" ShowControls="1" ShowStatusBar="1" Width="240" Height="265">); 
	$code .= qq(</EMBED>);
	$code .= qq(</OBJECT>);

	return($code);
}

sub parseXML(){
	if($contenttype eq "1"){ 
		#TYPE 1 LOOKING FOR AUDIO FOR 'MORE MEDIA'  
		if($mediasubject){ 	
			$sport = $mediasubject;
		}elsif($subject){ 	
			$sport = $subject;
		}else{ 
			$sport = $att{'subject'}; 
		}

		foreach $value (@values){ 
			if($subject =~ /$value/){
				if ($contentid == 4130253){
					$audiopageFile = "0,3281,$sportsId{$value},00.xml"; last;
				}else{
					$mediapageFile = "0,3596,$sportsId{$value},00.xml";
					$audiopageFile = "0,3281,$sportsId{$value},00.xml"; last;
				}
			}elsif($mediasubject =~ /$value/){
				$mediapageFile = "0,3596,$sportsId{$value},00.xml";
				$audiopageFile = "0,3281,$sportsId{$value},00.xml"; last;
			}elsif($att{'subject'} =~ /$value/){
				$mediapageFile = "0,3596,$sportsId{$value},00.xml";
				$audiopageFile = "0,3281,$sportsId{$value},00.xml"; last;
			}elsif($sportID{$contentlid} =~ /$value/){
				$mediapageFile = "0,3596,$sportsId{$value},00.xml";
				$audiopageFile = "0,3281,$sportsId{$value},00.xml"; last;
			}
		} 

		$limit = 75;

	    if (-e "$mediapageDir$mediapageFile"){ 
			&parse_mediapageXML($mediapageFile); 
		}
	
	   # &sort_mediaData();
	    &parse_audiopageXML($audiopageFile);
	    &lmore_media();

	}elsif($contenttype eq "2"){
		#TYPE 2 MENU LINK
		foreach $value (@values){
			if($subject =~ /$value/){ 
				$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
			}elsif($mediasubject =~ /$value/){ 
				$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
			}elsif($att{'subject'} =~ /$value/){
				$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
			}
		}
		$subject = $mediasubject;
		$limit = 55; 

		#TYPE 2 Video Commented begin
		$mediapageFile = "0,3596,$sportsId{$mediasubject},00.xml";
		if (-e "$mediapageDir$mediapageFile"){ 
			&parse_mediapageXML($mediapageFile); 
		}
		#TYPE 2 Video Commented end
		if((($mediasubject eq "basketball.nba") || ($mediasubject eq "basketball.wnba") || ($mediasubject eq "hockey.nhl") || ($mediasubject eq "autoracing") || ($mediasubject eq "tennis") || ($mediasubject eq "golf") || ($mediasubject eq "football.nfl")) && ($mediaformat eq "v") && ($mediatype eq "ram") && ($contenttype eq "2")){
			$icon = $vidImg; 
            &parse_audiopageXML($audiopageFile);
			$haveVideo = "[$lid]";
			&more_media();
		}else{
           # &sort_mediaData();
            &parse_audiopageXML($audiopageFile);
			$haveVideo = "[$lid]";
			&more_media();
			}

	}		
	elsif (($contenttype eq "3") && ($brand eq "porsche")){
		$m_media .= `cat /html/u/madness/2003/game-highlights-navigation.html`;
	}		
	elsif (($contenttype eq "3") && ($brand eq "xp")){
		$m_media .= `cat /html/u/madness/2003/xp-navigation.html`;		
	}
	elsif (($contenttype eq "3") && ($brand eq "nfl")){
	
		if ($bandwidth eq "56k"){
		    $m_media .= `cat /html/u/football/nfl/video/navigation_56k.html`;
		}
        elsif ($bandwidth eq "100k"){
		    $m_media .= `cat /html/u/football/nfl/video/navigation_100k.html`;
		}
		elsif ($bandwidth eq "300k"){
		$m_media .= `cat /html/u/football/nfl/video/navigation_300k.html`;
		}
		else{
		    $m_media .= `/html/u/football/nfl/video/navigation_100k.html`;
		}
		
				foreach $key (keys(%sportsId)){
			if($sportsId{$key} =~ "$contentid"){
				$subject = "$key";
			}else{
			}
		}
		$limit = 125; #1818
		$audiopageFile = "0,3281,$contentid,00.xml";
		&parse_audiopageXML($audiopageFile);
			
		$mediapageFile = "0,3596,$contentid,00.xml";
		if (-e "$mediapageDir$mediapageFile"){
			&parse_mediapageXML($mediapageFile);
		}
		#&more_media();	
		
	   # $m_media = $m_media.$j;
	}
	elsif($contenttype eq "3"){
	#TYPE 3 AUDIO INDEX LINK
		foreach $key (keys(%sportsId)){
			if($sportsId{$key} =~ "$contentid"){
				$subject = "$key";
			}else{
			}
		}
		$limit = 125; #1818
		$audiopageFile = "0,3281,$contentid,00.xml";
		&parse_audiopageXML($audiopageFile);
			
		$mediapageFile = "0,3596,$contentid,00.xml";
		if (-e "$mediapageDir$mediapageFile"){
			&parse_mediapageXML($mediapageFile);
		}
		#&sort_mediaData();
		#&related_media();
		&more_media();

	}elsif($contenttype eq "4"){
	#TYPE 4 AUDIO ALPHA LINK
		foreach $key (keys(%sportsId)){
			$compare_id = $sportsId{$key} . "_"; 
			$compare_id = $sportsId{$key}; 
			if($contentid =~ /^$compare_id$/){
				$subject = "$key";
				last;
			}else{
			}
		}
		$limit = 725;
		$audiopageFile = "0,3281,$contentid,00.xml";
		$audiopageFile = "0,3281,$alphaXML,00.xml";
		&parse_audiopageXML($audiopageFile);
		#&related_media();
		$alphaClips = &more_media();

	}elsif($contenttype eq "5"){
	#TYPE 5 VIDEO LINK
	    foreach $value (@values){
	         if($subject =~ /$value/){
	              $lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
	         }elsif($mediasubject =~ /$value/){
	              $lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
	         }elsif($att{'subject'} =~ /$value/){
	              $lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
	         }
	    }
		$subject = $mediasubject;
		$limit = 65;

   	 	#TYPE 5 Video Commeted begin
		$mediapageFile = "0,3596,$sportsId{$mediasubject},00.xml";

        if (-e "$mediapageDir$mediapageFile"){ &parse_mediapageXML($mediapageFile); }
		#TYPE 5 Video Commeted end

		#&sort_mediaData();
		&parse_audiopageXML($audiopageFile);
		&lmore_media();

     }elsif($contenttype eq "6"){
	 #TYPE 6 VIDEO LINK
		foreach $value (@values){
			if($subject =~ /$value/){
				$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
			}elsif($mediasubject =~ /$value/){
				$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
			}elsif($att{'subject'} =~ /$value/){
				$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
			}
         }
       	$subject = $mediasubject;
        $limit = 65;

        #TYPE 6 Video Commeted begin
        $mediapageFile = "0,3596,$sportsId{$mediasubject},00.xml";
        if (-e "$mediapageDir$mediapageFile"){ &parse_mediapageXML($mediapageFile); }

        #TYPE 6 Video Commeted end
        &parse_audiopageXML($audiopageFile);
        &lmore_media();

	}elsif ($contenttype eq "temp"){
	#TYPE TEMP
		$file = "http:\/\/boss.streamos.com$file";	
     	foreach $value (@values){
     		if($subject =~ /$value/){
    			$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
   			}elsif($mediasubject =~ /$value/){
  				$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
     		}elsif($att{'subject'} =~ /$value/){
     			$lid = $sportsId{$value}; $audiopageFile = "0,3281,$lid,00.xml"; last;
       	 	}
     	}

     	$subject = $mediasubject;
       	$limit = 65;
		$mediapageFile = "0,3596,$sportsId{$mediasubject},00.xml";
        	if (-e "$mediapageDir$mediapageFile"){ 
				&parse_mediapageXML($mediapageFile); 
				}
		&parse_audiopageXML($audiopageFile);
		
	}
}

sub parse_mediapageXML(){
	my $mediapageFile = shift;
	#SET MEDIA PAGE PARSER OBJECT 
	my $mediapageParser = new XML::Parser(ErrorContext => 2);
	$mediapageParser->setHandlers(Start => \&start_handler,
									End   => \&end_handler,
									Char  => \&mediapageChar_handler);

	#PARSE AUDIO PAGE
	sort (@date);
	$test = $mediapageDir . $mediapageFile;
	unless(-e $test){
		$mediapageFile = ""; #NO ALTERNATE MEDIA PAGE  
	}

	#PARSE AUDIO PAGE FILE 
	eval{$mediapageParser->parsefile("$mediapageDir$mediapageFile")} if($mediapageFile); 
	$error .= "<B>EVAL: mediapageParser '$mediapageDir$mediapageFile'</B> $@<BR>\n";
	if($@){};
}

sub parse_audiopageXML(){
	$audiopageFile = shift;
	#SET AUDIO PAGE PARSER OBJECT 
	my $audiopageParser = new XML::Parser(ErrorContext => 2);
	$audiopageParser->setHandlers(Start => \&startaudio_handler,
								  End   => \&end_handler,
								  Char  => \&audiopageChar_handler);
	#PARSE AUDIO PAGE

	$test = $audiopageDir . $audiopageFile;

	unless(-e $test){
		#$audiopageFile = "0,3281,13,00.xml"; #ALTERNATE AUDIO PAGE  
		$audiopageFile = "0,3281,59,00.xml"; #ALTERNATE AUDIO PAGE  
	}
	$audiopageFile = "0,3281,59,00.xml" unless($audiopageFile); #ALTERNATE AUDIO PAGE  

	#PARSE AUDIO PAGE FILE 
	eval{$audiopageParser->parsefile("$audiopageDir$audiopageFile")}; 
	$error .= "<B>EVAL: audiopageParser '$audiopageDir$audiopageFile'</B> $@<BR>\n";
	if($@){};
	$mSize = @more_m_person;
}
  
sub search_dir(){
	#FIND FILE TO BE OPENED 
	my $dir = shift;
	my $storyId = shift;
	my $type = shift;
	my $file;
	my @list = `ls -t $dir`;

	foreach $filename (@list){
		chomp($filename);
		next unless($filename =~ /xml$/);
		if($filename =~ /$storyId/){
			$file = $filename;
			last;
		}
	}
	return($file);
}

sub end_handler {
	$expat = shift; 
	$element = shift;
}

sub mediaEnd_handler {
	$expat = shift;
	$element = shift;

	if($element eq "media_instance"){
		  ($junk,$end) = split(/\_/, $metaId);
		  $end = "_$end";
	 }
}

sub headline_titles(){
	##HEADLINE TITLES MUST BEGIN WITH A CAPITAL LETTER AND BE LONGER THAN 5 CHARACTERS 
	##AS A SAFEGUARD AGAINST BAD DATA IN XML FILES (an apostrophe in a name returns 3 headline files)
	if($data =~ /^[a-z]/){
		return(1);
	}
	if(length($data) < 5){
		return(1);
	}
}

sub headlineChar_handler {
	($p, $data) = @_;
	$data =~ s/\n+/ /g;
	$substr = substr($data,0,1);
	return() if(&headline_titles); ##SCREENS OUT BAD DATA IN HEADLINES 
	if($element eq "headline" && $data ne " "){
		push(@headline_m_link, $att{'href'});
		push(@headline_m_data, $data);
		$headline_items++;
	}
}

sub mediaRef(){  
	my $mediaRef;
	my $mediaLink = shift;
	my $refType = shift; #('audio' | 'video') 

	if($mediaLink =~ /cbs.sportsline.com/){
		$mediaLink =~ s/\.$mediatype$//;
			if($mediaLink =~ /$mediatype$/){
				$mediaRef = "javascript:goMovie('$mediaLink','$refType')";
			}else{
				$mediaRef = "javascript:goMovie('$mediaLink.$mediatype','$refType')";
			}
		$mediaLink =~ s/http:\/\/ww1\.sportsline\.com//;
	}elsif($mediaLink =~ /nflcom/ && $mediaLink =~ /rm/){ 
		$mediaRef = "javascript:goMovie('$mediaLink','$refType')";
	#}elsif($mediaLink =~ /asx/){ 
	#	$mediaRef = "javascript:goMovie('$mediaLink','wmp')";
	}else{ 
		$mediaRef = "javascript:goMovie('http://ww1.sportsline.com$mediaLink.$mediatype','$refType')";
	}

	return($mediaRef);
}

	
sub sort_mediaData(){
	#reverse sort (@date);
	foreach $cid (@cID){
	#Controls NFL.com and SPLN video Clips feed_ID eq 5 for NFL.com
    next if($feed_id[$cid] eq "5");

	#foreach $cid (sort(@cID)){
	#next unless($cid);
	if(
		($href[$cid] =~ /$metaId/) && 
		(
			($href[$cid] =~ /$mediatype$/ || $href[$cid] =~ /rm$/)
			|| 
			($href[$cid] =~ /$mediatype$/ || $href[$cid] =~ /ram$/)
			|| 
			($href[$cid] =~ /$mediatype$/ || $href[$cid] =~ /smi$/)
		)
	){
		#REQUESTED CLIP
			$mediaRef = &mediaRef($href[$cid],$type[$cid]);
			$embedRef = $href[$cid];
			$embedRef =~ s/http:\/\/ww1.sportsline.com//g;
				$metaLink = $mediaRef;
						$related_person = "$iname[$cid]" unless($person); 
						$related_date = $date[$cid];
						unless($related_person){
							$related_person = $title[$cid];
							$title[$cid] = ""; 	
						}
						unshift(@related_m_person, 	$related_person);

						unshift(@related_m_date, 	$date[$cid]);

						unshift(@related_m_title, 	$title[$cid]);

						unshift(@related_m_mediaRef,	$mediaRef);

						unshift(@related_m_data, 	$synopsis[$cid]);

						unshift(@related_m_type, 	$type[$cid]);
		}else{
		#OTHER CLIPS
						$mediaRef = &mediaRef($href[$cid],$type[$cid]);
						$test = join("\<BR\>", @related_data);


						unless($iname[$cid]){
							$iname[$cid] = $title[$cid];
							$title[$cid] = ""; 	
						}
							push(@more_m_person, 		$iname[$cid]);
							push(@more_m_date, 			"$date[$cid]");
							push(@more_m_title, 		$title[$cid]);
							push(@more_m_mediaRef, 		$mediaRef);
							push(@more_m_href, 			$href[$cid]);
							push(@more_m_data, 			$synopsis[$cid]);
							push(@more_m_type, 			$type[$cid]);
							push(@more_m_feed_id,         $feed_id[$cid]);
		}
	}
}

sub start_handler {
	$expat   = shift;
	$element = shift;

	while (@_) {
		$atts = shift;
      	$val = shift;
        $val =~ s/\s+$/\n/g;
		$att{$atts} = $val;
	}
	$i++;
}

sub mediapageChar_handler {
	$p = shift; 
	$data = shift;
	$es = join(", ", @es);

	$jj++;
	$data =~ s/\n+/ /g;

	#ELEMENT
	#return if(grep(/$att{'content_id'}/, @cID));
	push(@es, $element) unless(grep(/$element/, @es));
	#SORT
	if($element eq "media_collection"){
		#content_type	subject	
		$cgID = $att{'content_group_id'};
		$subject[$cgID] = $att{'subject'};
	}elsif($element eq "media"){

			foreach $Key (keys %att){
			}

				$cID = $att{'content_id'}; 
				push(@cID, $cID) unless(grep(/$cID/, @cID));
				
				$x = grep(/$att{'content_id'}/, @cID); 

					if($cID){
						#push(@cID, $cID) unless(grep(/$cID/, @cID));
						$type[$cID] 		= $att{'type'};
						$league_id[$cID] 	= $att{'league_id'};
						$sport_id[$cID] 	= $att{'sport_id'};
						$team_id[$cID] 	= $att{'team_id'};
						$player_id[$cID] 	= $att{'player_id'};
						$date[$cID] 		= $att{'date'};
                        $feed_id[$cID]      = $att{'feed_id'} if ($att{'feed_id'} ne "");
						$type[$cID] =~ s/External Real/video/g;
					}
	}elsif($element eq "name"){
		if($data =~ /[A-Z]/){ 
			$iname[$cID] 		= $data;
		}
	}elsif($element eq "title"){
		if($data =~ /[A-Z]/){ 
			$title[$cID] 		= $data;
			$title{$cID} 		= $data;
		}
	}elsif($element eq "synopsis"){
		if($data =~ /[A-Z]/){ 
			$synopsis[$cID] 	= $data;
		}
	}elsif($element eq "media_instance"){
		($junk,$end) = split(/\_/, $metaId);
		$end = "_$end";
		if(($att{'href'} =~ /$mediatype$/) &&($att{'href'} =~ /$end/)){
			#if(($att{'href'} =~ /$mediatype$/)&&($att{'href'} =~ /$metaId/))
		#STOPPED 
			#href	type	
			$href[$cID] = $att{'href'};
			$mFormat[$cID] = $att{'type'};
		}elsif($att{'href'} =~ /rm$/ || $att{'href'} =~ /rtsp$/ || $att{'href'} =~ /smi$/){
			$href[$cID] = $att{'href'};
			$mFormat[$cID] = $att{'type'};
		}else{
		}
	}
	
}

sub startaudio_handler {
     $expat   = shift;
     $element = shift;
     %att = ();
     while (@_) {
		$att = shift;
		$val = shift;
		$val =~ s/\s+$/\n/g;
		$att{$att} = $val;
     }
     $i++;
}

sub audiopageChar_handler {
	($p, $data) = @_;
	$data =~ s/\n+/ /g;
	# HOW DO WE DEAL WITH VIDEO ?!?!?!?!??!?
	if(($mediatype eq "asx") && ($mediaformat eq "v") && ($att{'href'} =~ /_g/)){
		$att{'href'} =~ s/_g/_h/g;
	}
	if($element eq "link" && $data ne " "){
		if($masterAudio =~ /$att{'href'}/){
			#DISCARD DUPLICATE CLIP 
		}else{
			#AUDIOPAGE ATTRIBUTES: (name, title, type, date, href)
			if(($att{'type'} eq "audio")||($att{'type'} eq "video")){
				##JS CALL TO EMBEDED PLAYER 
				$mediaRef = &mediaRef($att{'href'},$att{'type'});
	
				##EMBED FILE REFERENCE
				if(($att{'href'} =~ /$metaId/)&&($metaId)){
					## THIS IS THE CLIP REQUESTED, PLACE AT THE TOP OF THE LIST!!
					$embedRef = "$att{'href'}.$mediatype";
					$metaLink = $mediaRef;
					$alpha_by = substr($att{'last_name'},0,1);
					$related_person = &names;
					$related_date = $att{'date'};
					unshift(@related_m_person, $related_person);
					unshift(@related_m_last, $att{'last_name'});
					unshift(@related_m_date, $att{'date'});
					unshift(@related_m_title, $att{'title'});
					unshift(@related_m_mediaRef, $mediaRef);
					unshift(@related_m_data, $data);
					unshift(@related_m_type, $att{'type'});
				}else{
					#LIMIT THE NUMBER OF AUDIO CLIPS ($j needed for "More Media" section title) 
					if($j++ >=$limit){  		#1818#COUNT MORE MEDIA CLIPS
						#return;
					}

					$name = &names;
					push(@more_m_person, $name);
					push(@more_m_last, $att{'last_name'});
					push(@more_m_date, "$att{'date'}");
					push(@more_m_title, $att{'title'});
					push(@more_m_mediaRef, $mediaRef);
					push(@more_m_data, $data);
					push(@more_m_type, $att{'type'});
					
				}
				$t2_first_clip = "$att{'href'}.$mediatype" unless($t2_first_clip);

				$metaLink = $mediaRef unless($metaLink); 
			}elsif ($att{'type'} eq "video"){
			}
		}
	}
}

sub names(){
	my $person;
	$person = "$att{'name'}";
	$person = "$att{'first_name'} $att{'last_name'}" unless($person); 
	return($person);
}

sub changeColor(){
	#CHANGE THE CELL BACKGROUND COLOR ARRAY ELEMENT 
	my $color = shift;
	$lastColor = $color;
	$colorChanges++;
	if($color){ 	
		$color = 0; 
	}else{ 
		$color = 1; 
	}
	return($color);
}

sub mediaPersonInsert(){
	#INSERT PERSON/TITLE ROW
	my $insert = shift;
	my $media;
	$media .= qq(<tr bgcolor="$color[$color]" valign="top"><td colspan="2" class="navtxt1">);
	$media .= qq($insert</td></tr>\n);
	return($media);
}

sub mediaBox(){
	my $text = shift;
	my $mediaBox;
	$mediaBox  = qq(<tr valign="top"><td bgcolor=$boxColor{'outline'} colspan="2">);
	$mediaBox .= qq(<table width="100%" cellpadding="2" cellspacing="0" border="0">);
	$mediaBox .= qq(<tr valign="top"><td bgcolor=$boxColor{'box'} class="navtxt3">);
	$mediaBox .= qq(<b>&nbsp;$text</b></td></tr></table>); 
	$mediaBox .= qq(</td></tr>); 
	return($mediaBox);
}

sub new_person(){
	my $person = shift;
	my $title = shift;
	my $i = shift;
	my $relation = shift;  #"related" or "more" media
	my $date = shift;
	my $new_person;
	my $spot;

	if($person ne $last_person){
		$people++;
		if($relation eq "related"){
			$spot = "<B>$person</B><BR>$title $date";
		}else{
			$spot = "<B>$person</B><BR>$title $date";
		}
		$color = &changeColor($color);
		$topmedia = "";
		$new_person = &mediaPersonInsert("$spot");
	}else{
		$new_person = "";
	}
	$last_person = $person;
	return($new_person);
}

sub sort_moremedia(){
		my $size = @more_m_date;

		for($i=$size-1; $i>=0; $i--){
			($m,$d,$y) = split (/\//, $more_m_date[$i]);
			$m = $m - 1; #CONVERT TO UNIX MONTH NUMBER 
			$epoch = timelocal(0,0,0,$d,$m,$y);	
			$epoch{$i} = $epoch;
			push (@dateSort, $epoch) unless(grep(/$epoch/, @dateSort));
			$mmData{$epoch}{$i} = $more_m_data[$i];	
			$mmPerson{$epoch}{$i} = $more_m_person[$i];	
			$mmMediaRef{$epoch}{$i} = $more_m_mediaRef[$i];	
			$mmDate{$epoch}{$i} = $more_m_date[$i];	
			$mmType{$epoch}{$i} = $more_m_type[$i];	
			$mmTitle{$epoch}{$i} = $more_m_title[$i];	
		}
		$j = 0;
		foreach $ep (reverse(@dateSort)){
			$x = $size -1; 
			for($i=0;$i<$size;$i++){ 
				next unless($mmData{$ep}{$i});
				$mmPerson[$j] 	= $mmPerson{$ep}{$i};
				$mmData[$j] 	= $mmData{$ep}{$i};
				$mmMediaRef[$j]	= $mmMediaRef{$ep}{$i};
				$mmDate[$j] 	= $mmDate{$ep}{$i};
				$mmType[$j] 	= $mmType{$ep}{$i};
				$mmTitle[$j] 	= $mmTitle{$ep}{$i};
				$mmType[$j] =~ s/External Real/video/g;
				$j++;
			}
		}
		$j = 0;
}

sub more_media(){
	my $j;
	my $n = @more_m_person;
	my $icon;
	$howmany = $n;
	&sort_moremedia();

	$sizeof_mmP = @mmPerson;
	$sizeof_m_m_p = @more_m_person;

	$color = 0;
	$MboxTitle = &mediaBox("MORE MEDIA");
	$last_person = $more_m_person[0];
	$more_m_person = "" ;
	$last_person = "" ;

	for($i=0;$i<$n;$i++){
		next unless($mmPerson[$i]); 
		$icon = $audImg if($mmType[$i] eq "audio");
		$icon = $vidImg if($mmType[$i] eq "video");
	if(($related_person eq $more_m_person[$i])&&($contenttype >= 3)&&($related_date eq $more_m_date[$i])){
#SEPERATE VIDEO 
				$icon = $audImg if($mmType[$i] eq "audio");
				$icon = $vidImg if($mmType[$i] eq "video");
				$icon = $audImg if($more_m_type[$i] eq "audio");
				$icon = $vidImg if($more_m_type[$i] eq "video");
				next;
		}
		if($contenttype <= 3){
				$icon = $audImg if($mmType[$i] eq "audio");
				$icon = $vidImg if($mmType[$i] eq "video");
				$icon = $audImg if($more_m_type[$i] eq "audio");
				$icon = $vidImg if($more_m_type[$i] eq "video");
				$m_media .= &new_person($mmPerson[$i],$mmTitle[$i],$i,"more") if($mmPerson[$i]);
				$m_media .= "<tr valign=\"top\" bgcolor=$color[$color]><td>$icon&nbsp;</td>";
				$m_media .= "<td class=\"navtxt\"><a href=\"$mmMediaRef[$i]\">$mmData[$i]</a>";
				$m_media .= "($mmDate[$i])</td></tr>\n";
				$lastTitle = $mm_title[$i];
				$lastType = $more_m_type[$i];
				last if($j++ > $limit);
		}elsif($contenttype eq "4"){ #AUDIO ALPHA PAGES 
				if(($more_m_last[$i] =~ /^$alpha_by/)||($more_m_person[$i] =~ / $alpha_by/)){
					$m_media .= &new_person($mmPerson[$i],$mmTitle[$i],$i,"more") if($mmPerson[$i]);
					$m_media .= "<tr valign=\"top\" bgcolor=$color[$color]><td>$icon&nbsp;</td>";
					$m_media .= "<td class=\"navtxt\"><a href=\"$mmMediaRef[$i]\">$mmData[$i]</a> "; 
					$m_media .= "($mmDate[$i])</td></tr>\n";
					last if($j++ > $limit);
				}
		}elsif($contenttype eq "5" || $contenttype eq "6"){
			#EXCLUDE CONTENT INCLUDED IN RELATED SECTION 
			$icon = $audImg if($mmType[$i] eq "audio");
			$icon = $vidImg if($mmType[$i] eq "video");
			$m_media .= &new_person($mmPerson[$i],$mmTitle[$i],$i,"more") if($mmPerson[$i]);
			$m_media .= "<tr valign=\"top\" bgcolor=$color[$color]><td>$icon&nbsp;</td>";
			$m_media .= "<td class=\"navtxt\"><a href=\"$mmMediaRef[$i]\">$mmData[$i]</a> ";
			$m_media .= "($mmDate[$i])</td></tr>\n";
			last if($j++ > $limit);
		}
	}
	$m_media = $MboxTitle . $m_media if($m_media);
	return($j);
}

sub lmore_media(){
	my $j;
	my $n = @more_m_person;
	my $icon;
	$howmany = $n;
	&sort_moremedia();

	$color = 0;
	$MboxTitle = &mediaBox("MORE MEDIA");
	$last_person = $more_m_person[0];
	$more_m_person = "" ;
	$last_person = "" ;
	for($i=0;$i<$n;$i++){
		$more_m_type[$i] =~ s/External Real/video/g;
		$icon = $audImg if($more_m_type[$i] eq "audio");
		$icon = $vidImg if($more_m_type[$i] eq "video");

		if(($related_person eq $more_m_person[$i])&&($contenttype >= 3)&&($related_date eq $more_m_date[$i])){
			next;
		}
		if($contenttype <= 3){
				$m_media .= &new_person($more_m_person[$i],$more_m_title[$i],$i,"more") if($more_m_person[$i]);
				$m_media .= "<TR><TD BGCOLOR=$color[$color] VALIGN=top>&nbsp;$icon</TD>";
				$m_media .= "<TD BGCOLOR=$color[$color] VALIGN=top><FONT SIZE=1 FACE=verdana>";
				$m_media .= "\n<A HREF=\"$more_m_mediaRef[$i]\">$more_m_data[$i]</A> ";
				$m_media .= "($more_m_date[$i])</FONT></TD></TR>\n";
				$m_media .= "</TD></TR>\n";
				last if($j++ > $limit);
		}elsif($contenttype eq "4"){ #AUDIO ALPHA PAGES 
				if($more_m_last[$i] =~ /^$alpha_by/){
					$m_media .= &new_person($more_m_person[$i],$more_m_title[$i],$i,"more") if($more_m_person[$i]);
					$m_media .= "<TR><TD BGCOLOR=$color[$color] VALIGN=top>&nbsp;$icon</TD>";
					$m_media .= "<TD BGCOLOR=$color[$color] VALIGN=top><FONT SIZE=1 FACE=verdana>";
					$m_media .= "\n<A HREF=\"$more_m_mediaRef[$i]\">$more_m_data[$i]</A> "; 
					$m_media .= "($more_m_date[$i])</FONT></TD></TR>\n";
					$m_media .= "</TD></TR>\n";
					last if($j++ > $limit);
				}
		}elsif($contenttype eq "5" || $contenttype eq "6"){
			#EXCLUDE CONTENT INCLUDED IN RELATED SECTION 
			unless((grep(/$cID[$i]/, @related_cID))&&($cID[$i])){
				$m_media .= &new_person($more_m_person[$i],$more_m_title[$i],$i,"more") if($more_m_person[$i]);
				$m_media .= "<TR><TD BGCOLOR=$color[$color] VALIGN=top>&nbsp;$icon</TD>";
				$m_media .= "<TD BGCOLOR=$color[$color] VALIGN=top><FONT SIZE=1 FACE=verdana>";
				$m_media .= "\n<A HREF=\"$more_m_mediaRef[$i]\">$more_m_data[$i]</A> ";
				$m_media .= "($more_m_date[$i])</FONT></TD></TR>\n";
				$m_media .= "</TD></TR>\n";
				last if($j++ > $limit);
			}
		}elsif($contenttype eq "temp"){
		     	$m_media .= &new_person($more_m_person[$i],$more_m_title[$i],$i,"more") if($more_m_person[$i]);
                    $m_media .= "<TR><TD BGCOLOR=$color[$color] VALIGN=top>&nbsp;$icon</TD>";
                    $m_media .= "<TD BGCOLOR=$color[$color] VALIGN=top><FONT SIZE=1 FACE=verdana>";
                    $m_media .= "\n<A HREF=\"$more_m_mediaRef[$i]\">$more_m_data[$i]</A> ";
                    $m_media .= "($more_m_date[$i])</FONT></TD></TR>\n";
                    $m_media .= "</TD></TR>\n";
                    last if($j++ > $limit);
               }
	}
	$m_media = $MboxTitle . $m_media if($m_media);
	$m_media .= "</table>";
	return($j);
}

sub storyChar_handler {
	($p, $data) = @_;
	$data =~ s/\n+/ /g;
	$data =~ s/\s+/ /g;

	if($element eq "link" && $data ne " "){
	#LINK ELEMENTS (AUDIO | VIDEO | PHOTO | STORY) 
	
		##TEST FOR CONTENT TYPE (AUDIO | VIDEO | PHOTO | STORY)  
		if (($att{'type'} eq "audio") || ($att{'type'} eq "AUDIO")){
			&storyChar_media("audio");
		}elsif(($att{'type'} eq "video") || ($att{'type'} eq "VIDEO")){ 
			&storyChar_media("video");
		}
		
		$lasttitle = $att{'title'}; 
	
	}elsif($element eq "media_instance"){ # && $data ne " ")
		# if(($mediatype eq "asx") &&($att{'type'} =~ /Windows/)); 
	}elsif($element eq "content"){ # && $data ne " ")
	#CONTENT ELEMENT - SUBJECT FOUND HERE 
		if($att{'subject'}){
			$subject = $att{'subject'} if($att{'subject'}); 
		}
	}
}

sub storyChar_media(){
	##ADD:
	my $mediaType = shift; #   ( "audio" || "video" )
	##JS CALL TO EMBEDED PLAYER 
	$mediaRef = &mediaRef($att{'href'},$att{'type'});

	if($masterAudio =~ /$att{'href'}/){
		#DUPLICATE FILE!!! - Discarding  
		next;
	}
	##EMBED FILE REFERENCE
	if(($att{'href'} =~ /$metaId/)&&($metaId)){
		$embedRef = "$att{'href'}.$mediatype";
		$topmedia = 1;
		## THIS IS THE CLIP REQUESTED, PLACE AT THE TOP!!
		$metaLink = $mediaRef;

		$person = "$att{'first_name'} $att{'last_name'}<BR>$att{'title'}";
		$top_person = &mediaPersonInsert("$person p:$people c:$color");
		unshift(@related_m_person, &names);
		unshift(@related_m_title, $att{'title'});
		unshift(@related_m_mediaRef, $mediaRef);
		unshift(@related_m_data, $data);
		unshift(@related_m_type, $mediaType);
	}else{
		$person = &names;
		push(@related_m_person, $person);
		push(@related_m_title, $att{'title'});
		push(@related_m_mediaRef, $mediaRef);
		push(@related_m_data, $data);
		push(@related_m_type, $mediaType);
	}		
}

sub storyChar_audio(){
	$mediaRef = &mediaRef($att{'href'},$att{'type'});

	if($masterAudio =~ /$att{'href'}/){
		#DUPLICATE FILE!!! - Discarding  
		next;
	}
	##EMBED FILE REFERENCE
	if(($att{'href'} =~ /$metaId/)&&($metaId)){
		## THIS IS THE CLIP REQUESTED, PLACE AT THE TOP!!
		$embedRef = "$att{'href'}.$mediatype";
		$topmedia = 1;
		$metaLink = $mediaRef;
		$person = "$att{'first_name'} $att{'last_name'}<BR>$att{'title'}";
		$top_person = &mediaPersonInsert("$person p:$people c:$color");
		unshift(@related_m_person, &names);
		unshift(@related_m_title, $att{'title'});
		unshift(@related_m_mediaRef, $mediaRef);
		unshift(@related_m_data, $data);
	}else{
		$person = &names;
		push(@related_m_person, $person);
		push(@related_m_title, $att{'title'});
		push(@related_m_mediaRef, $mediaRef);
		push(@related_m_data, $data);
	}
}

sub storyChar_video(){
	#VIDEO#
	$vidRef = "javascript:goMovie('$att{'href'}.$mediatype')";
	$embedRef = "$att{'href'}.$mediatype";
	if(($att{'href'} =~ /$metaId/)&&($metaId)){
		$metaLink = $vidRef;
		$top_media .= "$vidImg <FONT SIZE=2 COLOR=red><A HREF=\"$vidRef\"".">$data</A></FONT><BR>\n"; 
	}else{
		$r_media2 .= "$vidImg <FONT CLASS=navtxt><A HREF=\"$vidRef\">$data</A></FONT><BR>\n"; 
	}
}