53 |
my %info = $self->flv_info; |
my %info = $self->flv_info; |
54 |
warn "# info ", $self->dump( \%info ); |
warn "# info ", $self->dump( \%info ); |
55 |
|
|
56 |
my $width = $info{meta_width}; |
my $width = $info{video_width}; |
57 |
my $height = $info{meta_height}; |
my $height = $info{video_height}; |
58 |
|
|
59 |
push @{ $self->FlashVars }, "flv=$url"; |
$self->FlashVars( [ "flv=$url", "autoload=1", "showtime=1" ] ); |
60 |
|
|
61 |
|
push @{ $self->FlashVars }, 'showvolume=1' if $info{audio_count} > 0; |
62 |
|
|
63 |
my $subtitles = $self->subtitles_as_markup; |
my $subtitles = $self->subtitles_as_markup; |
64 |
|
|
66 |
|
|
67 |
my $FlashVars = join('&', @{ $self->FlashVars }); |
my $FlashVars = join('&', @{ $self->FlashVars }); |
68 |
|
|
69 |
|
my $info = $self->dropdown( $self->path, \%info ); |
70 |
qq| |
qq| |
71 |
<object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height"> |
<object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height"> |
72 |
<param name="movie" value="$swf" /> |
<param name="movie" value="$swf" /> |
73 |
<param name="FlashVars" value="$FlashVars" /> |
<param name="FlashVars" value="$FlashVars" /> |
74 |
</object> |
</object> |
75 |
|
<div>$info</div> |
76 |
$subtitles |
$subtitles |
77 |
|; |
|; |
78 |
|
|