projekt kivitendo

  if ($template->uses_temp_file() || $self->{media} eq 'email') {

    $out              = $self->{OUT};

    $out_mode         = $self->{OUT_MODE} || '>';

    $self->{OUT}      = "$self->{tmpfile}";

    $self->{OUT_MODE} = '>';

  }

  if ($template->uses_temp_file() || $self->{media} eq 'email') {

    if ($self->{media} eq 'email') {

      my $mail = new Mailer;

      map { $mail->{$_} = $self->{$_} }

        qw(cc bcc subject message version format);

      $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};

      $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;

      $mail->{fileid} = time() . '.' . $$ . '.';

      $myconfig->{signature} =~ s/\r//g;

      # if we send html or plain text inline

      if (($self->{format} eq 'html') && ($self->{sendmode} eq 'inline')) {

        $mail->{contenttype}    =  "text/html";

        $mail->{message}        =~ s/\r//g;

        $mail->{message}        =~ s/\n/<br>\n/g;

        $myconfig->{signature}  =~ s/\n/<br>\n/g;

        $mail->{message}       .=  "<br>\n-- <br>\n$myconfig->{signature}\n<br>";

        open(IN, "<", $self->{tmpfile})

          or $self->error($self->cleanup . "$self->{tmpfile} : $!");

        $mail->{message} .= $_ while <IN>;

        close(IN);

      } else {

        if (!$self->{"do_not_attach"}) {

          my $attachment_name  =  $self->{attachment_filename} || $self->{tmpfile};

          $attachment_name     =~ s/\.(.+?)$/.${ext_for_format}/ if ($ext_for_format);

          $mail->{attachments} =  [{ "filename" => $self->{tmpfile},

                                     "name"     => $attachment_name }];

        }

        $mail->{message}  =~ s/\r//g;

        $mail->{message} .=  "\n-- \n$myconfig->{signature}";

      }

      my $err = $mail->send();

      $self->error($self->cleanup . "$err") if ($err);

    } else {

      $self->{OUT}      = $out;

      $self->{OUT_MODE} = $out_mode;

      my $numbytes = (-s $self->{tmpfile});

      open(IN, "<", $self->{tmpfile})

        or $self->error($self->cleanup . "$self->{tmpfile} : $!");

      binmode IN;

      $self->{copies} = 1 unless $self->{media} eq 'printer';

      chdir("$self->{cwd}");

      #print(STDERR "Kopien $self->{copies}\n");

      #print(STDERR "OUT $self->{OUT}\n");

      for my $i (1 .. $self->{copies}) {

        if ($self->{OUT}) {

          $self->{OUT} = $command_formatter->($self->{OUT_MODE}, $self->{OUT});

          open  OUT, $self->{OUT_MODE}, $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");

          print OUT $_ while <IN>;

          close OUT;

          seek  IN, 0, 0;

        } else {

          $self->{attachment_filename} = ($self->{attachment_filename})

                                       ? $self->{attachment_filename}

                                       : $self->generate_attachment_filename();

          # launch application

          print qq|Content-Type: | . $template->get_mime_type() . qq|

          $::locale->with_raw_io(\*STDOUT, sub { print while <IN> });

        }

      close(IN);