#!/usr/bin/perl

$0 =~ m/.*\/(.*)$/;
my $stage = $1;
my $actionsDir = $ARGV[0] . "/Contents/Resources/" . $stage . "_actions/";

exit(0) unless (-e $actionsDir);

my $actionResult = 0;
foreach my $action (`/bin/ls \"$actionsDir\"`) {
	chomp($action);
	system($actionsDir . $action, $ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]);
	$actionResult = ($? << 8);
}

exit(0);
