diff options
| -rwxr-xr-x | gpigeon-template.cgi | 1 | ||||
| -rw-r--r-- | link-tmpl-template.cgi | 5 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gpigeon-template.cgi b/gpigeon-template.cgi index 529c589..b9ac7ad 100755 --- a/gpigeon-template.cgi +++ b/gpigeon-template.cgi @@ -221,6 +221,7 @@ if (ValidCookie($id_cookie, $cookies_dir) or argon2id_verify($argon2id_hash,$pw) open my $out, '>', $link_path or die "Can't write to link file: $!"; while( <$in> ) { s/{link_user}/{$link_asker}/g; + s/{link_filename}/{$generated_form_filename}/g; s/{link_web_title}/$text_strings{link_web_title}/g; s/{link_send_btn}/$text_strings{link_send_btn}/g; s/{type_msg_below}/$text_strings{type_msg_below}/g; diff --git a/link-tmpl-template.cgi b/link-tmpl-template.cgi index 2984e9f..aadafc4 100644 --- a/link-tmpl-template.cgi +++ b/link-tmpl-template.cgi @@ -1,5 +1,6 @@ #! /usr/bin/perl -wT my $linkuser = q{link_user}; +my $linkfilename = q{link_filename}; use warnings; use strict; use GPG; @@ -73,9 +74,7 @@ else { } } - if ($0 =~ /([\w]+)\.cgi$/){ - unlink "$1.cgi"; - } + unlink $linkfilename; print "Location: /merci/index.html\n\n"; } } |