Hi all
sub submit_form {
print "Content-type: text/html\n\n";
use HTTP::Request::Common qw(POST);
use lwp::UserAgent;
$ua = lwp::UserAgent->new();
my $req = POST '
http://cgat.ukm.my/spores/Predictory/sporulate/s_predict_metaserver.html',
['sequence' => $sequence, 'email' => $email, 'seqname' => $protein_name,
'submit' => 'SUBMIT / RUN PREDICTION', 'jpred' => 'on', 'pdb_blast' => 'on',
'phd' => 'on', 'predator' => 'on', 'prof' => 'on', 'psipred' => 'on', 'pssp'
=> 'on', 'samt99' => 'on', 'sspro' => 'on'];
$content = $ua->request($req)->as_string;
print "content = $content";
}
I am using the above code to submit a form. Is it correct ?? I can't test it
as I am behind proxy. So I need a way
make the code do the requests through a proxy. The $ variables are being
passed to the subrouting.
thanks
Saurabh
