archiveBlogger.pl

#!/usr/bin/perl
#Archive a Google Blogspot blog
#Note: The blog needs to be using the Archives widget for this to work properly!
#Usage: archiveBlogger.pl url [wait]

my $wait = 1;
$wait = $ARGV[1] if ($ARGV[1]);

my $wget = "wget --recursive --level=2 --no-clobber --no-parent --page-requisites --continue --convert-links --user-agent=\"\" -e robots=off --reject \"*\\?*,*@*\" --exclude-directories=\"search\" --referer=\"$ARGV[0]\" --wait $wait $ARGV[0]";

print("Calling Wget with:\n$wget\n\n");
system($wget);