12 |
#with 'Frey::Storage'; |
#with 'Frey::Storage'; |
13 |
with 'Frey::File::FLV'; |
with 'Frey::File::FLV'; |
14 |
|
|
15 |
|
has title => ( |
16 |
|
is => 'rw', |
17 |
|
isa => 'Str', |
18 |
|
); |
19 |
|
|
20 |
has path => ( |
has path => ( |
21 |
is => 'rw', |
is => 'rw', |
22 |
isa => 'Str', |
isa => 'Str', |
47 |
my $width = $info{meta_width}; |
my $width = $info{meta_width}; |
48 |
my $height = $info{meta_height}; |
my $height = $info{meta_height}; |
49 |
|
|
50 |
|
my @var = ( "flv=$url" ); |
51 |
|
|
52 |
|
my $srt = $path; |
53 |
|
$srt =~ s{\.flv}{.srt}; |
54 |
|
if ( -e $srt ) { |
55 |
|
push @var, "srt=1"; |
56 |
|
} |
57 |
|
|
58 |
|
push @var, 'title=' . $self->title if $self->title; |
59 |
|
|
60 |
|
my $FlashVars = join('&', @var); |
61 |
|
|
62 |
qq| |
qq| |
63 |
<object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height"> |
<object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height"> |
64 |
<param name="movie" value="$swf" /> |
<param name="movie" value="$swf" /> |
65 |
<param name="FlashVars" value="flv=$url" /> |
<param name="FlashVars" value="$FlashVars" /> |
66 |
</object> |
</object> |
67 |
|; |
|; |
68 |
|
|