#!/usr/bin/perl

my $APP_PATH3	= "/Applications/PENTAX Digital Camera Utility/PENTAX Digital Camera Utility 4.app";
my $APP_FILE3	= "$APP_PATH3/Contents/MacOS/PENTAX Digital Camera Utility 4";
my $INFP_PATH3	= "$APP_PATH3/Contents/Info.plist";

my  $EXIT_VALUE = 0;

if( (-d "/Volumes/S-SW90/") || (-d "/Volumes/S-SW99/") || (-d "/Volumes/S-SW99A/") || (-d "/Volumes/S-SW107/") || (-d "/Volumes/S-SW110/")){
	$EXIT_VALUE = 0;
	
}elsif((-f $APP_FILE3)  ){
	$EXIT_VALUE = 0;	
}elsif((-f $INFP_PATH3)){
	if( open( FILE, $INFP_PATH3) ){
		while($line = <FILE>){
			if( ($line =~ /Version 4./) ) {
				$EXIT_VALUE = 0;
				close(FILE );
				exit($EXIT_VALUE);
			}
		}

		$EXIT_VALUE = 16 + 96 ;
		close(FILE );
	
	}else{
			$EXIT_VALUE = 16 + 96 ;
	}
}else{
	$EXIT_VALUE = 16 + 96 ;
}
	
exit($EXIT_VALUE);

