summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakTermServ109
1 files changed, 81 insertions, 28 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 1de2f04bc..73ebfed33 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -64,6 +64,7 @@ my $client_cfg = "/etc/dhcpd.conf.etherboot.clients";
my $tftpboot = "/var/lib/tftpboot";
my @kernels = bootloader::installed_vmlinuz();
my $cmd_line = 1;
+my $mknbi = "/usr/bin/mknbi-set";
#- make sure terminal server and friends are installed
my $ts = run_program::run("rpm -q terminal-server > /dev/null");
@@ -444,10 +445,37 @@ sub make_nbis() {
my $buff = N("Creating net boot images for all kernels");
$in->ask_warn(N("Information"), N("This will take a few minutes."));
gtkset_mousecursor_wait();
- run_program::run("/usr/bin/mknbi-set -k /boot/$_") foreach @kernels;
+ #- use 1 kernel and estimate the nbi space needed
+ my $kcount = @kernels;
+ if (check_nbi_space($kernels[0], $kcount)) {
+ $wizard_buttons->hide;
+ exit_wizard();
+ } else {
+ run_program::run("$mknbi -k /boot/$_") foreach @kernels;
+ $buff .= "\n\n\t" . N("Done!");
+ text_view($buff, "wizard");
+ }
gtkset_mousecursor_normal();
- $buff .= "\n\n\t" . N("Done!");
- text_view($buff, "wizard");
+}
+
+sub check_nbi_space {
+ my ($kernel, $kcount) = @_;
+ log::explanations("Checking for adequate free space to create NBIs for $kcount kernel(s)");
+ my $nbi_count = `$mknbi -c -k /boot/$kernel`;
+ chomp $nbi_count;
+ if ($nbi_count eq '') {
+ $in->ask_warn(N("Error"), N("%s failed", $mknbi));
+ return 1;
+ }
+ my $needed_space = $nbi_count * $kcount * 2;
+ my $free = `df -P $tftpboot | tail -1`;
+ my @line_data = split(/[ \t,]+/, $free);
+ #- don't use more than 80%
+ my $free_space = int($line_data[3] / 1024);
+ if ($needed_space > $free_space * 0.8) {
+ $in->ask_warn(N("Error"), N("Not enough space to create\nNBIs in %s.\nNeeded: %d MB, Free: %d MB", $tftpboot, $needed_space, $free_space));
+ return 1;
+ }
}
sub sync_users() {
@@ -737,8 +765,7 @@ sub make_nbi() {
if ($kernel) {
$in->ask_warn(N("Information"), N("This will take a few minutes."));
gtkset_mousecursor_wait();
- build_n_update($list_model, $kernel, undef);
- link_pxe($kernel, undef) if $conf{CREATE_PXE};
+ build_n_update($list_model, $kernel, undef) unless check_nbi_space($kernel, 1);
gtkset_mousecursor_normal();
} else {
$in->ask_warn(N("Error"), N("No kernel selected!")) if !($kernel);
@@ -753,10 +780,14 @@ sub make_nbi() {
}),
gtksignal_connect(Gtk2::Button->new(N("Build All Kernels -->")), clicked => sub {
$in->ask_warn(N("Information"), N("This will take a few minutes."));
- gtkset_mousecursor_wait();
- foreach (@kernels) {
- build_n_update($list_model, $_, undef);
- link_pxe($kernel, undef) if $conf{CREATE_PXE};
+ gtkset_mousecursor_wait();
+ my $kcount = @kernels;
+ if (check_nbi_space($kernels[0], $kcount)) {
+ return;
+ } else {
+ foreach (@kernels) {
+ build_n_update($list_model, $_, undef);
+ }
}
gtkset_mousecursor_normal();
}),
@@ -810,14 +841,14 @@ sub update_list {
}
sub build_n_update {
- my ($list_model, $kernel, $nic) = @_;
+ my ($list_model, $kernel, $nic, $kcount) = @_;
my $command = "-k /boot/$kernel";
$command .= " -r $nic" if $nic;
- run_program::run("/usr/bin/mknbi-set -v $command");
+ run_program::run("$mknbi -v $command") or $in->ask_warn(N("Error"), N("%s failed", $mknbi));
if ($conf{CREATE_PXE}) {
my $pxedir = get_platform_pxe();
cp_af("/boot/$kernel", $pxedir) if !-f "$pxedir/$kernel";
- link_pxe($kernel, $nic) if $nic;
+ link_pxe($kernel, $nic);
}
update_list($list_model);
}
@@ -828,9 +859,12 @@ sub link_pxe {
$kernel =~ s|vmlinuz-||;
if ($nic) {
#- symlinkf does not work?
- `ln -sf ../../initrd-$nic.$kernel.img $pxedir`;
+ run_program::run("ln -sf ../../initrd-$nic.$kernel.img $pxedir");
} else {
- `ln -sf ../../initrd-*.$kernel.img $pxedir`;
+ foreach (glob_("$tftpboot/initrd*.$kernel.img")) {
+ my $img = basename($_);
+ run_program::run("ln -sf ../../$img $pxedir");
+ }
}
}
@@ -1189,7 +1223,9 @@ sub dhcpd_config() {
my @nservers;
my $button_msg;
my $new_config = 0;
-
+ my $dh_button;
+ my $wrote = 0;
+
#- entry boxes for data entry
my $box_subnet = Gtk2::HBox->new(0,0);
my $label_subnet = Gtk2::Label->new(N("Subnet:"));
@@ -1311,7 +1347,7 @@ sub dhcpd_config() {
N("Most of these values were extracted\nfrom your running system.\nYou can modify as needed.")),
Gtk2::HSeparator->new,
gtkadd(Gtk2::HBox->new,
- Gtk2::Label->new(N("Dynamic IP Address Pool:")),
+ Gtk2::Label->new(N("Dynamic IP Address Pool\n(needed for PXE clients):")),
),
gtkadd(Gtk2::HBox->new(0,0),
gtkadd(Gtk2::VBox->new,
@@ -1324,10 +1360,10 @@ sub dhcpd_config() {
),
),
gtkadd(Gtk2::HBox->new),
- gtksignal_connect(Gtk2::Button->new($button_msg), clicked =>
+ gtksignal_connect($dh_button = Gtk2::Button->new($button_msg), clicked =>
sub {
if ($new_config == 1) {
- write_dhcpd_config("full",
+ $wrote = write_dhcpd_config("full",
$entry_subnet->get_text,
$entry_netmask->get_text,
$entry_routers->get_text,
@@ -1340,8 +1376,14 @@ sub dhcpd_config() {
$entry_ip_range_start->get_text,
$entry_ip_range_end->get_text);
} else {
- write_dhcpd_config("append", @nothing) if $dhcpd_conf !~ /dhcpd.conf.terminal-server/;
+ if ($dhcpd_conf =~ /dhcpd.conf.terminal-server/) {
+ $wrote = 1;
+ $config_written = 1;
+ } else {
+ $wrote = write_dhcpd_config("append", @nothing);
+ }
}
+ $dh_button->set_sensitive(0) if $wrote;
}
),
Gtk2::HBox->new(0,10),
@@ -1413,13 +1455,12 @@ sub write_dhcpd_config {
push @includes, qq(# Include PXE definitions and defaults\ninclude "/etc/dhcpd.conf.pxe.include";\n) if $conf{CREATE_PXE};
push @includes, qq(# Include Etherboot definitions and defaults\ninclude "/etc/dhcpd.conf.etherboot.include";\n);
push @includes, qq(# Include Etherboot default kernel version\ninclude "/etc/dhcpd.conf.etherboot.kernel";\n);
-
if ($mode eq "append") {
append_to_file("/etc/dhcpd.conf", qq(include "/etc/dhcpd.conf.terminal-server";\n));
push @dhcpd_config, @includes;
push @dhcpd_config, qq(# Include client machine configurations\ninclude "$client_cfg";\n);
- $config_written = output_p("/etc/dhcpd.conf.terminal-server", @dhcpd_config);
- return;
+ $config_written = write_and_check("/etc/dhcpd.conf.terminal-server", @dhcpd_config);
+ return $config_written;
}
$nfs_subnet = $subnet;
@@ -1449,7 +1490,20 @@ sub write_dhcpd_config {
push @dhcpd_config, "}\n\n";
push @dhcpd_config, qq(# Include client machine configurations\ninclude "$client_cfg";\n);
- $config_written = output_p("/etc/dhcpd.conf", @dhcpd_config);
+ $config_written = write_and_check("/etc/dhcpd.conf", @dhcpd_config);
+ return $config_written;
+}
+
+sub write_and_check {
+ my ($ofile, @values) = @_;
+ output_p($ofile, @values);
+ my $written = cat_($ofile);
+ my $source = join("", @values);
+ if ($written ne $source) {
+ $in->ask_warn(N("Error"), N("Write to %s failed!", $ofile));
+ return 0;
+ }
+ return 1;
}
sub write_eb_image {
@@ -1502,7 +1556,7 @@ sub enable_ts() {
$buff[1] = "\tChecking default /etc/dhcpd.conf...\n";
my $dhcpd_conf = cat_("/etc/dhcpd.conf");
if ($dhcpd_conf !~ /drakTermServ/) {
- if (-e "/etc/dhcpd.conf") {
+ if (-f "/etc/dhcpd.conf") {
write_dhcpd_config("append", @nothing) if $dhcpd_conf !~ /dhcpd.conf.terminal-server/;
} else {
if ($cmd_line == 1) {
@@ -1515,9 +1569,8 @@ sub enable_ts() {
}
}
#- suggestion from jmdault - not always needed
- if (! -e $client_cfg) {
- log::explanations("Touch file $client_cfg");
- `touch $client_cfg`;
+ if (! -f $client_cfg) {
+ touch($client_cfg);
}
my $buff_index = toggle_chkconfig("on", "dhcpd", 2);
$buff[$buff_index] = "\tSetting up default /etc/exports...\n";
@@ -1601,7 +1654,7 @@ sub start_ts() {
@buff = ();
if (-f $pcimap) {
$buff[0] = "Starting Terminal Server...\n\n";
- `touch /etc/dhcpd.conf.etherboot.kernel` if ! -f "/etc/dhcpd.conf.etherboot.kernel";
+ touch("/etc/dhcpd.conf.etherboot.kernel") if ! -f "/etc/dhcpd.conf.etherboot.kernel";
my $buff_index = service_change("dhcpd", "start", 2);
$buff_index = service_change("portmap", "start", $buff_index);
$buff_index = service_change("clusternfs", "start", $buff_index);