end of the move

1 files changed, 88 insertions, 0 deletions

diff --git a/BCD/Stagex.pm b/BCD/Stagex.pm
new file mode 100644
index 0000000..ed9bd2d
--- /dev/null
+++ b/BCD/Stagex.pm
@@ -0,0 +1,88 @@
+package BCD::Stagex;
+
+
+use strict;
+use XML::Simple;
+use File::Copy::Recursive qw(dircopy pathrm);
+use BCD::Common qw(:DEFAULT $isoconf $wd $name $arch $based_on $repo $version $builddir $error_color);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(main_stagex);
+
+my $LOG="STAGEX -";
+my $color = "blue";
+my $installer_destdir = "$builddir/$isoconf->{installer}{defaultpath}";
+
+sub update_stage {
+-d $repo or print_color("$LOG $repo does not exists !", $color) and exit;
+
+my $installer_dir;
+if (!defined($isoconf->{installer}{fullpath})) {
+        $installer_dir = "$repo/$based_on/$arch/$isoconf->{installer}{defaultpath}";
+} else {
+	$installer_dir = "$isoconf->{installer}{fullpath}/install";
+}
+-d $installer_dir or print_color("$LOG $installer_dir does not exists !", $error_color) and exit;
+
+
+#	print "$LOG remove old copy $builddir\n";
+#	pathrm($builddir) or die $!;
+	print_color("$LOG copy $installer_dir to $installer_destdir", $color);
+	dircopy($installer_dir, $installer_destdir) or die $!;
+}
+
+sub update_advertising {
+if (defined($isoconf->{installer}{advertising}{fullpath})) {
+	print_color("$LOG copy $isoconf->{installer}{advertising}{fullpath} to $installer_destdir/extra/", $color);
+	system("rm -rf $installer_destdir/extra/advertising");
+	system("cp -a $isoconf->{installer}{advertising}{fullpath} $installer_destdir/extra/");
+    }
+}
+
+sub copy_dosutils {
+        print_color("$LOG copy of dosutils directory from $repo/$based_on/$arch to $builddir/../", $color);
+        if (-d "$repo/$based_on/$arch/dosutils") {
+                system("cp -a $repo/$based_on/$arch/dosutils $builddir/../");
+                system("cp -a $repo/$based_on/$arch/autorun.inf $builddir/../");
+        } else {
+                print_color("$LOG FAILED copy of dosutils directory from $repo/$based_on/$arch", $error_color);
+        }
+}
+
+sub copy_doc {
+        print_color("$LOG copy of doc directory from $repo/$based_on/$arch to $builddir/", $color);
+        if (-d "$repo/$based_on/$arch/doc") {
+                system("cp -a $repo/$based_on/$arch/doc $builddir/");
+        } else {
+                print_color("$LOG FAILED copy of doc directory from $repo/$based_on/$arch", $error_color);
+        }
+}
+
+sub copy_misc {
+        print_color("$LOG copy of misc directory from $repo/$based_on/$arch to $builddir/../", $color);
+        if (-d "$repo/$based_on/$arch/misc") {
+		system("rm -rf $builddir/misc && mkdir $builddir/misc");
+                system("cp -a $repo/$based_on/$arch/misc/drakx-in-chroot $builddir/misc/");
+                system("cp -a $repo/$based_on/$arch/misc/mdkinst_stage2_tooldosutils $builddir/misc/");
+        } else {
+                print_color("$LOG FAILED copy of misc directory from $repo/$based_on/$arch", $error_color);
+        }
+}
+
+sub patch_oem {
+    if (-f $isoconf->{installer}{patch}) {
+	print_color("$LOG copy $isoconf->{installer}{patch} to $installer_destdir/", $color);
+	system("cp -a $isoconf->{installer}{patch} $installer_destdir/");
+    }
+}
+
+sub main_stagex {
+	update_stage;
+	update_advertising;
+	copy_dosutils;
+	copy_doc;
+	copy_misc;
+	patch_oem;
+}
+
+1;