Requesting HTTP_HOST and putting result in a text box


  Hi all,

  I am starting in Perl. Actually I programming only ASP.

  I have been problems trying to get the URL typed in browser and pass the results to an Text Box.

  Example:

  1. A user request the URL  webmail.mycompany.com
  2. He is redirect to the entrance of webmail
  3. The webmail has 2 text box, one for user (user input) and other to Domain.
  --> Then, I'd like to get URL and pass to the Domain Text Box (mycompany.com).... then, the user need only to type your name and password.

  Sorry for this dumb question, it is very easy in Asp, but in Perl I am only starting.
ipsystemsAsked:
Who is Participating?
 
TintinConnect With a Mentor Commented:
The Perl equivalent of your ASP code is

$host = $ENV{'HTTP_HOST'};

You will need to ensure that the webmail page is generated via a Perl CGI script, so it can fill in the domain, eg:

print "Content-Type: text/html\n\n";
$host = ENV{'HTTP_HOST'};

print <<EOF;
<html>
...
<form action=/cgi-bin/script.cgi method=post>
User: <input type=text name=user><br>
Domain: <input type=text name=domain value=$host><br>
Password: <input name= passwd type=password><br>
</form>
..
EOF
0
 
TintinCommented:
I'm finding it hard to understand your question.

Are you saying that you want to take the two inputs from an HTML form (username and domain) and "pass" then to a domain controller?  If so, what protocol are you talking to the DC on?
0
 
ipsystemsAuthor Commented:

Sorry, I will explaing better.

The webmail page has a form with 3 text box (Username, password and domain)

The user needs to fill like this:

User:  mymail
Domain:  experts.com
Password:  *****
and click OK

All users has different domains  ex1.com ex2.com tttt.com etc... then...to acess webmail it acessa throught url  http://webmail.ex2.com for exemple.

I'd like to get the digited URL, in this case EX2.COM.BR and pass this parameter to the text box DOMAIN, then, the users will fill only username and password.

In ASP we use request.servervariables("HTTP_HOST")...but in Perl I don't know how...
0
 
ipsystemsAuthor Commented:

   Thanks!!!
0
All Courses

From novice to tech pro — start learning today.