#!/usr/bin/perl

############################

QuitApp("Batch Monitor");

exit(0);

####################################################################################

sub QuitApp
{
    my $APP = $_[0];

    my $IS_RUNNING = 0;
    my $PID = 0;
    my $rest;

    open(PSOUT, "/bin/ps -awwx |");
    while( <PSOUT> ) {
       if( /$APP\.app/ ) {
           ($PID, $rest) = split(' ');
           $IS_RUNNING = 1;
       }
    }
    close(PSOUT);

    if(1 eq $IS_RUNNING) {
        open(ASOUT, "/usr/bin/osascript -e \'tell application \"$APP\"\' -e \'try\' -e \'quit\' -e \'on error\' -e \'return (\"force quit\")\' -e \'end try\' -e \'end tell\' |" );
        close(ASOUT);
    }
}
