# Copyright (C) 2004  Phillip Reay
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.

$ModulesDescription .= '<p>$Id: mov.pl,v 1.14 2005/10/09 11:57:52 as Exp $</p>';

push(@MyRules, \&movRule);
$RuleOrder{\&movRule} = -10; # run before default rules!

sub movRule { 	# [[src.mov x:320 y:240 play:true ctrl:true loop:true bg:#000000]]
  if (/\G\[\[(.*?)\.mov (\d+) (\d+) (.*?) #(.*?)\]\]/cgi) {
	# [[src.mov x y play ctrl loop bg:#000]]
    my $src  = $1;
    my $x    = $2;
    my $y    = $3;
    my $auto = ($4 eq 'play');
    my $ctrl =  ($4 eq 'ctrl');
    my $loop = ($4 eq 'loop');
    my $bg   = $5;
    if ($1 eq 'http://') {
	    return qq {
			<OBJECT classid='clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B' width="$x" height="$y" 
				codebase='http://www.apple.com/qtactivex/qtplugin.cab'>
				<param name='src' value="$src.mov">
				<param name='autoplay' value="$auto">
				<param name='controller' value="$ctrl">
				<param name='loop' value="$loop">
				<EMBED src="$src.mov" width="$x" height="$y" autoplay="$auto"
				controller="$ctrl" loop="$loop" bgcolor="#$bg" 
				pluginspage='http://www.apple.com/quicktime/download/'></EMBED></OBJECT>
			}
		}
	return qq {
		<OBJECT classid='clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B' width="$x" height="$y" 
			codebase='http://www.apple.com/qtactivex/qtplugin.cab'>
			<param name='src' value="../movies/$src.mov">
			<param name='autoplay' value="$auto">
			<param name='controller' value="$ctrl">
			<param name='loop' value="$loop">
			<EMBED src="../movies/$src.mov" width="$x" height="$y" autoplay="$auto"
			controller="$ctrl" loop="$loop" bgcolor="#$bg" 
			pluginspage='http://www.apple.com/quicktime/download/'></EMBED></OBJECT>
		}
	}
	return undef;
}