diff options
| author | Miquel Lionel <lionel@les-miquelots.net> | 2021-06-06 15:52:00 +0100 |
|---|---|---|
| committer | Miquel Lionel <lionelmiquel@sfr.fr> | 2021-06-06 15:52:00 +0100 |
| commit | 3b3c85e3221b7bf679c84b442fe1453fc8d83238 (patch) | |
| tree | 4b3819048c007259264ed690799ebde326e32f6d /link-tmpl.cgi | |
| parent | 013acf6cdbc5d76bfb112d8e11625a490acb1dab (diff) | |
| download | gpigeon-3b3c85e3221b7bf679c84b442fe1453fc8d83238.tar.gz gpigeon-3b3c85e3221b7bf679c84b442fe1453fc8d83238.zip | |
fix readme about looking for variables
Diffstat (limited to 'link-tmpl.cgi')
| -rw-r--r-- | link-tmpl.cgi | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/link-tmpl.cgi b/link-tmpl.cgi deleted file mode 100644 index b2fe3b3..0000000 --- a/link-tmpl.cgi +++ /dev/null @@ -1,105 +0,0 @@ -#! /usr/bin/perl -wT -my $linkuser = q{link_user}; -use warnings; -use strict; -use GPG; -use CGI qw(param); - -$ENV{'PATH'}="/usr/bin"; -delete @ENV{qw(IFS PATH CDPATH BASH_ENV)}; - -sub EscapeArobase { - my $escapedmailaddress = shift; - $escapedmailaddress =~ s/@/\\@/; - return $escapedmailaddress; -} - -my $HAS_MAILSERVER = q{has_mailserver_goes_here}; -my $msg_form_char_limit = q{msg_char_limit_goes_here}; -my $mymailaddr = q{your_addr_goes_here}; -my $mymail_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}; -my $mailsender_pw = q{sender_pw_goes_here}; -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 ($enc_msg, $error_processing_msg) = undef; - -if (defined $length_msg_form and $length_msg_form > $msg_form_char_limit){ - $error_processing_msg = qq{<span style="color:red"><b>Cannot send message : message length must be under $msg_form_char_limit characters.</b></span>}; -} -elsif (defined $length_msg_form and $length_msg_form eq 0 ){ - $error_processing_msg = qq{<span style="color:red"><b>Cannot send message : message is empty. You can type up to $msg_form_char_limit characters.</b></span>}; -} -else { - if (defined $length_msg_form and $ENV{REQUEST_METHOD} eq 'POST'){ - $msg_form =~ tr/\r//d; - my $gpg = new GPG(gnupg_path => "/usr/bin", homedir => $GPG_HOMEDIR); - $enc_msg = $gpg->encrypt("$linkuser:\n\n$msg_form", $mymail_gpgid) or die $gpg->error(); - - if ($HAS_MAILSERVER){ - undef $mymailaddr_escaped; - use Mail::Sendmail; - my %mail = ( To => "$mymailaddr" - From => "$mailsender" - Subject => '.' - Message => "$enc_msg\n" - ); - sendmail(%mail) or die $Mail::Sendmail::error; - } - else { - use Net::SMTP; - use Net::SMTPS; - my $smtp = Net::SMTPS->new($mailsender_smtp, Port => $mailsender_port, doSSL => 'ssl', Debug_SSL => 0); - my $mymailaddr_escaped = EscapeArobase{$mymailaddr}; - my $mailsender_escaped = EscapeArobase($mailsender); - - $smtp->auth($mailsender, $mailsender_pw) or die; - $smtp->mail($mailsender) or die "Net::SMTP module has broke: $!."; - if ($smtp->to($mymailaddr)){ - $smtp->data(); - $smtp->datasend("From: $mailsender_escaped\n"); - $smtp->datasend("To: $mymailaddr_escaped\n"); - $smtp->datasend("Subject: .\n"); - $smtp->datasend("\n"); - $smtp->datasend("$enc_msg\n"); - $smtp->dataend(); - } - else { - die $smtp->message(); - } - my $f = $0; - if ($f =~ /^([\w]+)$/){ - unlink "$1"; - } - print "Location: /merci/index.html\n\n"; - } - } -} -print "Content-type: text/html", "\n\n"; -print qq{<!DOCTYPE html> -<html> - <head> - <link rel="icon" sizes="48x48" type="image/ico" href="/favicon.ico"> - <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> - </head> - <body> - <p>{type_msg_below}:</p> - <form method="POST"> - <textarea id="msg" wrap="off" cols="50" rows="30" name="msg"></textarea><br> -}; -if (defined $error_processing_msg){ - printf $error_processing_msg; -} -printf q{ - <br> - <input type="submit" value="{link_send_btn}"> - </form> - </body> -</html> }; |