summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/finish-install24
1 files changed, 13 insertions, 11 deletions
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 201ca674f..ecc334896 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -83,21 +83,23 @@ sub ask_network() {
$modules_conf->write;
}
+sub set_authentication {
+ my ($superuser) = @_;
+ authentication::set_root_passwd($superuser, $authentication);
+ my $ok = eval {
+ authentication::set($in, $net, $authentication) or return;
+ network::network::write_network_conf($net);
+ 1;
+ };
+ $in->ask_warn(N("Error"), formatError($@)) if $@;
+ return $ok;
+}
+
sub ask_authentication() {
my $meta_class = { getVarsFromSh("/etc/sysconfig/system") }->{META_CLASS};
-
my $superuser = {};
authentication::ask_root_password_and_authentication($in, $net, $superuser, $authentication, $meta_class, $security);
- authentication::set_root_passwd($superuser, $authentication);
-
- eval {
- authentication::set($in, $net, $authentication) or goto &ask_authentication;
- network::network::write_network_conf($net);
- };
- if (my $err = $@) {
- $in->ask_warn(N("Error"), formatError($err));
- goto &ask_authentication;
- }
+ set_authentication($superuser) or goto &ask_authentication;
}
#- USERS=with_root: asks both root and user accounts