drak Mandrake Install server

1 files changed, 152 insertions, 0 deletions

diff --git a/installsrv_wizard/Installsrv.pm b/installsrv_wizard/Installsrv.pm
new file mode 100644
index 00000000..baa3dded
--- /dev/null
+++ b/installsrv_wizard/Installsrv.pm
@@ -0,0 +1,152 @@
+# version 0.2
+#
+# Copyright (C) 2002,2003 Mandrakesoft
+#
+# Author: aginies _at_ mandrakesoft.com
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+
+package MDK::Wizard::Installsrv;
+use lib qw(/usr/lib/libDrakX);
+use ugtk2;
+use strict;
+use standalone;
+use common;
+use services;
+use MDK::Wizard::Varspaceval;
+use MDK::Wizard::Wizcommon;
+
+
+# test root capa
+my $wiz = new MDK::Wizard::Wizcommon;
+
+my $INSTALLDIR = "/var/install/";
+my $NFSEXPORTS = "/etc/exports";
+my $WWWDIR = "/var/www/html";
+
+my $o = {
+	 name => 'Install Server Wizard',
+	 var => {
+		 DESTDIR => '/var/install/',
+		 SOURCEDIR => '/mnt/cdrom/',
+		},
+	 needed_rpm => [ 'nfs-utils', 'apache' ],
+	 defaultimage => "/usr/share/wizards/dns_wizard/images/Install.png"
+	};
+
+$o->{pages} = {
+	       welcome => {
+			   name => N("Configure an install server (via NFS and http)") . "\n\n" . N("Easily configure a Mandrake server installation directory, with nfs export and http access."),
+			   no_back => 1,
+			   next => 'install_srv',
+			  },
+	       install_srv => {
+			       name => N("Install server Configuration") . "\n\n" . N("Path to data: specify your source directory (should be base of an Mandrake installtion.") . "\n\n" . N("Destination Directory: copy file in wich directory ?"),
+			       pre => sub {
+				 $o->{var}{wiz_nfs} ||= 1;
+				 $o->{var}{wiz_http} ||= 1;
+			       },
+			       data => [
+					{ label => "Path to data", val => \$o->{var}{SOURCEDIR} },
+					{ label => "Destination Directory:", val => \$o->{var}{DESTDIR} },
+					{ label => N("Enable nfs install server"), type => 'bool', val => \$o->{var}{wiz_nfs} },
+					{ label => N("Enable http  install server"), type => 'bool', val => \$o->{var}{wiz_http} },
+				       ],
+			       post => \&test_data,
+			       next => 'summary_srv',
+			      },
+	       error_dir_dest => {
+				  name => N("Destination directory could not be '/var/install/'") . "\n\n" . N("ie use: /var/install/mdk-release"),
+				  next => 'install_srv',
+				 },
+	       error_dir => {
+			     name => N("Error, Source directory must be a directory with full Mandrake installation directory."),
+			     next => 'install_srv',
+			    },
+	       dir_already_use => {
+				   name => N("Destination Directory already in use, please choose another one."),
+				   next => 'install_srv',
+				  },
+	       summary_srv => {
+			       name => N("I Will configure your install server with those parameters"),
+			       pre => sub {
+				 $o->{var}{nfs} = $o->{var}{wiz_nfs} ? N("enabled") : N("disabled");
+				 $o->{var}{http} = $o->{var}{wiz_http} ? N("enabled") : N("disabled");
+			       },
+			       data => [
+					{ label => "Path to data", fixed_val => \$o->{var}{SOURCEDIR} },
+					{ label => "Destination Directory:", fixed_val => \$o->{var}{DESTDIR} },
+					{ label => N("Enable nfs install server"), fixed_val => \$o->{var}{nfs} },
+					{ label => N("Enable http  install server"), fixed_val => \$o->{var}{http} },
+                                       ],
+                               post => \&do_it,
+                               next => 'end',
+			      },
+	       end => {
+		       name => N("Congratulations, Mandrake Install server is now ready."),
+		       end => 1,
+		       no_back => 1,
+		       next => 0
+		      },
+	      };
+
+
+sub add_install_dir {
+  if (any { /$INSTALLDIR/ } cat_($NFSEXPORTS)) {
+    print " - " . $NFSEXPORTS . " ready\n";
+  } else {
+    append_to_file($NFSEXPORTS, "$INSTALLDIR       *(async,rw,no_root_squash)\n");
+  }
+}
+
+sub test_data {
+  -d $o->{var}{SOURCEDIR} && -f "$o->{var}{SOURCEDIR}/VERSION" or return 'error_dir';
+  if ($o->{var}{DESTDIR} eq $INSTALLDIR) { return 'error_dir_dest' }
+  if (-e $o->{var}{DESTDIR}) { return 'dir_already_use' }
+}
+
+sub add_http_link {
+  my ($PATH) = @_;
+  my $LINK = $WWWDIR . '/' . basename($PATH);
+  if (! -f $LINK) {
+    symlink $PATH, $LINK;
+  }
+}
+
+sub cp_data {
+  my ($SRCDIR, $DEST) = @_;
+  mkdir_p($DEST);
+  cp_af($SRCDIR, $DEST);
+}
+
+sub do_it {
+  return if $::testing;
+  my $in = 'interactive'->vnew('su', 'Install server');
+  my $w = $in->wait_message(N("Install Server"), N("Copying data to destination directory..."));
+  cp_data($o->{var}{SOURCEDIR}, $o->{var}{DESTDIR});
+  add_install_dir();
+  add_http_link($o->{var}{DESTDIR});
+  undef $w;
+}
+
+sub new {
+    my ($class, $conf) = @_;
+    bless {
+            o   => $o,
+       }, $class;
+}
+
+1;