#!/usr/bin/perl
require '/plib3/USChartCo.Stubs.pl';
require '/plib3/Web.pl';

my $web = Web->new(session => true);
my $stubs = Stubs->new($web);

$stubs->requirelogin;

#69.211.177.107

my $index = $web->form('file') ? 'no' : 'yes';
my $file = $web->form('file');

#my $file = "";

my $db = "/tradingvideo.txt";

$stubs->printsectionheader('video');

my @videolist;
my $flag = 0;
open (videos, "<$db");
foreach (<videos>){
	chomp;
	push(@videolist,$_);
	my @video = split /\|/,$_;

	if($video[4] eq $file){
		$vidDate = $video[0];
		$vidSubject = $video[1];
		$vidMarket = $video[2];
		$vidDuration = $video[3];
		$vidType = $video[5];
		$flag = 1;
	}
}
close videos;

reverse @videolist;
if($flag == 0){
	my @firstvideo = split /\|/,$videolist[0];
	$file = $firstvideo[4];
	$vidDate = $firstvideo[0];
	$vidSubject = $firstvideo[1];
	$vidMarket = $firstvideo[2];
	$vidDuration = $firstvideo[3];
	$vidType = $firstvideo[5];
}

if($vidType eq 'swf'){

print <<"EOHTML";

 <title>Created by Jim Prince for US Charts Online</title>

   <script type="text/javascript" src="flashobject.js"></script>    
   <script type="text/javascript">
      <!-- To load a movie other than the first one listed in the xml file you can specify a movie=# arguement. -->
      <!-- For example, to load the third movie you would do the following: MyProjectName.html?movie=3 -->      
      // <![CDATA[
      var args = new Object();
      var query = location.search.substring(1);
      // Get query string
      var pairs = query.split( "," );
      // Break at comma
      for ( var i = 0; i < pairs.length; i++ )
      {
         var pos = pairs[i].indexOf('=');
         if( pos == -1 )
         {
            continue;
         }
         var argname = pairs[i].substring( 0, pos );
         var value = pairs[i].substring( pos + 1 );
         args[argname] = unescape( value );
      }
      // ]]>
   </script>


	<style type="text/css">	   
	#noexpressUpdate
	{
		margin: 0 auto;
		font-family:Arial, Helvetica, sans-serif;
		font-size: x-small;
		color: #003300;
		text-align: left;
		background-image: url(usco_100606_nofp_bg.gif);
		background-repeat: no-repeat;
		width: 210px; 
		height: 200px;	
		padding: 40px;
	}
</style>
</head>

	<div id="flashcontent">	   		
		<div id="noexpressUpdate">
			<p>The Camtasia Studio video content presented here requires JavaScript to be enabled and the  latest version of the Macromedia Flash Player. If you are you using a browser with JavaScript disabled please enable it now. Otherwise, please update your version of the free Flash Player by <a href="http://www.macromedia.com/go/getflashplayer">downloading here</a>. </p>
		</div>
	</div>

<script type="text/javascript">
		  // <![CDATA[
EOHTML
	print "var fo = new FlashObject( \"usco_".$file."_controller.swf\", \"usco_".$file."_controller.swf\", \"656\", \"551\", \"7\", \"#FFFFFF\", false, \"best\" );";
	print "fo.addVariable( \"csConfigFile\", \"usco_".$file."_config.xml\"  );\n";
	print "fo.addVariable( \"csColor\"     , \"FFFFFF\"           );\n";
	print "fo.addVariable( \"csPreloader\" , 'usco_".$file."_preload.swf' );\n";
	print <<"EOHTML";
         if( args.movie )
         {
            fo.addVariable( "csFilesetBookmark", args.movie );
         }
         fo.write("flashcontent");
         // ]]>
	   </script>
EOHTML

}elsif($vidType eq "wmv"){

print <<"EOHTML";
<OBJECT id="MediaPlayer" width="656" height="496" classid="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95" standby="Loading Microsoft® Windows® Media Player components..." type="application/x-oleobject" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,7,1112">
<PARAM NAME="filename" VALUE="wmv/$file.wmv">
<PARAM NAME="autoStart" VALUE="false">
<PARAM NAME="showControls" VALUE="true">
<param name="ShowStatusBar" value="true">
<PARAM NAME="Autorewind" VALUE="true">
<PARAM NAME="ShowDisplay" VALUE="false">
<EMBED SRC="wmv/$file.wmv" WIDTH="656" HEIGHT="496" type="application/x-mplayer2" name="MediaPlayer" autostart="0" showcontrols="1" showstatusbar="1" autorewind="1" showdisplay="0"></EMBED>
</OBJECT>
<div align="center"><small>Click the play icon to start the video</small></div>
EOHTML
}

print <<"EOHTML";
<br>
* To download a video to your desktop, right click the "download" link and click "Save As.."<br>
<P>
	<b>Date:</b> $vidDate <br>
	<b>Subject:</b> $vidSubject <br>
	<b>Market:</b> $vidMarket <br>
	<b>Duration:</b> $vidDuration <br>
	<a href="http://media.uschartco.com/$file.wmv">Download this Movie</a><br>
</p>
EOHTML
unless($index eq 'no'){
	print "<div>";
	print "<p>Here is this week's free video Trading Lesson. Every Friday evening U.S. Charts Online provides you with a free 5 - 7 minute video trading lesson. To play the video, press the Play button above and enjoy!</p>";
	print "<p>If you can't view the trading lession, you need the latest Windows Media Player installed on your computer.  <a href=\"http://www.microsoft.com/windows/windowsmedia/player/download/download.aspx\" target=\"_blank\">Download the free Media Player</a>.</p>";
	print "</div>";
}
print <<"EOHTML";

<table border="0" cellpadding="2" cellspacing="0" width="100%">
 <tr style="font-weight: bold">
  <td colspan="4" align="center">Video Trading Lesson Archive</td>
 </tr>
 <tr style="font-weight: bold">
  <td>Date</td>
  <td>Subject</td>
  <td>Market</td>
  <td align="right">Duration</td>
  <td align="right"> </td>
 </tr>

EOHTML

open (videos, "<$db");
foreach (<videos>){
	my @video = split /\|/,$_;
	&printRow($video[0],$video[1],$video[2],$video[3],$video[4]);
}
close videos;



print "</table>";

#params: date, subject, market, duration, file
sub printRow {
	my $date = shift;
	my $subject = shift;
	my $market = shift;
	my $duration = shift;
	my $file = shift;
	
	print "<tr>\n";
	print "<td>$date</td>\n";
	print "<td nowrap><a href=\"default.asp?file=$file\">$subject</a></td>\n";
	print "<td nowrap>$market</td>\n";
	print "<td align=\"right\">$duration</td>\n";
	print "<td align=\"right\"><a href=\"http://media.uschartco.com/$file.wmv\">download</a></td>\n";
	print "</tr>\n";
}


$stubs->printsectionfooter;