And because I am a hardheaded S.O.B., I will still try to prove a point. Here's both the server and client side example of using HTML::Form to upload a file.

Put the first file in your cgi-bin directory, and set it to be executable. A good name would be 'htmlformtest.pl'. Make sure you can get to it with your web browser. Put the second file in your user directory. Change the '$site' variable to point to the script in the cgi-bin directory. Run it. You should find a file in your local directory called 'testfile.text, and a file in /tmp, called 'uploaded.file'. These two files should be indentical in content. It seems to work here.

Some of this code isn't pretty, doesn't do enough error checking, etc. It's demo code. 
#!/usr/local/bin/perl -w

use strict;
use CGI;
use IO::File;
use POSIX qw (tmpnam);

my $finalname = '/tmp/uploaded.file';

{
   my $tmpnam;
   my $html = new CGI;

   print $html->header;

   if (!defined ($html->param ('uploadname')) || $html->param ('upload
+name') eq '')
   {
      print while (<DATA>);
      print $html->end_html;
      exit;
   }

   my $fn = $html->param ('uploadname');
   my $fh = $html->upload ('uploadname');
   my $fd = '';

   if (!defined ($fh))
   {
      print "\$fh is not defined!\n";
      print $html->end_html;
      exit;
   }

   while ((length ($fd) <= (64 * 1024)) && read ($fh, my $buffer, 1024
+))
   {
      $fd .= $buffer;
   }

   if (length ($fd) == (64 * 1024))
   {
      print "File too big!";
      print $html->end_html;
      exit;
   }
   
   #
   #  Get a temporary file name we know is ours.  The loop resolves th
+e race condition possibility.
   #
   for (;;) 
   {
      $tmpnam = tmpnam ();
      sysopen (TMP, $tmpnam, O_RDWR | O_CREAT | O_EXCL) && last;
   }
   
   close (TMP);
   
   #
   #  Create the temporary input file for the size-getter and thumbnai
+l maker
   #
   if (open (SOURCE, ">$tmpnam"))
   {
      print SOURCE $fd;
      close SOURCE;
   }
   else
   {
      print "Couldn't open $tmpnam for writing: $!";
      print $html->end_html;
      exit;
   }
   
   rename ($tmpnam, $finalname);
   print "File uploaded OK, saved as $finalname";

   exit;
}

__DATA__

<HTML> 
  <HEAD> 
    <TITLE>File Upload Test</TITLE> 
  </HEAD> 
  <BODY> 
    <FORM METHOD="POST" ENCTYPE="multipart/form-data"> 
      <TABLE BORDER="0" ALIGN="CENTER"> 
        <TR> 
          <TD ALIGN="CENTER"> 
            <P>Select file to upload: <INPUT TYPE="FILE" NAME="uploadn
+ame"></P>
          </TD> 
        </TR> 
        <TR> 
          <TD>&nbsp;</TD> 
        </TR> 
        <TR> 
          <TD ALIGN="CENTER">
            <INPUT TYPE="SUBMIT" NAME="sendfile" CHECKED="CHECKED" VAL
+UE="Send me that file, Cowboy!">
          </TD> 
        </TR> 
      </TABLE>
    </FORM> 
  </BODY>
</HTML>

[download]
#!/usr/local/bin/perl -w

use strict;
use Carp;
use LWP::UserAgent;
use LWP::Simple;
use HTML::Form;

my $site = 'http://linux/release/cgi-bin/htmlformtest.pl';
my $testfile = './testfile.txt';

#
#
#
{
   if (!-e $testfile)
   {
      open (FH, ">$testfile") || die $!;
      print FH "\nThis is a test file.\n";
      print FH "It has been uploaded via HTML::Form\n";
      print FH "And it has 5 lines in it.\n\n";
      close FH;
   }

   my $req = get ($site);

   die "Eeek! Request failed.\n" if !$req;

   #
   #
   #
   my $form = HTML::Form->parse ($req, $site);

   if ($form->find_input ('uploadname'))
   {
      $form->value ('uploadname', [$testfile => [$testfile]]);

      my $userAgent = LWP::UserAgent->new;
      my $res = $userAgent->request ($form->click);

      die sprintf ("Eeek! Request failed (%s)\n", $res->status_line) u
+nless ($res->is_success);

      print "\n", $res->content, "\n";
      print "I seem to have uploaded the file OK!\n\n";
   }
   else
   {
      die "Eeek!  Whatever page we got, didn't have 'uploadname' as a 
+field!\n";
   }
}

[download]


--Chris

e-mail jcwren

In reply to (jcwren) RE: amelinda's problem (I am a hardheaded SOB) by jcwren
in thread amelinda's HTTP/MIME/file upload/not-a-cgi-but-a-client/minimal-module/perl problem by amelinda

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.