aboutsummaryrefslogtreecommitdiff
path: root/link-tmpl-template.cgi
diff options
context:
space:
mode:
authorMiquel Lionel <lionel@les-miquelots.net>2021-06-27 18:35:11 +0100
committerMiquel Lionel <lionelmiquel@sfr.fr>2021-06-27 18:35:11 +0100
commit9d4b2d643dac58abb1af04ba3cf6014645762216 (patch)
treef7448bb659cba1e1d3143136b3baddffeca68169 /link-tmpl-template.cgi
parent6cc745d5a0b995c0ad7a61d0c3ab9b2dc2831a8d (diff)
downloadgpigeon-9d4b2d643dac58abb1af04ba3cf6014645762216.tar.gz
gpigeon-9d4b2d643dac58abb1af04ba3cf6014645762216.zip
fix dumb mistakes in link-tmpl-template.cgi
Diffstat (limited to 'link-tmpl-template.cgi')
-rw-r--r--link-tmpl-template.cgi3
1 files changed, 1 insertions, 2 deletions
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;