diff options
author | Miquel Lionel <lionelmiquel@sfr.fr> | 2020-11-16 20:49:37 +0100 |
---|---|---|
committer | Miquel Lionel <lionelmiquel@sfr.fr> | 2020-11-16 20:49:37 +0100 |
commit | 8167890e8485f434819bdb2effe38593b1482d93 (patch) | |
tree | 4f323ef0df2edbd81233e1f2ff0e944718c523a1 | |
parent | 50d04bb2970e4636078d708f5818348ce2115ebd (diff) | |
download | gpigeon-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-x | gpigeon-template.cgi | 8 |
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éussi !', 'L'adresse', |