diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakTermServ | 470 |
1 files changed, 322 insertions, 148 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index c899c53ac..15cf0e0f8 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -60,6 +60,14 @@ my $window1; my $windows; my $status_box; my $main_box; +my $wizard_buttons; +my $previous_button; +my $cancel_button; +my $next_button; +my $main_buttons; +my $in_wizard = 0; +my $config_written = 0; +my $clients_set = 0; my $nfs_subnet; my $nfs_mask; @@ -123,6 +131,12 @@ if ("@ARGV" =~ /--deluser/) { exit(0); } +if ("@ARGV" =~ /--syncusers/) { + my $cmd_line = 1; + sync_users($cmd_line); + exit(0); +} + if ("@ARGV" =~ /--addclient/) { die N("%s: %s requires hostname, MAC address, IP, nbi-image, 0/1 for THIN_CLIENT, 0/1 for Local Config...\n", $0, $ARGV[0]) if $#ARGV < 6; my $cmd_line = 1; @@ -262,78 +276,84 @@ sub interactive_mode() { if_(!$::isEmbedded, 0, $darea), 1, gtkpack_(new Gtk2::HBox(0,2), 1, gtkpack_(new Gtk2::VBox(0,2), - 1, gtkpack($status_box = new Gtk2::VBox(0,5), - $main_box = new Gtk2::VBox(0,10), - ), - 1, gtkpack_(new Gtk2::HBox(0,2), - 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), - gtksignal_connect(new Gtk2::Button(N("Enable Server")), clicked => sub { - destroy_widget(); - $windows = 1; - cursor_wait(); - enable_ts(); - cursor_norm(); - }), - gtksignal_connect(new Gtk2::Button(N("Disable Server")), clicked => sub { - destroy_widget(); - cursor_wait(); - disable_ts(); - cursor_norm(); - }), - ), - 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), - gtksignal_connect(new Gtk2::Button(N("Start Server")), clicked => sub { - destroy_widget(); - $windows = 0; - cursor_wait(); - start_ts(); - cursor_norm(); - }), - gtksignal_connect(new Gtk2::Button(N("Stop Server")), clicked => sub { - destroy_widget(); - cursor_wait(); - stop_ts(); - cursor_norm(); - }), - ), - 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), - gtksignal_connect(new Gtk2::Button(N("Etherboot Floppy/ISO")), clicked => sub { - destroy_widget(); - $windows = 1; - make_boot(); - }), - gtksignal_connect(new Gtk2::Button(N("Net Boot Images")), clicked => sub { - destroy_widget(); - make_nbi(); - }), - ), - 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), - gtksignal_connect(new Gtk2::Button(N("Add/Del Users")), clicked => sub { - destroy_widget(); - $windows = 0; - maintain_users(); - }), - gtksignal_connect(new Gtk2::Button(N("Add/Del Clients")), clicked => sub { destroy_widget(); maintain_clients() }), - ), - 1, new Gtk2::HBox(0,2), - 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), - gtksignal_connect(new Gtk2::Button(N("Help")),clicked => sub { - destroy_widget(); - help(); - }), - gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { - write_conf_file(); - if ($changes_made == 1) { - restart_server(); - } - Gtk2->main_quit; - }), - ), + 1, gtkpack($status_box = new Gtk2::VBox(0,5), + $main_box = new Gtk2::VBox(0,10), + ), + 0, $wizard_buttons = gtkpack_(new Gtk2::HBox(1,2)), + 1, gtkpack_($main_buttons = new Gtk2::HBox(0,2), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), + gtksignal_connect(new Gtk2::Button(N("Enable Server")), clicked => sub { + destroy_widget(); + $windows = 1; + cursor_wait(); + enable_ts(); + cursor_norm(); + }), + gtksignal_connect(new Gtk2::Button(N("Disable Server")), clicked => sub { + destroy_widget(); + cursor_wait(); + disable_ts(); + cursor_norm(); + }), + ), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), + gtksignal_connect(new Gtk2::Button(N("Start Server")), clicked => sub { + destroy_widget(); + $windows = 0; + cursor_wait(); + start_ts(); + cursor_norm(); + }), + gtksignal_connect(new Gtk2::Button(N("Stop Server")), clicked => sub { + destroy_widget(); + cursor_wait(); + stop_ts(); + cursor_norm(); + }), + ), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), + gtksignal_connect(new Gtk2::Button(N("Etherboot Floppy/ISO")), clicked => sub { + destroy_widget(); + $windows = 1; + make_boot(); + }), + gtksignal_connect(new Gtk2::Button(N("Net Boot Images")), clicked => sub { + destroy_widget(); + make_nbi(); + }), + ), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), + gtksignal_connect(new Gtk2::Button(N("Add/Del Users")), clicked => sub { + destroy_widget(); + $windows = 0; + maintain_users(); + }), + gtksignal_connect(new Gtk2::Button(N("Add/Del Clients")), clicked => sub { destroy_widget(); maintain_clients() }), + ), + 1, new Gtk2::HBox(0,2), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), + gtksignal_connect(new Gtk2::Button(N("First Time Wizard")), clicked => sub { + destroy_widget(); + start_wizard(); + }), + new Gtk2::VBox(0,0), + ), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'), + gtksignal_connect(new Gtk2::Button(N("Help")),clicked => sub { + destroy_widget(); + help(); + }), + gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { + write_conf_file(); + restart_server() if $changes_made == 1; + Gtk2->main_quit; + }), ), ), ), - ), - ); + ), + ), + ); $central_widget = \$main_box; $window1->{rwindow}->show_all; $window1->{rwindow}->realize; @@ -343,6 +363,142 @@ sub interactive_mode() { ugtk2->exit(0); } +sub start_wizard() { + text_view(N(" + This wizard routine will: + 1) Ask you to select either 'thin' or 'fat' clients. + 2) Setup dhcp. + +After doing these steps, the wizard will: + + a) Make all nbis. + b) Activate the server. + c) Start the server. + d) Synchronize the shadow files so that all users, including root, + are added to the shadow\$\$CLIENT\$\$ file. + e) Ask you to make a boot floppy. + f) If it's thin clients, ask if you want to restart KDM. +"), "wizard"); +} + +sub do_wizard() { + destroy_widget(); + $main_buttons->hide; + $in_wizard = 1; + $config_written = 0; + wizard_step(\&client_type, 1); +} + +sub wizard_step { + my ($do_step, $step) = @_; + &$do_step(); + gtkadd($wizard_buttons, + gtksignal_connect($previous_button = new Gtk2::Button(N("<-- Wizard Previous Step")), clicked => sub { + clear_buttons(); + if ($step == 1) { + exit_wizard(); + start_wizard(); + } + wizard_step(\&client_type, 1) if $step == 2; + wizard_step(\&dhcpd_config, 2) if $step == 3; + wizard_step(\&make_nbis, 3) if $step == 4; + wizard_step(\&enable_ts, 4) if $step == 5; + wizard_step(\&restart_ts, 5) if $step == 6; + wizard_step(\&sync_users, 6) if $step == 7; + wizard_step(\&make_boot, 7) if $step == 8; + }) + ); + gtkadd($wizard_buttons, + gtksignal_connect($cancel_button = new Gtk2::Button(N("Cancel Wizard")), clicked => sub { + exit_wizard(); + }) + ); + gtkadd($wizard_buttons, + gtksignal_connect($next_button = new Gtk2::Button(N("Wizard Next Step -->")), clicked => sub { + clear_buttons(); + wizard_step(\&dhcpd_config, 2) if $step == 1; + if ($step == 2) { + if ($config_written == 1) { + wizard_step(\&make_nbis, 3); + } else { + $in->ask_warn('', N("Please save dhcpd config!")); + wizard_step(\&dhcpd_config, 2); + } + } + wizard_step(\&enable_ts, 4) if $step == 3; + wizard_step(\&restart_ts, 5) if $step == 4; + wizard_step(\&sync_users, 6) if $step == 5; + wizard_step(\&make_boot, 7) if $step == 6; + wizard_step(\&restart_dm, 8) if $step == 7; + }) + ); + exit_wizard() if $step == 8; +} + +sub exit_wizard() { + clear_buttons(); + $in_wizard = 0; + $main_buttons->show; +} + +sub clear_buttons() { + destroy_widget(); + $previous_button->destroy; + $cancel_button->destroy; + $next_button->destroy; +} + +sub client_type() { + text_view(N("Please select client type. + 'Thin' clients run everything off the server's CPU/RAM, using the client display. + 'Fat' clients use their own CPU/RAM but the server's filesystem."), "wizard"); + gtkpack_($$central_widget, + 1, gtkpack_(new Gtk2::HBox(1,0), + 0, new Gtk2::VBox(0,10), + 1, gtksignal_connect(new Gtk2::CheckButton(N("Allow thin clients.")), + clicked => sub { invbool \$thin_clients; client_set() }), + 0, new Gtk2::VBox(0,10) + ) + ) +} + +sub make_nbis() { + my $buff = N("Creating net boot images for all kernels"); + $in->ask_warn('', N("This will take a few minutes.")); + cursor_wait(); + system("/usr/bin/mknbi-set"); + cursor_norm(); + $buff .= "\n\n\t" . N("Done!"); + text_view($buff, "wizard"); +} + +sub sync_users { + my ($cmd_line) = @_; + my $buff = N("Syncing server user list with client list, including root."); + my @active_users = cat_("/etc/shadow"); + + local *SHADOW; + open(SHADOW, '> /etc/shadow$$CLIENT$$'); + + #- only users with home dirs, and root + foreach my $user (@active_users) { + my @fields = split(/:/, $user); + if (-d "/home/" . $fields[0] || $fields[0] eq "root") { + print SHADOW $user; + } + } + close SHADOW; + $buff .= "\n\n\t" . N("Done!"); + text_view($buff, "wizard") if !$cmd_line; +} + +sub restart_dm() { + if ($clients_set) { + my $result = $in->ask_okcancel('', N("In order to enable changes made for thin clients, the display manager must be restarted. Restart now?")); + system('/sbin/service dm restart') if $result; + } +} + sub about() { text_view(N(" Copyright (C) 2002 by MandrakeSoft @@ -354,11 +510,11 @@ sub about() { - LTSP Project http://www.ltsp.org - Michael Brown <mbrown\@fensystems.co.uk> -")); +"), "close"); } sub text_view { - my ($text) = @_; + my ($text, $option) = @_; my $box; gtkpack($status_box, $box = gtkpack_(new Gtk2::VBox(0,10), @@ -368,14 +524,18 @@ sub text_view { ), ), 0, gtkpack(gtkset_layout(new Gtk2::HButtonBox, 'spread'), - gtksignal_connect(new Gtk2::Button(N("OK")), clicked => - sub { destroy_widget() }), + gtksignal_connect(my $ok_button = new Gtk2::Button(N("OK")), clicked => sub { + destroy_widget() if $option eq "close"; + do_wizard() if $option eq "wizard"; + }), ), ) ); gtkset_size_request($box, 580, 280); $central_widget = \$box; $status_box->show_all; + $ok_button->hide if $in_wizard; + $main_buttons->hide if $in_wizard; } sub help() { @@ -488,7 +648,7 @@ N(" - Create etherboot floppies/CDs: cat /usr/lib/etherboot/floppyload.bin \\ /usr/share/etherboot/start16.bin \\ - /usr/lib/etherboot/zimg/3c509.zimg > /dev/fd0") . "\n\n"); + /usr/lib/etherboot/zimg/3c509.zimg > /dev/fd0") . "\n\n", "close"); } sub make_boot() { @@ -531,7 +691,7 @@ sub make_boot() { sub make_nbi() { my $nbi_box; - my @kernels = grep { /vmlinuz/ } all("/boot"); + my @kernels = grep { /vmlinuz-/ } all("/boot"); my $kernel; my $nic; @@ -601,61 +761,61 @@ sub make_nbi() { 0, gtkadd(new Gtk2::HBox(0,10), create_scrolled_window($tree_kernels), gtkadd(new Gtk2::VBox(1,10), - gtksignal_connect(new Gtk2::Button(N("Build Whole Kernel -->")), clicked => - sub { if ($kernel) { - $in->ask_warn('', N("This will take a few minutes.")); - cursor_wait(); - system("/usr/bin/mknbi-set -k /boot/$kernel"); - $list_model->clear; - @nbis = grep { /\.nbi/ } all("/var/lib/tftpboot"); - foreach (@nbis) { - $list_model->append_set($iter, $_); - } - cursor_norm(); - } else { - $in->ask_warn('', N("No kernel selected!")) if !($kernel); - } - }), - gtksignal_connect(new Gtk2::Button(N("Build Single NIC -->")), clicked => - sub { if ($nic) { - system("/usr/bin/mknbi-set -k /boot/$kernel -r $nic"); - $list_model->clear; - @nbis = grep { /\.nbi/ } all("/var/lib/tftpboot"); - foreach (@nbis) { - $list_model->append_set($iter, $_); - } - } else { - $in->ask_warn('', N("No NIC selected!")); - } - }), - gtksignal_connect(new Gtk2::Button(N("Build All Kernels -->")), clicked => sub { - $in->ask_warn('', N("This will take a few minutes.")); + gtksignal_connect(new Gtk2::Button(N("Build Whole Kernel -->")), clicked => sub { + if ($kernel) { + $in->ask_warn('', N("This will take a few minutes.")); cursor_wait(); - system("/usr/bin/mknbi-set"); + system("/usr/bin/mknbi-set -k /boot/$kernel"); $list_model->clear; @nbis = grep { /\.nbi/ } all("/var/lib/tftpboot"); foreach (@nbis) { - $list_model->append_set($iter, $_); + $list_model->append_set($iter, $_); } cursor_norm(); - }), - new Gtk2::HBox(1,1), - gtksignal_connect(new Gtk2::Button(N("<-- Delete")), clicked => - sub { my $nbi = "/var/lib/tftpboot/" . $nbi; - my $result = unlink($nbi) || warn("Can't delete $nbi..."); - if ($result == 1) { - $list_model->remove($nbi_iter); - } - }), - gtksignal_connect(new Gtk2::Button(N("Delete All NBIs")), clicked => - sub { cursor_wait(); - foreach (grep { /\.nbi/ } all("/var/lib/tftpboot")) { - my $nbi = "/var/lib/tftpboot/" . $_; - unlink($nbi) || warn("Can't delete $nbi..."); - } + } else { + $in->ask_warn('', N("No kernel selected!")) if !($kernel); + } + }), + gtksignal_connect(new Gtk2::Button(N("Build Single NIC -->")), clicked => sub { + if ($nic) { + system("/usr/bin/mknbi-set -k /boot/$kernel -r $nic"); $list_model->clear; - cursor_norm(); - }), + @nbis = grep { /\.nbi/ } all("/var/lib/tftpboot"); + foreach (@nbis) { + $list_model->append_set($iter, $_); + } + } else { + $in->ask_warn('', N("No NIC selected!")); + } + }), + gtksignal_connect(new Gtk2::Button(N("Build All Kernels -->")), clicked => sub { + $in->ask_warn('', N("This will take a few minutes.")); + cursor_wait(); + system("/usr/bin/mknbi-set"); + $list_model->clear; + @nbis = grep { /\.nbi/ } all("/var/lib/tftpboot"); + foreach (@nbis) { + $list_model->append_set($iter, $_); + } + cursor_norm(); + }), + new Gtk2::HBox(1,1), + gtksignal_connect(new Gtk2::Button(N("<-- Delete")), clicked => sub { + my $nbi = "/var/lib/tftpboot/" . $nbi; + my $result = unlink($nbi) || warn("Can't delete $nbi..."); + if ($result == 1) { + $list_model->remove($nbi_iter); + } + }), + gtksignal_connect(new Gtk2::Button(N("Delete All NBIs")), clicked => sub { + cursor_wait(); + foreach (grep { /\.nbi/ } all("/var/lib/tftpboot")) { + my $nbi = "/var/lib/tftpboot/" . $_; + unlink($nbi) || warn("Can't delete $nbi..."); + } + $list_model->clear; + cursor_norm(); + }), new Gtk2::HBox(1,1), ), create_scrolled_window($list_nbis), @@ -919,26 +1079,7 @@ sub maintain_clients() { gtksignal_connect($check_allow_thin, clicked => sub { invbool \$thin_clients; $check_thin->set_sensitive($thin_clients); - # we need to change some system files to allow the thin clients - # to access the server - enabling xdmcp and modify hosts.deny/hosts.allow for some security - # we also need to set runlevel to 5 and restart the display manager - if ($thin_clients == 1) { - substInFile { s/id:3:initdefault:/id:5:initdefault:/ } "/etc/inittab"; - substInFile { s/! DisplayManager.requestPort:/DisplayManager.requestPort:/ } "/etc/X11/xdm/xdm-config"; - substInFile { s/Enable=false/Enable=true/ } "/usr/share/config/kdm/kdmrc"; - # This file had 2 "Enable=" entries, one for xdmcp and one for debug - change_gdm_xdmcp("true"); - log::explanations("Modified files /etc/inittab, /etc/X11/xdm/xdm-config, /usr/share/config/kdm/kdmrc, /etc/X11/gdm/gdm.conf"); - # just xdmcp in hosts.allow is enough for xdm & kdm, but gdm doesn't work - x11 doesn't help either - update_hosts_allow("enable"); - } else { - substInFile { s/id:5:initdefault:/id:3:initdefault:/ } '/etc/inittab'; - substInFile { s/DisplayManager.requestPort:/! DisplayManager.requestPort:/ } "/etc/X11/xdm/xdm-config"; - substInFile { s/Enable=true/Enable=false/ } "/usr/share/config/kdm/kdmrc"; - change_gdm_xdmcp("false"); - log::explanations("Modified files /etc/inittab, /etc/X11/xdm/xdm-config, /usr/share/config/kdm/kdmrc, /etc/X11/gdm/gdm.conf"); - update_hosts_allow("disable"); - } + client_set(); $in->ask_warn('', N("Need to restart the Display Manager for full changes to take effect. \n(service dm restart - at the console)")); } ); @@ -949,6 +1090,30 @@ sub maintain_clients() { $client_box->show_all; } +sub client_set() { + # we need to change some system files to allow the thin clients + # to access the server - enabling xdmcp and modify hosts.deny/hosts.allow for some security + # we also need to set runlevel to 5 and restart the display manager + if ($thin_clients == 1) { + substInFile { s/id:3:initdefault:/id:5:initdefault:/ } "/etc/inittab"; + substInFile { s/! DisplayManager.requestPort:/DisplayManager.requestPort:/ } "/etc/X11/xdm/xdm-config"; + substInFile { s/Enable=false/Enable=true/ } "/usr/share/config/kdm/kdmrc"; + # This file had 2 "Enable=" entries, one for xdmcp and one for debug + change_gdm_xdmcp("true"); + log::explanations("Modified files /etc/inittab, /etc/X11/xdm/xdm-config, /usr/share/config/kdm/kdmrc, /etc/X11/gdm/gdm.conf"); + # just xdmcp in hosts.allow is enough for xdm & kdm, but gdm doesn't work - x11 doesn't help either + update_hosts_allow("enable"); + } else { + substInFile { s/id:5:initdefault:/id:3:initdefault:/ } '/etc/inittab'; + substInFile { s/DisplayManager.requestPort:/! DisplayManager.requestPort:/ } "/etc/X11/xdm/xdm-config"; + substInFile { s/Enable=true/Enable=false/ } "/usr/share/config/kdm/kdmrc"; + change_gdm_xdmcp("false"); + log::explanations("Modified files /etc/inittab, /etc/X11/xdm/xdm-config, /usr/share/config/kdm/kdmrc, /etc/X11/gdm/gdm.conf"); + update_hosts_allow("disable"); + } + $clients_set = 1; +} + sub dhcpd_config() { #- do main dhcp server config my $dhcpd_box; @@ -1069,7 +1234,7 @@ sub dhcpd_config() { new Gtk2::Label(N("dhcpd Server Configuration") . "\n\n" . N("Most of these values were extracted\nfrom your running system.\nYou can modify as needed.")), new Gtk2::HSeparator, - gtkadd((new Gtk2::HBox), + gtkadd(new Gtk2::HBox, new Gtk2::Label(N("Dynamic IP Address Pool:")), ), gtkadd(new Gtk2::HBox(0,0), @@ -1177,7 +1342,8 @@ sub write_dhcpd_config { print FHANDLE "}\n\n"; print FHANDLE qq(# Include client machine configurations\ninclude "$client_cfg";\n); - close FHANDLE + close FHANDLE; + $config_written = 1; } sub write_eb_image { @@ -1309,7 +1475,7 @@ sub service_change { $buff_index++; } close STATUS; - unlink "/tmp/drakTSservice.status" or warn("Can't delete /tmp/drakTSservice.status\n"); + unlink "/tmp/drakTSservice.status"; $buff_index; } @@ -1345,7 +1511,9 @@ sub stop_ts { my $buff_index = service_change("dhcpd", "stop", 2); $buff_index = service_change("clusternfs", "stop", $buff_index); $buff[$buff_index] = "\n\tDone!"; - + + return if $in_wizard; + if ($cmd_line == 1) { print "@buff\n"; return; @@ -1355,8 +1523,14 @@ sub stop_ts { } +#- for the wizard, stop the server first +sub restart_ts() { + stop_ts(); + start_ts(); +} + sub show_status() { - text_view("@buff"); + text_view("@buff", "close"); } sub adduser { |