#!/usr/bin/perl

#$playerUrl = qq!http://www.earththrives.com/plugins/content/playerflv!;

$playerUrl = qq!http://www.rothbroth.net/playerflv!;

$siteBase = "/var/www/rothbroth";

($here) = `pwd`;
chomp($here);

$vbase = $here;
$vbase =~ s/$siteBase//;

@files = sort(<*.flv>);

open(HTM, ">index.html");
for (@files) {
	$video = $_;
	$vfile = $_ . ".html";

	$vurl  = $video;
	$vurl  =~ s/\+/%2B/g;

	$size = (-s $video) + 1023;
	$size /= 1024;
	$size = int($size);

	print HTM <<END;
<li><a href=$vfile>$_</a> $size Kbytes
END

	print $vfile . "\n";
	open(V, ">$vfile");

	print V <<END;
<a href=.>Home</a>  -- File:$video</b> $size Kbytes
<p>
<object type="application/x-shockwave-flash" 
data="$playerUrl/flvplayer.swf?file=$vbase/$vurl&showFs=true&autoStart=false" 
width="400" height="300" bgcolor="#000000" wmode="transparent">  
<param name="movie" 
value="$playerUrl/flvplayer.swf?file=$vbase/$vurl&autoStart=false&showFs=true" 
width="400" />
<param name="bgcolor" value="#000000">
          <param name="wmode" value="transparent" />
        </object>

END

}