Hi monks.

I have a file uploader on my site that works when you upload from the browser. It accepts any image type. I want to have a CMD version so I can upload an entire directory of them at a time since the server seems to kill me after about 2 minutes of processing if uploading a huge zip file.

Anyway, the problem.. I've tried about 7 images and this script fails every time. The content print out at the end generally shows the HTML of the first page (pre-submitting) so it never shows my status messages or warnings of any kind. Once in a dozen tries it does get the nice ISE 500 though. But essentially I don't know what the problem could be, the html dump on error doesn't show that the form was ever submitted.

The form fields are correct and there's only one form on the page.

#!/usr/bin/perl

use warnings;
use strict;
use FindBin '$Bin';

my $currentdir = "$Bin";
my $url = "";

opendir (DIR, "$currentdir") or die "Error: $!";
my @images = grep { /\.(?:png|gif|jpg)$/i } readdir DIR;
closedir DIR;

print "\nCategory Name: ";
my $category = <STDIN>;
chomp($category);

print "\nName: ";
my $name = <STDIN>;
chomp($name);

print "\nDescription: ";
my $description = <STDIN>;
chomp($description);


my $cnt  = 0;
my $cnt2 = 0;

foreach my $image (@images)
{
  $cnt++;
}

print "\nWe found $cnt images";


foreach my $image (@images)
{
   $cnt2++;

   print "\n\t Trying picture $currentdir/$image - $cnt2 of $cnt\n";
   use WWW::Mechanize;
   my $mech = WWW::Mechanize->new();

   $mech->get( $url );

   $mech->submit_form(
      form_number => 1,
      fields      => {
          file        => "$currentdir/$image",
          category    => "$category",
          name        => "$name",
          description => "$description"
          }
     );

  my $source = $mech->content;

  if ($source =~ m/success/i)
  {
     print "$image succeeded\n";
  }
  else
  {
     print "$image failed\n";

     print $mech->content;
     exit;
  }
}
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.