diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakTermServ | 8 | ||||
| -rwxr-xr-x | perl-install/standalone/drakperm | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakpxe | 4 |
3 files changed, 8 insertions, 8 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") { diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 0b1f09b05..56ed69920 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -194,7 +194,7 @@ sub save_perm() { my $val; if ($modified) { local *F; - open F, '>' . $perm_files{editable} or die("Impossible to process \"", $perm_files{editable}, "\""); + open F, '>' . $perm_files{editable} or die(qq(Impossible to process "$perm_files{editable}")); $model->foreach(sub { my ($model, $_path, $iter) = @_; return 0 if $model->get($iter, 0); @@ -224,7 +224,7 @@ sub load_perms() { } elsif (m/^(\S+)\s+current?\s+(\d+)/) { push @rules, { @editable, path => $1, user => 'current', group => '', perms => $2, index => $index }; } else { - warn "unparsable \"$_\"line"; + warn qq(unparsable "$_"line); } $index++; } diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe index 0b93a2f73..4ceb492c7 100755 --- a/perl-install/standalone/drakpxe +++ b/perl-install/standalone/drakpxe @@ -438,8 +438,8 @@ shared-network "mynetwork" { print F " pool { range $_->{start_ip} $_->{end_ip}; "; - print F " allow members of \"$_\";\n" foreach keys %{$_->{allow}}; - print F " deny members of \"$_\";\n" foreach keys %{$_->{deny}}; + print F qq( allow members of "$_";\n) foreach keys %{$_->{allow}}; + print F qq( deny members of $_";\n) foreach keys %{$_->{deny}}; print F " }\n"; } print F qq( |