use PDF::API2;
use File::Basename;
my $id = "functions.pl:";
our $COPRA_HOME = $ENV{'COPRA_HOME'};
our %configValue;
our $customer;
our $ordername;


sub log_this{
	my($customer,$ordername,$msg_to_print) = @_;
	my $logfolder = "$ENV{'COPRA_HOME'}\\$customer\\logs";
	my $logfileName = $ordername . ".log";	
	
	open(LOGFILE, ">> $logfolder\\$logfileName") or die "could not create logfile $logfolder\\$logfileName$!";	
	print LOGFILE &getTimestamp().":$msg_to_print\n";
	close(LOGFILE);
			
}

sub getPropertyFromFile{
	&log_this($customer,$ordername,"starting getPropertyFromFile");
	my ($filename,$propertyName) = @_;
	my $fileHashRef;
	
	$fileHashRef = &readFileIntoHash($filename);
	if (exists($fileHashRef -> {$propertyName})){		
		&log_this($customer,$ordername,"Property: $propertyName found with value: " . $fileHashRef ->{$propertyName} . " in file $filename");
		return  $fileHashRef ->{$propertyName};
	}
	else{
		&log_this($customer,$ordername,"Property $propertyName does not exist in file $filename");
		return;
	}	
}