archive.pl

#!/usr/bin/perl
#Simple Perl script to save me from having to memorise the parameters.
#Archives a whole website.

die("Usage: archive.pl \"URL(s)\" [wait]\n") unless ($ARGV[0]);

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

system("wget --mirror --page-requisites --continue --convert-links --user-agent=\"\" -e robots=off --wait $waitTime $ARGV[0]");