Web Robot (poacher - 9)

{

die "$BOTNAME: you must give exactly one URL (the site root)\n";

}

#-------------------------------------------------------------------

# We're gonna require the user to provide an email address.

# We can probably be a lot smarter about working out a default.

#-------------------------------------------------------------------

if (!defined $EMAIL)

{

$EMAIL = $ENV{'USER'} || die "Please set your email address\n";

}

#--------------------------------------------------------------------

# A single URL on the command-line at this point: the URL for the

# root of the site we are to check.

#--------------------------------------------------------------------

$siteRoot = shift @ARGV;

}