diff options
Diffstat (limited to 'link-tmpl-template.cgi')
-rw-r--r-- | link-tmpl-template.cgi | 22 |
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> }; |