aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMiquel Lionel <lionelmiquel@sfr.fr>2020-11-16 20:49:37 +0100
committerMiquel Lionel <lionelmiquel@sfr.fr>2020-11-16 20:49:37 +0100
commit8167890e8485f434819bdb2effe38593b1482d93 (patch)
tree4f323ef0df2edbd81233e1f2ff0e944718c523a1
parent50d04bb2970e4636078d708f5818348ce2115ebd (diff)
downloadgpigeon-8167890e8485f434819bdb2effe38593b1482d93.tar.gz
gpigeon-8167890e8485f434819bdb2effe38593b1482d93.zip
Don't need cookie sub, removing it
Also don't need cgi-carp. need to uncomment if needed for debugging.
-rwxr-xr-xgpigeon-template.cgi8
1 files changed, 5 insertions, 3 deletions
diff --git a/gpigeon-template.cgi b/gpigeon-template.cgi
index d3a9abd..3117277 100755
--- a/gpigeon-template.cgi
+++ b/gpigeon-template.cgi
@@ -5,8 +5,8 @@ use warnings;
use strict;
use Email::Valid;
use String::Random;
-use CGI qw(param cookie);
-use CGI::Carp qw(fatalsToBrowser);
+use CGI qw(param);
+#use CGI::Carp qw(fatalsToBrowser);
delete @ENV{qw(IFS PATH CDPATH BASH_ENV)};
@@ -39,6 +39,8 @@ sub notif_if_defined{
}
}
+# execute 'printf "yourpassword" | sha256sum' on a terminal
+# and copy the long string
my $PASSWD_HASH = q{password_hash_goes_here};
my $cgi_query_get = CGI->new;
my $PASSWD = $cgi_query_get->param('password');
@@ -55,7 +57,7 @@ href="/gpigeon.css">';
my $mymailaddr_password = q{your_mail_address_password_goes_here};
my $mymail_smtp = q{smtp_domain_goes_here};
my $mymail_smtport = q{smtp_port_goes_here};
- my $mymail_gpgid = q{gpgid_goes_here};
+ my $mymail_gpgid = q{gpgid_goes_here}; #0xlong keyid form
my $myescapedmailaddr = escape_arobase($mymailaddr);
my @text_strings = ('La suppression a r&eacute;ussi !',
'L&apos;adresse',