Translations:KMail/FAQs Hints and Tips/135/uk

sub rec_parts {

   my $parent = $_[0];
   my @parts = $_[1];
   for $part(@parts)
   {

my @sub_parts = $part->parts; if (@sub_parts > 1) { rec_parts ($part,@sub_parts); } my $type=$part->content_type; if (( $part->content_type =~ m[text/plain]gi )||( $part->content_type eq )) { my $body = $part->body;

$body=~s/['"`]*//g; my $translation_body=`echo "$body" | $translation_command $languages_pair -`; $translation_body=~s/['"`]*//g; my $msg=$body."\n\n---"."$separator"."---\n\n".$translation_body; `kdialog --title "$separator" --msgbox "$msg"`; }

   }

} print $email->as_string; </syntaxhighlight>}}