--- trunk/lib/Frey/Web/Flowplayer.pm 2008/12/11 20:18:28 809
+++ trunk/lib/Frey/Web/Flowplayer.pm 2008/12/12 19:34:42 823
@@ -10,40 +10,64 @@
extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';
+with 'Frey::File::FLV';
-has skeleton => (
+has path => (
is => 'rw',
isa => 'Str',
required => 1,
- default => 'skeleton',
+ default => 'var/flv/strix-2005-2008-codeswarm.flv',
+);
+
+has flowplayer_js => (
+ is => 'rw',
+ isa => 'Str',
+ required => 1,
+ default => 'http://static.flowplayer.org/js/flowplayer-3.0.1.min.js',
+);
+
+has flowplayer_swf => (
+ is => 'rw',
+ isa => 'Str',
+ required => 1,
+ default => 'http://static.flowplayer.org/swf/flowplayer-3.0.1.swf',
);
sub as_markup {
my ($self) = @_;
- warn $self->skeleton;
+ my $path = $self->path;
+ die "can't find $path" unless -e $path;
+
+ my $url = "http://localhost:3000/$path"; # FIXME
+
+ $self->add_js( $self->flowplayer_js );
+ my $swf = $self->flowplayer_swf;
+
+ my %info = $self->flv_info;
+ warn "# info ", $self->dump( \%info );
+
+ my $width = $info{meta_width};
+ my $height = $info{meta_height};
qq|
-
-
-
|;