From e76b691e78e273226cba9284cb8cd22a423319ed Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:23:25 -0500
Subject: bucky2

---
 bucky2/rest/sendspace-single.pl | 70 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100755 bucky2/rest/sendspace-single.pl

(limited to 'bucky2/rest/sendspace-single.pl')

diff --git a/bucky2/rest/sendspace-single.pl b/bucky2/rest/sendspace-single.pl
new file mode 100755
index 0000000..8d5e074
--- /dev/null
+++ b/bucky2/rest/sendspace-single.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+use lib "../lib";
+use Rest;
+my $browser = new Rest;
+my $BIN_WGET = "/usr/bin/wget";
+my ($WGET_SINGLE, $WGET_WEBPAGE) = & make_wget_commands;
+
+foreach my $sendspace_url (@ARGV)
+	{
+	my ($url_dl) = & sendspace_get($sendspace_url);
+	& dl($url_dl);
+	}
+exit;
+sub dl
+	{
+	my ($url) = @_;
+	return unless $url;
+	system($WGET_SINGLE . " " . $url);
+	}
+sub lemmingtrail_urls
+	{
+	my $lemmingtrail_url = "http://www.lemmingtrail.com/mb/207771/";
+	my $content = $browser->rest_get_raw($lemmingtrail_url);
+	my @urls = & html_scrape_urls($content, "sendspace.com");
+	return @urls;
+	}
+sub sendspace_get
+	{
+	my ($sendspace_url) = @_;
+	return unless $sendspace_url;
+	my $content = $browser->rest_post_raw($sendspace_url, {download=>"&nbsp;REGULAR DOWNLOAD&nbsp;"});
+	print "got content: " . length($content) . " bytes\n";
+	my @urls = & html_scrape_urls($content, "sendspace.com/dl");
+	return @urls;
+	}
+sub html_scrape_urls
+	{
+	my ($content, $valid_url_match) = @_;
+	my @lines = split "<a", $content;
+	my @urls = ();
+	foreach my $line (@lines)
+		{
+		next unless $line =~ /href=/;
+		$line =~ /href="([^"]+)"/;
+		# http://fs05n5.sendspace.com/dl/181e8d00c2955c7862d9a0d559c12cf1/4ade166e37a8af6c/bwbz9y/Sporelec.zip
+		my $url = $1;
+		next unless $url =~ /$valid_url_match/;
+		print "URL: " . $url ."\n";
+		push @urls, $url;
+		}
+	return @urls;
+	}
+sub make_wget_commands
+	{
+	my $ua = ("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.0.3705)");
+	my $dp = $PROJECT || "wgetdir";
+
+	# -E = --html-extension
+	# -H = --span-hosts
+	# -k = --convert-links
+	# -K = --backup-converted
+	# -p = --page-requisite
+
+	my $SINGLE = "$BIN_WGET -erobots=off --user-agent='$ua' --directory-prefix=$dp";
+	my $WEBPAGE = "$BIN_WGET -erobots=off -d -o wgetlog " .
+						"--user-agent='$ua' -E -H -K -k -p --no-directories " .
+						"--directory-prefix=$dp";
+	return ($SINGLE, $WEBPAGE);
+	}
+1;
-- 
cgit v1.2.3-70-g09d2