diff options
| author | Miquel Lionel <lionel@les-miquelots.net> | 2021-06-24 11:55:16 +0100 |
|---|---|---|
| committer | Miquel Lionel <lionelmiquel@sfr.fr> | 2021-06-24 13:57:59 +0100 |
| commit | 6dae1be9e256deb796e99fd2f235bcbd61ccb460 (patch) | |
| tree | fb7a4625909acd243c4332afe8ff60c90bf62d16 /link-tmpl-template.cgi | |
| parent | e11030375845ce40359c9a90122e686d4d58f113 (diff) | |
| download | gpigeon-6dae1be9e256deb796e99fd2f235bcbd61ccb460.tar.gz gpigeon-6dae1be9e256deb796e99fd2f235bcbd61ccb460.zip | |
Simplify link auto-deletion
Diffstat (limited to 'link-tmpl-template.cgi')
| -rw-r--r-- | link-tmpl-template.cgi | 5 |
1 files changed, 2 insertions, 3 deletions
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"; } } |