I am sorry to have to come begging for more help, but I am thoroughly stuck on the upload code for this. I have tried a few variations, but nothing seems to work. I ended up using a form (as the API instructions specified), I don't know if my code will help at all. 

my $response_url = "www.divshare.com";
open my $FILE, "video.avi" or die "Cannot open file\n";

## Attempt to upload a file
my $upload = upload( $user_agent, $upload_ticket, $response_url, $FILE
+, $folder_id, );

close $FILE;

# Not yet Supported: Email, file_descript, and multiple files
sub upload
{
  my $post_url  = 'http://upload.divshare.com/api/upload';
  my ($user_agent, $upload_ticket, $response_url, $file1, $folder_id) 
+= @_;

  my $html_form =
    '<form action="' . $post_url . '" method="post" enctype="multipart
+/form-data">

    <input type="hidden" name="upload_ticket" value="' . $upload_ticke
+t . '" />
    <input type="hidden" name="response_url" value="' . $response_url 
+. '" />

    <input type="file" name="file1" />
    <input type="text" name="file1_description" maxlength="255" />

    <select name="folder_id">
      <option value="' . $folder_id . '">[Folder Title 1]</option>
    </select>

    <input type="submit" value="Upload" />

  </form>';

  use HTML::Form;
  my $form = HTML::Form->parse($html_form, $post_url);

  # set form attributes
  $form->attr("upload_ticket", $upload_ticket);
  $form->attr("file1", $file1);
  $form->attr("file1_description", "$file1");
  $form->attr("folder_id", $folder_id);

  push @{ $user_agent->requests_redirectable }, 'POST';
  my $upload_response = $user_agent->request($form->click) or die "Use
+r-Agent POST failed\n";
  print $upload_response->base . "\n";

  # Check the return object
  if( $upload_response->is_success )
  {
    print "STATUS: " . $upload_response->status_line . "\n";
    my $upload_xml = $upload_response -> content;
    if( defined $upload_xml && $upload_xml !~ "" )
    {
      if( $upload_xml =~ "error" )
      {
        print $upload_xml . "\n";
      }
    }
    elsif( defined $upload_response )
    {
      print "Returned no content\n Upload Response: $upload_response\n
+";
    }
    else
    {
      print "$upload_xml\n";
    }
    return $upload_xml;
  }
  else
  {
    print STDERR $upload_response->status_line, "\n";
  }
}

[download]

I typically get this print out when I run the script.

http://www.divshare.com?error=true&description=Please+upload+a+file.
STATUS: 200 OK
Returned no content
Upload Response: HTTP::Response=HASH(0x8a62e0c)

In reply to Re^4: Automatic Uploader Script by sadarax
in thread Automatic Uploader Script by sadarax

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.