From 2a85f5f9ca4fe5b758b489f02f9ec0d0aff55587 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@server-speed.net>
Date: Sun, 15 May 2011 14:02:38 +0200
Subject: add new scripts

Signed-off-by: Florian Pritz <bluewind@server-speed.net>
---
 dropbox_gallery_dl.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 dropbox_gallery_dl.pl

(limited to 'dropbox_gallery_dl.pl')

diff --git a/dropbox_gallery_dl.pl b/dropbox_gallery_dl.pl
new file mode 100755
index 0000000..8b22af8
--- /dev/null
+++ b/dropbox_gallery_dl.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Data::Dumper;
+use WWW::Mechanize;
+use LWP::Simple;
+
+my $url = $ARGV[0];
+
+my $mech = WWW::Mechanize->new();
+
+$mech->get($url);
+
+my $content = $mech->content();
+while ($content =~ m/^\s*'filename': '(.*)',$/mg) {
+	my $img_name = $1;
+	$content =~ m/^\s*'original': "(.*)"$/mg;
+	my $img_url = $1;
+	getstore($img_url, $img_name);
+}
-- 
cgit v1.2.3-24-g4f1b