Hi listers,

This is the code of the form. From the website www.m-w.com; for which I
am trying to make a client.

<form name="dict" method="post" action="/cgi-bin/dictionary">
  <td valign="middle" width="223" align="center">
  <input type="hidden" name="book" value="Dictionary">
  <font color="#ffffff" size="2" face="Arial,
Helvetica"><strong>Merriam-Webster Dictionary</strong></font>

  </td><td valign="middle" width="130">
  <input name="va" size="15">
  <script language=Javascript>document.dict.va.focus();</script>
  </td><td valign="middle" width="100">
  <input type="submit" value="Look it up">
  </td>
  </form>

This is my code. Unfortunately I haven't been able to figure out the
exact request parameters.

  my $url = 'http://www.m-w.com';
  my $ua = LWP::UserAgent->new();
  $ua->agent("My Browser 0.1");
  my $request = HTTP::Request->new(GET => $url);
  $request->content_type('application/x-form-urlencoded');
#Here is where I need help!
  $request->content('name=hdwd value=hello');
  my $response = $ua->request($request);
  print $response->content;


regards

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to