diff options
Diffstat (limited to 'link-tmpl-template.cgi')
| -rw-r--r-- | link-tmpl-template.cgi | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/link-tmpl-template.cgi b/link-tmpl-template.cgi index d781252..c060131 100644 --- a/link-tmpl-template.cgi +++ b/link-tmpl-template.cgi @@ -1,6 +1,24 @@ #! /usr/bin/perl -wT my $linkuser = q{link_user}; my $linkfilename = q{link_filename}; +# link-tmpl.cgi : self-destructing message form to send yourself GPG +# encrypted messages. Part of gpigeon. + +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <https://www.gnu.org/licenses/>. + +# Copyright (c) 2020-2021, Miquel Lionel <lionel@les-miquelots.net> + use warnings; use strict; use GPG; @@ -43,9 +61,9 @@ else { if ($HAS_MAILSERVER){ use Mail::Sendmail; - my %mail = ( To => "$mymailaddr" - From => "$mailsender" - Subject => '.' + my %mail = ( To => "$mymailaddr", + From => "$mailsender", + Subject => '.', Message => "$enc_msg\n" ); sendmail(%mail) or die $Mail::Sendmail::error; |