#!/usr/bin/perl use strict; #use lib("/home/peter/ming3/lib/perl5/site_perl"); $|=1; use SWF qw(:ALL); my $file = '../common/test.flv'; my $stream=new SWF::VideoStream($file); $stream->setDimension(200,200); my $m=new SWF::Movie(); $m->setDimension(400, 300); $m->setRate(12.0); $m->add($stream); for(1..$stream->getNumFrames()) { $m->nextFrame(); } # decide if its called from commandline or as cgiscript if (exists $ENV{"REQUEST_URI"}){ print "Content-type: application/x-shockwave-flash\n\n"; $m->output(); } else { $m->save("$0.swf"); print "Generated file written to $0.swf\n"; }