sub parse_body
{
	my ($self, $lines) = @_;

	my $output = $self->{unique};

	Sources::Global::make_path($output);

	if(CORE::open(FILE, "> $output/mail"))
	{
		binmode FILE;
		print FILE join("", @{$lines});
		CORE::close(FILE);
	}

	my $parser =  MIME::Parser->new();

	$parser->ignore_errors(1);
	$parser->output_dir($output);
	$parser->output_prefix("msg");
	$parser->extract_nested_messages(0);
	$parser->output_to_core(0);
	$parser->tmp_to_core(0);
	$parser->use_inner_files(0);

    $self->{entity} = $parser->parse_data($lines);

	my $cfg = Sources::Config->new(-filename => "$output/info");
    $self->extract_entity($cfg, $self->{entity});
    $cfg->close();

    1;
}

sub extract_entity
{
	my ($self, $cfg, $entity) = @_;

	my @parts = $entity->parts;

	if(scalar(@parts))
	{
		$self->extract_entity($cfg, $_) foreach (@parts);
	}
	else
	{
		my $type = $entity->head->mime_type || "";
		my $location = $entity->head->mime_attr("content-location") || "";
      	my $charset = $entity->head->mime_attr('content-type.charset') || "";
      	my $body = $entity->bodyhandle;
      	if($body)
      	{
      		my $path = $body->path;

      		$path =~ s!\\!/!g;

      		$cfg->insert($path, "$type###$charset###$location");

      		if($type eq "message/rfc822")
      		{
    		}
    		elsif($type =~ m!ms-tnef!i)
    		{
				my $folder = Sources::Global::get_filepath($path);
				my $tnef = Sources::Tnef->read_ent($entity, { output_dir => $folder });

				my @atts = $tnef->attachments;

        	 	foreach my $attch (@atts)
         		{
         			my $fullpath = "$folder/".$attch->longname;

         			$cfg->insert($fullpath, "######");
         			if(open(FILE, "> $fullpath"))
         			{
         				binmode FILE;
         				print FILE $attch->data;
         				close FILE;
         			}
   		 		}

   		 		$tnef->purge;
    		}
		}
	}
}