summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-01-29 15:38:41 +0000
committerFrancois Pons <fpons@mandriva.com>2003-01-29 15:38:41 +0000
commitc39550022f9081a65c97b9021f88cff87fe0f0bb (patch)
tree9692a7ef03aa5c5622aeb3e7e11432ad04b364de /perl-install
parentfd82fb9ba3d5ba9c83af83933af5206b25b8f2b6 (diff)
downloaddrakx-backup-do-not-use-c39550022f9081a65c97b9021f88cff87fe0f0bb.tar
drakx-backup-do-not-use-c39550022f9081a65c97b9021f88cff87fe0f0bb.tar.gz
drakx-backup-do-not-use-c39550022f9081a65c97b9021f88cff87fe0f0bb.tar.bz2
drakx-backup-do-not-use-c39550022f9081a65c97b9021f88cff87fe0f0bb.tar.xz
drakx-backup-do-not-use-c39550022f9081a65c97b9021f88cff87fe0f0bb.zip
fixed perl_checker
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakpxe30
1 files changed, 16 insertions, 14 deletions
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe
index ef15bcf36..f6c04a6fc 100755
--- a/perl-install/standalone/drakpxe
+++ b/perl-install/standalone/drakpxe
@@ -32,12 +32,9 @@ use network::netconnect;
$::isInstall and die "Not supported during install.\n";
-
-local $_ = join '', @ARGV;
-
$::Wizard_pix_up = "wiz_drakgw.png"; #- to change ? keep existing one, nobody will see (too late) ;-)
$::Wizard_title = N("PXE Server Configuration");
-$::direct = /-direct/;
+$::direct = grep { /-direct/ } @ARGV;
#
@@ -62,7 +59,7 @@ my $in = 'interactive'->vnew('su', 'default');
!$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1;
-pur_gtk_mode() if $::isEmbedded && $in->isa('interactive::gtk');
+#pur_gtk_mode() if $::isEmbedded && $in->isa('interactive::gtk');
sub sys { system(@_) == 0 or log::l("[drakpxe] Warning, sys failed for $_[0]") }
@@ -72,7 +69,6 @@ sub outpend {
}
sub start_daemons () {
- my $cups_used = 0;
log::explanations("Starting daemons");
system("/etc/rc.d/init.d/dhcpd status >/dev/null") == 0 and sys("/etc/rc.d/init.d/dhcpd stop");
@@ -90,6 +86,12 @@ sub stop_daemons () {
my $wait_configuring;
+sub quit_global {
+ my ($in, $exitcode) = @_;
+ $in->exit($exitcode);
+ goto begin
+}
+
sub fatal_quit ($) {
log::l("[drakpxe] FATAL: $_[0]");
undef $wait_configuring;
@@ -264,12 +266,12 @@ system "mkdir", "-p", "/var/www/html/$dir";
rmdir "/var/www/html/$dir";
symlink $dir, "/var/www/html/$dir";
-stop_daemons;
-start_daemons;
+stop_daemons();
+start_daemons();
#- sub for reading/writing dhcpd.conf and pxelinux.cfg/default...
sub parse_dhcpd_conf {
- my ($file, $netcnx, $netc, $intf) = @_;
+ my ($file, undef, $netc, $intf) = @_;
my (%dhcpd_conf, $pool);
local (*F, $_);
@@ -299,7 +301,7 @@ sub build_dhcpd_conf {
my $server = $dhcpd_conf->{network}{IPADDR} || $dhcpd_conf->{network}{HOSTNAME};
open F, ">$file" or return;
log::explanations("Modified file $file");
- print F qq[# for explanation in french go to : http://www.delafond.org/traducmanfr/man/man5/dhcpd.conf.5.html
+ print F qq(# for explanation in french go to : http://www.delafond.org/traducmanfr/man/man5/dhcpd.conf.5.html
ddns-update-style none;
allow booting;
allow bootp;
@@ -428,7 +430,7 @@ shared-network "mynetwork" {
# Used by clusterautosetup-client to find its server
next-server $server;
-];
+);
foreach (@{$dhcpd_conf->{network}{pool}}) {
print F " pool {
range $_->{start_ip} $_->{end_ip};
@@ -437,7 +439,7 @@ shared-network "mynetwork" {
print F " deny members of \"$_\";\n" foreach keys %{$_->{deny}};
print F " }\n";
}
-print F qq[
+print F qq(
# pool {
# range 192.168.200.200 192.168.200.254;
@@ -448,7 +450,7 @@ print F qq[
# }
}
}
-];
+);
close F;
}
@@ -469,7 +471,7 @@ sub parse_pxelinux_cfg {
} elsif (/^\s*(LOCALBOOT|KERNEL|APPEND)\s+(.*)/i) {
$entry->{$1} = $2;
} else {
- log::l("ignoring line $. in file $file due to parsing error");
+ log::l("ignoring line (titi_sucks) in file $file due to parsing error");
}
}
$entry and push @{$pxelinux_cfg{entry}}, $entry;