Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I have a feedback form which is used on a range of my websites.

I want to log users details, and send it in the feedback form.

I have tried using things like the following in the feedback.pl script but when the mail is sent it comes out as a load of rubbish:

$visitor= "$ENV{'REMOTE_ADDR'}"

then further down the script in the print mail:

print MAIL "$visitor\n";

Please could you advise as I am new to all this.

Thank you.

Replies are listed 'Best First'.
Re: Logging IP etc.
by tachyon (Chancellor) on May 10, 2002 at 14:39 UTC

    Although you don't need the quotes around $ENV{'REMOTE_ADDR'} it should still work as perl will interpolate the value into the double quoted string. Q: What does a load of rubbish look like? Q: What does your code look like? Without more details there is nothing in what you have posted that is terribly wrong so not much else to say...

    cheers

    tachyon

    s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
      Hi,

      At the top of the script:

      # IP/Host Address
      $scisukvisitor= "$ENV{'REMOTE_ADDR'}"


      Which then uses the following later on:


      # Open The Mail Program
      open(MAIL,"|$mailprog -t");


      # BCC line added to BCC mail to SCIS UK Admin
      print MAIL "To: $Config{'recipient'}\n";
      print MAIL "BCC: $scisuk_email\n";
      print MAIL "From: $Config{'email'} ($Config{'realname'})\n";
      # Check for Message Subject
      if ($Config{'subject'}) { print MAIL "Subject: $Config{'subject'}\n\n" }
      else
      { print MAIL "Subject: SCIS UK Limited Form Submission\n\n" }
      print MAIL "Below is the result of your feedback form. It was submitted by\n";
      print MAIL "$Config{'realname'} ($Config{'email'}) on $date\n";
      print MAIL "$scisukvisitor\n";
      print MAIL "-" x 75 . "\n\n";


      etc...


      Which looks like:

      Below is the result of your feedback form. It was
      submitted by
      () on Friday, May 10, 2002 at 15:14:08
      ! "!0" <<<<< <bt>That should be the IP/Host
      ---------------------------------------------------------------------------

      contactmethod: email

      comments: Please enter your comments here...

      Submit: Submit

      ---------------------------------------------------------------------------
[reply]
Re: Logging IP etc.
by lnl (Pilgrim) on May 10, 2002 at 16:32 UTC

    You do have a semicolon at the end of that line in the actual code, don't you?

    --lnl

[reply]
      Whoops!

      No I didn't!

      Thanks for your help!

      Guess that will teach me! Once did a similar thing when learning FoxPro! Should have known.

      I thought it would just produce a 500 internal server error!

      Thanks :-)
[reply]

Back to Seekers of Perl Wisdom