From f6c388d98aa3daab3965525dee84ce0ab0017987 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Tue, 6 Apr 2004 21:11:13 +0000 Subject: Use a scalar with cat_ (Pixel suggestion). --- perl-install/standalone/drakTermServ | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/standalone/drakTermServ') 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"); -- cgit v1.2.1