From 9d4b2d643dac58abb1af04ba3cf6014645762216 Mon Sep 17 00:00:00 2001
From: Miquel Lionel <lionel@les-miquelots.net>
Date: Sun, 27 Jun 2021 18:35:11 +0100
Subject: fix dumb mistakes in link-tmpl-template.cgi

---
 link-tmpl-template.cgi | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'link-tmpl-template.cgi')

diff --git a/link-tmpl-template.cgi b/link-tmpl-template.cgi
index aadafc4..d781252 100644
--- a/link-tmpl-template.cgi
+++ b/link-tmpl-template.cgi
@@ -42,7 +42,6 @@ else {
         $enc_msg = $gpg->encrypt("$linkuser:\n\n$msg_form", $mymail_gpgid) or die $gpg->error();
 
         if ($HAS_MAILSERVER){
-            undef $mymailaddr_escaped;
             use Mail::Sendmail;
             my %mail = ( To => "$mymailaddr"
             From => "$mailsender"
@@ -55,7 +54,7 @@ else {
             use Net::SMTP;
             use Net::SMTPS;
             my $smtp = Net::SMTPS->new($mailsender_smtp, Port => $mailsender_port, doSSL => 'ssl', Debug_SSL => 0); 
-            my $mymailaddr_escaped = EscapeArobase{$mymailaddr};
+            my $mymailaddr_escaped = EscapeArobase($mymailaddr);
             my $mailsender_escaped = EscapeArobase($mailsender);
 
             $smtp->auth($mailsender, $mailsender_pw) or die;
-- 
cgit v1.2.3-70-g09d2