if( $type =~ /^text\// ) {
my $filename = $entity->bodyhandle->path;
$filename =~ s/.*\///;
- print TEXT_FILES $filename . "\n";
+ print TEXT_FILES $filename . "\n" or die $!;
my $count = 0;
while(1) {
if( $data && $name ) {
$body =~ s/\nbegin.*?\nend\n/((((Encoded File: $name))))\n/s;
if( open( FILE, ">$dir/$name" ) ) {
- print FILE $data;
- close FILE;
- chmod 0644, $file;
+ print FILE $data or die $!;
+ close FILE or die $!;
+ chmod 0644, $file or die $!;
}
my $filename = $entity->bodyhandle->path;
- open( REDUCED, ">$filename" );
- print REDUCED $body;
- close( REDUCED );
+ open( REDUCED, ">$filename" ) or die $!;
+ print REDUCED $body or die $!;
+ close( REDUCED ) or die $!;
} else {
last;
}
# Parse input:
$entity = $parser->read(\*STDIN) or die "couldn't parse MIME stream";
- open( FULL, ">$dir/full_message.txt" );
- print FULL $entity->as_string;
- close( FULL );
+ open( FULL, ">$dir/full_message.txt" ) or die $!;
+ print FULL $entity->as_string or die $!;
+ close( FULL ) or die $!;
my $RealSubject = "Real-Subject: " . $entity->head->get( "Subject" );
$entity->dump_skeleton( \*SKELETON );
close( SKELETON );
- open( HEAD, ">$dir/headers.txt" );
- print HEAD $entity->head->as_string . "\n";
- close( HEAD );
+ open( HEAD, ">$dir/headers.txt" ) or die $!;
+ print HEAD $entity->head->as_string . "\n" or die $!;
+ close( HEAD ) or die $!;
- open( TEXT_FILES, ">$dir/text.files.lst" );
+ open( TEXT_FILES, ">$dir/text.files.lst" ) or die $!;
- print TEXT_FILES "headers.txt\n";
+ print TEXT_FILES "headers.txt\n" or die $!;
my $body = &uudecode_text( $entity, $dir );
$body =~ /(.*\n){0,3}/s;
if( $entity->is_multipart ) {
foreach( $entity->parts() ) {
- print $_->mime_type . "\n";
+ print $_->mime_type . "\n" or die $!;
$body = &uudecode_text( $_, $dir );
$body =~ /(.*\n){0,3}/s;
$prolog .= $1;
mkdir $dir, 0775;
chmod 0755, $dir;
- open( FULL, ">$dir/full_message.txt" );
- print FULL $Article_Body;
- close( FULL );
+ open( FULL, ">$dir/full_message.txt" ) or die $!;
+ print FULL $Article_Body or die $!;
+ close( FULL ) or die $!;
my $prolog = "From: " . $Article_From . "\nReal-Subject: $Article_Subject";
open( SKELETON, ">$dir/skeleton.skeleton" );
close( SKELETON );
- open( HEAD, ">$dir/headers.txt" );
- print HEAD $Article_Head . "\n";
- close( HEAD );
+ open( HEAD, ">$dir/headers.txt" ) or die $!;
+ print HEAD $Article_Head . "\n" or die $!;
+ close( HEAD ) or die $!;
- open( TEXT_FILES, ">$dir/text.files.lst" );
+ open( TEXT_FILES, ">$dir/text.files.lst" ) or die $!;
- print TEXT_FILES "headers.txt\nfull_message.txt\n";
+ print TEXT_FILES "headers.txt\nfull_message.txt\n" or die $!;
my $body = $Article_Body;
$body =~ /(.*\n){0,3}/s;
$prolog .= $1;
- close( TEXT_FILES );
+ close( TEXT_FILES ) or die $!;
return $prolog;
}