Script to dump MIME parts (useful for debugging email messages)
This commit is contained in:
parent
f1d5e236ba
commit
378ef21e3b
1 changed files with 9 additions and 0 deletions
9
misc/dump-mime-parts.pl
Executable file
9
misc/dump-mime-parts.pl
Executable 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();
|
Loading…
Reference in a new issue