#!/bin/bash

# by wmw 19980417
# given a url, sucks jpgs down from that site into a subdirectory.
# usage: suckpr0n directory url

dir=$1
url=$2

if [ -z "$dir" -a -z "$url" ]; then
	echo "usage: suckpr0n subdir url"
	exit 1
fi

mkdir $dir
cd $dir
#wget -r -l0 --follow-ftp -A jpg,jpeg,JPG -nd --span-hosts $url
wget -r -l0 --follow-ftp -A jpg,jpeg,JPG -nd --no-parent $url
# wget -r -l0 --follow-ftp -A jpg,jpeg,JPG -nd $url

echo "*** wget done."

rm *html *htm
rename s/jpeg/jpg/ *jpeg; rename tr/A-Z/a-z/ *; rename -v s/\.jpg/-m.jpg/ *

mkdir toosmall
# hide anything smaller than 200k
perl -e 'for (@ARGV) { rename ($_, "toosmall/$_") if (-s $_ < 20000); }' *.jpg

# echo "default urltext: suckpr0n'ed from $url" > captions.txt
# echo "default url: $url" >> captions.txt
# perl -le 'for (@ARGV) { s/-m.jpg//; print ":$_:"; }' *-m.jpg >> captions.txt

suckpr0n-makethumbs toosmall
rmdir toosmall
cd ..
suckpr0n-makethumbs $dir