diff options
| -rw-r--r-- | drakpxelinux.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/drakpxelinux.pl b/drakpxelinux.pl index 1eb454f..343e00a 100644 --- a/drakpxelinux.pl +++ b/drakpxelinux.pl @@ -352,12 +352,13 @@ sub wizard_add_entry { }; push @{$pxelinux_conf->{entries}}, $entry; set_pxelinux_entry_at_iter($model, $model->append, $entry); - # set default boot for profile is none + # set default boot for profile if none if (!$pxelinux_conf->{default}) { $pxelinux_conf->{default} = $WPXENAME; $pxelinux_conf->{display} = 'messages'; $pxelinux_conf->{timeout} = '50'; $pxelinux_conf->{prompt} = '10'; +# $pxelinux_conf->{f1} = ''; } refresh_menu(); undef $w; @@ -513,7 +514,7 @@ sub edit_box_item { $data->set_text("images/$label.img"); } } elsif ($filetotest eq "auto_install") { - run_program::get_stdout("file $file") =~ /perl/ or err_dialog(N("Error!"), N("Should be a perl script")) and \return; + run_program::get_stdout("file $file") =~ /perl/ or err_dialog(N("Error!"), N("Should be a perl script")) and return; my $ip_address = network::tools::get_interface_ip_address($net, $interface); my $auto_cfg = $network::pxe::pxelinux_client_root . "/pxelinux.cfg/profiles/auto_" . $profile . "_" . $label . ".pl"; cp_af($file, $auto_cfg); |