/[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

revision 846 by dpavlin, Mon Dec 15 18:42:48 2008 UTC revision 847 by dpavlin, Mon Dec 15 18:57:04 2008 UTC
# Line 12  with 'Frey::Web'; Line 12  with 'Frey::Web';
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',
# Line 42  sub as_markup { Line 47  sub as_markup {
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    
Legend:
Removed from v.846  
changed lines
  Added in v.847
  ViewVC Help
Powered by ViewVC 1.1.26