cleaning VAR (too much in pxe_cluster.pm)

1 files changed, 24 insertions, 27 deletions

diff --git a/pxe_wizard/Pxe.pm b/pxe_wizard/Pxe.pm
index 4751c9e5..31579fc6 100644
--- a/pxe_wizard/Pxe.pm
+++ b/pxe_wizard/Pxe.pm
@@ -30,39 +30,26 @@ use MDK::Wizard::Wizcommon;
 
 my $wiz = new MDK::Wizard::Wizcommon;
 
-my $intel_path = 'PXEClient';
-my $com_path = 'X86PC';
-my $ia64_path = 'IA64PC';
+my $TMPDIR = '/tmp';
+my $CLIENTPATH = 'PXEClient';
+my $IA64PATH = 'IA64PC';
 my $TFTPDIR = "/var/lib/tftpboot";
-my $full64 = $TFTPDIR . '/' . $ia64_path . '/linux';
-my $img_path64 = "$full64/images";
-my $temp_dir = '/tmp';
 my $INSTALLDIR = "/var/install/pxe";
+my $CONF = '/etc/pxe.conf';
+my $SYSLINUXPATH = '/usr/lib/syslinux/';
+my $PXEDEFAULT = 'pxelinux.cfg/default'
+
+my $PXEMENU = "$TMPDIR/default.pxe";
+my $PXEMESSAGE = "$TMPDIR/message.pxe";
+my $PXEMENU = "$TMPDIR/default.pxe";
+my $PXEMESSAGE = "$TMPDIR/message.pxe";
+my $PXEHELP = "$TMPDIR/help.txt.pxe";
 
 my $o = {
 	 name => N("PXE Wizard"),
 	 var => {
-		 INTELPATH => $intel_path,
-		 COMPATH => $com_path,
-		 IA64PATH => $ia64_path,
-		 FULLINTEL => $TFTPDIR . '/' . $intel_path,
-		 FULLCOM => $TFTPDIR . '/' . $com_path . '/linux',
-		 FULL64 => $full64,
-		 IMGPATH64 => $img_path64,
-		 NET64 => "$img_path64/net",
-		 KA64 => "$img_path64/ka",
-		 TEMPDIR => $temp_dir,
-		 PXEDEFAULT => 'pxelinux.cfg/default',
-		 PXEDEFAULT64 => 'linux.1',
-		 PXEMENU => "$temp_dir/default.pxe",
-		 PXEMESSAGE => "$temp_dir/message.pxe",
-		 FREEDOSIMAGE => $INSTALLDIR . '/images/freedos.img',
-		 KAIMAGE => $INSTALLDIR . '/images/ka.img',
-		 NETIMAGE => "$temp_dir/network.img",
-		 SYSLINUXPATH => '/usr/lib/syslinux/',
-		 PXEHELP => "$temp_dir/help.txt.pxe",
-		 ELILO => '/boot/efi/elilo.efi',
-		 CONF => '/etc/pxe.conf',
+
+
 		},
 	 needed_rpm => [ 'pxe', 'tftp-server' ],
 	};
@@ -175,6 +162,16 @@ $o->{pages} = {
 			    },
 	      };
 
+sub syslinux_prep {
+  cp_af( . "/memdisk", $FULLINTEL);
+}
+
+sub crea_wdir {
+  if (-e $TMPDIR) { rm_rf($TMPDIR);
+	     }
+  mkdir_p($TMPDIR);
+}
+
 
 sub new {
     my ($class, $conf) = @_;