Apache2::EmbedFLV - Embed FLV videos into a templated web interface

Apache2-EmbedFLV documentation Contained in the Apache2-EmbedFLV distribution.

Index

Code Index:

NAME

Top

Apache2::EmbedFLV - Embed FLV videos into a templated web interface using Flowplayer.

SYNOPSIS

Top

On your Apache configuration file:

 <Files ~ "\.flv$">
   SetHandler modperl
   PerlResponseHandler Apache2::EmbedFLV
 </Files>

If you want to restrict only a certain directory to serve FLVs using Apache2::EmbedFLV, you can wrap the Files declaration on a Directory block. For more information, take a look at excellent Apache2's documentation.

By default, you have to have /flowplayer.swf and /flowplayer.controls.swf available on your webserver. Both SWFs are provided on the GPL distribution of Flowplayer. You can alias them with something like:

 Alias /flowplayer.swf /home/web/flowplayer-3.0.3.swf
 Alias /flowplayer.controls.swf /home/web/flowplayer.controls.swf

That's it. Just go to any FLV video within your web server. With that setup, Apache2::EmbedFLV will use a default template.

TEMPLATING

Top

Take a look at the default template located at example/template.tt. That is not the real file used by this module but it's a verbatim copy. The file is placed there just as an example so you can make your own template without too much internal poking.

Once you have your own template, just PerlSetVar it to the handler:

 <Files ~ "\.flv$">
   SetHandler modperl
   PerlSetVar template /path/to/my/template.tt
   PerlResponseHandler Apache2::EmbedFLV
 </Files>

In order to specify a different path than /flowplayer.swf for Flowplayer, just PerlSetVar flowplayer (remember to accompany the controls SWF):

 <Files ~ "\.flv$">
   SetHandler modperl
   PerlSetVar template /path/to/my/template.tt
   # you would have to have http://yourserver.com/somewhere/flowplayer.swf:
   PerlSetVar flowplayer /somewhere/flowplayer.swf
   # or...
   PerlSetVar flowplayer http://my.other.server/rocks/flowplayer.swf
   PerlResponseHandler Apache2::EmbedFLV
</Files>

I believe it's pretty obvious that the templating system used and required is Template::Toolkit. Wherever you want to embed the video within, just call: [% video %].

DESCRIPTION

Top

Apache2::EmbledFLV has been already described on the previous section :-)

However...

Apache2::EmbedFLV enables Apache to show FLV videos using Flowplayer. This will ease any deployment of FLV video galleries you'd need to do since you could just put the FLVs on an Apache accessible location, and they will be presented on a proper way to your final user.

SEE IT IN ACTION

Top

You can see it in action here: http://axiombox.com/apache2-embedflv/flv.

FLOWPLAYER

Top

Find the Flowplayer distribution on http://flowplayer.org. It is a nice little GPL video player.

DOWNLOAD

Top

Download it at CPAN: http://search.cpan.org/~damog.

PROJECT

Top

You can always see the latest information on this project on: http://axiombox.com/apache2-embedflv.

Code is hosted at http://github.com/damog/apache2-embedflv.

AUTHOR

Top

David Moreno <david@axiombox.com>, http://damog.net/. Some other similar projects are announced on the Infinite Pig Theorem blog: http://log.damog.net.

THANKS

Top

* Bill Cromie, who allowed me to use my employer's resources to have some fun with this little project.
* Flowplayer http://flowplayer.com/.
* Raquel Hernándex, http://maggit.net, who made the default template.

COPYRIGHT

Top

Copyright (C) 2009 by David Moreno.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Flowplayer, also shipped with this distribution, is GPL: http://flowplayer.org/download/LICENSE_GPL.txt.

Apache2-EmbedFLV documentation Contained in the Apache2-EmbedFLV distribution. 
package Apache2::EmbedFLV;

our $VERSION = '0.2';

use Apache2::Request;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::RequestUtil ();
use Apache2::Util ();
use Apache2::Const -compile => qw/OK :common DIR_MAGIC_TYPE/;
use Apache2::EmbedFLV::Template;
use Data::Dumper;
use Cwd;
use Digest::MD5 qw/md5_hex/;

sub handler {
	my($r) = shift;

	if(! -e $r->filename) {
		return Apache2::Const::NOT_FOUND;
	} elsif(! -r $r->filename) {
		return Apache2::Const::FORBIDDEN;
	} else {
		my $req = Apache2::Request->new($r);

		if(
				# let's face it, this is why Perl sucks
				$req->param and
				scalar keys %{$req->param} == 1 and
				not $req->param( ${ [ keys %{$param} ] }[0] ) and
				length ${ [ keys %{$req->param} ] }[0] == 32
		) {
			my($md5) = keys %{$req->param}; # not too intuitive
			if($md5 eq md5_hex($r->filename)) {
				$r->content_type("video/x-flv");
				open my $fh, "<", $r->filename or die "Apache2::EmbedFLV wrong $!!";
				while(<$fh>) {
					$r->print($_);
				}
				close $fh;
				return Apache2::Const::OK;
			} else {
				return Apache2::Const::FORBIDDEN;
			}
		} else {
			my $md5 = md5_hex($r->filename);
			$r->content_type("text/html");

			my $template = $r->dir_config('template');
			my $flowplayer = $r->dir_config("flowplayer");

			my $t = Apache2::EmbedFLV::Template->new($template);
			$r->print(
				$t->process(
					uri => $r->uri,
					md5 => $md5,
					flowplayer => $flowplayer,
					template => $template
				)
			);

			return Apache2::Const::OK;
		}
	}
}

1;

__END__
Hello! Your md5 cookie is [% md5 %]