Swf.pl

use SWF::Builder;

1. Process a message from SWF interface instance

sub swfHandleRequest { my $article = shift; return $article; }

1. Compile a SWF interface for this peer

sub swfCompile {

my $output = ;

# Create new SWF movie instance my $swf= SWF::Builder->new( FrameRate => 50, FrameSize => [0, 0, 1024, 768], BackgroundColor => 'cccccc' );

# Loop through peer ActionScript frames compiling each into SWF my $frame = 1; for ( -init, -main ) { my $file = "peer$_.as"; my @stat = stat( $file ); $output = logAdd "Compiling \"$file\" ($stat[7] bytes)\n"; my $as = $swf->frame_action( $frame++ ); $as->load( $file ); }

# Frame 3 loops back to frame 2 (main) my $as = $swf->frame_action(3); $as->gotoAndPlay(2);

# Output resultant SWF file $swf->save( my $file = "$::peer.swf" ); my @stat = stat( $file ); $output .= logAdd "\nSWF Instance compiled: $file ($stat[7] bytes)\n"; return $output; }