summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakTermServ37
1 files changed, 22 insertions, 15 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 1a9c0f9b5..c899c53ac 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -68,6 +68,7 @@ my $cfg_dir = "/etc/drakxtools/draktermserv/";
my $cfg_file = $cfg_dir . "draktermserv.conf";
my $server_ip = get_ip_from_sys();
my $changes_made = 0;
+my $client_cfg = "/etc/dhcpd.conf.etherboot.clients";
#- make sure terminal server and friends are installed
my $ts = system("rpm -qa | grep terminal-server > /dev/null");
@@ -494,7 +495,8 @@ sub make_boot() {
#- make a boot image on floppy or iso from etherboot images
my $boot_box;
my $rom_path = "/usr/share/etherboot";
- my @nics = all("/usr/share/etherboot/zimg");
+ #- doesn't return list sorted
+ my @nics = sort(all("/usr/share/etherboot/zimg"));
my $list_nics = new Gtk2::List();
my $nic;
@@ -672,7 +674,8 @@ sub maintain_users() {
my $titer;
#- use /homes to filter system daemons
- my @homes = all("/home");
+ #- seems suppressing root is less than useful, let it be added
+ my @homes = (all("/home"), "root");
my $list_model = Gtk2::ListStore->new("Glib::String");
my $list_sys_users = Gtk2::TreeView->new_with_model($list_model);
@@ -1053,7 +1056,7 @@ sub dhcpd_config() {
gtkpack($status_box,
$dhcpd_box = gtkpack_(new Gtk2::HBox(1,10),
- 0, gtkadd((new Gtk2::VBox),
+ 0, gtkadd(new Gtk2::VBox,
gtkadd($box_subnet),
gtkadd($box_netmask),
gtkadd($box_routers),
@@ -1069,12 +1072,12 @@ sub dhcpd_config() {
gtkadd((new Gtk2::HBox),
new Gtk2::Label(N("Dynamic IP Address Pool:")),
),
- gtkadd((new Gtk2::HBox(0,0)),
- gtkadd((new Gtk2::VBox),
+ gtkadd(new Gtk2::HBox(0,0),
+ gtkadd(new Gtk2::VBox,
gtkadd($label_ip_range_start),
gtkadd($entry_ip_range_start),
),
- gtkadd((new Gtk2::VBox),
+ gtkadd(new Gtk2::VBox,
gtkadd($label_ip_range_end),
gtkadd($entry_ip_range_end),
),
@@ -1173,7 +1176,7 @@ sub write_dhcpd_config {
print FHANDLE "}\n\n";
- print FHANDLE qq(# Include client machine configurations\ninclude "/etc/dhcpd.conf.etherboot.clients";\n);
+ print FHANDLE qq(# Include client machine configurations\ninclude "$client_cfg";\n);
close FHANDLE
}
@@ -1228,6 +1231,11 @@ sub enable_ts {
return;
}
}
+ #- suggestion from jmdault - not always needed
+ if (! -e $client_cfg) {
+ log::explanations("Touch file $client_cfg");
+ `touch $client_cfg`;
+ }
my $buff_index = toggle_chkconfig("on", "dhcpd", 2);
$buff[$buff_index] = "\tSetting up default /etc/exports...\n";
cp_af("/etc/exports", "/etc/exports.mdkTS") if -e "/etc/exports";
@@ -1355,13 +1363,13 @@ sub adduser {
my ($cmd_line, $username) = @_;
my @active_users = cat_("/etc/shadow");
my @ts_users = cat_('/etc/shadow$$CLIENT$$');
- my $is_user = grep { /$username/ } @active_users;
+ my $is_user = any { /$username/ } @active_users;
my $add_fail = 0;
my $in_already;
if ($is_user) {
my @shadow_entry = grep { /$username/ } @active_users;
- my $is_ts_user = grep { /$username/ } @ts_users;
+ my $is_ts_user = any { /$username/ } @ts_users;
if ($is_ts_user) {
my @ts_shadow = grep { /$username/ } @ts_users;
if ($shadow_entry[0] eq $ts_shadow[0]) {
@@ -1401,9 +1409,8 @@ sub deluser {
my ($cmd_line, $username) = @_;
my $i;
my $user_deleted;
-
- my @ts_users = cat_('/etc/shadow\$\$CLIENT$$');
- my $is_ts_user = grep { /$username/ } @ts_users;
+ my @ts_users = cat_('/etc/shadow$$CLIENT$$');
+ my $is_ts_user = any { /$username/ } @ts_users;
if ($is_ts_user) {
$i = 0;
@@ -1471,7 +1478,7 @@ sub addclient {
$ts_clients{$hostname}{hdw_config} = "false";
client_hdw_config($ip, 0);
}
- my $clients = "/etc/dhcpd.conf.etherboot.clients";
+ my $clients = $client_cfg;
local *CLIENT;
open(CLIENT, ">> $clients") or warn(N("Can't open %s!", $clients));
my $client_entry = format_client_entry($hostname, %ts_clients);
@@ -1585,7 +1592,7 @@ sub format_client_entry {
sub write_dhcpd_conf {
my %ts_clients = @_;
- my $clients = "/etc/dhcpd.conf.etherboot.clients";
+ my $clients = $client_cfg;
local *CLIENT;
open(CLIENT, "> $clients") or warn("Can't open $clients!");
@@ -1597,7 +1604,7 @@ sub write_dhcpd_conf {
}
sub read_dhcpd_conf() {
- my $clients = "/etc/dhcpd.conf.etherboot.clients";
+ my $clients = $client_cfg;
my %ts_clients;
my $hostname;