aboutsummaryrefslogtreecommitdiffstats
path: root/checksetup.pl
diff options
context:
space:
mode:
authorbbaetz%student.usyd.edu.au <>2002-04-01 11:00:12 +0000
committerbbaetz%student.usyd.edu.au <>2002-04-01 11:00:12 +0000
commit3c7f202fc712ebc0918fd52503f466e1d8ee60be (patch)
tree59e97354f2b6aa5060e7f7526459cc30029d004b /checksetup.pl
parente924425a45dd374fc1a124c0ae59133c1e3726dd (diff)
downloadbugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar
bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar.gz
bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar.bz2
bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar.xz
bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.zip
Bug 134465 - Don't die() if the admin email address doesn't match the
regexp. r=justdave x2
Diffstat (limited to 'checksetup.pl')
-rwxr-xr-xchecksetup.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/checksetup.pl b/checksetup.pl
index d98676073..bc8f9601e 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -1678,7 +1678,10 @@ if ($sth->rows == 0) {
unless ($login =~ /$mailcheckexp/) {
print "\nThe login address is invalid:\n";
print "$mailcheck\n";
- die "Please try again\n";
+ print "You can change this test on the params page once checksetup has successfully\n";
+ print "completed.\n\n";
+ # Go round, and ask them again
+ $login = "";
}
}
$login = $dbh->quote($login);