[Mimedefang] Part’s parent content-type

[Dianne Skoll]

On Fri, 3 Nov 2017 22:37:46 -0700
Amit Gupta <amit777 at gmail.com> wrote:

> When iterating through the parts of a MIME::Entity using parts_DFS,
> what would be the best way to get a reference to a part's parent
> entity or parent entity type?

Pass it in when you recurse.

sub process {
	my ($entity, $parent_entity) = @_;

	if ($entity->is_multipart()) {
		foreach my $p (@{$entity->parts()}) {
			process ($p, $entity);
		}
		return;
	}

	# Process non-multiparts here
}

Call it with:  process($toplevel, undef)

If you need the entire chain of entities all the way to the top,
use an array:

sub process
{
	my ($entity, $parents) = @_;
	$parents ||= [];
	if ($entity->is_multipart) {
		my @parents_copy = @$parents;
		push(@parents_copy, $entity);
		foreach my $p (@{$entity->parts()}) {
			process($p, \@parents_copy);
		}
		return;
	}
	# Process non-multiparts here
}

Regards,

Dianne.