Frey/Web/FLVPlayer.pm

package Frey::Web::FLVPlayer;
use Moose;

=head1 SEE ALSO

L<http://flv-player.net/>

=cut

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';
with 'Frey::File::FLV';

has title => (
        is => 'rw',
        isa => 'Str',
);

has path => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'var/flv/codeswarm.flv',
);

has player_swf => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'http://flv-player.net/medias/player_flv_maxi.swf',
);

sub as_markup {
        my ($self) = @_;

        my $path = $self->path;
        die "can't find $path" unless -e $path;

        my $url = "http://localhost:3000/$path"; # FIXME

        my $swf = $self->player_swf;

        my %info = $self->flv_info;
        warn "# info ", $self->dump( \%info );

        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('&amp;', @var);

        qq|
                <object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height">
                <param name="movie" value="$swf" />
                <param name="FlashVars" value="$FlashVars" />
                </object>
        |;

}

1;
1	dpavlin	844	package Frey::Web::FLVPlayer;
2	dpavlin	809	use Moose;
3
4			=head1 SEE ALSO
5
6	dpavlin	846	L<http://flv-player.net/>
7	dpavlin	809
8			=cut
9
10			extends 'Frey';
11			with 'Frey::Web';
12			#with 'Frey::Storage';
13	dpavlin	823	with 'Frey::File::FLV';
14	dpavlin	809
15	dpavlin	847	has title => (
16			is => 'rw',
17			isa => 'Str',
18			);
19
20	dpavlin	823	has path => (
21	dpavlin	809	is => 'rw',
22			isa => 'Str',
23			required => 1,
24	dpavlin	825	default => 'var/flv/codeswarm.flv',
25	dpavlin	809	);
26
27	dpavlin	846	has player_swf => (
28	dpavlin	814	is => 'rw',
29			isa => 'Str',
30			required => 1,
31	dpavlin	846	default => 'http://flv-player.net/medias/player_flv_maxi.swf',
32	dpavlin	814	);
33
34	dpavlin	809	sub as_markup {
35			my ($self) = @_;
36
37	dpavlin	823	my $path = $self->path;
38			die "can't find $path" unless -e $path;
39	dpavlin	809
40	dpavlin	823	my $url = "http://localhost:3000/$path"; # FIXME
41	dpavlin	814
42	dpavlin	846	my $swf = $self->player_swf;
43	dpavlin	814
44	dpavlin	823	my %info = $self->flv_info;
45			warn "# info ", $self->dump( \%info );
46
47			my $width = $info{meta_width};
48			my $height = $info{meta_height};
49
50	dpavlin	847	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	dpavlin	809	qq\|
63	dpavlin	846	<object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height">
64			<param name="movie" value="$swf" />
65	dpavlin	847	<param name="FlashVars" value="$FlashVars" />
66	dpavlin	846	</object>
67	dpavlin	809	\|;
68
69			}
70
71			1;