Metacat

	debug("Trying to insert the following document");

	my $docStatus = "SUCCESS";

	my $response = $metacat->insert( $docid, $xmldoc );

	if ( !$response ) {

	# write file to disk, get SHA1 hash and size

	my ( $outFile, $fileHash ) = writeFile($fileName);

	my $fileSize = stat($outFile)->size;

	if ( $fileSize == 0 ) {

	}

	my %dataInfo = (

		'fileHash'    => $fileHash,

		'contentType' => $contentType,

	);

	# use tempfile for writing

	my $tmp = File::Temp->new( 

						TEMPLATE => 'tempXXXXX',

	my $outputName = $tmp->filename();

	#open( OUT, ">$outputName" ) or die "Could not open: $!";

	print $tmp $fileData;