Re^2: Perl form user input

I'm not sure where to look for the problem.

 <div class="form-row">
 <div class="col-md-6 mb-3">
   <label for="city"><span class="text-danger p-1" style="font-size:18
+px"><b>*</b></span>City</label>
   <input type="text" name="city" class="form-control" id="city" place
+holder="City" required>
 </div>

-----------------------------------

<b>Name:</b>         <input type="text" size="35" name="name">
<b>Address:</b>      <input type="text" size="35" name="address">
<b>Town/City:</b>    <input type="text" size="35" name="city">
<b>County/State:</b> <input type="text" size="35" name="state">
<b>Post/Zip:</b>     <input type="text" size="35" name="zip">
<b>Country:</b>      <input type="text" size="35" name="country">
<b>Email:</b>        <input type="text" size="35" name="email">


---------------------------------
[download]

$message .= "<ul><li>Name:$FORM{'name'}<br>\n";
        $message .= "<li>Address: $FORM{'address'}<br>\n";
        $message .= "<li>City: $FORM{'city'}, $FORM{'state'}\. $FORM{'
+zip'}<br>\n";
        $message .= "<li>Country: $FORM{'country'}<br>\n";
        $message .= "<li>Email: $FORM{'email'}<br>\n";
        $message .= "<li>Phone $FORM{'phone'}<br>\n";
[download]

---------------------------------------------------------------

$message .= "--"." $address\n";
    $message .= "--"." $city, $state\. $zip\n";
    $message .= "--"." $country\n";
    $message .= "--"." $phone\n";
    $message .= "--"." $email\n";
[download]

Comment on Re^2: Perl form user input Select or Download Code

Replies are listed 'Best First'.
Re^3: Perl form user input by poj (Abbot) on Jun 10, 2019 at 07:04 UTC
..where to look for the problem In the perl code (which you have not shown) that builds the `%Form` hash and other variables. poj	[reply] [d/l]
Re^4: Perl form user input by JamesBond007 (Initiate) on Jun 10, 2019 at 07:32 UTC
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]	[reply] [d/l]
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]