Présentation de l'aide de WebForms JMail et perl

use OLE;
    use CGI;
    $jmail = CreateObject OLE "JMail.SMTPMail";

print "Content-type: text/html\n\n";

$form = new CGI;
    $Recipient=$form->param('email');
    
    $domain = $ENV {'SERVER_NAME'};
    $referer = $ENV {'HTTP_REFERER'};
    $url = $referer;
    $url =~ s/^http:\/\///i;
    $url =~ s/^www\.//i;
    $domain =~ s/^www\.//i;


$Sender = "noreply\@$domain";
    $SMTPServer = "smtp.$domain:25";
    $Subject = "JMail Example";
    $Body = "This test mail sent from: $ENV{'LOCAL_ADDR'} using the JMail component on the server via Perl.";
    $Priority=3;
    $Header = "Originating-IP", $ENV{'REMOTE_ADDR'};

    $jmail->{ServerAddress} = $SMTPServer;
    $jmail->{Sender} = $Sender;
    $jmail->{Subject} = $Subject;
    $jmail->AddRecipient ($Recipient);
    $jmail->{Body} = $Body;
    $jmail->{Priority} = $Priority;
    $jmail->AddHeader ($Header);

if ($url =~ m/^$domain/)
    {
        $mailmessage = "mail sent";
        $jmail->Execute;
    }
    else
    {
        $mailmessage = "mail was not sent. Incorrect Referer";
    }
 

print "Result: $mailmessage Recipient: $Recipient";
    print "Sender: $Sender SMTP Server: $SMTPServer";
    print "Subject: $Subject Referer: $referer";
    print "Domain: $domain url: $url ";

<%
SenderEmail = request.form ("email")
SenderName = request.form ("name")
Set JMail = Server.CreateObject("JMail.SMTPMail")

' This is my local SMTP server
JMail.ServerAddress = "mailhub.yoursmptserver.com"

' This is me....
JMail.SenderName = SenderName
JMail.Sender = SenderEmail
JMail.Subject = "Subscription Submission"

' Get the recipients mailbox from a form (note the lack of a equal sign).
JMail.AddRecipient "yourmail@wherever.com"
'JMail.AddRecipient "dad@some.com"

' The body property is bodth read and write.
' If you want to append text to the body you can
' use JMail.Body = JMail.Body & "Hello world!"
' or you can use JMail.AppendText "Hello World!"
' which in many cases is easier to use.
JMail.Body ="Name = " & request.form ("name") & vbCrLf&_
"Email Address = " & request.form ("email")



JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' Must make sure that IUSR_???? has access to the following files.
'JMail.AppendBodyFromFile "e:\mail\standard_footer.txt"
'JMail.AddAttachment "e:\products\MyProduct.exe"

' Send it...
JMail.Execute
Set JMail = nothing
%>