#!/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;
  }
}