1#!/usr/bin/perl -w
2
3use SWF qw(:ALL);
4
5die "Usage: ".$0." <sourcedir>\n" unless @ARGV;
6$mediadir="$ARGV[0]/../Media";
7
8$m = SWF::Movie::newSWFMovieWithVersion(7);
9
10$stream = new SWF::SoundStream($mediadir."/video02.flv");
11
12$sound = new SWF::Sound($stream);
13
14$m->addExport($sound,'video02.flv');
15
16$m->startSound($sound);
17
18$m->save("test02.swf");
19