dHeinemann

SpaceInvader2.pl

Mar 19th, 2011
115
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. #SpaceInvader2.pl
  3. #Revised script for downloading a series of Windows Live Spaces from a list.
  4. use strict;
  5. use warnings;
  6.  
  7. die("Usage: SpaceInvader2.pl \"HOTLIST\"\n") unless ($ARGV[0]);
  8.  
  9. open(HOTLIST, "<$ARGV[0]");
  10.  
  11. while (<HOTLIST>)
  12. {
  13.     &archiveSpace($_, 0)
  14. }
  15.  
  16. close(HOTLIST);
  17. print("\n");
  18. print("$ARGV[0] done.\n");
  19.  
  20. sub archiveSpace()
  21. {
  22.     system("wget --mirror --page-requisites --continue --convert-links --user-agent=\"Googlebot/2.1 (+ http://www.googlebot.com/bot.html)\" -e robots=off --timestamping --wait $_[1] $_[0]");
  23. }
RAW Paste Data