summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakTermServ12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 935364216..9f3b5bfcc 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -1264,8 +1264,8 @@ sub dhcpd_config() {
$entry_name_server2->set_text($nservers[2]);
$entry_name_server3->set_text($nservers[3]);
- my @dhcpd = cat_("/etc/dhcpd.conf");
- if (-e "/etc/dhcpd.conf" && @dhcpd[0] !~ /drakTermServ/) {
+ my $dhcpd_conf = cat_("/etc/dhcpd.conf");
+ if (-e "/etc/dhcpd.conf" && $dhcpd_conf !~ /drakTermServ/) {
$button_msg = N("Append TS Includes To Existing Config");
} else {
$button_msg = N("Write Config");
@@ -1317,7 +1317,7 @@ sub dhcpd_config() {
$entry_ip_range_start->get_text,
$entry_ip_range_end->get_text)
} else {
- write_dhcpd_config("append", @nothing) unless any { /dhcpd.conf.terminal-server/ } @dhcpd;
+ write_dhcpd_config("append", @nothing) if $dhcpd_conf !~ /dhcpd.conf.terminal-server/;
}
}
),
@@ -1479,10 +1479,10 @@ sub enable_ts {
@buff = ();
$buff[0] = "Enabling Terminal Server...\n\n";
$buff[1] = "\tChecking default /etc/dhcpd.conf...\n";
- my @my_conf = cat_("/etc/dhcpd.conf");
- if ($my_conf[0] !~ /drakTermServ/) {
+ my $dhcpd_conf = cat_("/etc/dhcpd.conf");
+ if ($dhcpd_conf !~ /drakTermServ/) {
if (-e "/etc/dhcpd.conf") {
- write_dhcpd_config("append", @nothing) if ! any { /dhcpd.conf.terminal-server/ } @my_conf;
+ write_dhcpd_config("append", @nothing) if $dhcpd_conf !~ /dhcpd.conf.terminal-server/;
} else {
if ($cmd_line == 1) {
print("No /etc/dhcpd.conf built yet - use GUI to create!!\n");