From 8167890e8485f434819bdb2effe38593b1482d93 Mon Sep 17 00:00:00 2001 From: Miquel Lionel Date: Mon, 16 Nov 2020 20:49:37 +0100 Subject: Don't need cookie sub, removing it Also don't need cgi-carp. need to uncomment if needed for debugging. --- gpigeon-template.cgi | 8 +++++--- 1 file 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éussi !', 'L'adresse', -- cgit v1.2.3-70-g09d2