ImageShack.pm with return field sorting so the fields aren't always i…

share/shutter/resources/system/upload_plugins/upload/ImageShack.pm

@@ -0,0 +1,157 @@
+#! /usr/bin/env perl
+###################################################
+#
+#  Copyright (C) 2010-2012 Mario Kemper <mario.kemper@googlemail.com> and Shutter Team
+#
+#  This file is part of Shutter.
+#
+#  Shutter is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 3 of the License, or
+#  (at your option) any later version.
+#
+#  Shutter is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with Shutter; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#
+###################################################
+
+package ImageShack;
+
+use lib $ENV{'SHUTTER_ROOT'}.'/share/shutter/resources/modules';
+
+use utf8;
+use strict;
+use POSIX qw/setlocale/;
+use Locale::gettext;
+use Glib qw/TRUE FALSE/;
+use Tie::IxHash;
+
+use Shutter::Upload::Shared;
+our @ISA = qw(Shutter::Upload::Shared);
+
+my $d = Locale::gettext->domain("shutter-upload-plugins");
+$d->dir( $ENV{'SHUTTER_INTL'} );
+
+my %upload_plugin_info = (
+    'module'        => "ImageShack",
+	'url'           => "http://imageshack.us/",
+	'registration'  => "http://register.imageshack.us",
+	'description'   => $d->get( "ImageShack is providing free image hosting" ),
+	'supports_anonymous_upload'  => TRUE,
+	'supports_authorized_upload' => TRUE,
+);
+
+binmode( STDOUT, ":utf8" );
+if ( exists $upload_plugin_info{$ARGV[ 0 ]} ) {
+	print $upload_plugin_info{$ARGV[ 0 ]};
+	exit;
+}
+
+###################################################
+
+sub new {
+	my $class = shift;
+
+	#call constructor of super class (host, debug_cparam, shutter_root, gettext_object, main_gtk_window, ua)
+	my $self = $class->SUPER::new( shift, shift, shift, shift, shift, shift );
+
+	bless $self, $class;
+	return $self;
+}
+
+sub init {
+	my $self = shift;
+
+	#do custom stuff here
+	use LWP::UserAgent;
+	use HTTP::Request::Common;
+	use XML::Simple;
+
+	return TRUE;
+}
+
+sub upload {
+	my ( $self, $upload_filename, $username, $password ) = @_;
+
+	#store as object vars
+	$self->{_filename} = $upload_filename;
+	$self->{_username} = $username;
+	$self->{_password} = $password;
+
+	utf8::encode $upload_filename;
+	utf8::encode $password;
+	utf8::encode $username;
+
+	#~ if ( $username ne "" && $password ne "" ) {
+
+		my $client = LWP::UserAgent->new(
+			'timeout'    => 20,
+			'keep_alive' => 10,
+			'env_proxy'  => 1,
+		);
+
+		eval{
+
+			my %params = (
+				'fileupload' => [$upload_filename],
+				'key' => '457ABMRYbb8c46e47924a66927dfa87197e87f57',
+				'a_username' => $username,
+				'a_password' => $password,
+			);
+
+			my @params = (
+				"http://www.imageshack.us/upload_api.php",
+				'Content_Type' => 'multipart/form-data',
+				'Content' => [%params]
+			);
+
+			my $req = HTTP::Request::Common::POST(@params);
+			push @{ $client->requests_redirectable }, 'POST';
+			my $rsp = $client->request($req);
+
+			#convert XML
+			my $ref = XMLin($rsp->content);
+			unless(defined $ref->{'error'}){
+				$self->{_links} = $ref->{'links'};
+				if( $self->{_debug_cparam}) { 
+					foreach (keys %{$ref->{'links'}}){
+						print $_, ": ", $ref->{'links'}->{$_};
+					}
+				}
+				#set status (success)
+				$self->{_links}{'status'} = 200;				
+			}else{
+				$self->{_links}{'status'} = $ref->{'error'}->{'content'};
+			}
+
+		};
+		if($@){
+			$self->{_links}{'status'} = $@;
+			#~ print "$@\n";
+		}
+
+	#~ }else{
+		#~ 
+	#~ }
+
+	# sort the links in same order everytime, so they're not all over the form and need to be hunted
+	my %links;
+	tie %links, 'Tie::IxHash';
+	foreach(sort keys %{ $self->{_links}}) {
+		print "link hash: ".$_." -> ".$self->{_links}->{$_}."\n";
+		$links{$_} = $self->{_links}->{$_};
+	}
+
+	#and return links
+	#return %{ $self->{_links} };
+	$self->{_links} = \%links;
+	return %links;
+}
+
+1;