#!/usr/bin/perl

#Checking to see if the application named $AppName is running.

######################################################
my $EXIT_VALUE 		= 0;
my $AppName = "\"STUDIO-CAPTURE Control Panel\"";
######################################################

IsAppRun:
{
   if (CheckRunning() == 0)
    {
#	print("Found!\nPlease exit a running application.\n");
            $EXIT_VALUE = 1;
            last;
    }
}

exit($EXIT_VALUE);

#####################################################
sub CheckRunning
{
	my $cmd = "/bin/ps -acx | /usr/bin/grep -i " . $AppName;
#print($cmd);
	$ret = system $cmd;
	return $ret / 256;
}
#####################################################
