SHARE
TWEET

archiveBlogger.pl

dHeinemann Apr 23rd, 2011 370 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. #Archive a Google Blogspot blog
  3. #Note: The blog needs to be using the Archives widget for this to work properly!
  4. #Usage: archiveBlogger.pl url [wait]
  5.  
  6. my $wait = 1;
  7. $wait = $ARGV[1] if ($ARGV[1]);
  8.  
  9. 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]";
  10.  
  11. print("Calling Wget with:\n$wget\n\n");
  12. system($wget);
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top