Re: file upload

Quoting Richard Dobson <[email protected]>:

whoops, had I read the docs better I would have seen http::request::common

cheers
Rich


>
> hi,
>
>
> i'm trying to upload a couple of files using the following form:
>
>
> <p><form enctype="multipart/form-data" action="upload.cgi" method="post">
> <p><b><u><font face="Arial,Helvetica"><font size=+1>
> To run a detailed ssSNPer
> analysis on a single SNP:</font></font></u></b>
> <p><font face="Arial,Helvetica">Specify the location
> of your file containing
> the test SNP rs# (e.g., "<a
>
href="http://fraser.qimr.edu.au/general/daleN/ssSNPer/rs1800630snp.txt">rs1800630snp.txt</a>"):</font>
> <br><input name="testSNP" type="file">
> <p><font face="Arial,Helvetica">Specify the location of your HapMap SNP
> genotype data dump file (e.g., "<a
>
href="http://fraser.qimr.edu.au/general/daleN/ssSNPer/rs1800630dumpedregion.txt">rs1800630dumpedregion.txt</a>"):</font>
> <br><input name="HapMapData" type="file">
> <p><font face="Arial,Helvetica">Please be patient, our web server may be
> busy and depending upon the size of your test region your query may take
> a few minutes (the example files take ~90 seconds).</font>
> <br><input type="submit">
>
> </form>
>
>
>
> i'm using the following piece of code to submit:
>
> #!/usr/bin/perl
>
> use strict;
> use LWP::UserAgent;
> use WWW::Mechanize;
> use HTML::Form;
>
> my $ua = LWP::UserAgent->new;
> my $response = $ua->get("http://fraser.qimr.edu.au/general/daleN/ssSNPer/");
> my $form = HTML::Form->parse($response->decoded_content,
>                                   $response->base);
> my @inputs = $form->inputs;
>
> $inputs[0]->file( "/tmp/hapmap/rs1800630snp.txt " );
> $inputs[1]->file( "/tmp/hapmap/rs1800630dumpedregion.txt" );
>
> $ua = LWP::UserAgent->new;
> $response = $ua->request($form->click);
>
>
> my $content=$response->content;
>
> print  $content;
>
>
>
> the error that I get in the $content states that the files failed to upload.
>
>
>
> Any ideas?
>
>