Re^4: Perl form user input

I don't know perl, so I don't know what builds the %form hash and other variables.

# Create invoice and Prepare for emailing
        $message  = "\n$sheader\n";
        $message .= "$saddress\n";
        $message .= "$sphone\n\n";
    $message .= "\n";
        $message .= "Date: $date\n"; 
        $message .= "Invoice No: $inv_num\n"; 
        $message .= "Customer Id: $sessionid\n\n"; 
        $message .= "---------------------------------------------\n";
    $message .= "Qty\t  Description\t\t\t\t\t  Amount\n";
        $message .= "---------------------------------------------\n";
    $message .= " 1 \t  $description\t  $amount\n";
     $message .= "---------------------------------------------\n";

    my $total = sprintf("TOTAL: %5.2f", $amount);

    $message .= "$total\n\n";
    $message .= "PAYMENT METHOD: $method\n\n";
    $message .= " Payment Type: $payment_type\n";
    $message .= " Payment Date: $payment_date\n";
    $message .= " Payment Status: $payment_status : $payment\n";
    $message .= " Account Status: $payer_status\n";
    $message .= " Address Status: $address_status\n";
    $message .= " Transcation ID: $auth_code\n\n";
    $message .= "SessionID: $sessionid\n\n";
    $message .= "BILLING ADDRESS:\n\n";
    $message .= "--"." $fname $lname\n";
    $message .= "--"." $address\n";
    $message .= "--"." $city, $state\. $zip\n";
    $message .= "--"." $country\n";
    $message .= "--"." $phone\n";
    $message .= "--"." $email\n";
    $message .= "\n";
    $message .= "-----------------------------------------------------
+------\n";
    $message .= "Remote HOST: $ENV{'REMOTE_HOST'}\n";
    $message .= "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
    $message .= "Remote Browser: $ENV{'HTTP_USER_AGENT'}\n";


return $message;

} # end of sub
[download]

Comment on Re^4: Perl form user input Download Code

Replies are listed 'Best First'.
Re^5: Perl form user input by haukex (Archbishop) on Jun 10, 2019 at 07:43 UTC
I don't know what builds the %form hash and other variables. Well, that's where you'll have to look, though, because the problem is not in this piece of code. Update: From your earlier post: `$message .= "<ul><li>Name:$FORM{'name'}<br>\n";` Considering the style of this code, I'd guess that this is some old legacy code. There may be a `sub` somewhere that sets up the `%FORM` hash. Please edit your nodes to add `<code>` tags around each piece of code and input/output.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Perl form user input
by haukex (Archbishop) on Jun 10, 2019 at 07:43 UTC

I don't know what builds the %form hash and other variables.

Well, that's where you'll have to look, though, because the problem is not in this piece of code.

Update: From your earlier post:

$message .= "<ul><li>Name:$FORM{'name'}<br>\n";

Considering the style of this code, I'd guess that this is some old legacy code. There may be a sub somewhere that sets up the %FORM hash.

Please edit your nodes to add <code> tags around each piece of code and input/output.

[reply]
[d/l]
[select]