/[Frey]/trunk/lib/Frey/Web/FLVPlayer.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web/FLVPlayer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/lib/Frey/Web/Flowplayer.pm revision 809 by dpavlin, Thu Dec 11 20:18:28 2008 UTC trunk/lib/Frey/Web/FLVPlayer.pm revision 850 by dpavlin, Mon Dec 15 19:41:35 2008 UTC
# Line 1  Line 1 
1  package Frey::Web::Flowplayer;  package Frey::Web::FLVPlayer;
2  use Moose;  use Moose;
3    
4  =head1 SEE ALSO  =head1 SEE ALSO
5    
6  L<http://flowplayer.org/documentation/installation.html>  L<http://flv-player.net/>
7    
8  =cut  =cut
9    
10  extends 'Frey';  extends 'Frey';
11  with 'Frey::Web';  with 'Frey::Web';
12  #with 'Frey::Storage';  #with 'Frey::Storage';
13    with 'Frey::File::FLV';
14    
15  has skeleton => (  use Video::Subtitle::SRT;
16    
17    has title => (
18            is => 'rw',
19            isa => 'Str',
20    );
21    
22    has path => (
23          is => 'rw',          is => 'rw',
24          isa => 'Str',          isa => 'Str',
25          required => 1,          required => 1,
26          default => 'skeleton',          default => 'var/flv/codeswarm.flv',
27    );
28    
29    has player_swf => (
30            is => 'rw',
31            isa => 'Str',
32            required => 1,
33            default => 'http://flv-player.net/medias/player_flv_maxi.swf',
34    );
35    
36    has FlashVars => (
37            is => 'rw',
38            isa => 'ArrayRef[Str]',
39            default => sub { [] },
40            lazy => 1, # hide it from user
41  );  );
42    
43  sub as_markup {  sub as_markup {
44          my ($self) = @_;          my ($self) = @_;
45    
46          warn $self->skeleton;          my $path = $self->path;
47            die "can't find $path" unless -e $path;
48    
49            my $url = "http://localhost:3000/$path"; # FIXME
50    
51            my $swf = $self->player_swf;
52    
53            my %info = $self->flv_info;
54            warn "# info ", $self->dump( \%info );
55    
56            my $width  = $info{meta_width};
57            my $height = $info{meta_height};
58    
59            push @{ $self->FlashVars }, "flv=$url";
60    
61            my $subtitles = $self->subtitles_as_markup;
62    
63            push @{ $self->FlashVars }, 'title=' . $self->title if $self->title;
64    
65            my $FlashVars = join('&amp;', @{ $self->FlashVars });
66    
67          qq|          qq|
68  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"                  <object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height">
69      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">                  <param name="movie" value="$swf" />
70                    <param name="FlashVars" value="$FlashVars" />
71  <!-- include the only required JavaScript file -->                  </object>
72  <script src="http://static.flowplayer.org/js/flowplayer-3.0.1.min.js"></script>                      $subtitles
   
 <!--    
    Setup player with standard HTML syntax  
       * movie file is specified in "href" attribute    
       * player dimensions are defined with CSS    
 -->  
 <a    
     href="http://blip.tv/file/get/KimAronson-TwentySeconds4461.flv"    
     style="display:block;width:425px;height:300px;"    
     id="player">  
 </a>  
   
 <!-- this script block will install Flowplayer inside previous anchor tag -->  
 <script language="JavaScript">  
     flowplayer("player", "http://static.flowplayer.org/swf/flowplayer-3.0.1.swf");  
 </script>  
73          |;          |;
74    
75  }  }
76    
77    sub subtitles_as_markup {
78            my ( $self ) = @_;
79    
80            my $srt = $self->path;
81            $srt =~ s{\.flv}{.srt};
82            my $html = '';
83    
84            if ( -e $srt ) {
85                    push @{ $self->FlashVars }, 'srt=1';
86    
87                    my $callback = sub {
88                            my $data = shift;
89                            $html .= qq|<tr><td> $data->{start_time} </td><td> $data->{end_time} </td><td> $data->{text} </td></tr>|;
90                    };
91    
92                    my $subtitle = Video::Subtitle::SRT->new($callback);
93                    $subtitle->debug(1);
94                    $subtitle->parse( $srt );
95    
96                    $html = qq|
97                            <table class="html">
98                                    <thead>
99                                            <tr><th>from</th><th>to</th><th>subtitle</th></tr>
100                                    </thead>
101                                    <tbody>
102                                            $html
103                                    <tbody>
104                            </table>
105                    |;
106            }
107    
108            return $html;
109    }
110    
111  1;  1;
Legend:
Removed from v.809  
changed lines
  Added in v.850
  ViewVC Help
Powered by ViewVC 1.1.26