summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/finish-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-30 20:52:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-30 20:52:25 +0000
commitf9e0643dc62fe86a14a2cd41df4aa68d70474f0b (patch)
treeb108eb9dacf1704268116730f50e53bfb99d4bc2 /perl-install/standalone/finish-install
parentdbb1d11835aac437c0d9c3d0121e6637880f1131 (diff)
downloaddrakx-backup-do-not-use-f9e0643dc62fe86a14a2cd41df4aa68d70474f0b.tar
drakx-backup-do-not-use-f9e0643dc62fe86a14a2cd41df4aa68d70474f0b.tar.gz
drakx-backup-do-not-use-f9e0643dc62fe86a14a2cd41df4aa68d70474f0b.tar.bz2
drakx-backup-do-not-use-f9e0643dc62fe86a14a2cd41df4aa68d70474f0b.tar.xz
drakx-backup-do-not-use-f9e0643dc62fe86a14a2cd41df4aa68d70474f0b.zip
prog to launch after install which configurate users, authentication, root password and network
Diffstat (limited to 'perl-install/standalone/finish-install')
-rwxr-xr-xperl-install/standalone/finish-install54
1 files changed, 54 insertions, 0 deletions
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
new file mode 100755
index 000000000..352885b8b
--- /dev/null
+++ b/perl-install/standalone/finish-install
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+
+use common;
+use interactive;
+use any;
+use authentication;
+use network::netconnect;
+use security::level;
+
+my $authentication = authentication::get();
+my $security = security::level::get();
+network::netconnect::read_net_conf(my $netcnx = {}, my $netc = {}, my $intf = {});
+
+$::isWizard = 1;
+my $in = 'interactive'->vnew;
+
+sub ask_network() {
+ my $modules_conf = modules::any_conf->read;
+ modules::load_category($modules_conf, 'net');
+
+ require network::netconnect;
+ network::netconnect::real_main('', $netcnx, $in, $modules_conf, $netc, undef, $intf);
+}
+
+sub ask_authentication() {
+ my $meta_class = { getVarsFromSh("/etc/sysconfig/system") }->{META_CLASS};
+
+ my $superuser = {};
+ authentication::ask_root_password_and_authentication($in, $netc, $superuser, $authentication, $meta_class, $security);
+ authentication::set_root_passwd($superuser, $authentication);
+
+ eval {
+ authentication::set($in, $netc, $authentication);
+ network::network::write_conf($netc);
+ };
+ if (my $err = $@) {
+ $in->ask_warn(N("Error"), formatError($err));
+ goto &ask_authentication;
+ }
+}
+
+sub ask_users() {
+ my $users = [];
+ any::ask_users($in, $users, $security, []);
+ any::add_users($users, $authentication);
+}
+
+eval { ask_network() };
+eval { ask_authentication() };
+eval { ask_users() };
+
+$in->exit(0);