From 61c211d9b3ee612d29339ca90ca8d430eca23305 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Thu, 6 Aug 2020 15:07:10 -0300
Subject: [PATCH] Bug 22343: Adapt controller scripts

This patch adapts controller scripts that used sendmail. Also the syntax
for Koha::Email has changed and this patch adapts it.

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 basket/sendbasket.pl        | 86 +++++++++++++++------------------
 misc/cronjobs/runreport.pl  | 10 ++--
 opac/opac-sendbasket.pl     | 95 ++++++++++++++++---------------------
 opac/opac-sendshelf.pl      | 88 ++++++++++++++--------------------
 virtualshelves/sendshelf.pl | 86 +++++++++++++--------------------
 5 files changed, 154 insertions(+), 211 deletions(-)

diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl
index 52ca4797ea..d7e3fbc74b 100755
--- a/basket/sendbasket.pl
+++ b/basket/sendbasket.pl
@@ -20,9 +20,7 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use Encode qw(encode);
 use Carp;
-use Mail::Sendmail;
-use MIME::QuotedPrint;
-use MIME::Base64;
+use Try::Tiny;
 
 use C4::Biblio;
 use C4::Items;
@@ -43,10 +41,10 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
     }
 );
 
-my $bib_list     = $query->param('bib_list') || '';
-my $email_add    = $query->param('email_add');
+my $bib_list  = $query->param('bib_list') || '';
+my $email_add = $query->param('email_add');
 
-my $dbh          = C4::Context->dbh;
+my $dbh = C4::Context->dbh;
 
 if ( $email_add ) {
     output_and_exit( $query, $cookie, $template, 'wrong_csrf_token' )
@@ -54,9 +52,7 @@ if ( $email_add ) {
             session_id => scalar $query->cookie('CGISESSID'),
             token  => scalar $query->param('csrf_token'),
         });
-    my $email = Koha::Email->new();
-    my %mail = $email->create_message_headers({ to => $email_add });
-    my $comment    = $query->param('comment');
+    my $comment = $query->param('comment');
 
     # Since we are already logged in, no need to check credentials again
     # when loading a second template.
@@ -108,65 +104,59 @@ if ( $email_add ) {
     my $template_res = $template2->output();
     my $body;
 
+    my $subject;
     # Analysing information and getting mail properties
-    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
-        $mail{subject} = $1;
-        $mail{subject} =~ s|\n?(.*)\n?|$1|;
-        $mail{subject} = encode('MIME-Header',$mail{subject});
+    if ( $template_res =~ /<SUBJECT>(?<subject>.*)<END_SUBJECT>/s ) {
+        $subject = $+{subject};
+        $subject =~ s|\n?(.*)\n?|$1|;
     }
-    else { $mail{'subject'} = "no subject"; }
+    else {
+        $subject = "no subject";
+    }
+
+    my $email = Koha::Email->create(
+        {
+            to      => $email_add,
+            subject => $subject,
+        }
+    );
 
     my $email_header = "";
     if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) {
         $email_header = $1;
         $email_header =~ s|\n?(.*)\n?|$1|;
-        $email_header = encode_qp(Encode::encode("UTF-8", $email_header));
-    }
-
-    my $email_file = "basket.txt";
-    if ( $template_res =~ /<FILENAME>(.*)<END_FILENAME>/s ) {
-        $email_file = $1;
-        $email_file =~ s|\n?(.*)\n?|$1|;
+        $email_header = Encode::encode("UTF-8", $email_header);
     }
 
     if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
         $body = $1;
         $body =~ s|\n?(.*)\n?|$1|;
-        $body = encode_qp(Encode::encode("UTF-8", $body));
+        $body = Encode::encode("UTF-8", $body);
     }
 
-    my $boundary = "====" . time() . "====";
-
-    # Writing mail
-    $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
-    my $isofile = encode_base64(encode("UTF-8", $iso2709));
-    $boundary = '--' . $boundary;
-    $mail{body} = <<END_OF_BODY;
-$boundary
-Content-Type: text/plain; charset="utf-8"
-Content-Transfer-Encoding: quoted-printable
-
+    my $THE_body = <<END_OF_BODY;
 $email_header
 $body
-$boundary
-Content-Type: application/octet-stream; name="basket.iso2709"
-Content-Transfer-Encoding: base64
-Content-Disposition: attachment; filename="basket.iso2709"
-
-$isofile
-$boundary--
 END_OF_BODY
 
-    # Sending mail
-    if ( sendmail %mail ) {
-        # do something if it works....
-        $template->param( SENT      => "1" );
+    $email->text_body( $THE_body );
+    $email->attach(
+        $iso2709,
+        content_type => 'application/octet-stream',
+        name         => 'basket.iso2709',
+        disposition  => 'attachment',
+    );
+
+    try {
+        my $library = Koha::Patrons->find( $borrowernumber )->library;
+        $email->send_or_die({ transport => $library->smtp_server->transport });
+        $template->param( SENT => "1" );
     }
-    else {
-        # do something if it doesn't work....
-        carp "Error sending mail: $Mail::Sendmail::error \n";
+    catch {
+        carp "Error sending mail: $_";
         $template->param( error => 1 );
-    }
+    };
+
     $template->param( email_add => $email_add );
     output_html_with_http_headers $query, $cookie, $template->output;
 }
diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl
index 6732afae9c..1f50483190 100755
--- a/misc/cronjobs/runreport.pl
+++ b/misc/cronjobs/runreport.pl
@@ -318,12 +318,12 @@ foreach my $report_id (@ARGV) {
             $message = "<html><head><style>tr:nth-child(2n+1) { background-color: #ccc;}</style></head><body>$message</body></html>";
             $args->{contenttype} = 'text/html';
         }
-        my $email = Koha::Email->new();
-        my %mail  = $email->create_message_headers($args);
-        $mail{Data} = $message;
-        $mail{Auth} = { user => $username, pass => $password, method => $method } if $username;
+        my $email = Koha::Email->create( $args );
+        my %headers = $email->header_pairs;
+        $headers{Data} = $message;
+        $headers{Auth} = { user => $username, pass => $password, method => $method } if $username;
 
-        my $msg = MIME::Lite->new(%mail);
+        my $msg = MIME::Lite->new(%headers);
 
         $msg->attach(
             Type        => "text/$format",
diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl
index ba0562db70..76dd16019c 100755
--- a/opac/opac-sendbasket.pl
+++ b/opac/opac-sendbasket.pl
@@ -22,9 +22,7 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use Encode qw(encode);
 use Carp;
-use Mail::Sendmail;
-use MIME::QuotedPrint;
-use MIME::Base64;
+use Try::Tiny;
 
 use C4::Biblio;
 use C4::Items;
@@ -56,7 +54,6 @@ if ( $email_add ) {
         session_id => scalar $query->cookie('CGISESSID'),
         token  => scalar $query->param('csrf_token'),
     });
-    my $email = Koha::Email->new();
     my $patron = Koha::Patrons->find( $borrowernumber );
     my $borcat = $patron ? $patron->categorycode : q{};
     my $user_email = $patron->first_valid_email_address
@@ -65,13 +62,6 @@ if ( $email_add ) {
     my $email_replyto = $patron->firstname . " " . $patron->surname . " <$user_email>";
     my $comment    = $query->param('comment');
 
-   # if you want to use the KohaAdmin address as from, that is the default no need to set it
-    my %mail = $email->create_message_headers({
-        to => $email_add,
-        replyto => $email_replyto,
-    });
-    $mail{'X-Abuse-Report'} = C4::Context->preference('KohaAdminEmailAddress');
-
     # Since we are already logged in, no need to check credentials again
     # when loading a second template.
     my $template2 = C4::Templates::gettemplate(
@@ -128,68 +118,67 @@ if ( $email_add ) {
     my $body;
 
     # Analysing information and getting mail properties
-
-    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
-        $mail{subject} = $1;
-        $mail{subject} =~ s|\n?(.*)\n?|$1|;
-        $mail{subject} = encode('MIME-Header',$mail{subject});
+    my $subject;
+    if ( $template_res =~ /\<SUBJECT\>(?<subject>.*)\<END_SUBJECT\>/s ) {
+        $subject = $+{subject};
+        $subject =~ s|\n?(.*)\n?|$1|;
+    }
+    else {
+        $subject = "no subject";
     }
-    else { $mail{'subject'} = "no subject"; }
+
+    # if you want to use the KohaAdmin address as from, that is the default no need to set it
+    my $email = Koha::Email->create({
+        to       => $email_add,
+        reply_to => $email_replyto,
+        subject  => $subject,
+    });
+
+    $email->header( 'X-Abuse-Report' => C4::Context->preference('KohaAdminEmailAddress') );
 
     my $email_header = "";
     if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) {
         $email_header = $1;
         $email_header =~ s|\n?(.*)\n?|$1|;
-        $email_header = encode_qp(Encode::encode("UTF-8", $email_header));
-    }
-
-    my $email_file = "basket.txt";
-    if ( $template_res =~ /<FILENAME>(.*)<END_FILENAME>/s ) {
-        $email_file = $1;
-        $email_file =~ s|\n?(.*)\n?|$1|;
+        $email_header = Encode::encode("UTF-8", $email_header);
     }
 
     if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
         $body = $1;
         $body =~ s|\n?(.*)\n?|$1|;
-        $body = encode_qp(Encode::encode("UTF-8", $body));
+        $body = Encode::encode("UTF-8", $body);
     }
 
-    $mail{body} = $body;
-
-    my $boundary = "====" . time() . "====";
-
-    $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
-    my $isofile = encode_base64(encode("UTF-8", $iso2709));
-    $boundary = '--' . $boundary;
-    $mail{body} = <<END_OF_BODY;
-$boundary
-MIME-Version: 1.0
-Content-Type: text/plain; charset="UTF-8"
-Content-Transfer-Encoding: quoted-printable
-
+    my $THE_body = <<END_OF_BODY;
 $email_header
 $body
-$boundary
-Content-Type: application/octet-stream; name="basket.iso2709"
-Content-Transfer-Encoding: base64
-Content-Disposition: attachment; filename="basket.iso2709"
-
-$isofile
-$boundary--
 END_OF_BODY
 
-    # Sending mail (if not empty basket)
-    if ( defined($iso2709) && sendmail %mail ) {
-    # do something if it works....
-        $template->param( SENT      => "1" );
+    $email->text_body( $THE_body );
+    $email->attach(
+        $iso2709,
+        content_type => 'application/octet-stream',
+        name         => 'basket.iso2709',
+        disposition  => 'attachment',
+    );
+
+    if ( !defined $iso2709 ) {
+        carp "Error sending mail: empty basket";
+        $template->param( error => 1 );
     }
     else {
-        # do something if it doesn't work....
-    carp "Error sending mail: empty basket" if !defined($iso2709);
-        carp "Error sending mail: $Mail::Sendmail::error" if $Mail::Sendmail::error;
-        $template->param( error => 1 );
+        try {
+            my $library = $patron->library;
+            $email->transport( $library->smtp_server->transport );
+            $email->send_or_die;
+            $template->param( SENT => "1" );
+        }
+        catch {
+            carp "Error sending mail: $_";
+            $template->param( error => 1 );
+        };
     }
+
     $template->param( email_add => $email_add );
     output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
 }
diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl
index 9f0f5ca0ca..44f2bd130d 100755
--- a/opac/opac-sendshelf.pl
+++ b/opac/opac-sendshelf.pl
@@ -22,10 +22,8 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use Encode qw( encode );
 use Carp;
+use Try::Tiny;
 
-use Mail::Sendmail;
-use MIME::QuotedPrint;
-use MIME::Base64;
 use C4::Auth;
 use C4::Biblio;
 use C4::Items;
@@ -60,15 +58,8 @@ my $shelf = Koha::Virtualshelves->find( $shelfid );
 if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
 
 if ( $email ) {
-    my $message = Koha::Email->new();
     my $comment    = $query->param('comment');
 
-    my %mail = $message->create_message_headers(
-        {
-            to => $email,
-        }
-    );
-
     my ( $template2, $borrowernumber, $cookie ) = get_template_and_user(
         {
             template_name   => "opac-sendshelf.tt",
@@ -127,72 +118,63 @@ if ( $email ) {
     my $template_res = $template2->output();
     my $body;
 
+    my $subject;
     # Analysing information and getting mail properties
-    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
-        $mail{subject} = $1;
-        $mail{subject} =~ s|\n?(.*)\n?|$1|;
+    if ( $template_res =~ /<SUBJECT>(?<subject>.*)<END_SUBJECT>/s ) {
+        $subject = $+{subject};
+        $subject =~ s|\n?(.*)\n?|$1|;
+    }
+    else {
+        $subject = "no subject";
     }
-    else { $mail{'subject'} = "no subject"; }
-    $mail{subject} = encode('MIME-Header', $mail{subject});
+
+    my $email = Koha::Email->create(
+        {
+            to      => $email,
+            subject => $subject,
+        }
+    );
 
     my $email_header = "";
     if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) {
         $email_header = $1;
         $email_header =~ s|\n?(.*)\n?|$1|;
-        $email_header = encode_qp(Encode::encode("UTF-8", $email_header));
-    }
-
-    my $email_file = "list.txt";
-    if ( $template_res =~ /<FILENAME>(.*)<END_FILENAME>/s ) {
-        $email_file = $1;
-        $email_file =~ s|\n?(.*)\n?|$1|;
+        $email_header = Encode::encode("UTF-8", $email_header);
     }
 
     if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
         $body = $1;
         $body =~ s|\n?(.*)\n?|$1|;
-        $body = encode_qp(Encode::encode("UTF-8", $body));
+        $body = Encode::encode("UTF-8", $body);
     }
 
-    my $boundary = "====" . time() . "====";
-
-    # We set and put the multipart content
-    $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
-
-    my $isofile = encode_base64(encode("UTF-8", $iso2709));
-    $boundary = '--' . $boundary;
-
-    $mail{body} = <<END_OF_BODY;
-$boundary
-MIME-Version: 1.0
-Content-Type: text/plain; charset="utf-8"
-Content-Transfer-Encoding: quoted-printable
-
+    my $THE_body = <<END_OF_BODY;
 $email_header
 $body
-$boundary
-Content-Type: application/octet-stream; name="list.iso2709"
-Content-Transfer-Encoding: base64
-Content-Disposition: attachment; filename="list.iso2709"
-
-$isofile
-$boundary--
 END_OF_BODY
 
-    # Sending mail
-    if ( sendmail %mail ) {
-        # do something if it works....
-        $template->param( SENT      => "1" );
+    $email->text_body( $THE_body );
+    $email->attach(
+        $iso2709,
+        content_type => 'application/octet-stream',
+        name         => 'list.iso2709',
+        disposition  => 'attachment',
+    );
+
+    try {
+        my $library = Koha::Patrons->find( $borrowernumber )->library;
+        $email->transport( $library->smtp_server->transport );
+        $email->send_or_die;
+        $template->param( SENT => "1" );
     }
-    else {
-        # do something if it doesn't work....
-        carp "Error sending mail: $Mail::Sendmail::error \n";
+    catch {
+        carp "Error sending mail: $_";
         $template->param( error => 1 );
-    }
+    };
 
     $template->param(
         shelfid => $shelfid,
-        email => $email,
+        email   => $email,
     );
     output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
 
diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl
index 4ee9e46863..a0da25768f 100755
--- a/virtualshelves/sendshelf.pl
+++ b/virtualshelves/sendshelf.pl
@@ -22,10 +22,8 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use Encode qw( encode );
 use Carp;
+use Try::Tiny;
 
-use Mail::Sendmail;
-use MIME::QuotedPrint;
-use MIME::Base64;
 use C4::Auth;
 use C4::Biblio;
 use C4::Items;
@@ -44,19 +42,13 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
     }
 );
 
-my $shelfid = $query->param('shelfid');
-my $email   = $query->param('email');
+my $shelfid    = $query->param('shelfid');
+my $to_address = $query->param('email');
 
 my $dbh = C4::Context->dbh;
 
-if ($email) {
+if ($to_address) {
     my $comment = $query->param('comment');
-    my $message = Koha::Email->new();
-    my %mail    = $message->create_message_headers(
-        {
-            to => $email
-        }
-    );
 
     my ( $template2, $borrowernumber, $cookie ) = get_template_and_user(
         {
@@ -106,68 +98,58 @@ if ($email) {
     my $template_res = $template2->output();
     my $body;
 
+    my $subject;
     # Analysing information and getting mail properties
-    if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) {
-        $mail{subject} = $1;
-        $mail{subject} =~ s|\n?(.*)\n?|$1|;
+    if ( $template_res =~ /<SUBJECT>(?<subject>.*)<END_SUBJECT>/s ) {
+        $subject = $+{subject};
+        $subject =~ s|\n?(.*)\n?|$1|;
+    }
+    else {
+        $subject = "no subject";
     }
-    else { $mail{'subject'} = "no subject"; }
-    $mail{subject} = encode( 'MIME-Header', $mail{subject} );
+
+    my $email = Koha::Email->create(
+        {
+            to      => $to_address,
+            subject => $subject,
+        }
+    );
 
     my $email_header = "";
     if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) {
         $email_header = $1;
         $email_header =~ s|\n?(.*)\n?|$1|;
-        $email_header = encode_qp(Encode::encode("UTF-8", $email_header));
-    }
-
-    my $email_file = "list.txt";
-    if ( $template_res =~ /<FILENAME>(.*)<END_FILENAME>/s ) {
-        $email_file = $1;
-        $email_file =~ s|\n?(.*)\n?|$1|;
+        $email_header = Encode::encode("UTF-8", $email_header);
     }
 
     if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) {
         $body = $1;
         $body =~ s|\n?(.*)\n?|$1|;
-        $body = encode_qp(Encode::encode("UTF-8", $body));
+        $body = Encode::encode("UTF-8", $body);
     }
 
-    my $boundary = "====" . time() . "====";
-
-    # We set and put the multipart content
-    $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
-
-    my $isofile = encode_base64( encode( "UTF-8", $iso2709 ) );
-    $boundary = '--' . $boundary;
-
-    $mail{body} = <<END_OF_BODY;
-$boundary
-Content-Type: text/plain; charset="utf-8"
-Content-Transfer-Encoding: quoted-printable
-
+    my $THE_body = <<END_OF_BODY;
 $email_header
 $body
-$boundary
-Content-Type: application/octet-stream; name="shelf.iso2709"
-Content-Transfer-Encoding: base64
-Content-Disposition: attachment; filename="shelf.iso2709"
-
-$isofile
-$boundary--
 END_OF_BODY
 
-    # Sending mail
-    if ( sendmail %mail ) {
+    $email->text_body( $THE_body );
+    $email->attach(
+        $iso2709,
+        content_type => 'application/octet-stream',
+        name         => 'shelf.iso2709',
+        disposition  => 'attachment',
+    );
 
-        # do something if it works....
+    try {
+        my $library = Koha::Patrons->find( $borrowernumber )->library;
+        $email->send_or_die({ transport => $library->smtp_server->transport });
         $template->param( SENT => "1" );
     }
-    else {
-        # do something if it doesn't work....
-        carp "Error sending mail: $Mail::Sendmail::error \n";
+    catch {
+        carp "Error sending mail: $_";
         $template->param( error => 1 );
-    }
+    };
 
     $template->param( email => $email );
     output_html_with_http_headers $query, $cookie, $template->output;
-- 
2.20.1