diff options
| author | Miquel Lionel <lionel@les-miquelots.net> | 2021-06-27 18:35:11 +0100 |
|---|---|---|
| committer | Miquel Lionel <lionelmiquel@sfr.fr> | 2021-06-27 18:35:11 +0100 |
| commit | 9d4b2d643dac58abb1af04ba3cf6014645762216 (patch) | |
| tree | f7448bb659cba1e1d3143136b3baddffeca68169 | |
| parent | 6cc745d5a0b995c0ad7a61d0c3ab9b2dc2831a8d (diff) | |
| download | gpigeon-9d4b2d643dac58abb1af04ba3cf6014645762216.tar.gz gpigeon-9d4b2d643dac58abb1af04ba3cf6014645762216.zip | |
fix dumb mistakes in link-tmpl-template.cgi
| -rw-r--r-- | link-tmpl-template.cgi | 3 |
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; |