|
|
@ -28,13 +28,13 @@ while (<CONFIG>) |
|
|
|
close CONFIG; |
|
|
|
close CONFIG; |
|
|
|
|
|
|
|
|
|
|
|
$username = $options{'username'}; |
|
|
|
$username = $options{'username'}; |
|
|
|
die "username not set" unless defined($username); |
|
|
|
error("username not set") unless defined($username); |
|
|
|
|
|
|
|
|
|
|
|
$password = $options{'password'}; |
|
|
|
$password = $options{'password'}; |
|
|
|
die "password not set" unless defined($password); |
|
|
|
error("password not set") unless defined($password); |
|
|
|
|
|
|
|
|
|
|
|
$downloaddir = $options{'downloaddir'}; |
|
|
|
$downloaddir = $options{'downloaddir'}; |
|
|
|
die "downloaddir not set" unless defined($downloaddir); |
|
|
|
error("downloaddir not set") unless defined($downloaddir); |
|
|
|
|
|
|
|
|
|
|
|
print "Fetching homepage\n"; |
|
|
|
print "Fetching homepage\n"; |
|
|
|
$mech->get("https://www.orange.co.uk/"); |
|
|
|
$mech->get("https://www.orange.co.uk/"); |
|
|
|