In the "put up or shut up" department, I needed some procrastination time, was looking for an excuse to do something with LWP::UserAgent and XML::Simple, and thought that I might test my assertion that the published API would make it possible to accomplish your task.

This works for logging in and requesting an upload ticket, and you will need to enter your particulars (email address and password, api key, and secret key). You will also need to develop the upload form and deal with the site's redirection scheme for a complete solution.

I welcome any and all suggestions for improvements!

#!/usr/bin/perl

use warnings;
use strict;

use LWP::UserAgent;
use XML::Simple qw(:strict);
use Digest::MD5 qw (md5_hex);

my $api_key  = '';
my $secret   = '';
my $email    = '';
my $password = '';
my $api_url = 'http://www.divshare.com/api/';

my $user_agent = LWP::UserAgent->new;
   $user_agent ->timeout(10);

## Login to Divshare and get an API Session key
my $api_session_key = login($user_agent, $api_key, $email, $password);

## Using the API Session Key compute the API Signature using the "secr
+et" key
my $api_sig = gen_api_sig($secret, $api_session_key);

## Request an upload ticket
my $upload_ticket  = get_upload_ticket($user_agent, $api_key, $api_ses
+sion_key, $api_sig);
print "Your upload ticket is $upload_ticket\n";

## Logout
my $logout = logout($user_agent, $api_key, $api_session_key, $api_sig)
+;

sub login {
    my ($user_agent,$api_key,$email,$password)=@_;
    my $login_response =  $user_agent->post($api_url,
                            {
                             'method'       => "login",
                             'api_key'      => "$api_key",
                             'user_email'   => "$email",
                             'user_password'=> "$password"
                             });
    my $api_session_xml= $login_response -> content;
    my $api_session_key= XMLin($api_session_xml, forcearray=>1, keyatt
+r=>[] )->{api_session_key};
    return $api_session_key->[0];
}

sub gen_api_sig {
    my ($secret,$api_session_key) = @_;
    my $build_string = $secret.$api_session_key;
    my $api_sig = md5_hex($build_string);
    return $api_sig;
}

sub get_upload_ticket {
    my ($user_agent, $api_key, $api_session_key, $api_sig) = @_;
    my $upload_ticket_response = $user_agent->post($api_url,
                                     {
                                       'method'   => "get_upload_ticke
+t",
                                       'api_key'  => "$api_key",
                                       'api_session_key' => "$api_sess
+ion_key",
                                       'api_sig' => "$api_sig"
                                     });
    my $upload_ticket_xml = $upload_ticket_response -> content;
    my $upload_ticket_result = XMLin($upload_ticket_xml, forcearray=>1
+, keyattr=>[] ) ->{upload_ticket};
    return $upload_ticket_result->[0];
}

sub logout {
    my ($user_agent, $api_key, $api_session_key, $api_sig) = @_;
    my $logout_response = $user_agent->post($api_url,
                            {
                                    'method'   => "logout",
                                    'api_key'  => "$api_key",
                             'api_session_key' => "$api_session_key",
                                     'api_sig' => "$api_sig"
                            });
    my $logout_xml = $logout_response -> content;
    my $logout_result = XMLin($logout_xml, forcearray=>1, keyattr=>[] 
+) ->{logged_out};
    return $logout_result->[0];
}

[download]

In reply to Re: Automatic Uploader Script by moklevat
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.