From 48eab0364f67282f0c5944263cb5d6e23913bc55 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Tue, 10 Feb 2004 02:08:12 +0000 Subject: Undo some of the breakage, format is still wrong :( --- perl-install/standalone/drakTermServ | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakTermServ') diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index 6b1fe4a0d..863259a1e 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -1736,7 +1736,8 @@ sub update_hosts_allow { sub format_client_entry { #- create a client entry, in proper format my ($client, %ts_clients) = @_; - my $pxe_img = $ts_clients{$client}{filename} =~ /boot-(.*?)\./ . ".zimg.pxe"; + my ($pxe_img) = $ts_clients{$client}{filename} =~ /boot-(.*?)\./; + $pxe_img .= ".zimg.pxe"; my $pxe = -f "$tftpboot/$pxe_img"; my $entry = "host $client {\n"; $entry .= "\thardware ethernet\t$ts_clients{$client}{hardware};\n"; @@ -1748,7 +1749,7 @@ sub format_client_entry { \t\tfilename\t\t"$pxe_img"; \t} \telse if substring (option vendor-class-identifier, 0, 9) = "Etherboot" -\t{\n\t)), +\t{)), qq(\tfilename\t\t"$ts_clients{$client}{filename}";), if_($pxe, qq(\t}))) . "\n"; } -- cgit v1.2.1