~ubuntu-branches/ubuntu/trusty/shutter/trusty-proposed

imageshack.us allows you to upload image files (jpg, jpeg, png, gif, bmp, tif, tiff, swf < 1.5 megabytes) and to optimize and or resize these files while making them available to others via imageshack.us servers (even direct linking).

A thumbnail is always created.

=cut

package Shutter::Upload::ImageShack;

use LWP::UserAgent;

use HTTP::Response;

use HTTP::Request::Common;

use HTTP::Status;

use HTTP::Cookies;

use Data::Dumper;

#define constants

#--------------------------------------

use constant TRUE => 1;

use constant FALSE => 0;

#--------------------------------------

use Carp qw(carp croak);

use strict;

use warnings;

our $VERSION = '0.03';

$VERSION = eval $VERSION;

our $url = 'http://imageshack.us';

our $uri = 'transloader.php';

our $agent = 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'; #nice "fake"

=head2 Method Summary

=over 4

=item new(attr=>value)

Constructor.

100

Initializes the object.

101

102

Attributes are:

103

104

=over 4

105

106

=item agent

107

108

L<LWP::UserAgent|LWP::UserAgent> object to used make HTTP requests

109

110

=item bar

111

112

Boolean indicating whether thumbnails should have a black bar at the bottom with real image size

113

114

=item login

115

116

Id used to upload the files. If you have registered with imageshack.us, you should have received an email with a link similar to: http://reg.imageshack.us/setlogin.php?login=SOME_IDENTIFIER

117

118

If you intend to be able to later on use the web interface to erase files, you should pass either that link as the login parameter or only the user_id (SOME_IDENTIFIER).

119

120

No verification on the validity of the user_id is currently made

121

122

=back

123

124

=cut

125

126

sub new {

127

my ($pack, %attrs) = @_;

128

129

my $self = bless {}, $pack;

130

131

if(ref($attrs{'lwp_ua'}) && $attrs{'lwp_ua'}->isa('LWP::UserAngent')){

132

$self->ua($attrs{'lwp_ua'});

133

}else{

134

my $ua = LWP::UserAgent->new(

135

'agent' => $agent,

136

'timeout' => 30,

137

'keep_alive' => 10,

138

'env_proxy' => 1,

139

);

140

$self->ua($ua);

141

}

142

143

$self->ua->cookie_jar(HTTP::Cookies->new(file => "$ENV{HOME}/.cookies.txt"));

144

145

if(defined($attrs{'bar'})){

146

$self->{'bar'} = $attrs{'bar'};

147

}

148

149

#FOLLOWING ATTS ADDED BY SHUTTER TEAM - quick and dirty - maybe fixme

150

$self->{_host} = undef;

151

$self->{_username} = undef;

152

$self->{_filename} = undef;

153

$self->{_url} = undef;

154

$self->{_url_thumb} = undef;

155

$self->{_status} = undef;

156

$self->{_gettext_object} = undef;

157

$self->{_main_gtk_window} = undef;

158

$self->{_shutter_root} = undef;

159

160

$self->{_notebook} = Gtk2::Notebook->new;

161

$self->{_notebook}->set( homogeneous => 1 );

162

$self->{_notebook}->set_scrollable(TRUE);

163

164

return $self;

165

}

166

167

=over 4

168

169

=item user_agent

170

171

Returns or sets the L<LWP::UserAgent|LWP::UserAgent> object used internally so that it can the customised

172

173

=cut

174

175

sub user_agent{

176

my ($self, $ua) = @_;

177

if(ref($ua) && $ua->isa('LWP::UserAgent')){

178

$self->{'_ua'}=$ua;

179

}

180

return $self->{'_ua'};

181

}

182

183

#just an internal alias

184

*ua = \*user_agent;

185

186

our @optsize = (100, 150, 320, 640, 800, 1024, 1280, 1600, 'resample');

187

188

=item host($url, $size)

189

190

Given an url (starts with http:// or https://) or a filename and a width in pixels uploads the image to image imageshack.us and resizes it to the desired size.

191

Returns the url of the hosted image and croaks on error.

192

193

Possible values for C<$size> are:

194

195

=over 4

196

197

=item B<100>

198

199

100 x 75 (avatar)

200

201

=item B<150>

202

203

150x112 (thumbnail)

204

205

=item B<320>

206

207

320 x 240 ( for websites and email )

208

209

=item B<640>

210

211

640x480 (for message boards)

212

213

=item B<800>

214

215

800 x 600 ( 15 -inch monitor )

216

217

=item B<1024>

218

219

1024x768 (17-inch monitor)

220

221

=item B<1280>

222

223

1280 x 1024 ( 19 -inch monitor )

224

225

=item B<1600>

226

227

1600x1200 (21-inch monitor)

228

229

=item B<resample>

230

231

just optimizes

232

233

=back

234

235

=cut

236

237

sub host{

238

my ($self, $image, $size) = @_;

239

240

if(!defined($url)){

241

croak("No url to host");

242

}

243

244

my %params = (

245

'uploadtype' => 'on',

246

'brand' => '',

247

'refer' => ''

248

);

249

250

my $is_external = $image=~ m{^https??://};

251

if($is_external){

252

$params{'url'} = $image;

253

}else{

254

$params{'fileupload'} = [$image];

255

$params{'MAX_FILE_SIZE'} = 3145728;

256

#XXX is this really necessary

257

$params{'url'} = 'paste image url here';

258

}

259

260

if(defined($size)){

261

262

$params{'optimage'} = 1;

263

264

if($size=~/^\d+$/){

265

if(grep{$_ eq $size}@optsize){

266

$size="${size}x${size}";

267

}else{

268

croak("unknown size $size");

269

}

270

}

271

272

$params{'optsize'} = $size;

273

274

if($self->{'bar'}){

275

delete($params{'rembar'});

276

}else{

277

$params{'rembar'}=1;

278

}

279

}

280

281

my @params = (

282

"$url/" . ($is_external ? $uri : ''),

283

'Content_Type' => 'form-data',

284

'Content' => [%params]

285

);

286

287

my $req = HTTP::Request::Common::POST(@params);

288

push @{ $self->ua->requests_redirectable }, 'POST';

289

my $rsp = $self->ua->request($req);

290

291

if($rsp->is_success){

292

my $txt = $rsp->content;

293

#~ if($txt =~ m{<\s*input\s+[^>]+\s+value\s*=\s*"([^"]+)"[^>]+>\s*</\s*td\s*>\s*<\s*td[^>]*>\s*Direct\s+link\s+to\s+image}ism){

294

# Changed by "Oleg Fiksel" <fleg@lavabit.com>

295

if($txt =~ /Direct.+?href=['"]*([^'"]+)['"]*/ism){

296

$self->hosted($1);

297

if($txt =~/thumbnail for/i){

298

my $uri = $self->hosted();

299

$uri =~ s{\.([^\.]+)$}{\.th\.$1};

300

$self->hosted_thumb($uri);

301

}else{

302

#small images have no thumbnail

303

$self->hosted_thumb(undef);

304

}

305

return $self->hosted;

306

}else{

307

croak("direct link not found in. Maybe an error ocurred during upload. [".$rsp->as_string."]");

308

}

309

}else{

310

#XXX debug

311

croak($rsp->status_line."[".$rsp->as_string."]")

312

}

313

}

314

315

my $gen_method = sub{

316

my $field = shift;

317

318

return sub{

319

my ($self, $val) = @_;

320

if(defined($val)){

321

$self->{$field}=$val;

322

}

323

324

return $self->{$field};

325

};

326

};

327

328

*bar = $gen_method->('bar');

329

330

=item hosted

331

332

Returns the url of the last uploaded image.

333

334

=cut

335

336

*hosted = $gen_method->('hosted');

337

338

=item hosted_thumb

339

340

Returns the url of the thumbnail last uploaded image.

341

Could be non existent for small images.

342

343

=cut

344

345

*hosted_thumb = $gen_method->('hosted_thumb');

346

347

=item login

348

349

Returns or sets the user_id.

350

351

=cut

352

353

sub login{

354

my $self = shift;

355

my $username = shift;

356

my $password = shift;

357

358

$self->{_username} = $username;

359

$self->{_password} = $password;

360

361

#Login authentication

362

#anonym. authentication with empty password

363

if($self->{_username} ne '' && $self->{_password} ne ''){

364

my %authparams = (

365

'username' => $self->{_username},

366

'password' => $self->{_password},

367

);

368

my @authparams = (

369

"$url/auth.php",

370

'Content_Type' => 'form-data',

371

'Content' => [%authparams]

372

);

373

my $authreq = HTTP::Request::Common::POST(@authparams);

374

push @{ $self->ua->requests_redirectable }, 'POST';

375

my $authrsp = $self->ua->request($authreq);

376

unless($authrsp->is_success && $authrsp->content eq 'OK'){

377

#XXX debug

378

croak($authrsp->status_line."[".$authrsp->as_string."]");

379

}

380

}

381

return $self;

382

}

383

384

385

=item logout

386

387

Resets user_id. From now on images won't be associated with any user.

388

389

=cut

390

391

sub logout{

392

my $self = shift @_;

393

394

$self->ua->cookie_jar->clear;

395

396

return $self;

397

}

398

399

# Preloaded methods go here.

400

sub create_tab {

401

my $self = shift;

402

403

#Clipboard

404

my $clipboard = Gtk2::Clipboard->get( Gtk2::Gdk->SELECTION_CLIPBOARD );

405

406

#Tooltips

407

my $tooltips = Gtk2::Tooltips->new;

408

409

my $upload_hbox = Gtk2::HBox->new( FALSE, 0 );

410

my $upload_hbox1 = Gtk2::HBox->new( TRUE, 10 );

411

my $upload_hbox2 = Gtk2::HBox->new( FALSE, 10 );

412

my $upload_hbox3 = Gtk2::HBox->new( TRUE, 10 );

413

my $upload_hbox4 = Gtk2::HBox->new( FALSE, 10 );

414

my $upload_hbox5 = Gtk2::HBox->new( TRUE, 10 );

415

my $upload_hbox6 = Gtk2::HBox->new( FALSE, 10 );

416

my $upload_hbox7 = Gtk2::HBox->new( TRUE, 10 );

417

my $upload_hbox8 = Gtk2::HBox->new( FALSE, 10 );

418

my $upload_vbox = Gtk2::VBox->new( FALSE, 0 );

419

my $label_status = Gtk2::Label->new( $self->{_gettext_object}->get("Upload status:") . " " . status_message($self->{_status}) );

420

421

$upload_hbox->pack_start( Gtk2::Image->new_from_pixbuf( Gtk2::Gdk::Pixbuf->new_from_file_at_scale( "$self->{_shutter_root}/share/shutter/resources/icons/logo-imageshack.png", 100, 100, TRUE ) ), TRUE, TRUE, 0 );

422

$upload_hbox->pack_start( $label_status, TRUE, TRUE, 0 );

423

424

my $entry_direct = Gtk2::Entry->new();

425

my $entry_hotweb = Gtk2::Entry->new();

426

my $label_thumb1 = Gtk2::Label->new( $self->{_gettext_object}->get("Thumbnail for websites") );

427

my $label_thumb2 = Gtk2::Label->new( $self->{_gettext_object}->get("Thumbnail for forums") );

428

my $label_direct = Gtk2::Label->new( $self->{_gettext_object}->get("Direct link") );

429

my $label_hotweb = Gtk2::Label->new( $self->{_gettext_object}->get("Hotlink for websites") );

430

431

$entry_direct->set_text("$self->{_url}");

432

$entry_hotweb->set_text("<a href=\"http:\/\/imageshack.us\"><img src=\"$self->{_url}\" border=\"0\" alt=\"Image Hosted by ImageShack.us\"\/><\/a><br\/>By <a href=\"https:\/\/launchpad.net\/shutter\">Shutter<\/a>");

433

$upload_vbox->pack_start( $upload_hbox, TRUE, TRUE, 10 );

434

435

if ($self->{_url_thumb}) {

436

my $entry_thumb1 = Gtk2::Entry->new();

437

my $entry_thumb2 = Gtk2::Entry->new();

438

439

my $upload_copy1 = Gtk2::Button->new;

440

$tooltips->set_tip( $upload_copy1, $self->{_gettext_object}->get("Copy this code to clipboard") );

441

$upload_copy1->set_image( Gtk2::Image->new_from_stock( 'gtk-copy', 'menu' ) );

442

$upload_copy1->signal_connect(

443

'clicked' => sub {

444

my ( $widget, $entry ) = @_;

445

$clipboard->set_text( $entry->get_text );

446

447

$entry_thumb1

448

);

449

450

my $upload_copy2 = Gtk2::Button->new;

451

$tooltips->set_tip( $upload_copy2, $self->{_gettext_object}->get("Copy this code to clipboard") );

452

$upload_copy2->set_image( Gtk2::Image->new_from_stock( 'gtk-copy', 'menu' ) );

453

$upload_copy2->signal_connect(

454

'clicked' => sub {

455

my ( $widget, $entry ) = @_;

456

$clipboard->set_text( $entry->get_text );

457

458

$entry_thumb2

459

);

460

461

$entry_thumb1->set_text("<a href=\"$self->{_url}\"><img src=\"$self->{_url_thumb}\" border=\"0\" alt=\"Image Hosted by ImageShack.us\"\/><\/a>");

462

$entry_thumb2->set_text("\[url\=$self->{_url}\]\[img\]$self->{_url_thumb}\[\/img\]\[\/url\]");

463

$upload_hbox1->pack_start_defaults($label_thumb1);

464

$upload_hbox1->pack_start_defaults($entry_thumb1);

465

$upload_hbox2->pack_start_defaults($upload_hbox1);

466

$upload_hbox2->pack_start( $upload_copy1, FALSE, TRUE, 10 );

467

$upload_hbox3->pack_start_defaults($label_thumb2);

468

$upload_hbox3->pack_start_defaults($entry_thumb2);

469

$upload_hbox4->pack_start_defaults($upload_hbox3);

470

$upload_hbox4->pack_start( $upload_copy2, FALSE, TRUE, 10 );

471

472

}

473

474

my $upload_copy3 = Gtk2::Button->new;

475

$tooltips->set_tip( $upload_copy3, $self->{_gettext_object}->get("Copy this code to clipboard") );

476

$upload_copy3->set_image( Gtk2::Image->new_from_stock( 'gtk-copy', 'menu' ) );

477

$upload_copy3->signal_connect(

478

'clicked' => sub {

479

my ( $widget, $entry ) = @_;

480

$clipboard->set_text( $entry->get_text );

481

482

$entry_direct

483

);

484

485

my $upload_copy4 = Gtk2::Button->new;

486

$tooltips->set_tip( $upload_copy4, $self->{_gettext_object}->get("Copy this code to clipboard") );

487

$upload_copy4->set_image( Gtk2::Image->new_from_stock( 'gtk-copy', 'menu' ) );

488

$upload_copy4->signal_connect(

489

'clicked' => sub {

490

my ( $widget, $entry ) = @_;

491

$clipboard->set_text( $entry->get_text );

492

493

$entry_hotweb

494

);

495

496

$upload_hbox5->pack_start_defaults($label_direct);

497

$upload_hbox5->pack_start_defaults($entry_direct);

498

$upload_hbox6->pack_start_defaults($upload_hbox5);

499

$upload_hbox6->pack_start( $upload_copy3, FALSE, TRUE, 10 );

500

$upload_hbox7->pack_start_defaults($label_hotweb);

501

$upload_hbox7->pack_start_defaults($entry_hotweb);

502

$upload_hbox8->pack_start_defaults($upload_hbox7);

503

$upload_hbox8->pack_start( $upload_copy4, FALSE, TRUE, 10 );

504

505

$upload_vbox->pack_start_defaults($upload_hbox2);

506

$upload_vbox->pack_start_defaults($upload_hbox4);

507

$upload_vbox->pack_start_defaults($upload_hbox6);

508

$upload_vbox->pack_start_defaults($upload_hbox8);

509

510

return $upload_vbox;

511

}

512

513

sub show_all {

514

my $self = shift;

515

516

#are there any uploaded files?

517

return FALSE if $self->{_notebook}->get_n_pages < 1;

518

519

my $dlg_header = $self->{_gettext_object}->get("Upload") . " - " . $self->{_host} . " - " . $self->{_username};

520

my $upload_dialog = Gtk2::Dialog->new( $dlg_header, $self->{_main_gtk_window}, [qw/modal destroy-with-parent/], 'gtk-ok' => 'accept' );

521

$upload_dialog->set_default_response('accept');

522

523

$upload_dialog->vbox->add($self->{_notebook});

524

$upload_dialog->show_all;

525

my $upload_response = $upload_dialog->run;

526

527

if ( $upload_response eq "accept" ) {

528

$upload_dialog->destroy();

529

return TRUE;

530

} else {

531

$upload_dialog->destroy();

532

return FALSE;

533

}

534

}

535

536

sub show {

537

my ( $self, $host, $username, $filename, $url, $url_thumb, $status, $d, $window, $shutter_root ) = @_;

538

539

$self->{_host} = $host;

540

$self->{_username} = $username;

541

$self->{_filename} = $filename;

542

$self->{_url} = $url;

543

$self->{_url_thumb} = $url_thumb;

544

$self->{_status} = $status;

545

$self->{_gettext_object} = $d;

546

$self->{_main_gtk_window} = $window;

547

$self->{_shutter_root} = $shutter_root;

548

549

$self->{_notebook}->append_page( $self->create_tab(), $self->{_filename} );

550

551

return TRUE;

552

}

553

554

555

556

__END__

557

558

=back

559

560

=back

561

562

=head1 DISCLAIMER

563

564

The author declines ANY responsibility for possible infringement of ImageShack® Terms of Service.

565

566

This module doesn't use imageshack's XML API but the HTML/web interface instead.

567

568

=head1 TO-DO

569

570

=over 4

571

572

No guarantee that this will ever be implemented

573

574

=item HTML code for forums, thumbnails, websites, etc (if you really need this, please ask the author)

575

576

=item File deletin

577

578

=item Implement XML API (probably never or on a different)

579

580

=back

581

582

583

=head1 SEE ALSO

584

585

L<LWP::UserAgent|LWP::UserAgent>

586

587

http://imageshack.us

588

589

http://reg.imageshack.us/content.php?page=faq

590

591

http://reg.imageshack.us/content.php?page=rules

592

593

=head1 AUTHOR

594

595

Cláudio Valente, E<lt>plank@cpan.orgE<gt>

596

597

=head1 COPYRIGHT AND LICENSE

598

599

600

601

This library is free software; you can redistribute it and/or modify

602

it under the same terms as Perl itself, either Perl version 5.8.8 or,

603

at your option, any later version of Perl 5 you may have available.

604

605

=cut

Older »