aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMiquel Lionel <lionelmiquel@sfr.fr>2020-11-22 19:44:53 +0100
committerMiquel Lionel <lionelmiquel@sfr.fr>2020-11-22 19:44:53 +0100
commit0af1bd15684aae5cde2f027d07a7138b14174581 (patch)
tree9cb0359511dc780a95e9dd4cf6b166f0605e4f9e
parentad6ac494b3be85b23f22eadb86b0e98b8003be14 (diff)
downloadgpigeon-0af1bd15684aae5cde2f027d07a7138b14174581.tar.gz
gpigeon-0af1bd15684aae5cde2f027d07a7138b14174581.zip
syntax error in HAS_MAILSERVER=1 check
-rwxr-xr-xgpigeon-template.cgi8
1 files changed, 4 insertions, 4 deletions
diff --git a/gpigeon-template.cgi b/gpigeon-template.cgi
index 59d676b..a3dd750 100755
--- a/gpigeon-template.cgi
+++ b/gpigeon-template.cgi
@@ -161,10 +161,10 @@ if ( sha256_hex($PASSWD) eq $PASSWD_HASH and $ENV{'REQUEST_METHOD'} eq 'POST'){
if ($HAS_MAILSERVER){
undef $mymailaddr_escaped;
print $gpg_form_fh "\n",
- ' use Mail::Sendmail;',
- ' %mail = ( To => \''.$mymailaddr.'\',' , "\n",
- ' From => \''.$mymailaddr.'\',', "\n",
- ' Subject => \'Gpigeon\' ', "\n",
+ ' use Mail::Sendmail;', "\n",
+ ' my %mail = ( To => \''.$mymailaddr.'\', ', "\n",
+ ' From => \''.$mymailaddr.'\', ', "\n",
+ ' Subject => \'Gpigeon\', ', "\n",
' Message => "$enc_msg\n" ', "\n",
' );', "\n",
' sendmail(%mail) or die $Mail::Sendmail::error;', "\n";