--- trunk/lib/Frey/Web/FLVPlayer.pm	2008/12/15 18:42:48	846
+++ trunk/lib/Frey/Web/FLVPlayer.pm	2008/12/15 18:57:04	847
@@ -12,6 +12,11 @@
 #with 'Frey::Storage';
 with 'Frey::File::FLV';
 
+has title => (
+	is => 'rw',
+	isa => 'Str',
+);
+
 has path => (
 	is => 'rw',
 	isa => 'Str',
@@ -42,10 +47,22 @@
 	my $width  = $info{meta_width};
 	my $height = $info{meta_height};
 
+	my @var = ( "flv=$url" );
+
+	my $srt = $path;
+	$srt =~ s{\.flv}{.srt};
+	if ( -e $srt ) {
+		push @var, "srt=1";
+	}
+
+	push @var, 'title=' . $self->title if $self->title;
+
+	my $FlashVars = join('&', @var);
+
 	qq|
 		<object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height">
 		<param name="movie" value="$swf" />
-		<param name="FlashVars" value="flv=$url" />
+		<param name="FlashVars" value="$FlashVars" />
 		</object>
 	|;