in reply to Perl form user input

Which form? Post a short example which does nothing more the replicate the issue you want help with. How do I post a question effectively?.

Replies are listed 'Best First'.
Re^2: Perl form user input
by JamesBond007 (Initiate) on Jun 10, 2019 at 06:50 UTC
    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"> ---------------------------------
    $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";
    ---------------------------------------------------------------
    $message .= "--"." $address\n"; $message .= "--"." $city, $state\. $zip\n"; $message .= "--"." $country\n"; $message .= "--"." $phone\n"; $message .= "--"." $email\n";
      ..where to look for the problem

      In the perl code (which you have not shown) that builds the %Form hash and other variables.

      poj
        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