sub removeFilesWithPattern{
	my($folder,$filePattern) = @_;
	my $deletedFilesCounter = 0;
	&log_this($customer,$ordername,"Deleting files which matches pattern $filePattern in folder: $folder");	
	
	if (-d $folder){
		opendir FOLDER, $folder or die "cannot open dir $folder $!\n";
		my @fileList = readdir FOLDER;
		closedir FOLDER;
		
		foreach my $entry (@fileList){
			if (!-d "$folder\\$entry"){				
				if ($entry =~ m/$filePattern/){
					&log_this($customer,$ordername,"delete file $entry");
					unlink "$folder\\$entry";
					$deletedFilesCounter++;			
				}								
			}			
		} 		
	}
	return $deletedFilesCounter
}