Re: Problem Using POST

The form you want to post to is found in the <form> tag: prep_job.php

So you want to change your request to something like.

my $response = $browser->post(
  'http://enm.lobos.nih.gov/prep_job.php',
  [
    "upload"=> ["C:\\protean\\1o1l\\1o1l.pdb"],
    "jobname"=> "PRT1",
        "case"  => "2",
    "email" => "email\@gmail.com",
    "optin" => "true",
    "upload2"=> ["C:\\protean\\1o1l\\1o1l.pdb"],

  ],
  'Content_Type' => 'form-data',
);
[download]

grep
One dead unjugged rabbit fish later...

Comment on Re: Problem Using POST Select or Download Code

Replies are listed 'Best First'.
Re^2: Problem Using POST by Joost (Canon) on Feb 02, 2008 at 01:19 UTC
Right. Or use something that makes the job a bit easier, like WWW::Mechanize. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re^2: Problem Using POST by Anonymous Monk on Feb 02, 2008 at 14:13 UTC
When I do it like the way you say, it says no pdb is supplied (which is that upload input type). Is there something I am doing wrong there? (I will also look at mechanize)	[reply]
Re^2: Problem Using POST by Anonymous Monk on Feb 02, 2008 at 18:47 UTC
I also tried this to no use. It still returns "no pdb(the file) uploaded" error. #!/usr/bin/perl -w # pl8.pl - query California license plate database use strict; use LWP::UserAgent; use HTTP::Request::Common; use HTTP::Headers; my $browser = LWP::UserAgent->new; my $request = HTTP::Request->new(); my $url="http://enm.lobos.nih.gov/prep_job.php"; my $file="C:/protean/1o1l/1O1L.pdb"; my $response = $browser->request( POST $url, 'Content_Type' => 'form-data', Content=>[ "upload"=> [$file], "jobname"=> "PRT1", "case" => "2", "email" => "sinatureli\@gmail.com", "optin" => "true", "upload2"=> [$file], ], ); die "Error: ", $response->status_line unless $response->is_success; print $response->content; exit; [download]	[reply] [d/l]


We don't bite newbies here... much
	PerlMonks