summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--drakpxelinux.pl14
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;