aboutsummaryrefslogtreecommitdiff
path: root/link-tmpl-template.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'link-tmpl-template.cgi')
-rw-r--r--link-tmpl-template.cgi22
1 files changed, 9 insertions, 13 deletions
diff --git a/link-tmpl-template.cgi b/link-tmpl-template.cgi
index 5c5237d..ec155af 100644
--- a/link-tmpl-template.cgi
+++ b/link-tmpl-template.cgi
@@ -23,7 +23,7 @@ use strict;
use CGI qw(param);
delete @ENV{qw(IFS PATH CDPATH BASH_ENV)};
-$ENV{'PATH'}="/usr/bin";
+$ENV{'PATH'}=q{bin_path_goes_here};
$ENV{TMPDIR} = q{tmp_dir_goes_here};
sub GetRFC822Date {
@@ -38,9 +38,8 @@ sub GetRFC822Date {
my $HAS_MAILSERVER = q{has_mailserver_goes_here};
my $msg_form_char_limit = q{msg_char_limit_goes_here};
-my $max_mb = q{100};
+my $max_mb = q{max_mb_goes_here};
my $mailaddr = q{your_addr_goes_here};
-my $mail_gpgid = q{gpgid_goes_here}; #0xlong keyid form
my $mailsender = q{sender_addr_goes_here};
my $mailsender_smtp = q{smtp_domain_goes_here};
my $mailsender_port = q{smtp_port_goes_here};
@@ -49,7 +48,8 @@ my $GPG_HOMEDIR = q{gpg_homedir_goes_here};
my $cgi_query_get = CGI->new;
my $msg_form = $cgi_query_get->param('msg');
my $length_msg_form = length $msg_form;
-my ($smtp, $enc_msg, $error_processing_msg) = undef;
+my ($smtp, $enc_msg) = undef;
+my $error_processing_msg = '<!-- undef notif -->';
$CGI::POST_MAX = 1024*1024*$max_mb; # 100Mo limit
if (defined $length_msg_form and $length_msg_form > $msg_form_char_limit){
@@ -144,22 +144,18 @@ print qq{<!DOCTYPE html>
<link rel="stylesheet" type="text/css" href="/styles.css">
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<meta charset="UTF-8">
- <title>{link_web_title}</title>
+ <title>GPIGEON - Message form</title>
</head>
<body>
- <p id="msgbelow">{type_msg_below}:</p>
+ <p id="msgbelow">Type your message below:</p>
<form method="POST" enctype="multipart/form-data">
- <textarea id="msg" wrap="off" cols="50" rows="30" name="msg"></textarea><br>
-};
-if (defined $error_processing_msg){
- printf $error_processing_msg;
-}
-printf q{
+ <textarea id="msg" wrap="off" cols="50" rows="30" name="msg"></textarea><br>
+ $error_processing_msg
<label for="filechoice" id="msgbelow">
(Optional) file upload:
<input id="filechoice" type="file" name="file">
</label>
- <input id="sendbtn" type="submit" value="{link_send_btn}">
+ <input id="sendbtn" type="submit" value="Send">
</form>
</body>
</html> };