aboutsummaryrefslogtreecommitdiffstats
path: root/BCD
diff options
context:
space:
mode:
Diffstat (limited to 'BCD')
-rw-r--r--BCD/Bcd.pm101
-rw-r--r--BCD/Common.pm126
-rw-r--r--BCD/Genisoimage.pm123
-rw-r--r--BCD/Isolinux.pm118
-rw-r--r--BCD/Media.pm1132
-rw-r--r--BCD/Resign.pm63
-rw-r--r--BCD/Stagex.pm88
-rw-r--r--BCD/Web.pm222
8 files changed, 1973 insertions, 0 deletions
diff --git a/BCD/Bcd.pm b/BCD/Bcd.pm
new file mode 100644
index 0000000..98a68e1
--- /dev/null
+++ b/BCD/Bcd.pm
@@ -0,0 +1,101 @@
+package BCD::Bcd;
+
+use strict;
+use XML::Simple;
+use Data::Dumper;
+use Pod::Usage;
+use MDK::Common;
+
+use BCD::Resign;
+use BCD::Common qw(:DEFAULT $wd $isoconf $name $arch $version $isodir $builddir $error_color $dir_deps);
+use BCD::Genisoimage;
+use BCD::Isolinux;
+use BCD::Stagex;
+use BCD::Media;
+use BCD::Web;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(main_bcd);
+our $conf_file;
+my $color = "cyan";
+
+sub print_info() {
+ print Dumper($isoconf);
+}
+
+sub help_bcd {
+ pod2usage('-verbose' => 2, '-input' => "bcd.pod", '-pathlist' => @INC);
+}
+
+sub do_all {
+ my ($option) = @_;
+ clean_all;
+ check_dir;
+ main_isolinux;
+ main_stagex;
+ main_media($option);
+ main_iso($option);
+ main_html;
+ show_info();
+}
+
+sub show_info {
+ print "\n";
+ print "ISO dir: $isodir\n";
+ print "build dir: $builddir\n";
+ print "LOG of media: /tmp/$name-$version-$arch\n";
+ print "stored URPMQ result: /var/lib/bcd/$name-$version-$arch\n";
+ print "\n";
+}
+
+sub main_bcd() {
+ my %opts = (
+ '' => \&help_bcd,
+ info => \&print_info,
+ iso => \&main_iso,
+ md5 => \&create_md5,
+ stagex => \&main_stagex,
+ isolinux => \&main_isolinux,
+ media => \&main_media,
+ gendistrib => \&use_gendistrib,
+ clean => \&clean_all,
+ list => \&list_media,
+ mediarepo => \&list_medias_available,
+ checkrepo => \&check_repo_hdlist,
+ rpmcheck => \&rpmcheck_launch,
+ doble => \&solve_doble_issue,
+ kernel => \&find_all_kernel,
+ resign => \&resign_media,
+ getsrpm => \&get_srpms_list,
+ clean => \&clean_urpmq_log,
+ html => \&main_html,
+ all => \&do_all,
+ );
+
+
+
+ if (! -d $dir_deps) {
+ print_color(" I will create $dir_deps to store all urpmq queries", $error_color);
+ print_color(" Please give full access RW to your current user to this directory", $color);
+ mkdir_p($dir_deps);
+ }
+ print_color("-- If you don't want to use previous urpmq query:\n ++ remove the directory $dir_deps\n ++ or remove the file wich contains the urpmq result for the package to redo an another one (ie: the file $dir_deps/tocopy_plop_todo_Main-drakconf)", $color);
+# $ARGV[0] or help_bcd;
+# -f $ARGV[0] or die "Cant acces to conf file $ARGV[0]\n";
+ if (my $f = $opts{$ARGV[1]}) {
+ if ($ARGV[2]) {
+ my $options;
+ foreach my $arg (2 .. $#ARGV) {
+ $arg and $options = $options . ' ' . $ARGV[$arg];
+ }
+ $f->($options);
+ } else {
+ $f->();
+ }
+ } else {
+ print_color(" ** Dont know what todo ** \n unknow option", $error_color);
+ }
+}
+
+
+1;
diff --git a/BCD/Common.pm b/BCD/Common.pm
new file mode 100644
index 0000000..df200b5
--- /dev/null
+++ b/BCD/Common.pm
@@ -0,0 +1,126 @@
+package BCD::Common;
+
+use strict;
+use XML::Simple;
+use MDK::Common;
+use Term::ANSIColor;
+use File::Copy::Recursive qw(dircopy pathrm);
+use File::Glob ':glob';
+
+use BCD::Bcd qw(:DEFAULT);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(create_needed_dir check_dir clean_all print_color);
+# export all needed var
+our @EXPORT_OK = qw($isoconf $wd $name $arch $file $based_on $version $repo $isodir $builddir $distrib_path $error_color $DISTRIB $THEME $tmp_rpmsrate $NB_FORK $dir_deps @list_of_removed $rpmrc $pwd_file $conf_file $date);
+
+my $LOG="COMMON -";
+my $color = "red";
+
+our @list_of_removed;
+
+my ($sec,$min,$hour,$mday,$mon,$year,undef,undef,undef)= localtime(time);
+$year = $year + 1900; $mon = $mon + 1;
+our $date = $year . '_' . $mon . '_' . $mday . '-' . $hour . 'h' . $min . '-' . $sec;
+
+sub whereisthedoc {
+ print_color(" 'man bcd' and man 'conf.xml'\nREAD the full documentation in pdf format available in the /usr/share/doc/bcd dir",$color) and exit 1;
+}
+if (!$ARGV[0]) {
+ print_color(" First arg must be the XML file to use!", $color);
+ whereisthedoc;
+} elsif (!$ARGV[1]) {
+ print_color(" You must do an action ! actions are:", $color);
+ print_color("###\nstagex isolinux clean media gendistrib rpmcheck list mediarepo checkrepo all\nmd5 resign clean doble nodoble kernel info iso verbose\n###", $color);
+ whereisthedoc;
+}
+our $conf_file = $ARGV[0];
+our $isoconf = XMLin($conf_file, keyattr => ['']);
+
+our $DISTRIB = $isoconf->{theme}{name};
+our $THEME = $isoconf->{theme}{theme};
+our $name = $isoconf->{nameid};
+our $NB_FORK = $isoconf->{nb_fork};
+our $wd = $isoconf->{workdir}{path};
+our $arch = $isoconf->{arch};
+our $version = $isoconf->{mediainfo}{version};
+our $repo = $isoconf->{repo}{path};
+our $based_on = $isoconf->{based_on};
+
+$DISTRIB or print_color("You must define the <theme><name> tag",$color) and exit 1;
+$THEME or print_color("You must define the <theme><theme> tag",$color) and exit 1;
+$name or print_color("You must define the <namedid> tag",$color) and exit 1;
+$wd or print_color("You must define the <workdir><path> tag",$color) and exit 1;
+$arch or print_color("You must define the <arch> tag",$color) and exit 1;
+$NB_FORK or print_color("You must define the <nb_fork> tag",$color) and exit 1;
+$version or print_color("You must define the <mediainfo><version>", $color) and exit 1;
+$repo or print_color("You must define the <repo><path> tag",$color) and exit 1;
+$based_on or print_color("You must define the <based_on> tag",$color) and exit 1;
+
+# password file
+#"/home/plop/.signature.gpg";
+our $pwd_file = $isoconf->{signature};
+#"/home/plop/.rpmrc";
+our $rpmrc = $isoconf->{rpmrc};
+
+# where to store urpmq queries results
+our $dir_deps = "/var/lib/bcd/$name-$version-$arch";
+our $builddir = "$wd/$isoconf->{iso}{genisoimage}{builddir}/$name-$version-$arch/$arch";
+our $isodir = "$wd/$isoconf->{iso}{genisoimage}{isodir}/$name-$version-$arch";
+# distrib path in chroot (mounted loop)
+our $distrib_path = "/tmp/distrib";
+our $tmp_rpmsrate = "/tmp/rpmsrate_$name-$version-$arch";
+our $error_color = "blue on_magenta";
+
+sub print_color {
+ my ($text, $color) = @_;
+ print color $color;
+ print "$text\n";
+ print color 'reset';
+
+}
+
+sub create_needed_dir {
+ my ($dir) = @_;
+ # create needed dir to create the build tree, and to store the ISO
+ if (! -d $dir) {
+ #mkdir $dir, 0755;
+ print_color("$LOG creation of $dir", $color);
+ mkdir_p($dir);
+ } else {
+ print_color("$LOG $dir already exist", $color);
+ }
+}
+
+sub check_dir {
+ create_needed_dir($builddir);
+ create_needed_dir("$builddir/$isoconf->{mediainfo}{mediainfo_dir}");
+ create_needed_dir($isodir);
+ create_needed_dir("/tmp/$isoconf->{nameid}-$version-$isoconf->{arch}");
+}
+
+sub clean_all {
+ my @l = glob("/tmp/$isoconf->{nameid}-$version-$isoconf->{arch}/$distrib_path/*");
+ foreach (@l) {
+ $_ or next;
+ if (-f "$_" || -d "$_") {
+ print_color("Distribution repositery already mounted exiting !\n Check /tmp/$isoconf->{nameid}-$version-$isoconf->{arch}/$distrib_path directory", $color);
+ print_color("sudo umount /tmp/$isoconf->{nameid}-$version-$isoconf->{arch}$distrib_path", $error_color);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{external}{name} and print_color("You should check also umount the external media /tmp/$isoconf->{nameid}-$version-$isoconf->{arch}/tmp/$media->{external}{name}\nsudo umount /tmp/$isoconf->{nameid}-$version-$isoconf->{arch}/tmp/$media->{external}{name}", $error_color);
+ }
+ print_color("WARNING: if you didnt umount repositery or external media you can erase them unless they are mounted bind in RO mode.", $color);
+ exit 1;
+ }
+ }
+ print_color("$LOG rmdir /tmp/$isoconf->{nameid}-$version-$isoconf->{arch}", $color);
+ system("sudo rm -rf /tmp/$isoconf->{nameid}-$version-$isoconf->{arch}");
+ print_color("$LOG rmdir $builddir", $color);
+ #pathrm("$wd/$isoconf->{iso}{genisoimage}{builddir}/$name/$arch") or die $!;
+ -d $builddir and system("rm -rf $builddir");
+ print_color("$LOG rmdir $isodir", $color);
+ #pathrm("$wd/$isoconf->{iso}{genisoimage}{isodir}/$name/$arch") or die $!;
+ -d $isodir and system("rm -rf $isodir");
+}
+1;
diff --git a/BCD/Genisoimage.pm b/BCD/Genisoimage.pm
new file mode 100644
index 0000000..7dba9b1
--- /dev/null
+++ b/BCD/Genisoimage.pm
@@ -0,0 +1,123 @@
+package BCD::Genisoimage;
+
+use strict;
+use XML::Simple;
+use BCD::Common qw(:DEFAULT $isoconf $wd $name $arch $version $builddir $isodir $error_color $repo $based_on);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(main_iso);
+our @EXPORT_OK = qw($isoname);
+
+my $LOG="GENISOIMAGE -";
+my $color = "green";
+
+# mandriva-linux-free-2009.1-i586
+our $isoname = $isoconf->{nameid} . '-' . $isoconf->{mediainfo}{version} . '-' . $isoconf->{arch};
+
+# genisoimage -f -sort /home/plop/tmp/build/2009.1/11.sort -r -J -hide-rr-moved -nobak -cache-inodes -A "Mandriva Linux - 2009 Spring (Free64)" -publisher "Mandriva" -sysid "Mandriva Linux" -p "Mandriva-Linux" -volset "Mandriva Linux - 2009 Spring (Free64) - DVD x86_64 [1/1]" -V "Free-20091-x86_64" -o /home/plop/iso/2009.1/11-2009.1.iso -b x86_64/isolinux/isolinux.bin -c x86_64/isolinux/boot.cat -no-emul-boot -boot-load-size 4 -boot-info-table "/home/plop/build/2009.1/first/11" /home/plop/build/2009.1/11
+
+
+sub create_version {
+ # create the VERSION file available on the base of the ISO
+ my $version_file = "$builddir/VERSION";
+ print_color("$LOG create the $version_file file", $color);
+ open my $VERSION, ">$version_file";
+ my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time());
+ $year += 1900;
+ my $tag = $isoconf->{iso}{tag};
+ my $product = $isoconf->{iso}{product};
+ my $publisher = $isoconf->{iso}{header}{publisherid};
+ printf $VERSION "$publisher $name $tag %04d%02d%02d $hour:%02d\n", $year, $mon+1, $mday, $min;
+ close $VERSION;
+}
+
+sub create_productid {
+ # vendor=Mandriva,distribution=Mandriva Linux,type=basic,version=2009.1,branch=cooker,release=0.1,arch=i586,product=maratangua
+ print_color("$LOG create the $builddir/product.id", $color);
+ my $productid_file = "$builddir/product.id";
+ open my $product_id, ">$productid_file";
+ print $product_id "vendor=$isoconf->{iso}{header}{publisherid},";
+ print $product_id "distribution=$isoconf->{iso}{header}{systemid},";
+ print $product_id "type=$isoconf->{iso}{type},";
+ print $product_id "version=$isoconf->{based_on},";
+ print $product_id "branch=$isoconf->{iso}{branch},";
+ print $product_id "release=$isoconf->{iso}{minor}.$isoconf->{iso}{subversion},";
+ print $product_id "arch=$arch,";
+ print $product_id "product=$isoconf->{iso}{product}";
+ close $product_id;
+}
+
+sub create_idx {
+ print_color("$LOG create the IDX file from $builddir/pkg-$version-$isoconf->{iso}{tag}.idx", $color);
+ # pkg-2009.1-pauillac.idx
+ system("find $builddir -name \*.rpm | awk -F 'media/' {'print \"$isoconf->{iso}{header}{volumeid} \" \$2'} | sed -e 's/\.rpm\$//g' | sort > $builddir/pkg-$version-$isoconf->{iso}{tag}.idx");
+ system("cp -v $builddir/pkg-$version-$isoconf->{iso}{tag}.idx $isodir/$isoname.idx");
+}
+
+sub create_iso {
+ # build the ISO with all args
+ print_color("$LOG Building the ISO", $color);
+ my $cmd = "genisoimage $isoconf->{iso}{genisoimage}{options} \\
+-A '$isoconf->{iso}{header}{applicationid}' \\
+-publisher '$isoconf->{iso}{header}{publisherid}' \\
+-sysid '$isoconf->{iso}{header}{systemid}' \\
+-p '$isoconf->{iso}{header}{datapreparer}' \\
+-volset '$isoconf->{iso}{header}{volumesetid}' \\
+-V '$isoconf->{iso}{header}{volumeid}' \\
+-o '$isodir/$isoname.iso' \\
+-b $arch/isolinux/isolinux.bin \\
+-boot-info-table \\
+$builddir/../
+";
+#-quiet \\
+ print_color("\n------------\n $cmd", $color);
+ system($cmd);
+ system("du -h $isodir/$isoname.iso");
+ system("du -sh $builddir/install");
+
+}
+
+sub create_md5 {
+ # create the MD5 of the ISO
+ print_color("$LOG Create the MD5 and SHA1 of the ISO", $color);
+ my $ISOFILE = "$isodir/$isoname.iso";
+ if (! -f $ISOFILE) {
+ print_color("$LOG can't find $ISOFILE", $error_color);
+ exit 1;
+ } else {
+ print_color("$LOG do a: md5sum $ISOFILE > $ISOFILE.md5", $color);
+ system("cd $isodir && md5sum $isoname.iso > $ISOFILE.md5 &");
+ print_color("$LOG do a: sha1sum $ISOFILE > $ISOFILE.sha1", $color);
+ system("cd $isodir && sha1sum $isoname.iso > $ISOFILE.sha1 &");
+ }
+}
+
+sub isohybrid {
+ print_color("$LOG isohybrid the ISO", $color);
+ my $ISOFILE = "$isodir/$isoname.iso";
+ system("isohybrid -fatfirst $ISOFILE") == 0 or die "$LOG system isohybrid failed: $?\n";
+}
+
+sub copy_textfiles {
+ map { system("cp -vf $repo/$based_on/$arch/$_ $builddir/");
+ } qw(COPYING INSTALL.txt install.htm LICENSE.txt LICENSE-APPS.txt README.txt index.htm release-notes.html release-notes.txt);
+}
+
+sub main_iso {
+ my ($option) = @_;
+ create_version;
+ create_productid;
+ copy_textfiles;
+ create_idx;
+ if ($option =~ /noiso/) {
+ print_color("$LOG skipping ISO creation", $color);
+ } else {
+ create_iso;
+ isohybrid;
+ create_md5;
+ }
+
+}
+
+1;
+
diff --git a/BCD/Isolinux.pm b/BCD/Isolinux.pm
new file mode 100644
index 0000000..41c3d97
--- /dev/null
+++ b/BCD/Isolinux.pm
@@ -0,0 +1,118 @@
+package BCD::Isolinux;
+
+use File::Copy::Recursive qw(dircopy pathrm);
+use BCD::Common qw(:DEFAULT $isoconf $wd $name $arch $version $based_on $repo $builddir);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(main_isolinux);
+
+my $LOG="ISOLINUX -";
+my $color = "yellow";
+
+my $repo_isolinux;
+if (!defined($isoconf->{isolinux}{fullpath})) {
+ $repo_isolinux = "$repo/$based_on/$arch/$isoconf->{isolinux}{defaultpath}/";
+} else {
+ $repo_isolinux = $isoconf->{isolinux}{fullpath};
+}
+my $build_isolinux_dir = "$builddir/isolinux";
+
+sub switch_theme {
+ my $theme = $isoconf->{theme}{bootsplash};
+ print_color("$LOG switch to theme $theme", $color);
+ -d "$isoconf->{theme}{bootsplash_path}/themes/$theme" or die "$LOG cant find the gfxboot theme: $isoconf->{theme}{bootsplash_path}/themes/$theme";
+ opendir my $DIR, $build_isolinux_dir or die "$LOG FATAL switch_theme: unable to open $build_isolinux_dir\n";
+ foreach my $f (readdir $DIR) {
+ $f =~ /^\.{1,2}$/ and next;
+ -d "$build_isolinux_dir/$f" or next;
+ opendir my $ALT, "$build_isolinux_dir/$f" or die "LOG FATAL switch_theme: unable to open $dir/$f\n";
+ foreach my $all (readdir $ALT) {
+ $all =~ /all.rdz/ or next;
+ my $initrd = "$build_isolinux_dir/$f/$all";
+ my $binary = "/usr/share/bootsplash/scripts/make-boot-splash-raw";
+ -x $binary or die "$LOG you need $binary which is available in bootsplash >= 3.2.3\n";
+ my $cmd;
+ if ($isoconf->{based_on} gt "2009.1") {
+ $cmd = "$binary $initrd $theme";
+ } else {
+ # old script use a resolution parameter
+ $cmd = "$binary $initrd 800x600 $theme";
+ }
+ print_color("$LOG using $f", $color);
+ system($cmd) == 0 or die "$LOG FATAL switch_theme: config file for $theme may not exist\n";
+ }
+ closedir $ALT;
+ }
+ closedir $DIR;
+ # syslinux
+ my $lilo_sys = "$isoconf->{theme}{bootsplash_path}/themes/$theme/lilo/syslinux";
+ -f $lilo_sys and system("cp -vf $lilo_sys", "$build_isolinux_dir/boot.msg");
+ print_color("$LOG copy $isoconf->{theme}{gfxboot_path}/themes/*.jpg to $build_isolinux_dir/",, $color);
+ system("cp -vf $isoconf->{theme}{gfxboot_path}/themes/$theme/welcome.jpg $build_isolinux_dir/");
+ system("cp -vf $isoconf->{theme}{gfxboot_path}/themes/$theme/back.jpg $build_isolinux_dir/");
+}
+
+sub add_entry {
+ my $syslinuxcfg = "$build_isolinux_dir/isolinux.cfg";
+ -f $syslinuxcfg or die "$LOG can't path $syslinuxcfg";
+ foreach my $syslinux (@{$isoconf->{isolinux}{entry}}) {
+ $syslinux->{name} or next;
+ print_color("$LOG add $syslinux->{name} in $syslinuxcfg", $color);
+ open my $SYS, ">> $syslinuxcfg";
+ print $SYS "label $syslinux->{label}\n";
+ print $SYS " kernel $syslinux->{kernel}\n";
+ print $SYS " append $syslinux->{append}\n";
+ close $SYS;
+ if (-f $syslinux->{bin}) {
+ system("cp -vf $syslinux->{bin} $build_isolinux_dir/");
+ } else {
+ die "$LOG $syslinux->{bin} is not present on the system !\n";
+ }
+ }
+}
+
+sub use_firmware {
+ print_color("$LOG copy fw.gz to $build_isolinux_dir/alt0/", $color);
+ my $syslinuxcfg = "$build_isolinux_dir/isolinux.cfg";
+ open (IN, "+<$syslinuxcfg");
+ @file = <IN>;
+ seek IN,0,0;
+ foreach (@file){
+ $_ =~ s|alt0/all.rdz|alt0/all.rdz,alt0/fw.gz|g;
+ print IN $_;
+ }
+ close IN;
+ system("cp -v /usr/lib*/drakx-installer-images/isolinux/alt0/fw.gz $build_isolinux_dir/alt0/")
+}
+
+sub copy_files {
+ foreach my $file (@{$isoconf->{isolinux}{tocopy}}) {
+ $file->{name} or next;
+ if (-f $file->{file}) {
+ print_color("$LOG copy $file->{file} in $build_isolinux_dir", $color);
+ system("cp -avf $file->{file} $build_isolinux_dir/");
+ } else {
+ die "$LOG $file->{file} is not present on the system !\n";
+ }
+ }
+}
+
+sub main_isolinux {
+ if (! -d $repo_isolinux) {
+ print_color("$LOG I can't find the isolinux dir $repo_isolinux !", $color);
+ exit;
+ }
+ print_color("$LOG Remove old copy of isolinux", $color);
+ pathrm("$build_isolinux_dir/isolinux") or die $!;
+ print_color("$LOG copy $repo_isolinux to $build_isolinux_dir", $color);
+ dircopy($repo_isolinux, $build_isolinux_dir) or die $!;
+ add_entry;
+ if ($isoconf->{isolinux}{firmware} eq "yes") {
+ use_firmware;
+ }
+ copy_files;
+ switch_theme;
+}
+
+1;
+
diff --git a/BCD/Media.pm b/BCD/Media.pm
new file mode 100644
index 0000000..9499d44
--- /dev/null
+++ b/BCD/Media.pm
@@ -0,0 +1,1132 @@
+package BCD::Media;
+
+use File::Copy::Recursive qw(dircopy pathrm);
+use strict;
+use URPM;
+use File::Copy;
+use File::stat;
+use Data::Dumper;
+use MDK::Common;
+use File::Glob ':glob';
+use Parallel::ForkManager;
+
+use BCD::Common qw(:DEFAULT $isoconf $wd $name $arch $version $based_on $repo $builddir $distrib_path $error_color $DISTRIB $THEME $tmp_rpmsrate $NB_FORK $dir_deps @list_of_removed);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(main_media list_media use_gendistrib list_medias_available check_repo_hdlist rpmcheck_launch solve_doble_issue clean_urpmq_log get_srpms_list find_all_kernel);
+our @EXPORT_OK = qw($rpmcheck_list_pkg $file_rpmcheck_log);
+
+my $verbose;
+my $LOG="MEDIA -";
+my $color = "magenta";
+
+# all mounted loop dir to umount
+my @to_umount;
+my @add_media;
+
+my $mediainfo_sourcedir;
+if (defined($isoconf->{mediainfo}{fullpath})) {
+ $mediainfo_sourcedir = $isoconf->{mediainfo}{fullpath};
+} else {
+ $mediainfo_sourcedir = "$repo/$based_on/$arch/$isoconf->{mediainfo}{mediainfo_dir}";
+}
+
+my $chroot_path = "/tmp/$isoconf->{nameid}-$version-$isoconf->{arch}";
+our $rpmcheck_list_pkg = "/tmp/rpmcheck_list_pkg_to_add_$isoconf->{nameid}-$version-$isoconf->{arch}";
+our $file_rpmcheck_log = "/tmp/rpmcheck_failure_$isoconf->{nameid}-$version-$isoconf->{arch}";
+
+sub create_media {
+ print_color("$LOG Create the media dir in $builddir", $color);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ create_needed_dir("$builddir/media/$media->{destmedia}");
+ }
+}
+
+sub show_size {
+ print_color("$LOG size of the builddir", $color);
+ system("du -sLh $builddir");
+}
+
+sub list_media {
+ print_color("$LOG all media are listed there:", $color);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ print "
+name: $media->{name}
+ desc: $media->{desc}
+ mediadir: $media->{mediadir}
+ destmedia: $media->{destmedia}
+ pubkey: $media->{pubkey}\n";
+ foreach my $files (@{$media->{input}}) {
+ $files->{file} or next;
+ if (-f $files->{file}) {
+ print "list of wanted: $files->{file}\n";
+ } else { print_color("$files->{file} not present", $error_color); }
+ }
+ foreach my $files (@{$media->{exclude}}) {
+ $files->{file} or next;
+ if (-f $files->{file}) {
+ print "list of exclusion: $files->{file}\n";
+ } else { print_color("$files->{file} not present", $error_color); }
+ }
+ }
+}
+
+sub copy_pubkey {
+ my ($source_key, $destmedia) = @_;
+ print_color("$LOG copy $source_key to the $builddir/media/$destmedia/media_info directory", $color);
+ create_needed_dir("$builddir/media/$destmedia/media_info/");
+ if (! -f $source_key) {
+ print_color("$LOG can't find the $source_key", $error_color);
+ #exit;
+ }
+ system("cp -vf $source_key $builddir/media/$destmedia/media_info/");
+}
+
+sub use_gendistrib {
+ my $destmedia;
+ print_color("$LOG remove hdlists and synthesys from $builddir/media/$destmedia/media_info and $builddir/media/media_info", $color);
+ system("rm -vf $builddir/media/media_info/*.cz");
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{destmedia} or next;
+ if ($destmedia eq $media->{destmedia}) { next }
+ $destmedia = $media->{destmedia};
+ system("rm -vf $builddir/media/$destmedia/media_info/*.cz");
+ system("rm -vf $builddir/media/$destmedia/media_info/MD5SUM");
+ }
+ undef $destmedia;
+ print_color("$LOG gendistrib --mediacfg $builddir/$isoconf->{iso}{mediacfg} $builddir", $color);
+ my $cmd = "gendistrib --mediacfg $builddir/$isoconf->{iso}{mediacfg} $builddir";
+ system($cmd) == 0 or die "$LOG system $cmd failed: $?\n";
+ if ($isoconf->{based_on} lt "2009.1") {
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ if ($destmedia eq $media->{destmedia}) { next }
+ $destmedia = $media->{destmedia};
+ print_color("$LOG move hdlists and synthesys from $builddir/media/$destmedia/media_info to $builddir/media/media_info/", $color);
+ system("rm -vf $builddir/media/media_info/*_$media->{name}.cz");
+ system("rm -vf $builddir/media/media_info/pubkey_$media->{name}");
+ system("cp -avf $builddir/media/$destmedia/media_info/hdlist.cz $builddir/media/media_info/hdlist_$media->{name}.cz");
+ system("cp -avf $builddir/media/$destmedia/media_info/pubkey $builddir/media/media_info/pubkey_$media->{name}");
+ system("cp -avf $builddir/media/$destmedia/media_info/synthesis.hdlist.cz $builddir/media/media_info/synthesis.hdlist_$media->{name}.cz");
+ system("rm -vf $builddir/media/$destmedia/media_info/*.cz");
+ system("rm -vf $builddir/media/$destmedia/media_info/MD5SUM");
+ }
+ }
+}
+
+sub copy_rpm {
+ my ($source_dir, $dest_dir) = @_;
+ system ("cp -a $source_dir/*.rpm $dest_dir");
+}
+
+sub create_mediacfg {
+ print_color("$LOG $builddir/$isoconf->{iso}{mediacfg}", $color);
+ system("rm -rf $builddir/$isoconf->{mediainfo}{mediainfo_dir}");
+ create_needed_dir("$builddir/$isoconf->{mediainfo}{mediainfo_dir}");
+ my $media_cfg = "$builddir/$isoconf->{iso}{mediacfg}";
+ open my $MEDIACFG, ">$media_cfg";
+ print $MEDIACFG "\n";
+ print $MEDIACFG "[media_info]\n";
+ print $MEDIACFG "version=$version\n";
+ if ($isoconf->{based_on} gt "2009.1") {
+ print $MEDIACFG "mediacfg_version=2\n";
+ }
+ print $MEDIACFG "branch=$isoconf->{iso}{branch}\n";
+ print $MEDIACFG "arch=$arch\n";
+ print $MEDIACFG "minor=$isoconf->{iso}{minor}\n";
+ print $MEDIACFG "subversion=$isoconf->{iso}{subversion}\n";
+ if ($isoconf->{mediainfo}{suppl}{todo} eq "yes") {
+ print $MEDIACFG "suppl=1\n";
+ }
+ if ($isoconf->{mediainfo}{askmedia}{todo} eq "yes") {
+ print $MEDIACFG "askmedia=1\n";
+ }
+ if ($isoconf->{mediainfo}{xmlinfo}{todo} eq "yes") {
+ print $MEDIACFG "xml-info=1\n";
+ }
+ my $destmedia;
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ if ($destmedia eq $media->{destmedia}) { next }
+ $destmedia = $media->{destmedia};
+ if ($isoconf->{based_on} lt "2009.1") {
+ print $MEDIACFG "
+
+[$media->{destmedia}]
+hdlist=hdlist_$media->{name}.cz
+pubkey=pubkey_$media->{name}
+name=$isoconf->{iso}{header}{volumesetid}
+desc=$isoconf->{iso}{header}{volumesetid}
+\n";
+} else {
+ print $MEDIACFG "
+[$media->{destmedia}]
+synthesis=$media->{destmedia}/media_info/synthesis.hdlist.cz
+hdlist=$media->{destmedia}/media_info/hdlist.cz
+pubkey=$media->{destmedia}/media_info/pubkey
+name=$media->{desc}
+\n";
+ }
+ }
+ close $MEDIACFG;
+}
+
+# based on a similar functions in pkgs.pm
+sub get_list_from_CAT {
+ #4 META_CLASS"desktop" mandriva-xfce-config-One
+ my ($file, $cat, $poids) = @_;
+ my (%rates, @need_to_copy);
+ my (@l);
+ local $_;
+ foreach (cat_($file)) {
+ s/#.*//; # comments
+ my ($indent, $data) = /(\s*)(.*)/;
+ next if !$data; # skip empty lines
+
+ @l = grep { $_->[0] < length $indent } @l;
+
+ my @m = @l ? @{$l[-1][1]} : ();
+ my ($t, $flag, @l2);
+ while ($data =~
+ /^((
+ [1-5]
+ |
+ (?: (?: !\s*)? [0-9A-Z_]+(?:".*?")?)
+ (?: \s*\|\|\s* (?: !\s*)? [0-9A-Z_]+(?:".*?")?)*
+ )
+ (?:\s+|$)
+ )(.*)/x) { #@")) {
+ ($t, $flag, $data) = ($1,$2,$3);
+ while ($flag =~ s,^\s*(("[^"]*"|[^"\s]*)*)\s+,$1,) {}
+ push @m, $flag;
+ push @l2, [ length $indent, [ @m ] ];
+ $indent .= $t;
+ }
+ if ($data) {
+ # has packages on same line
+ my ($rates, $flags) = partition { /^\d$/ } @m;
+ foreach my $name (split ' ', $data) {
+ if (member($cat, @$flags)) {
+ if ("@$rates" ge "$poids") {
+ push @need_to_copy, $name;
+ } else {
+ print "exclude $name of $cat (@$rates < $poids)\n";
+ }
+ next;
+ }
+ }
+ push @l, @l2;
+ } else {
+ push @l, [ $l2[0][0], $l2[-1][1] ];
+ }
+ }
+ \%rates, \@need_to_copy;
+}
+
+sub mini_chroot {
+ # it is usefull to use a mini chroot for add remove media, we have to keep the list of installed packages to copy them on ISO
+ print_color("$LOG create a mini chroot to run urpmi", $color);
+ # store all file needed to be installed on the system
+ my $cmd = "LC_ALL=C sudo urpmi --quiet --no-suggests --auto --no-verify-rpm --use-distrib $repo/$based_on/$arch --urpmi-root $chroot_path";
+ # sudo urpmi --no-verify-rpm --auto --urpmi-root /tmp/mk --use-distrib /mnt/BIG/dis/2009.0/i586/ basesystem-minimal urpmi --test
+ #
+ system("LC_ALL=C sudo urpmi --test --no-suggests --auto --no-verify-rpm --use-distrib $repo/$based_on/$arch --urpmi-root /tmp/$isoconf->{nameid}-$version-$isoconf->{arch} --media 'Main,Main Updates' --excludemedia 'Main Testing,Main Backports' urpmi basesystem-minimal bash basesystem > $chroot_path/$isoconf->{tocopy_file}_TODO_chroot");
+ # install all those file to be able to use urpmi.XXXXXX
+ system("LC_ALL=C $cmd --prefer $DISTRIB,$THEME urpmi bash");
+ system("sudo chroot $chroot_path mkdir -p $distrib_path");
+ system("sudo mount -o bind $repo/$based_on/$arch $chroot_path/$distrib_path -o ro");
+ push @to_umount, $distrib_path;
+ system("sudo chroot $chroot_path urpmi.removemedia -a");
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ chomp($media->{name});
+ system("LC_ALL=C sudo chroot $chroot_path urpmi.addmedia --probe-synthesis '$media->{name}' $distrib_path/media/$media->{mediadir}/release");
+ if ($media->{updates} eq "yes") {
+ system("LC_ALL=C sudo chroot $chroot_path urpmi.addmedia --update --probe-synthesis \"$media->{name} Updates\" $distrib_path/media/$media->{mediadir}/updates");
+ }
+ if ($media->{backports} eq "yes") {
+ system("sudo chroot $chroot_path urpmi.addmedia --probe-synthesis '$media->{name} Backports' $distrib_path/media/$media->{mediadir}/backport");
+ }
+ if ($media->{testing} eq "yes") {
+ system("sudo chroot $chroot_path urpmi.addmedia --probe-synthesis '$media->{name} Testing' $distrib_path/media/$media->{mediadir}/testing");
+ }
+ }
+# } else {
+# system("sudo chroot $chroot_path urpmi.addmedia --distrib $distrib_path --no-md5sum");
+# }
+}
+
+sub add_media {
+ my ($name, $path, $update) = @_;
+ print_color("$LOG add media $name from $path", $color);
+ system("sudo chroot $chroot_path mkdir -p /tmp/$name");
+ system("sudo mount -o bind $path $chroot_path/tmp/$name -o ro");
+ # check if path contain sub direcroty or not (media/release media/updates etc...)
+ if (-d "$path/release" and -d "$path/updates") {
+ print_color("$LOG This supp media contains release and updates sub-directory", $color);
+ system("LC_ALL=C sudo chroot $chroot_path urpmi.addmedia $name-release /tmp/$name/release");
+ if ($update =~ /yes/) {
+ system("LC_ALL=C sudo chroot $chroot_path urpmi.addmedia --update '$name Updates' /tmp/$name/updates");
+ }
+ } else {
+ system("LC_ALL=C sudo chroot $chroot_path urpmi.addmedia $name /tmp/$name");
+ }
+ push @to_umount, "/tmp/$name";
+ push @add_media, "$name";
+}
+
+sub drop_media {
+ my ($name) = @_;
+ print_color("$LOG remove media $name from urpmi config", $color);
+ system("LC_ALL=C sudo chroot $chroot_path urpmi.removemedia $name");
+}
+
+
+
+my $listcopy = "$chroot_path/$isoconf->{tocopy_file}";
+sub generate_list_of_rpm_2_copy {
+ my @toget;my @toexclude;my $extra;
+ mini_chroot;
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{external}{name} and add_media($media->{external}{name}, $media->{external}{fullpath_mediadir}, $media->{updates});
+ foreach my $input (@{$media->{input}}) {
+ $input->{file} or next;
+ -f $input->{file} or print_color("$LOG i can not find the $input->{file}, remove this list or fix...", $error_color);
+ foreach my $tohave (cat_($input->{file})) {
+ if ($tohave =~ /^\s/ || $tohave =~ /^\#/) {
+ next;
+ } elsif ($tohave =~ /^\S*\s\d$/) {
+ my ($section, $poids) = $tohave =~ /^(\S*)\s(\d)/;
+ print "$LOG get packages from $section using weight of $poids\n";
+ # TOFIX remove META_CLASS to avoid theme pb
+ system("cat $builddir/$isoconf->{mediainfo}{mediainfo_dir}/rpmsrate | grep -v META_CLASS > $tmp_rpmsrate");
+# system("cat $tmp_rpmsrate | grep -v theme > $tmp_rpmsrate");
+ my ($rates, $need_to_copy) = get_list_from_CAT($tmp_rpmsrate, $section, $poids);
+ foreach my $data (@{$need_to_copy}) {
+ push @toget, $data;
+ }
+ next;
+ } else {
+ chomp($tohave);
+ $verbose and print "$LOG $tohave\n";
+ push @toget, $tohave;
+ next;
+ }
+ }
+ }
+ foreach my $exclude (@{$media->{exclude}}) {
+ $exclude->{file} or next;
+ -f $exclude->{file} or print_color("$LOG i can not find the $exclude->{file}, remove this list or fix...", $error_color);
+ foreach my $totest (cat_($exclude->{file})) {
+ if ($totest =~ /^\s/ || $totest =~ /^\#/) {
+ next;
+ } else {
+ chomp($totest);
+ push @toexclude, $totest;
+ next;
+ }
+ }
+ }
+# print "$LOG $media, $toget, $toexclude";
+ create_list($media, \@toget, \@toexclude, $media->{external}{name}, $media->{media_supp});
+ @toexclude = "";
+ @toget = "";
+ }
+}
+
+sub rpmcheck_list {
+ my @toget = cat_($rpmcheck_list_pkg);
+ my $todo = @toget;
+ if ($todo ne "0") {
+ print_color("$LOG calculate deps from the auto-generated rpmcheck list file", $error_color);
+ my $list_filename = "$isoconf->{tocopy_file}_todo_rpmcheck";
+ my $list = "$chroot_path/urpmq/$list_filename";
+ my $urpmq_options = "--requires-recursive -c --sources $isoconf->{mediainfo}{urpmi_option}";
+ my $pkgs;
+ foreach (@toget) { $_ or next ; chomp($_); $pkgs = "$_ " . $pkgs; }
+ my $cmd_do_it = "LC_ALL=C sudo -P chroot $chroot_path urpmq --prefer $DISTRIB,$THEME $urpmq_options --no-suggests";
+ do_fork($pkgs, $list_filename, $list, $cmd_do_it);
+ } else {
+ print_color("$LOG No rpmcheck error", $error_color);
+ }
+}
+
+sub remove_notpresent {
+ my ($urpmi_error, $wanted) = @_;
+ my @toremove;
+ foreach my $entry (cat_($urpmi_error)) {
+ my ($data, $tor) = $entry =~ /(.*)\s(.*)\n/;
+ $data =~ /-/ and next;
+ $data =~ /^\s/ and next;
+ $tor or next;
+ push @toremove, $tor;
+ }
+ # keep only one line per packages
+ my %already_seen; my @final_list;
+ @already_seen{@toremove} = ();
+ foreach my $object (@{$wanted}) {
+ if (exists $already_seen{$object} and $verbose) { print_color("$LOG i cant find this package: $object, remove it from list", $error_color); }
+ push(@final_list, $object) unless exists $already_seen{$object};
+ }
+ # prepare the final list
+ my $final_list;
+ foreach (@final_list) {
+ chomp($_);
+ $final_list = $final_list . " $_";
+ }
+ return $final_list;
+}
+
+sub create_list {
+ my ($media, $wanted, $exclude, $extra, $media_supp) = @_;
+ my $extra_media;
+ # Main media is mandatory for all other media !
+ # we will use only Main + updates and this media + updates to calculte the list of wanted pkg
+ if ($media->{name} eq "Main") {
+ if ($media->{updates} eq "yes") {
+ #$extra_media = "--media \"Main,Main Updates,$extra,$media_supp\" --sortmedia \"Main Updates,Main\"";
+ $extra_media = "--media \"Main,Main Updates,$extra,$media_supp\"";
+ } else {
+ $extra_media = "--media \"Main,$extra,$media_supp\"";
+ }
+ } else {
+ my $extra2;
+ foreach (@add_media) { chomp($_); $_ and $extra2 = $_ . ',' . $extra2; };
+ #$extra_media = "--media \"Main,Main Updates,$extra2,$media_supp,$media->{name},$media->{name} Updates\" --sortmedia \"Main Updates,Main,$media->{name} Updates,$media->{name}\"";
+ if ($media->{updates} eq "yes") {
+ $extra_media = "--media \"Main,Main Updates,$extra2,$media_supp,$media->{name},$media->{name} Updates\"";
+ } else {
+ $extra_media = "--media \"Main,$extra2,$media_supp,$media->{name}\"";
+ }
+ }
+
+ # check the suggests option in the XML configuration
+ my $opt_sug;
+ if ($media->{nosuggests} eq "yes") {
+ $opt_sug = "--no-suggests";
+ } else { $opt_sug = ""; }
+ # list of wanted RPM per media name
+ my $list_filename = "$isoconf->{tocopy_file}_todo_$media->{name}";
+# my $list_filename_update = "$isoconf->{tocopy_file}_todo_$media->{name}_update";
+ my $list = "$chroot_path/urpmq/$list_filename";
+ my $list_update = "$chroot_path/urpmq/$list_filename" . "_update";
+ system("sudo chroot $chroot_path mkdir -m 777 -p urpmq");
+ # urpmq error file
+ my $urpmq_error = "$chroot_path/$isoconf->{tocopy_file}_urpmi_error_$media->{name}";
+ my $urpmq_error_update = "$chroot_path/$isoconf->{tocopy_file}_urpmi_error_update_$media->{name}";
+
+ # create list of wanted and exlude
+ my $tested_exclude;
+ my $tested_wanted;
+ foreach (@{$wanted}) { $tested_wanted = $tested_wanted . " $_" }
+ foreach (@{$exclude}) {
+ $_ or next;
+ $tested_exclude = $tested_exclude . " --skip $_"
+ };
+ print_color("$LOG remove unwanted mandriva-release, use $DISTRIB", $color);
+ # urpmq options (with option in the xml file)
+ my $urpmq_options = "--requires-recursive -c --sources $isoconf->{mediainfo}{urpmi_option}";
+ my $urpmq_extra_opt = "$opt_sug $extra_media";
+
+ ###
+ # do the job with update, find missing package from list
+ # only if the media as udpate option enable
+ if ($media->{updates} eq "yes") {
+ my $cmd_find_missing_update = "LC_ALL=C sudo chroot $chroot_path urpmq --update --prefer $DISTRIB,$THEME $urpmq_options $urpmq_extra_opt $tested_wanted $tested_exclude 2> $urpmq_error_update";
+ print_color("$LOG first attempt to run urpmq --update on media $media->{name} (to find all packages not availables in update)", $color);
+ system($cmd_find_missing_update);
+ # urpmq error found, so we have to remove some entry in the list of wanted packages
+ my $final_list_update = remove_notpresent($urpmq_error_update, $wanted);
+ my $cmd_do_it_update = "LC_ALL=C sudo -P chroot $chroot_path urpmq --update -a --prefer $DISTRIB,$THEME $urpmq_options $urpmq_extra_opt $tested_exclude";
+ do_fork($final_list_update, "$list_filename" . "_update", $list_update, $cmd_do_it_update);
+ }
+
+ ###
+ # select rpm from all media, find missing from list
+ my $cmd_find_missing = "LC_ALL=C sudo chroot $chroot_path urpmq --prefer $DISTRIB,$THEME $urpmq_options $urpmq_extra_opt $tested_wanted $tested_exclude 2> $urpmq_error > $list";
+ print_color("$LOG first attempt to run urpmq on media $media->{name} (to find all packages not availables)", $color);
+ system($cmd_find_missing);
+ # urpmq error found, so we have to remove some entry in the list of wanted packages
+ my $final_list = remove_notpresent($urpmq_error, $wanted);
+ print_color("$LOG launch urpmq on media $media->{name} (to create $list)", $color);
+ my $cmd_do_it = "LC_ALL=C sudo -P chroot $chroot_path urpmq --prefer $DISTRIB,$THEME $urpmq_options $urpmq_extra_opt $tested_exclude";
+ do_fork($final_list, $list_filename, $list, $cmd_do_it);
+}
+
+
+sub do_fork {
+ my ($final_list, $list_filename, $list, $cmd) = @_;
+ my @list_alone = split(/ /, $final_list);
+ my $count = @list_alone;
+ my $status = "0";
+ my $pm = new Parallel::ForkManager($NB_FORK);
+ print_color("$LOG $count transactions to do ... be patient !!!!", $color);
+ $| = 1;
+ foreach my $pkg (@list_alone) {
+ $pkg or next;
+ $status++;
+ my $pid = $pm->start and next;
+ back_and_print($status, $count);
+ # check an urpmq has been done before in an other media
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ if (-f "$dir_deps/$isoconf->{tocopy_file}_todo_$media->{name}-$pkg") {
+ $verbose and print_color("$LOG found the urpmq transaction for $pkg, i will use it $dir_deps/$isoconf->{tocopy_file}_todo_$media->{name}-$pkg", $color);
+ system("touch $dir_deps/bypass-$pkg");
+ system("cp -f $dir_deps/$isoconf->{tocopy_file}_todo_$media->{name}-$pkg $list-$pkg");
+ #system("cp -f $dir_deps/$isoconf->{tocopy_file}_todo_$media->{name}-$pkg $dir_deps/$list_filename-$pkg");
+ last;
+ } else {
+ $verbose and print_color("$LOG can't found the urpmq transaction", $color);
+ }
+ }
+ # check an urpmq has been done before in this media
+ if (-f "$dir_deps/bypass-$pkg") {
+ #my $pkg_found = `grep -P '\/$pkg-' $dir_deps/$list_filename-$pkg`;
+ #$pkg_found = basename($pkg_found);
+ $verbose and print_color("$LOG found the urpmq transaction for $pkg, i will the previous one found in $dir_deps directory", $color);
+ #system("cp -f $dir_deps/$list_filename-$pkg $list-$pkg");
+ } else {
+ # match the case using --update option
+ my $cmd_do_it = "$cmd $pkg > $list-$pkg";
+ if ($cmd =~ /\-\-update/) {
+ my @result = `urpmq --update $pkg`;
+ foreach (@result) {
+ # exact match with --update option
+ $_ or next;
+ if ($_ =~ /^$pkg/) {
+ system($cmd_do_it);
+ system("cp -f $list-$pkg $dir_deps/$list_filename-$pkg");
+ last;
+ } else { $verbose and print "$LOG $pkg is not in update, it's a package that contains the string $pkg!\n"; last }
+ }
+ } else {
+ system($cmd_do_it);
+ system("cp -f $list-$pkg $dir_deps/$list_filename-$pkg");
+ }
+ }
+ $pm->finish;
+ }
+ print_color("$LOG Waiting for the end of some urpmq command...", $color);
+ $pm->wait_all_children;
+ print_color("$LOG all urpmq command are done...", $color);
+}
+
+
+sub back_and_print {
+ my ($status, $total) = @_;
+ printf STDERR "%s / %2d \n", $status, $total;
+ print STDERR "\e[A";
+}
+
+
+sub concatenate_files {
+ # remove urpmq queries from excluded packages
+ print_color("$LOG remove urpmq queries from removed packages", $color);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ foreach my $exclude (@{$media->{exclude}}) {
+ $exclude->{file} or next;
+ -f $exclude->{file} or print_color("$LOG i can not find the $exclude->{file}, remove this list or fix...", $error_color);
+ foreach my $totest (cat_($exclude->{file})) {
+ chomp($totest);
+ if (! $totest) { next };
+ system("rm -vf $chroot_path/urpmq/$isoconf->{tocopy_file}_todo_*$totest");
+ }
+ }
+ }
+ print_color("$LOG create the final list: $listcopy", $color);
+ system("cat $chroot_path/urpmq/$isoconf->{tocopy_file}_todo_* > $listcopy.tmp");
+ system("sed -e 's|^\\w*\\s/|/|' $listcopy.tmp > $listcopy");
+ system("grep '^/' $listcopy > $listcopy.tmp");
+ system("cat $listcopy.tmp | sort | uniq > $listcopy");
+}
+
+sub target_size {
+ print_color("$LOG calculate the size of all packages:", $color);
+ my $total;my $pkg_info;
+ foreach my $pkg (cat_($listcopy)) {
+ chomp($pkg);
+ if (-f "$pkg") {
+ # stat is not really good to get size file of linked packages over nfs
+ $pkg_info = stat($pkg);
+ $total = ($total+$pkg_info->size);
+ next;
+ } else { next; }
+ }
+ my $human_total = int(($total/1024)/1024);
+ print_color("$LOG Size of all RPMS: $human_total Mo", $color);
+ my $left = ($isoconf->{iso}{size} - $human_total);
+ # i need to add the install/ directory size
+ if ("$isoconf->{iso}{size}" ge "$human_total") {
+ print_color("$LOG all you data will fit on the CD/DVD, extra size: $left", $color);
+ } else {
+ print_color("$LOG all packages will not fit on $isoconf->{iso}{size}, i need $left Mo", $error_color);
+ }
+}
+
+sub count_nb_to_copy {
+ my ($file) = @_;
+ my $lines = 0;
+ open(FILE, $file) or die "Can't open `$file': $!";
+ while (sysread FILE, my $buffer, 4096) {
+ if ($buffer =~ /^install/ || $buffer =~ /^\-/ || $buffer =~ /^More/ || $buffer =~ /^Install/ ) {
+ next;
+ } else {
+ $lines += ($buffer =~ tr/\n//);
+ }
+ }
+ close FILE;
+ return $lines;
+}
+
+sub find_source_dest_media {
+ my ($todeal) = @_;
+ # distribution path
+ if ($todeal =~ m!^$distrib_path!) {
+ # find the source media name
+ # f_path will contrib/release, dir_f_path will be contrib
+ my ($f_path) = $todeal =~ /^$distrib_path\/media\/(.*)/;
+ my $dir_f_path = dirname($f_path);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ # find a mediadir or next one
+ $media->{mediadir} or next;
+ #print "DEBUG media->name: $media->{mediadir} f_path: $f_path\n";
+ # try to find the source media
+ if ($media->{mediadir} eq $dir_f_path) {
+ #print "DEBUG todeal: $todeal FROM $repo/$based_on/$arch/media/$f_path TO media/$media->{destmedia}\n";
+ return("$repo/$based_on/$arch/media/$f_path", "media/$media->{destmedia}");
+ }
+ }
+ next;
+ } else {
+ #external repository
+ #/tmp/u_xos or /tmp/u_xos/release and /tmp/u_xos/updates
+ my ($source_media) = $todeal =~ /\/tmp\/(.*)/;
+ # find the dest media from source media
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ # find a media or next one
+ $media->{name} or next;
+ if ($source_media eq $media->{name}) {
+ #print "DEBUG todeal: $todeal DEBUG media->name: $media->{name} source_media: $source_media\n";
+ # we have found the media so destmedia is $media->{destmedia}
+ # return the destmedia
+ return($media->{external}{fullpath_mediadir}, "media/$media->{destmedia}");
+ } elsif ($source_media eq "$media->{name}/release") {
+ return("$media->{external}{fullpath_mediadir}/release", "media/$media->{destmedia}");
+ } elsif ($source_media eq "$media->{name}/updates") {
+ return("$media->{external}{fullpath_mediadir}/updates", "media/$media->{destmedia}");
+ }
+ next;
+ }
+ }
+}
+
+sub parse_copy_link {
+ my ($wichaction) = @_;
+ my $count;my $action;
+ if ($wichaction =~ /link/) {
+ $action = "ln -sf";
+ } else {
+ $action = "cp -fa";
+ }
+ my $total = count_nb_to_copy($listcopy);
+ print_color("$LOG $wichaction all wanted packages to $builddir/XXXX ($total packages)", $color);
+ # chroot packages
+ if (!-f "$chroot_path/$isoconf->{tocopy_file}_TODO_chroot") { exit 1 }
+ foreach my $line (cat_("$chroot_path/$isoconf->{tocopy_file}_TODO_chroot")) {
+ chomp($line);
+ my @list = split(/ /, $line);
+ my $data = $list[$#list];
+ # if (! -d $data) { print "$data is not a directory !\n"; }
+ foreach my $pkg (@list) {
+ if (-f "$data/$pkg") {
+ #print "$LOG $action $data/$pkg TO1 $builddir/media/main/$pkg\n";
+ system("$action $data/$pkg $builddir/media/main/$pkg");
+ next;
+ } elsif (-f $data) {
+ my $package = basename($data);
+ chomp($package);
+ #print "$LOG $action $data TO2 $builddir/media/main/$package\n";
+ system("$action $data $builddir/media/main/$package");
+ next;
+ }
+ }
+ }
+ foreach my $tocopy (cat_($listcopy)) {
+ chomp($tocopy);
+ #print "info tocopy $tocopy\n";
+ my @list = split(/ /, $tocopy);
+ # path final
+ my $data2 = $list[$#list];
+ my ($path, $pkg) = $tocopy =~ m!^(/.*)/(.*)\.[rpm|]$!;
+ # une ligne avec un mot avant
+ # $pkg or ($path, $pkg) = $tocopy =~ m!^\w+\s(/.*)/(.*)\.rpm$!;
+
+ my $source_media; my $dest_media;
+ my $package = basename($data2);
+ my $dirn = dirname($data2);
+ if (-f "$chroot_path/$data2" || !-d "$chroot_path/$data2") {
+ chomp($package);
+ ($source_media, $dest_media) = find_source_dest_media($dirn);
+ $dest_media or print "$LOG $package is require/suggest but has no destination, removing it from list\n" and next;
+ #print "parse_copy_link package: $package, sourcemedia: $source_media, dest_media: $dest_media\n";
+ #print "parse_copy_link $LOG $action $source_media/$package TO3 $builddir/$dest_media/$package\n";
+ system("$action $source_media/$package $builddir/$dest_media/$package");
+ next;
+ } else {
+ #print "$chroot_path/$data2 data2 is a directory \n";
+ ($source_media, $dest_media) = find_source_dest_media($data2);
+ foreach my $pkg2 (@list) {
+ if (-f "$chroot_path/$data2/$pkg2") {
+ print "DATA2/pkg2 i found $chroot_path/$data2/$pkg2 \n";
+ #print "$LOG $action $source_media/$pkg2 TO4 $builddir/$dest_media/$pkg2\n";
+ system("$action $source_media/$pkg2 $builddir/$dest_media/$pkg2");
+ next;
+ }
+ }
+ }
+ $path or next;
+ if (!-d "$chroot_path/$path") {
+ print "";
+ #print "$chroot_path/$path isnt a directory\n";
+ } elsif (-f "$chroot_path/$path/$pkg") {
+ #print "$chroot_path/$path/$pkg is a package\n";
+ ($source_media, $dest_media) = find_source_dest_media($path);
+ $package = basename("chroot_path/$path/$pkg");
+ chomp($package);
+ #print "$LOG $action $source_media/$package TO5 $builddir/$dest_media/$pkg\n";
+ system("$action $source_media/$package $builddir/$dest_media/$pkg");
+ next;
+ } else { print "lost in space !!\n"; }
+ next;
+ }
+}
+
+sub rpmVersionCompare {
+ my ($pkg1, $pkg2) = @_;
+ my ($name_a, $av, $ar) = $pkg1 =~ /^(?:([^:]*):)?([^-]*)(?:-(.*))?$/;
+ my ($name_b, $bv, $br) = $pkg2 =~ /^(?:([^:]*):)?([^-]*)(?:-(.*))?$/;
+ my $rc = 0;
+ if(defined($name_a) && ! defined($name_b)) {
+ return 1;
+ } elsif(!defined($name_a) && defined($name_b)) {
+ return -1;
+ } else {
+ $rc = URPM::rpmvercmp($name_a, $name_b) if (defined($name_a) && defined($name_b));
+ if ($rc == 0) {
+ $rc = URPM::rpmvercmp($av, $bv);
+ if ($rc == 0) {
+ if(defined($ar) && !defined($br)) {
+ return 1;
+ } elsif(!defined($ar) && defined($br)) {
+ return -1;
+ } elsif (!defined($ar) && !defined($br)) {
+ return 0;
+ } else {
+ return URPM::rpmvercmp($ar, $br);
+ }
+ } else {
+ return $rc;
+ }
+ } else {
+ return $rc;
+ }
+ }
+}
+
+sub remove_all_excluded {
+ # this functions should be available if explicitely needed, it's really too dangerous to remove packages from a list...
+ print_color("$LOG remove all RPM from exclude list", $color);
+ print_color("$LOG WARNING remove needed packages can break dependencies, check rpmcheck messages", $error_color);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ if ($media->{remove_noarch} =~ /yes/) {
+ print_color("$LOG remove noarch from media $media->{name} $builddir/media/$media->{destmedia}/", $color);
+ system("rm -rf $builddir/media/$media->{destmedia}/*.noarch.rpm");
+ }
+ foreach my $exclude (@{$media->{exclude}}) {
+ $exclude->{file} or next;
+ -f $exclude->{file} or print_color("$LOG i can not find the $exclude->{file}, remove this list or fix...", $error_color);
+ foreach my $totest (cat_($exclude->{file})) {
+ chomp($totest);
+ if (! $totest) { next };
+ if ($totest =~ /^\s.*/ || $totest =~ /^\#/) {
+ next;
+ } else {
+ my @l = glob("$builddir/media/$media->{destmedia}/$totest*.rpm");
+ foreach my $file (@l) {
+ $file or next;
+ if (-f $file) {
+ $verbose and print "$LOG $file found, removing this file\n";
+ system("rm -f $file");
+ next;
+ }
+ }
+ }
+ next;
+ }
+ next;
+ }
+ }
+}
+
+sub copy_filedeps {
+ print_color("$LOG copy $mediainfo_sourcedir/$isoconf->{mediainfo}{filedeps} in $builddir/$isoconf->{mediainfo}{mediainfo_dir}", $color);
+ -f "$mediainfo_sourcedir/$isoconf->{mediainfo}{filedeps}" or print "$LOG missing filedeps\n";
+ system("cp -vf $mediainfo_sourcedir/$isoconf->{mediainfo}{filedeps} $builddir/$isoconf->{mediainfo}{mediainfo_dir}/file-deps") == 0 or die "$LOG copy of $mediainfo_sourcedir/$isoconf->{mediainfo}{filedeps} failed: $?\n";
+}
+
+sub copy_rpmsrate {
+ print_color("$LOG copy $mediainfo_sourcedir/$isoconf->{mediainfo}{rpmsrate} in $builddir/$isoconf->{mediainfo}{mediainfo_dir}", $color);
+ -f "$mediainfo_sourcedir/$isoconf->{mediainfo}{rpmsrate}" or print "$LOG missing rpmsrate\n";
+ system("cp -vf $mediainfo_sourcedir/$isoconf->{mediainfo}{rpmsrate} $builddir/$isoconf->{mediainfo}{mediainfo_dir}/rpmsrate") == 0 or die "$LOG copy of $mediainfo_sourcedir/$isoconf->{mediainfo}{rpmsrate} failed: $?\n";
+}
+
+sub copy_compssusers {
+ print_color("$LOG copy $mediainfo_sourcedir/$isoconf->{mediainfo}{compssusers} in $builddir/$isoconf->{mediainfo}{mediainfo_dir}", $color);
+ -f "$mediainfo_sourcedir/$isoconf->{mediainfo}{compssusers}" or print "$LOG missing compssusers\n";
+ system("cp -vf $mediainfo_sourcedir/$isoconf->{mediainfo}{compssusers} $builddir/$isoconf->{mediainfo}{mediainfo_dir}/compssUsers.pl") == 0 or die "$LOG copy of $mediainfo_sourcedir/$isoconf->{mediainfo}{compssusers} failed: $?\n";;
+}
+
+sub use_genhdlist2 {
+ my $destmedia;
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ if ($destmedia eq $media->{destmedia}) { next }
+ $destmedia = $media->{destmedia};
+ print_color("$LOG build hdlists and synthesys in $builddir/media/$media->{destmedia}", $color);
+ system("genhdlist2 -v --clean --file-deps $builddir/media/media_info/$isoconf->{medianfo}{filedeps} --media_info-dir $builddir/media/media_info/ $builddir/media/$media->{destmedia}");
+ system("mv $builddir/media/$destmedia/media_info/hdlist.cz $builddir/media/media_info/hdlist_$media->{name}.cz");
+ system("mv $builddir/media/$destmedia/media_info/synthesis.hdlist.cz $builddir/media/media_info/synthesis.hdlist_$media->{name}.cz");
+# system("genhdlist2 --quiet --clean --no-hdlist --file-deps $builddir/media/media_info/$isoconf->{medianfo}{filedeps} $builddir/media/$media->{destmedia}");
+ }
+ system("cd $builddir/media/media_info/ && md5sum *.cz > MD5SUM");
+}
+
+sub rpmcheck_launch {
+ my $options = "-explain -failures";
+ my $destmedia = "0";
+ print_color("$LOG launch rpmcheck to check hdlists", $color);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{drop} =~ /yes/ and drop_media("$media->{name}-release");
+ if ($destmedia eq $media->{destmedia}) { next }
+ $destmedia = $media->{destmedia};
+ system("cp $builddir/media/$destmedia/media_info/hdlist.cz $builddir/media/media_info/hdlist_$media->{name}.cz");
+ }
+ my $cmd = "zcat $builddir/media/media_info/hdlist*.cz | rpmcheck $options";
+ print_color("$LOG $cmd", $color);
+ system("$cmd 2> /dev/null > $file_rpmcheck_log") == 0 or die "$LOG system $cmd failed: $?\n";
+ open my $LIST_FAILURE, ">$rpmcheck_list_pkg.tmp";
+ my @list_failure = cat_($file_rpmcheck_log);
+ foreach my $package (@list_failure) {
+ print "$package";
+ my ($package2) = $package =~ /^\s+(\S*)\s.*/;
+ $package2 and print $LIST_FAILURE "$package2\n";
+ }
+ close $LIST_FAILURE;
+ system("cat $rpmcheck_list_pkg.tmp | sort | uniq > $rpmcheck_list_pkg");
+ print_color("$LOG check this file $file_rpmcheck_log", $color);
+ print_color("$LOG check this file $rpmcheck_list_pkg", $color);
+}
+
+sub remove_hdlist {
+ my $destmedia;
+ if ($isoconf->{based_on} gt "2009.1") {
+ print_color("$LOG remove hdlists*.cz from $builddir/media/media_info", $color);
+ system("rm -vf $builddir/media/media_info/hdlist*.cz");
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ if ($destmedia eq $media->{destmedia}) { next }
+ $destmedia = $media->{destmedia};
+ print_color("$LOG remove hdlists from $builddir/media/$destmedia/media_info", $color);
+ system("rm -vf $builddir/media/$destmedia/media_info/hdlist.cz");
+ system("cd $builddir/media/$destmedia/media_info ; md5sum *.cz > MD5SUM");
+ }
+ }
+}
+
+sub copy_all_pubkey {
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ if ($media->{pubkey} eq "") {
+ print_color("$LOG using $media->{file_pubkey}", $color);
+ copy_pubkey($media->{file_pubkey}, "$media->{destmedia}");
+ } else {
+ # media/ dir will be added in the copy_pubkey functions
+ print_color("$LOG $repo/$based_on/$arch/media/$media->{mediadir}/$media->{pubkey}, $media->{destmedia}", $color);
+ copy_pubkey("$repo/$based_on/$arch/media/$media->{mediadir}/$media->{pubkey}", "$media->{destmedia}");
+ }
+ next;
+ }
+}
+
+sub list_medias_available {
+ #my @mediacfg = cat_("$repo/$based_on/$arch/$isoconf->{mediainfo_dir}/media.cfg");
+ print_color("$LOG list all medias availables in $repo/$based_on/$arch repositery", $color);
+ my @mediacfg = cat_("$repo/$based_on/$arch/media/media_info/media.cfg");
+ my @medias = grep {/^name=/} @mediacfg;
+ foreach my $media (@medias) {
+ $media =~ s/name\=//;
+ $media and print("$media");
+ }
+}
+
+sub check_repo_hdlist {
+ my $options = "-explain -failures";
+ print_color("$LOG check media repositery hdlists in $repo/$version/$arch", $color);
+ system("zcat $repo/$version/$arch/media/media_info/hdlist*ain.cz | rpmcheck $options");
+}
+
+sub umount_all_mountloop {
+ print "$LOG umount all mounted loop dir\n";
+ foreach (@to_umount) {
+ system("sudo umount $chroot_path/$_");
+ }
+}
+
+sub get_srpms_list {
+ my $pm = new Parallel::ForkManager(20);
+ my $pkg_name; my @srpms; my @checked; my $already_done;
+ my $tmp_bs = "/tmp/list_BS-$isoconf->{nameid}-$version-$isoconf->{arch}";
+ system("mkdir $tmp_bs");
+ system("rm -f $tmp_bs/*");
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{destmedia} or next;
+ foreach (@checked) { $_ or next ; $media->{destmedia} =~ /^$_$/ and $already_done = 1; };
+ $already_done and next;
+ push @checked, $media->{destmedia};
+ my @list_pkg = glob("$builddir/media/$media->{destmedia}/*.rpm");
+ my $list_srpm = "$tmp_bs/list_SRPM-$isoconf->{nameid}-$version-$isoconf->{arch}-$media->{name}-$media->{destmedia}";
+ my $list_buildreq = "$tmp_bs/list_BUILDREQ-$isoconf->{nameid}-$version-$isoconf->{arch}-$media->{name}-$media->{destmedia}";
+ my $total = @list_pkg;
+ my $status = "0";
+ print_color("$LOG i have to find $total SRPMS name in the media media/$media->{destmedia} ... be patient !!!!", $color);
+ foreach my $pkg (@list_pkg) {
+ $status++;
+ my $pid = $pm->start and next;
+ $pkg_name = `rpm -qp --queryformat %{SOURCERPM} $pkg`;
+ # tostore somewhere
+ # $media->{name} $pkg_name
+ system("sudo chroot $chroot_path echo '$pkg_name' > $list_srpm-$pkg_name");
+ back_and_print($status, $total);
+ $pm->finish;
+ $pm->wait_all_children;
+ }
+ system("cat $tmp_bs/list_SRPM-* | sort | uniq > $list_srpm");
+ my @list_srpm = cat_($list_srpm);
+ $total = @list_srpm;
+ $status = "0";
+ print_color("$LOG get the buildrequires from SRPMS", $color);
+ foreach my $srpm (@list_srpm) {
+ $srpm or next;
+ $status++;
+ chomp($srpm);
+ my $pid = $pm->start and next;
+ my $pkg = `basename $srpm .src.rpm`;
+ my $SRPMS_PATH;
+ # find the package in an official sub dir
+ my @struct = qw(release updates backport testing);
+ back_and_print($status, $total);
+ my @data; my $q;
+ foreach (@struct) {
+ #print "$repo/$based_on/SRPMS/$media->{mediadir}/$_/$srpm";
+ if (-f "$repo/$based_on/SRPMS/$media->{mediadir}/$_/$srpm") {
+ $SRPMS_PATH="$repo/$based_on/SRPMS/$media->{mediadir}/$_/";
+ my $media="--sortmedia \"Main Updates,Main,Contrib Updates,Contrib\"";
+ system("LC_ALL=C urpmq --use-distrib $repo/$based_on/$arch $media --sources --requires-recursive --prefer $DISTRIB,$THEME,kernel-source-dekstop --no-suggests $SRPMS_PATH/$srpm > $list_buildreq-$srpm");
+ last;
+ } else {
+ #print "$repo/$based_on/SRPMS/$media->{mediadir}/$_/$srpm doesnt exist \n";
+ next;
+ }
+ }
+ $pm->finish;
+ $pm->wait_all_children;
+ }
+ system("cat $tmp_bs/list_BUILDREQ-* | sort | uniq > $list_buildreq");
+ system("cp $list_buildreq $chroot_path/list_ALL_BUILDREQ");
+ system("cp $list_srpm $chroot_path/list_ALL_SRPM");
+# system("rm -f $tmp_bs/list_BUILDREQ-* $tmp_bs/list_SRPM-*");
+ }
+}
+
+
+sub extra_filter {
+ my ($filter) = @_;
+ print_color("$LOG compare versions of $filter and keep the latest one", $color);
+ my @l; my $keeped;
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{destmedia} or next;
+ @l = glob("$builddir/media/$media->{destmedia}/$filter-*.rpm");
+ my $l = @l; $l eq "0" and last;
+ foreach (@l) {
+ my $pkg = basename($_);
+ # check it will be a number after the filter name
+ $pkg =~ /$filter\-\d.*/ or next;
+ $keeped or $keeped = $pkg;
+ $pkg ne $keeped and print "$LOG COMPARE $pkg and $keeped:\n" or next;
+ my $r = rpmVersionCompare($pkg, $keeped);
+ if ($r eq "-1") {
+ $keeped = $keeped;
+ print "i will keep $keeped\n";
+ system("rm -vf $builddir/media/$media->{destmedia}/$pkg");
+ next;
+ } elsif ($r eq "1") {
+ system("rm -vf $builddir/media/$media->{destmedia}/$keeped");
+ $keeped = $pkg;
+ print "i will keep $keeped\n";
+ next;
+ };
+ }
+ }
+}
+
+sub solve_doble_issue {
+ my $pkg_name; my $pkg_version;
+ my @list_to_filter; my @todeal;
+ my %already_seen; my @final_list;
+ my $keeped;
+ # 50 should not cause any trouble... NB_FORK is too small...
+ my $pm = new Parallel::ForkManager(50);
+ my @checked; my $already_done;
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{destmedia} or next;
+ foreach (@checked) { $_ or next; $_ =~ /^\#/ and next ; $media->{destmedia} =~ /^$_$/ and $already_done = 1; };
+ $already_done and next;
+ push @checked, $media->{destmedia};
+ # get all rpm from the media dir
+ my @list_pkg = glob("$builddir/media/$media->{destmedia}/*.rpm");
+ my $total = @list_pkg;
+ my $status = "0";
+ print_color("$LOG i have to check $total doble in the media media/$media->{destmedia} ... be patient !!!!", $color);
+ # parse all files in the media
+ foreach my $pkg (@list_pkg) {
+ $status++;
+ # get the rpm name
+ my $pid = $pm->start and next;
+ $pkg_name = `rpm -qp --queryformat %{name} $pkg`;
+ my @l = glob("$builddir/media/$media->{destmedia}/$pkg_name*.rpm");
+ my $l = @l; $l eq "0" and last;
+ foreach (@l) {
+ #print_color("$LOG compare versions of $filter and keep the latest one", $color);
+ $_ or next; my $found = 0;
+ my $pkg = basename($_);
+ foreach (cat_($isoconf->{mediainfo}{filter})) {
+ if ($_ =~ /^$pkg_name/) { print "- skipping $_\n (from $isoconf->{mediainfo}{filter} file)" and $found = 1; }
+ }
+ if ($_ =~ /kernel/) { print "- $pkg_name is a package relative to a kernel ! will be treated later\n"; }
+ $found eq "1" and next;
+ $pkg =~ /^$pkg_name\-\d.*/ or next;
+ # bypass special case like libwnck-1_22
+ $pkg =~ /^$pkg_name\-\d\_.*/ and print "- $pkg comparaison skipped... (bcd regexp)\n" and next;
+ # check it will be a number after the filter name
+ $keeped or $keeped = $pkg;
+ #print "$LOG COMPARE $pkg and $keeped: \n";
+ my $r = rpmVersionCompare($pkg, $keeped);
+ if ($r eq "-1") {
+ $keeped = $keeped;
+ $verbose and print "i will keep $keeped and erase $builddir/media/$media->{destmedia}/$pkg\n";
+ system("rm -f $builddir/media/$media->{destmedia}/$pkg");
+ push @list_of_removed, "$builddir/media/$media->{destmedia}/$pkg";
+ } elsif ($r eq "1") {
+ system("rm -f $builddir/media/$media->{destmedia}/$keeped");
+ $keeped = $pkg;
+ $verbose and print "i will keep $keeped and remove $builddir/media/$media->{destmedia}/$keeped\n";
+ push @list_of_removed, "$builddir/media/$media->{destmedia}/$keeped";
+ };
+ }
+ back_and_print($status, $total);
+ $pm->finish;
+ print_color("$LOG Waiting for the end of some system command...", $color);
+ $pm->wait_all_children;
+ }
+ }
+}
+
+sub find_all_kernel {
+ print_color("$LOG kernel comparaison", $color);
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ $media->{destmedia} or next;
+ my @l = glob("$builddir/media/$media->{destmedia}/kernel-*.rpm");
+ my $l = @l; $l eq "0" and last;
+ foreach my $k (@l) {
+ my ($kname, $kversion) = $k =~ m/kernel-([\w]+(?:\-[\w]+){0,3})-([0-9]+(?:\.[0-9]+){2,3})/;
+ $kname or next;
+ #print_color("$LOG i will compare all versions of kernel-$kname and keep the latest one", $color);
+ extra_filter("kernel-$kname");
+ next;
+ }
+ }
+}
+
+sub process_list_link {
+ my ($option) = @_;
+ concatenate_files;
+ # link or copy
+ if ($option =~ /copy/) {
+ parse_copy_link("copy");
+ } else {
+ parse_copy_link("link");
+ }
+ # remove packages listed in exclude list
+ remove_all_excluded;
+ if ($option =~ /nodoble/) { print_color("$LOG skipping doble\n", $color); } else { solve_doble_issue; }
+ find_all_kernel;
+ use_gendistrib;
+## use_genhdlist2;
+}
+
+sub clean_urpmq_log {
+ my ($option) = @_;
+ if ($option =~ /clean/) {
+ print_color("$LOG i will remove all previous urpmq log", $color);
+ system("rm -rf $dir_deps");
+ }
+}
+
+sub main_media {
+ my ($option) = @_;
+ if ($option =~ /verbose/) { $verbose = "1"; }
+ list_media;
+ create_media;
+ copy_all_pubkey;
+
+ create_mediacfg;
+
+ copy_filedeps;
+ copy_rpmsrate;
+ copy_compssusers;
+
+ create_needed_dir($chroot_path);
+ print_color("$LOG erase previous bypasss file", $color);
+ system("rm -f $dir_deps/bypass-*");
+ generate_list_of_rpm_2_copy;
+ process_list_link($option);
+ # target_size;
+ # first rpmcheck launch
+ rpmcheck_launch;
+ rpmcheck_list;
+ process_list_link($option);
+ # second laucn of rpmcheck (should have fix a lot of missing deps)
+ rpmcheck_launch;
+ umount_all_mountloop;
+ remove_hdlist;
+ show_size;
+ my $l = @list_of_removed;
+ if ($l ne "0") {
+ print_color("$LOG List of package removed, if you dont want to remove them, just add them in the file $isoconf->{mediainfo}{filter}:", $color);
+ foreach (@list_of_removed) { print "$_\n"; }
+ }
+}
+
+1;
+
diff --git a/BCD/Resign.pm b/BCD/Resign.pm
new file mode 100644
index 0000000..b6cc001
--- /dev/null
+++ b/BCD/Resign.pm
@@ -0,0 +1,63 @@
+package BCD::Resign;
+
+use strict;
+use Parallel::ForkManager;
+use File::Glob ':glob';
+use File::Basename;
+use Expect;
+
+use BCD::Common qw(:DEFAULT $isoconf $NB_FORK $rpmrc $pwd_file $builddir);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(resign_media);
+
+my $verbose;
+my $LOG="MEDIA -";
+my $color = "yellow";
+
+my $password;
+if (defined $pwd_file) {
+ -f $pwd_file and $password = `cat $pwd_file`;
+}
+
+sub print_info {
+ map { if (!-f $pwd_file) { print_color("$LOG I cant find $_ file, i cant sign packages...", $color); } } $rpmrc, $pwd_file;
+ print_color("$LOG i will resign using info in those files: $rpmrc $pwd_file", $color);
+}
+
+sub resign_media {
+ print_info();
+ my $pm = new Parallel::ForkManager($NB_FORK);
+ my @list_path; my @checked; my $already_done;
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ foreach (@checked) { $_ or next ; $media->{destmedia} =~ /^$_$/ and $already_done = 1; };
+ $already_done and next;
+ push @checked, $media->{destmedia};
+ push @list_path, $media->{destmedia};
+ print_color("$LOG resigning packages from $media->{destmedia} media", $color);
+ }
+ foreach (@list_path) {
+ my @list_pkg = glob("$builddir/media/$_/*.rpm");
+ my $count = @list_pkg;
+ print_color("$count transactions to do ... be patient !!!!", $color);
+ my $status = "0";
+ foreach my $pkg (@list_pkg) {
+ $pkg or next;
+ my $basename_pkg = basename($pkg);
+ $status++;
+ my $pid = $pm->start and next;
+ print("$basename_pkg ($status/$count)\n");
+ my $command = Expect->spawn("LC_ALL=C rpm --rcfile=$rpmrc --resign $pkg") or die "Couldn't start rpm: $!\n";
+ $command->log_stdout($verbose);
+ $command->expect(20, -re, 'Enter pass phrase:' => sub { print $command $password; });
+ $command->expect(undef);
+ $command->soft_close();
+ $pm->finish;
+ }
+ print_color("Waiting for the end of some signature...", $color);
+ $pm->wait_all_children;
+ print_color("all signature are done...", $color);
+ }
+}
+
+1;
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;
diff --git a/BCD/Web.pm b/BCD/Web.pm
new file mode 100644
index 0000000..235e375
--- /dev/null
+++ b/BCD/Web.pm
@@ -0,0 +1,222 @@
+package BCD::Web;
+
+use strict;
+use BCD::Media qw($rpmcheck_list_pkg $file_rpmcheck_log);
+use BCD::Genisoimage qw($isoname);
+use URPM;
+use File::Slurp;
+use MDK::Common;
+
+use BCD::Common qw(:DEFAULT $isoconf $isodir $wd $arch $version $based_on $repo $THEME $name $conf_file $date);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(main_html);
+
+my $verbose;
+my $LOG="MEDIA -";
+my $color = "pink";
+
+my $index = $isoconf->{nameid} . '-' . $isoconf->{mediainfo}{version} . '-' . $isoconf->{arch} . ".html";
+my $public_html = "~/public_html";
+my $webdir = "$public_html/$isoname-$date";
+
+map { !-d "$webdir/$_" and system("mkdir -p $webdir/$_"); } qw(log rpmcheck input iso);
+
+sub main_html {
+ #next_build_info;
+ show_general_info();
+ copy_conf();
+ link_input();
+ prep_build_log();
+ show_rpmcheck();
+ rename_iso();
+ link_urpmq_log();
+ clean_previous_iso();
+ link_iso();
+ open my $B, ">>$index";
+ print $B "</html>";
+ close $B;
+ system("mv $index $webdir/");
+ system("ln -sf $webdir/$index $webdir/index.html");
+}
+
+sub show_general_info {
+ my $date_repo;
+ if (-f "$repo/$based_on/$arch/VERSION") {
+ $date_repo = read_file("$repo/$based_on/$arch/VERSION");
+ } else { $date_repo = "UNKNOW date"; print "You should check that a VERSION file is present"; }
+ open my $B, ">$index";
+ print $B "<HTML>
+ <HEAD>
+ <STYLE TYPE='text/css'>
+a:link {
+ color: #0073c7;
+ background-color: inherit;
+}
+
+a:visited {
+ color: #5A88B5;
+ background-color: inherit;
+}
+
+a:hover,
+a:active {
+ color: #0073c7;
+ background-color: #f0f0f0;
+}
+h2 {
+ padding: 0.2em;
+ margin: 0 0 0.5em 0;
+ border: 1px solid #405871;
+ background-color: inherit;
+ color: #036;
+ text-decoration: none;
+ font-size: 22px;
+ font-weight: bold;
+}
+
+h1 {
+ padding: 0.2em 0 0.2em 0.7em;
+ margin: 10px 0 0.5em 0;
+ text-decoration: none;
+ font-size: 18px;
+ font-weight: bold;
+ background: #FF7700;
+ color: white;
+}
+h3 {
+ background-color: inherit;
+ color: #ff7700;
+ text-decoration: none;
+ font-weight: bold;
+ font-size: 16px;
+ margin: 1.3em 0 0.4em 0;
+ padding: 0;
+}
+
+ </STYLE>
+ </HEAD>
+ <TITLE>$isoname</TITLE>
+ <h1 name='main h1'>$isoname build at $date</h1>
+ <BODY>
+ ";
+ print $B "<ul>\n";
+ print $B "<li>Date of the synchronisation to the cooker repository: <b>$date_repo</b></li>\n";
+ print $B "<li>Configuration file used: <a href='$conf_file'>$conf_file</a></li>\n";
+ print $B "<li>Architecture: <b>$arch</b></li>\n";
+ print $B "<li>Distribution based on: <b>$based_on</b></li>\n";
+ print $B "<li>Version: <b>$version</b></li>\n";
+ print $B "<li>Theme used: <b>$THEME</b></li>\n";
+ print $B "</ul>\n";
+ close $B;
+}
+
+sub copy_conf {
+ system("cp $conf_file $webdir/");
+}
+
+
+sub link_input {
+ open my $B, ">>$index";
+ print $B "<hr>\n";
+ print $B "<h1 name='Media list'>Media list</h1>\n";
+ close $B;
+ foreach my $media (@{$isoconf->{media}{list}}) {
+ $media->{name} or next;
+ open my $B, ">>$index";
+ print $B "<h2 name='Media $media->{name}'>Media $media->{name}</h1>";
+ print $B "<pre>
+Name of the media: $media->{name}
+Description: $media->{desc}
+From wich dir: $media->{mediadir}
+destination dir: $media->{destmedia}
+Pubkey: $media->{pubkey}
+</pre>
+";
+ print $B "<h3 name='list of input file'>list of input file</h3>\n";
+ print $B "<ul>\n";
+ foreach my $files (@{$media->{input}}) {
+ $files->{file} or next;
+ if (-f $files->{file}) {
+ my $short_name = basename($files->{file});
+ print $B "<li><a href='input/$short_name'>$short_name</a></li>\n";
+ system("cp -af $files->{file} $webdir/input/");
+ } else { print $B "<li><b>$files->{file} not present</b></li>"; }
+
+ }
+ print $B "</ul>\n";
+ print $B "<h3 name='list of exclude file'>list of exclude file</h3>\n";
+ print $B "<ul>\n";
+ foreach my $files (@{$media->{exclude}}) {
+ $files->{file} or next;
+ if (-f $files->{file}) {
+ my $short_name = basename($files->{file});
+ print $B "<li><a href='input/$short_name'>$short_name</a></li>\n";
+ system("cp -af $files->{file} $webdir/input/");
+ } else { print $B "</li><b>$files->{file} not present</b></li>"; }
+ }
+ print $B "</ul>\n";
+ close $B;
+ }
+}
+
+sub prep_build_log {
+ system("cp -af /var/lib/bcd/$name-$version-$arch/* $webdir/log/");
+}
+
+sub show_rpmcheck {
+ my $size;
+ system("cp -af $rpmcheck_list_pkg $file_rpmcheck_log $webdir/rpmcheck/");
+ open my $B, ">>$index";
+ print $B "<h1 name='RPMCHECK status'>RPMCHECK Status</h1>\n";
+ my @files = glob("$webdir/rpmcheck/*");
+ foreach (@files) {
+ $size = (stat($_))[7];
+ print $size;
+ if ($size ne 0) {
+ print $B "<fond color=red><b>ERROR in RPMCHECK !</b></font>\n";
+ }
+ }
+ print $B "<a href=rpmcheck/>rpmcheck directory</a> (rpmcheck --explain --failures)\n";
+ close $B;
+}
+
+sub clean_previous_iso {
+ system("find $public_html/$isoname* -name \.iso -exec rm -vf {} \;");
+}
+
+sub rename_iso {
+ #-f "$isodir/$isoname.iso" and system("cp -f $isodir/$isoname.iso $webdir/iso/$isoname-$date.iso");
+ -f "$isodir/$isoname.idx" and system("cp -f $isodir/$isoname.idx $webdir/iso/$isoname-$date.idx");
+ -f "$isodir/$isoname.iso.md5" and system("cp -f $isodir/$isoname.iso.md5 $webdir/iso/$isoname-$date.iso.md5");
+ -f "$isodir/$isoname.iso.sha1" and system("cp -f $isodir/$isoname.iso.sha1 $webdir/iso/$isoname-$date.iso.sha1");
+
+}
+
+sub link_urpmq_log {
+ open my $B, ">>$index";
+ print $B "<hr>\n";
+ print $B "<h1 name='Link to URPMQ logs'>Link to URPMQ logs</h1>\n";
+ print $B "<a href=log/>All log of URPMQ command per package/media</a> (based on: urpmq --requires-recursive -c --sources)\n";
+ close $B;
+}
+
+sub link_iso {
+ open my $B, ">>$index";
+ print $B "<hr>\n";
+ print $B "<h1 name='Link to ISO, IDX, SHA1 and MD5'>Link to ISO, IDX, SHA1 and MD5</h1>\n";
+ print $B "<ul>\n";
+ if (-f "$webdir/iso/$isoname-$date.iso") {
+ print $B "<li><a href=iso/$isoname-$date.iso>$isoname-$date.iso</a></li>\n";
+ print $B "<li><a href=iso/$isoname-$date.iso.md5>$isoname-$date.iso.md5</a></li>\n";
+ print $B "<li><a href=iso/$isoname-$date.iso.sha1>$isoname-$date.iso.sha1</a></li>\n";
+ } else {
+ print $B "<li><fond color=red><b>No ISO available</b></font></li>\n";
+ }
+ print $B "<li><a href=iso/$isoname-$date.idx>$isoname-$date.idx</a></li>\n";
+ print $B "</ul>\n";
+ close $B;
+}
+
+
+1;