Script to dump MIME parts (useful for debugging email messages)

This commit is contained in:
Ray Miller 2024-07-13 15:05:41 +01:00
parent f1d5e236ba
commit 378ef21e3b

9
misc/dump-mime-parts.pl Executable file
View file

@ -0,0 +1,9 @@
#!/usr/bin/perl
use MIME::Parser;
my $parser = new MIME::Parser;
$parser->output_under(".");
$entity = $parser->parse(\*STDIN) or die "parse failed";
$entity->dump_skeleton();