diff options
-rw-r--r-- | drakpxelinux.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/drakpxelinux.pl b/drakpxelinux.pl index 12cc4c1..8981663 100644 --- a/drakpxelinux.pl +++ b/drakpxelinux.pl @@ -156,7 +156,7 @@ sub set_pxelinux_entry_at_iter { } -sub create_model { +sub create_model() { # my $model = Gtk2::ListStore->new(("Glib::String") x NUM_COLUMNS); my $model = Gtk2::ListStore->new("Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String", "Glib::String"); set_pxelinux_entry_at_iter($model, $model->append, $_) foreach @{$pxelinux_conf->{entries}}; @@ -618,7 +618,7 @@ sub show_help() { info_dialog("help", ); } -sub check_pxe_conf { +sub check_pxe_conf() { my $ip_address = network::tools::get_interface_ip_address($net, $interface); if (! any { /default_address=$ip_address/ } cat_($network::pxe::pxe_config_file)) { # pxe.conf doesnt matche system, relaunch wizard_pxe_server @@ -627,7 +627,7 @@ sub check_pxe_conf { } # launch wizard to setup a PXE server -sub wizard_pxe_server { +sub wizard_pxe_server() { local $::isEmbedded = 0; my $in = 'interactive'->vnew('su'); undef $::WizardTable; @@ -710,11 +710,11 @@ sub tftp_blksize { } # enable tftp server in xinetd conf -sub enable_tftps { +sub enable_tftps() { substInFile { s/disable.*/disable = no/ } "$XINETDDIR/tftp"; } -sub memlinux_prep { +sub memlinux_prep() { if (!-f ($network::pxe::pxelinux_client_root . "/memdisk")) { cp_af($MEMDISK, $network::pxe::pxelinux_client_root); } @@ -729,7 +729,7 @@ sub check_started { } # main procedure to setup PXE server -sub do_it_pxe { +sub do_it_pxe() { return if $::testing; my $w = $in->wait_message(N("PXE server"), N("Configuring a PXE server on your system...")); output($network::pxe::pxelinux_client_root . "/drakwizard_pxe", <<EOF); @@ -792,7 +792,7 @@ if (!-f ($network::pxe::pxelinux_client_root . "/drakwizard_pxe")) { } check_pxe_conf(); -sub launch_pxe_server { +sub launch_pxe_server() { eval { wizard_pxe_server() }; my $err = $@; $::WizardWindow->destroy if defined $::WizardWindow; |