summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakTermServ
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-20 16:57:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-20 16:57:31 +0000
commitd37a5bb1d073c43d40a5ed585dfff03d23fd439d (patch)
tree6ede0ef65447380ef19a31be63234a4e8ee78ed9 /perl-install/standalone/drakTermServ
parenta64d595bfe7eaf661ac339e815a1a978b1ee028e (diff)
downloaddrakx-backup-do-not-use-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar
drakx-backup-do-not-use-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.gz
drakx-backup-do-not-use-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.bz2
drakx-backup-do-not-use-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.xz
drakx-backup-do-not-use-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.zip
misc perl_checker cleanups
Diffstat (limited to 'perl-install/standalone/drakTermServ')
-rwxr-xr-xperl-install/standalone/drakTermServ8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index d7c9bc6da..04885cec8 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -1152,14 +1152,14 @@ sub write_dhcpd_config {
print FHANDLE "#dhcpd.conf - generated by drakTermServ\n\n";
print FHANDLE "ddns-update-style none;\n\n";
print FHANDLE "# Long leases (48 hours)\ndefault-lease-time 172800;\nmax-lease-time 172800;\n\n";
- print FHANDLE "# Include Etherboot definitions and defaults\ninclude \"/etc/dhcpd.conf.etherboot.include\";\n\n";
+ print FHANDLE qq(# Include Etherboot definitions and defaults\ninclude "/etc/dhcpd.conf.etherboot.include";\n\n);
print FHANDLE "# Network-specific section\n\n";
print FHANDLE "subnet $subnet netmask $netmask {\n";
print FHANDLE "\toption routers $routers;\n" if $routers;
print FHANDLE "\toption subnet-mask $subnet_mask;\n" if $subnet_mask;
print FHANDLE "\toption broadcast-address $broadcast;\n" if $broadcast;
- print FHANDLE "\toption domain-name \"$domain\";\n" if $domain;
+ print FHANDLE qq(\toption domain-name "$domain";\n) if $domain;
my $pool_string = "\trange dynamic-bootp " . $pool_start . " " . $pool_end . ";\n" if $pool_start && $pool_end;
print FHANDLE $pool_string if $pool_string;
@@ -1172,7 +1172,7 @@ sub write_dhcpd_config {
print FHANDLE "}\n\n";
- print FHANDLE "# Include client machine configurations\ninclude \"/etc/dhcpd.conf.etherboot.clients\";\n";
+ print FHANDLE qq(# Include client machine configurations\ninclude "/etc/dhcpd.conf.etherboot.clients";\n);
close FHANDLE
}
@@ -1571,7 +1571,7 @@ sub format_client_entry {
$entry .= "\thardware ethernet\t$ts_clients{$client}{hardware};\n";
$entry .= "\tfixed-address\t\t$ts_clients{$client}{address};\n";
$entry .= "\t#type\t\t\t$ts_clients{$client}{type};\n" if $ts_clients{$client}{type};
- $entry .= "\tfilename\t\t\"$ts_clients{$client}{filename}\";\n" if $ts_clients{$client}{filename};
+ $entry .= qq(\tfilename\t\t"$ts_clients{$client}{filename}";\n) if $ts_clients{$client}{filename};
$entry .= "\t#hdw_config\t\t$ts_clients{$client}{hdw_config};\n" if $ts_clients{$client}{hdw_config};
$entry .= "}\n";
if ($ts_clients{$client}{type} eq "thin") {