summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-05-02 09:23:39 +0000
committerOlivier Blin <oblin@mandriva.com>2007-05-02 09:23:39 +0000
commit36fc8a336a93306cf7e5440eb094181647e314b0 (patch)
tree456ce07f464c1429e8368e08b785d32e84850da3
downloaddraklive-36fc8a336a93306cf7e5440eb094181647e314b0.tar
draklive-36fc8a336a93306cf7e5440eb094181647e314b0.tar.gz
draklive-36fc8a336a93306cf7e5440eb094181647e314b0.tar.bz2
draklive-36fc8a336a93306cf7e5440eb094181647e314b0.tar.xz
draklive-36fc8a336a93306cf7e5440eb094181647e314b0.zip
reimport draklive in SVN
-rw-r--r--.perl_checker19
-rw-r--r--Makefile8
-rw-r--r--NEWS157
-rwxr-xr-xdraklive1531
-rw-r--r--draklive-copy-wizard.desktop7
5 files changed, 1722 insertions, 0 deletions
diff --git a/.perl_checker b/.perl_checker
new file mode 100644
index 0000000..1f21891
--- /dev/null
+++ b/.perl_checker
@@ -0,0 +1,19 @@
+constant
+AutoLoader
+Carp::Heavy
+Cwd
+Date::Manip
+Digest::MD5
+Encode
+encoding
+File::Find
+File::FnMatch
+File::Path
+File::Temp
+Gtk2::Gdk::Keysyms
+IO::Handle
+Pod::Usage
+String::ShellQuote
+Text::ParseWords
+Term::ReadKey
+urpm::parallel
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..db42fad
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,8 @@
+NAME = draklive
+VERSION = 0.5
+
+check:
+ perl -cw $(NAME)
+
+clean:
+ find -name '*~' -exec rm {} \;
diff --git a/NEWS b/NEWS
new file mode 100644
index 0000000..6f610ef
--- /dev/null
+++ b/NEWS
@@ -0,0 +1,157 @@
+0.5:
+
+* chroot
+- use glob() instead of glob_() to support again non-wildcarded
+ filenames in live->{system}{files} and live->{media}{files}
+
+* loopbacks
+- use noappend option in mksquashfs to overwrite previous loopbacks
+
+
+0.4:
+
+* config
+- make loopback fs configurable
+- allow to define fallbacks directories
+ (will be mounted only if the mountpoint is not already mounted)
+- XiB are now used instead of XB when specified fs size is expanded
+- allow to specify min_size in custom squash_union helper
+- introduce "plain" mount type (instead of empty mount type)
+- split build/media prefixes
+- allow to specify additional mount options for storage media
+ (such as umask=...)
+- add live-{system}{hide_media_dirs} and live->{media}{files}
+ (see details in "master" section)
+- allow to use glob patterns in live->{system}{files} and
+ live->{media}{files}
+
+* bootloader
+- use grub-install and grub files from chroot, and make it use custom
+ boot directory
+
+* chroot
+- create draklive-resize configuration file and do not build loopback
+ fs if min_size is specified
+
+* loopbacks
+- use tmpfs as fallback if the ext2 loopback can not be mounted
+- repair loopbacks non-interactively
+
+* master
+- set MTOOLS_SKIP_CHECK to 1 when running mlabel (some USB pens are
+ misdetected by mtools)
+- allow to hide media dirs by adding '.' in prefixes when
+ live-{system}{hide_media_dirs} is set
+- use mattrib to hide media dirs from windows
+- install grub on both master device and partition (fix boot on buggy
+ Intel BIOS)
+- allow to copy files directly to the final image/media using
+ live->{media}{files} (implemented for USB only)
+
+
+0.3:
+
+* interface
+- make --boot-only copy only boot files (instead of using boot media)
+- add --boot-image option to create a boot image for the selected
+ method
+- make string command line options mandatory
+- add --dump-config option
+- allow to load settings from command line using --define options
+- drop --region option (use --define region=)
+
+* config
+- make the system.loop size configurable
+- handle GigaBytes for loopback sizes
+- rename live->{post} as live->{system}{initrd_post}
+- export region as DRAKLIVE_REGION for auto_install
+- allow to provide stage2 updates with live->{system}{stage2_updates}
+- allow to make the initrd reread a device partition table using
+ live->{media}{rereadpt}
+ (useful if USB partition changes after some PIN input)
+- allow to customize bootloader title in live->{media}{title}
+- default to config/live.cfg config path
+- allow to load live->{settings} from a file and default to
+ config/settings.cfg
+- use region/repository/root/workdir variables from live->{settings}
+- rename "workdir" setting as "builddir"
+- rename "root" setting as "chroot"
+- automatically add arch to specified repository
+
+* chroot installation
+- remove /etc/dbus-1/machine-id
+- really don't apply patches if they look already applied
+- workaround buggy installation of directories that are not owned by
+ any packages (using 022 umask)
+- do not try to install packages if the additional media is only aimed
+ at adding extra sources (warly)
+- remove urpmi media before starting additional media installation
+- install additional media just before they are required
+- get drakx-in-chroot from the repository
+- run install/rpm commands for targetted architecture
+
+* bootloader
+- unlink grub device map so that grub rechecks the map
+- die when grub or rsync fail
+- don't install bootloader on non-block device
+- partial gfxboot support (#26430)
+- build bootloader files for boot methods listed in
+ media->{extra_boot}
+- display help file if not bootlogo is available
+- add missing newlines in syslinux/grub configuration files
+
+* loopbacks
+- don't use sort file if it doesn't exist
+- adapt mksquashfs output parsing to latest release
+- die if mksquashfs fails
+- don't pass float to mkfs.vfat
+- run fsck on rw loopback files before mounting them
+- don't reserv blocks on ext2/3 filesystems, we don't create root fs
+- compute an approximative size for USB master images
+
+* master/record
+- don't use a timeout for rsync copy (should fix USB mastering)
+- pass -F option to mke2fs only for non-block devices
+- use genisoimage
+- die if genisoimage can not be run
+- use wodim instead of cdrecord
+
+* copy wizard
+- don't create a master for onthefly USB recording
+- don't show Previous button in copy wizard (#25868)
+- allow to select a master image in the copy wizard
+- update progress during live USB recording
+- add an end step
+- warn if an error occurs during live copy
+- use 788 as default vga mode
+
+* misc:
+- don't add splash/vga settings on cmdline if no vga mode is defined
+- umount any nfs volume in /mnt (warly)
+- use the 'never' timeout value instead of hardcoded values
+- automatically select storage type if only one is available
+- define directory mounts in their mount order, and reverse the order
+ when mounting unionfs
+- guess arch using rpm _target_cpu macro
+- add arch in chroot and builddir paths
+- include desktop in builddir/chroot name if specified
+
+
+
+0.2:
+
+- remove modprobe.preload.d files
+- remove /etc/udev/rules.d/61-*_config.rules files
+- use patch batch mode (-t) not to apply already applied patches and die if a patch can't be applied
+- run shell in initrd when the "debug" option is on cmdline
+- allow to add additionnal boot entries
+- umount filesystem which could stay mounted in the chroot before cleaning (warly)
+- default splash image is now splash.xpm.gz for grub
+- rename draklive.desktop as draklive-copy-wizard.desktop
+
+
+
+0.1:
+
+- use system's mount to mount NFS loopbacks
+- sort squashfs loopback if a config/distrib.sort file is present
diff --git a/draklive b/draklive
new file mode 100755
index 0000000..4fa167d
--- /dev/null
+++ b/draklive
@@ -0,0 +1,1531 @@
+#!/usr/bin/perl
+
+# draklive $Id: draklive 150793 2007-04-05 12:08:47Z blino $
+
+# Copyright (C) 2005 Mandriva
+# Olivier Blin <oblin@mandriva.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.
+
+use lib qw(/usr/lib/libDrakX);
+use MDK::Common;
+use common;
+use list_modules;
+use fs;
+use modules;
+use detect_devices;
+use run_program;
+use POSIX qw(strftime);
+use Cwd 'getcwd';
+use Getopt::Long;
+use Pod::Usage;
+use File::Temp;
+
+my $dir_distrib_sqfs = {
+ mountpoint => '/distrib',
+ type => 'squashfs',
+ source => 'distrib.sqfs',
+ # perl -MMDK::Common -e 'print map_index { (32767 - $::i) . " $_" } grep { !m,^/(?:dev|proc|sys|live/distrib), } uniq(<>)' < bootlog.list > config/distrib.sort
+ sort => "config/distrib.sort",
+ build_from => '/',
+};
+my $dir_memory = {
+ mountpoint => '/memory',
+ type => 'tmpfs',
+};
+
+# this is not unused (it can be used from config file):
+my %predefined = (
+ mounts => {
+ simple_union => {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ {
+ mountpoint => '/media',
+ type => 'plain',
+ },
+ $dir_memory,
+ ],
+ },
+ volatile_squash_union => {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ $dir_distrib_sqfs,
+ $dir_memory,
+ ],
+ },
+ multi_squash_union => {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ $dir_distrib_sqfs,
+ {
+ mountpoint => '/system',
+ type => 'squashfs',
+ source => 'system.sqfs'
+ },
+ $dir_memory,
+ ],
+ },
+ },
+);
+
+# this is not unused (it can be used from config file):
+my %custom = (
+ media => {
+ nfs => sub {
+ my ($module, $client, $source) = @_;
+ {
+ extra_modules => [ $module ],
+ fs => 'nfs',
+ storage => 'nfs',
+ pre => "ifconfig eth0 $client up",
+ source => $source,
+ };
+ },
+ },
+ mounts => {
+ squash_union => sub {
+ my ($default_size, $o_min_size) = @_;
+ {
+ root => '/union',
+ overlay => 'unionfs',
+ dirs => [
+ $dir_distrib_sqfs,
+ {
+ mountpoint => '/system',
+ type => 'loopfs',
+ pre_allocate => $default_size,
+ if_(defined $o_min_size, min_size => $o_min_size),
+ fs => 'ext2',
+ source => 'system.loop'
+ },
+ {
+ mountpoint => '/system',
+ type => 'tmpfs',
+ fallback => 1,
+ },
+ ],
+ };
+ },
+ },
+);
+
+my %storage = (
+ cdrom => {
+ modules => 'bus/usb disk/cdrom|hardware_raid|ide|raw|sata|scsi|usb',
+ fs => 'iso9660',
+ source => 'LABEL=MDVCDROOT',
+ read_only => 1,
+ detect => \&detect_devices::burners,
+ create => \&create_cdrom_master,
+ format => \&format_cdrom_device,
+ record_needs_master => 1,
+ record => \&record_cdrom_master,
+ },
+ usb => {
+ modules => 'bus/usb disk/raw|usb',
+ fs => 'vfat',
+ bootloader => 'grub',
+ source => 'LABEL=MDVUSBROOT',
+ detect => sub { grep { detect_devices::isKeyUsb($_) } detect_devices::get() },
+ create => \&create_usb_master,
+ format => \&format_usb_device,
+ record => \&record_usb_master,
+ },
+);
+
+sub nls_modules {
+ my ($live) = @_;
+ if_(get_media_setting($live->{media}, 'fs') eq 'vfat', 'nls_cp437'), #- default FAT codepage
+ map { "nls_$_" } (map { "iso8859-$_" } 1..7, 9, 13..15), 'utf8';
+}
+
+sub progress_start {
+ my ($total, $time, $o_exp_divide) = @_;
+ {
+ total => $total,
+ current => 0,
+ start_time => $time,
+ exp_divide => $o_exp_divide,
+ maxl => length($total) - $o_exp_divide,
+ };
+}
+
+sub progress_show {
+ my ($progress, $time) = @_;
+ my $elapsed_time = $time - $progress->{start_time};
+ my $eta = int($elapsed_time*$progress->{total}/$progress->{current});
+ printf("\r%3d%% (%$progress->{maxl}s/%-$progress->{maxl}s), %8s/%8s (ETA)",
+ int(100*$progress->{current}/$progress->{total}),
+ (map { substr($_, 0, length($_)-$progress->{exp_divide}) } $progress->{current}, $progress->{total}),
+ (map { POSIX::strftime("%H:%M:%S", gmtime($_)) } $elapsed_time, $eta));
+}
+
+sub progress_end() { print "\n" }
+
+my $loop_number = 0;
+my %loop = (
+ squashfs => {
+ read_only => 1,
+ modules => [ qw(loop squashfs) ],
+ build => sub {
+ my ($live, $dir) = @_;
+ my $dest = get_builddir($live) . $live->{prefix}{build}{loopbacks} . '/' . $_->{source};
+ my $root = get_system_root($live) . $_->{build_from};
+ my $total = directory_usage($root);
+ print "have to process " . int($total/1000000) . " MB\n";
+ my $progress = progress_start($total, time(), 6);
+ my $exclude_file = tmpnam();
+ output_p($exclude_file, map { $root . "$_\n" } list_excluded_files($live));
+ my $sort = $live->{settings}{config_root} . '/' . $dir->{sort};
+ run_foreach(sub {
+ if (/^mksquashfs: file .*, uncompressed size (\d+) bytes\s*(?:DUPLICATE|LINK)?$/) {
+ $progress->{current} += $1;
+ progress_show($progress, time());
+ }
+ },
+ 'mksquashfs', $root, $dest, '-noappend', '-no-progress', '-info',
+ '-ef', $exclude_file,
+ if_(-f $sort, '-sort', $sort),
+ ) or die "unable to run mksquashfs";
+ progress_end();
+ unlink $exclude_file;
+ },
+ mount => sub {
+ my ($live, $dir) = @_;
+ $dir->{loop} = "/dev/loop" . $loop_number++;
+ (
+ "/bin/losetup $dir->{loop} $live->{prefix}{live}{mnt}$live->{prefix}{media}{mnt}$live->{prefix}{media}{loopbacks}/$dir->{source}",
+ "mount -o ro -t squashfs $dir->{loop} $live->{prefix}{live}{mnt}$dir->{mountpoint}",
+ );
+ },
+ },
+ loopfs => {
+ modules => [],
+ build => sub {
+ my ($live, $dir) = @_;
+ my $dest = get_builddir($live) . $live->{prefix}{build}{loopbacks} . '/' . $_->{source};
+ device_allocate_fs($dest, $dir->{pre_allocate});
+ device_mkfs($dest, $dir->{fs}) if !defined $dir->{min_size};
+ },
+ mount => sub {
+ my ($live, $dir) = @_;
+ $dir->{loop} = "/dev/loop" . $loop_number++;
+ my $fsck = "chroot </dev/tty1 $live->{prefix}{live}{mnt}$dir_distrib_sqfs->{mountpoint} /sbin/fsck $dir->{loop}";
+ (
+ "losetup $dir->{loop} $live->{prefix}{live}{mnt}$live->{prefix}{media}{mnt}$live->{prefix}{media}{loopbacks}/$dir->{source}",
+ qq(sh -c "$fsck -a || $fsck -y"),
+ "mount -t $dir->{fs} $dir->{loop} $live->{prefix}{live}{mnt}$dir->{mountpoint}",
+ );
+ },
+ },
+ plain => {},
+ tmpfs => {
+ mount => sub {
+ my ($live, $dir) = @_;
+ my $mnt = $live->{prefix}{live}{mnt} . $dir->{mountpoint};
+ my $cmd = "mount -t tmpfs none $mnt";
+ $dir->{fallback} ? qq(sh -c 'if ! grep -q " $mnt " /proc/mounts; then $cmd; fi') : $cmd;
+ },
+ },
+);
+
+my %overlay = (
+ unionfs => {
+ modules => [ qw(unionfs) ],
+ mount => sub {
+ my ($live) = @_;
+ #- build dirs list: "dir1=ro:dir2:ro:dir3=rw"
+ my $dirs = join(':',
+ map { "$live->{prefix}{live}{mnt}$_->{mountpoint}=" .
+ (!$loop{$_->{type}}{read_only} ? 'rw' : 'ro');
+ } reverse grep { !$_->{fallback} } @{$live->{mount}{dirs} || []});
+ "mount -o dirs=$dirs -t unionfs unionfs $live->{prefix}{live}{mnt}$live->{mount}{root}";
+ },
+ },
+);
+
+my %moddeps;
+sub load_moddeps {
+ my ($root, $kernel_path) = @_;
+ my $get_modname = sub { first($_[0] =~ m!^$kernel_path/kernel/(?:.*/|)(.*?)\.k?o!) };
+ %moddeps = (map {
+ my ($f, $deps) = split ':';
+ my $modname = $get_modname->($f);
+ $modname => { full => $f, deps => [ map { $get_modname->($_) } split ' ', $deps ] };
+ } cat_($root . $kernel_path . '/modules.dep'));
+}
+sub moddeps_closure {
+ my ($module) = @_;
+ my @deps = @{$moddeps{$module}{deps}};
+ (map { moddeps_closure($_) } @deps), @deps;
+}
+
+sub directory_usage { first(split /\s/, `du -sb $_[0]`) }
+
+sub run_ {
+ my $options = ref $_[0] eq 'HASH' ? shift @_ : {};
+ my @cmd = @_;
+ $options->{timeout} ||= 'never';
+ my $setarch = delete $options->{setarch};
+ unshift @cmd, 'setarch', $setarch if $setarch;
+ print STDERR "running " . (exists $options->{root} && "(in chroot) ") . join(' ', @cmd) . "\n";
+ run_program::raw($options, @cmd);
+}
+
+sub run_foreach {
+ my ($foreach, @command) = @_;
+ print STDERR "running " . join(' ', @command) . "\n";
+ open(my $OUTPUT, '-|', @command);
+ local $_; #- avoid outside $_ to be overwritten
+ $foreach->() while <$OUTPUT>;
+ close $OUTPUT;
+}
+
+sub get_live_name {
+ my ($live) = @_;
+ join('-', grep { $_ } @{$live->{settings}}{qw(name product desktop region media arch)});
+}
+
+sub get_builddir {
+ my ($live) = @_;
+ $live->{settings}{builddir} . '/' . get_live_name($live);
+}
+
+sub get_system_root {
+ my ($live) = @_;
+ $live->{settings}{chroot} . '/' . get_live_name($live);
+}
+
+sub get_initrd_path {
+ my ($media) = @_;
+ '/' . $media->{storage} . '/initrd.gz';
+}
+
+sub get_syslinux_path {
+ my ($media, $opts) = @_;
+ '/' . $media->{storage} . '/syslinux' . ($opts->{boot} && '-boot-' . $opts->{boot}) . '.cfg';
+}
+
+sub find_kernel {
+ my ($live) = @_;
+ my $kernel = $live->{system}{kernel};
+ unless ($kernel) {
+ my $vmlinuz = readlink(get_system_root($live) . '/boot/vmlinuz');
+ $vmlinuz ||= find { -e $_ } glob_(get_system_root($live) . '/boot/vmlinuz-*');
+ $kernel = first($vmlinuz =~ /\bvmlinuz-(.*)$/) or die "no kernel can be found";
+ }
+ $kernel;
+}
+
+sub create_initrd {
+ my ($live) = @_;
+ foreach ($live->{media}, @{$live->{extra_media}}) {
+ create_initrd_for_media($live, $_);
+ }
+ cp_f(get_builddir($live) . $live->{prefix}{build}{boot} . get_initrd_path($live->{media}),
+ $live->{copy_initrd}) if $live->{copy_initrd};
+}
+
+sub create_initrd_for_media {
+ my ($live, $media) = @_;
+
+ my $initrd_tree = get_builddir($live) . $live->{prefix}{build}{initrd} . '/' . $media->{storage};
+ rm_rf($initrd_tree) if -e $initrd_tree;
+
+ my ($lib_prefix, $need_libs, @libs);
+ foreach (qw(/lib64 /lib)) {
+ my @ld = glob(get_system_root($live) . $_ . '/ld-*.so.*');
+ my @libc = glob(get_system_root($live) . $_ . '/libc.so.*');
+ if (@ld && @libc) {
+ @libs = (@ld, @libc);
+ $lib_prefix = $_;
+ last;
+ }
+ }
+ $lib_prefix or die 'unable to find system libraries in /lib or /lib64';
+
+ mkdir_p($initrd_tree . $_) foreach
+ qw(/bin /dev /proc /sys), $lib_prefix,
+ map { $live->{prefix}{live}{mnt} . $_ }
+ $live->{prefix}{media}{mnt},
+ $live->{mount}{root},
+ map { $_->{mountpoint} } @{$live->{mount}{dirs} || []};
+
+ #- use nash with label support
+ cp_f(get_system_root($live) . '/sbin/nash', $initrd_tree . '/bin/');
+
+ #- busybox is required to:
+ #- detect usb-storage process (we need sh/while/ps/grep)
+ #- mount loopbacks read-only with losetup (useful over NFS)
+ my $busybox = get_system_root($live) . '/usr/bin/busybox';
+ cp_f($busybox, $initrd_tree . '/bin')
+ or die 'unable to copy busybox from system chroot';
+ my @l = map { /functions:/ .. /^$/ ? do { s/\s//g; split /,/ } : () } `$busybox`;
+ shift @l;
+ symlink('busybox', $initrd_tree . "/bin/$_") foreach @l;
+
+ my $rrpt_dev = get_media_setting($media, 'rereadpt');
+ if ($rrpt_dev) {
+ $need_libs = 1;
+ cp_f(get_system_root($live) . '/sbin/blockdev', $initrd_tree . '/bin')
+ or die 'unable to copy blockdev from system chroot';
+ }
+
+ if (get_media_setting($media, 'fs') eq 'nfs') {
+ $need_libs = 1;
+ cp_f(get_system_root($live) . '/sbin/ifconfig', $initrd_tree . '/bin/');
+ #- needed to mount NFS (with nolock)
+ cp_f(get_system_root($live) . '/bin/mount', $initrd_tree . '/bin/');
+ if ($live->{debug}) {
+ cp_f(get_system_root($live) . '/bin/ping', $initrd_tree . '/bin/');
+ cp_f(glob(get_system_root($live) . $lib_prefix . '/libresolv*.so.*'), $initrd_tree . $lib_prefix);
+ }
+ }
+ if ($live->{debug}) {
+ $need_libs = 1;
+ cp_f(get_system_root($live) . '/usr/bin/strace', $initrd_tree . '/bin/');
+ }
+
+ cp_f(@libs, $initrd_tree . $lib_prefix) if $need_libs;
+
+ require devices;
+ devices::make($initrd_tree . "/dev/$_") foreach
+ if_($rrpt_dev, $rrpt_dev),
+ qw(console initrd null ram systty),
+ (map { "tty$_" } 0..5),
+ (map { "loop$_" } 0..7);
+
+ my $kernel = find_kernel($live);
+ print "using kernel $kernel\n";
+ load_moddeps(get_system_root($live), "/lib/modules/" . $kernel);
+
+ my ($modules, $skipped) = partition { exists $moddeps{$_} }
+ uniq(map { modules::cond_mapping_24_26($_) } category2modules(get_media_setting($media, 'modules')));
+ my ($extra_modules, $extra_missing) = partition { exists $moddeps{$_} }
+ nls_modules($live),
+ get_media_fs_module($media),
+ @{get_media_setting($media, 'extra_modules') || []},
+ (map { @{$loop{$_}{modules} || []} } uniq(map { $_->{type} } @{$live->{mount}{dirs} || []})),
+ ($live->{mount}{overlay} ? @{$overlay{$live->{mount}{overlay}}{modules} || []} : ());
+
+ my @additional_modules = map { m!([^/]+)\.ko! } @{$live->{system}{additional_modules}};
+ cp_f(map { $live->{settings}{config_root} . '/' . $_ } @{$live->{system}{additional_modules}}, $initrd_tree . "/lib/");
+
+ my @missing = sort(difference2($extra_missing, \@additional_modules));
+ @missing and die "missing mandatory modules:\n" . join("\n", @missing);
+ push @$modules, @$extra_modules;
+
+ if ($live->{system}{exclude_modules}) {
+ print STDERR "excluding modules: " . join(' ', @{$live->{system}{exclude_modules}}) . "\n";
+ @$modules = difference2($modules, $live->{system}{exclude_modules});
+ }
+
+ my @module_deps = uniq(map { moddeps_closure($_) } @$modules);
+ mkdir_p($initrd_tree . "/lib");
+ run_program::run('gzip', '>', $initrd_tree . "/lib/$_.ko", '-dc', get_system_root($live) . $moddeps{$_}{full})
+ foreach @module_deps, @$modules;
+
+ @$skipped and print STDERR "skipped modules: " . join(' ', sort(@$skipped)) . "\n";
+
+ #- move ide-generic to end of loaded modules, so that it registers unhandled drives only
+ #- this avoid it to take-over drives which would have been managed by SATA modules
+ my ($head, $tail) = partition { $_ ne 'ide-generic' } @$modules;
+ @$modules = (@$head, @$tail);
+
+ create_initrd_linuxrc($live, $media, @module_deps, @$modules, @additional_modules);
+ compress_initrd_tree($live, $media);
+ add_splash($live, $media);
+}
+
+sub create_initrd_linuxrc {
+ my ($live, $media, @modules) = @_;
+ my $target = $live->{prefix}{live}{mnt} . ($live->{mount}{root} || $live->{prefix}{media}{mnt});
+ my $pre = get_media_setting($media, 'pre');
+ my $fs = get_media_setting($media, 'fs');
+ my $rrpt_dev = get_media_setting($media, 'rereadpt');
+ my $debug_shell = "sh -c 'if grep -q debug /proc/cmdline; then exec sh; fi'";
+ my @mount_options = (
+ if_(get_media_setting($media, 'read_only'), "ro"),
+ grep { $_ } get_media_setting($media, 'mount_options'),
+ );
+ output_with_perm(get_builddir($live) . $live->{prefix}{build}{initrd} . '/' . $media->{storage} . '/linuxrc', 0755,
+ join("\n",
+ "#!/bin/nash",
+ (map { "insmod /lib/$_.ko" } @modules),
+ #- required for labels and ps
+ "mount -t proc none /proc",
+ #- required for cdrom labels
+ "mount -t sysfs none /sys",
+ if_(member('usb-storage', @modules),
+ #- wait some seconds for the usb-stor-scan process to be run
+ "sleep 2",
+ q(sh -c 'while ps | grep -q \\\[usb-stor-scan\\\]; do sleep 1; done')),
+ if_($rrpt_dev,
+ "echo *** Waiting for new partitions on device ${rrpt_dev} ***",
+ "sh -c 'while ! ls /sys/block/${rrpt_dev}/${rrpt_dev}* >/dev/null 2>&1; do sleep 3; blockdev --rereadpt /dev/${rrpt_dev} >/dev/null 2>&1; done'"),
+ $debug_shell,
+ if_($pre, deref_array($pre)),
+ ($fs eq 'nfs' ? '/bin/mount -n -o ro,nolock' : 'mount') .
+ if_(@mount_options, " -o " . join(",", @mount_options)) .
+ " -t $fs " . get_media_setting($media, 'source') . " $live->{prefix}{live}{mnt}$live->{prefix}{media}{mnt}",
+ (map { $loop{$_->{type}}{mount}->($live, $_) } grep { exists $loop{$_->{type}}{mount} } @{$live->{mount}{dirs} || []}),
+ ($live->{mount}{overlay} ? $overlay{$live->{mount}{overlay}}{mount}->($live) : ()),
+ "echo 0x0100 > /proc/sys/kernel/real-root-dev",
+ "umount /sys",
+ "umount /proc",
+ "pivot_root $target $target/initrd",
+ "sh -c 'rmdir /initrd$target; cd /initrd$live->{prefix}{live}{mnt}; for i in `ls -1`; do mkdir -p $live->{prefix}{live}{mnt}/\$i; mount -n --move \$i $live->{prefix}{live}{mnt}/\$i; done'",
+ if_($live->{system}{initrd_post}, deref_array($live->{system}{initrd_post})),
+ ""));
+}
+
+sub compress_initrd_tree {
+ my ($live, $media) = @_;
+
+ my $initrd_tree = get_builddir($live) . $live->{prefix}{build}{initrd} . '/' . $media->{storage};
+ my $size = run_program::get_stdout("du -ks $initrd_tree | awk '{print \$1}'") + 250;
+ my $inodes = run_program::get_stdout("find $initrd_tree | wc -l") + 1250;
+ $size = int($size + $inodes / 10) + 1; #- 10 inodes needs 1K
+ my $initrd = get_builddir($live) . $live->{prefix}{build}{boot} . get_initrd_path($media);
+ $initrd =~ s/.gz$//;
+
+ mkdir_p(dirname($initrd));
+ run_('dd', 'if=/dev/zero', "of=$initrd", 'bs=1k', "count=$size");
+ run_('mke2fs', '-q', '-m', 0, '-F', '-N', $inodes, '-s', 1, $initrd);
+ mkdir_p($live->{mnt});
+ run_('mount', '-o', 'loop', '-t', 'ext2', $initrd, $live->{mnt});
+ cp_af(glob("$initrd_tree/*"), $live->{mnt});
+ rm_rf($live->{mnt} . "/lost+found");
+ run_('umount', $live->{mnt});
+ run_('gzip', '-f', '-9', $initrd);
+}
+
+sub add_splash {
+ my ($live, $media) = @_;
+ if ($live->{system}{vga_mode} && $live->{system}{splash} ne 'no') {
+ require bootloader;
+ my $initrd = get_builddir($live) . $live->{prefix}{build}{boot} . get_initrd_path($media);
+ my $tmp_initrd = '/tmp/initrd.gz';
+ cp_f($initrd, get_system_root($live) . $tmp_initrd);
+ {
+ local $::prefix = get_system_root($live);
+ bootloader::add_boot_splash($tmp_initrd, $live->{system}{vga_mode});
+ }
+ cp_f(get_system_root($live) . $tmp_initrd, $initrd);
+ unlink(get_system_root($live) . $tmp_initrd);
+ }
+}
+
+sub get_default_append {
+ my ($live) = @_;
+ join(' ',
+ 'fastboot', #- needed to avoid fsck
+ if_($live->{system}{vga_mode},
+ 'splash=silent',
+ 'vga=' . $live->{system}{vga_mode}),
+ );
+}
+
+my @syslinux_boot_files = qw(/vmlinuz /syslinux/bootlogo /help.msg);
+
+sub build_syslinux_cfg {
+ my ($live, $media, $opts) = @_;
+ my $append = get_default_append($live);
+ #- syslinux wants files at root (used with vfat fs)
+ my $to_root = get_boot_setting($media, 'fs', $opts) eq 'vfat';
+ my ($initrd, $kernel, $bootlogo, $help) = map { $to_root ? basename($_) : $_ }
+ map { $live->{prefix}{media}{boot} . $_ } get_initrd_path($media), @syslinux_boot_files;
+ my $has_bootlogo = -e get_builddir($live) . $live->{prefix}{build}{boot} . '/syslinux/bootlogo';
+ join("\n",
+ "default $live->{media}{title}",
+ "prompt 1",
+ "timeout 40",
+ $has_bootlogo ? "gfxboot $bootlogo" : "display $help",
+ (map {
+ my ($name, $cmdline) = @$_;
+ $name =~ s/\s/_/g;
+ "label " . ($name || $live->{media}{title}),
+ " kernel $kernel",
+ " append initrd=$initrd $append $cmdline";
+ } group_by2('' => '', @{$live->{system}{boot_entries}})),
+ "",
+ );
+}
+
+sub build_grub_cfg {
+ my ($live, $media, $device) = @_;
+ #- FIXME: use the bootloader module from drakx
+ my ($part_nb) = $device =~ /(\d+)$/;
+ my $grub_part = "(hd0" . (defined $part_nb ? "," . ($part_nb-1) : "") . ")";
+ join("\n",
+ "timeout 4",
+ "gfxmenu $grub_part" . $live->{prefix}{media}{boot} . "/gfxmenu",
+ "default 0",
+ (map {
+ my ($name, $cmdline) = @$_;
+ "title " . $live->{media}{title} . if_($name, " ($name)"),
+ "kernel $grub_part" . $live->{prefix}{media}{boot} . "/vmlinuz " . get_default_append($live) . if_($cmdline, " $cmdline"),
+ "initrd " . $live->{prefix}{media}{boot} . get_initrd_path($media);
+ } group_by2('' => '', @{$live->{system}{boot_entries}})),
+ "",
+ );
+}
+
+sub install_system {
+ my ($live) = @_;
+
+ my $repository = $live->{settings}{repository} . '/' . $live->{settings}{arch};
+
+ my $drakx_in_chroot = $repository . '/misc/drakx-in-chroot';
+ my $remote_repository = $repository =~ m!^(ftp|http)://! && $1;
+ if ($remote_repository) {
+ my $local_drakx_in_chroot = get_builddir($live) . $live->{prefix}{build}{scripts} . '/drakx-in-chroot';
+ mkdir_p(dirname($local_drakx_in_chroot));
+ run_('curl', '--silent', '-o', $local_drakx_in_chroot, $drakx_in_chroot)
+ or die "unable to get drakx-in-chroot from remote repository";
+ $drakx_in_chroot = $local_drakx_in_chroot;
+ }
+
+ local %ENV = (%ENV, %{$live->{system}{install_env}});
+ $ENV{DRAKLIVE_LANGS} = join(':', uniq((ref $live->{regions} ? @{$live->{regions}{$live->{settings}{region}}} : ()), @{$live->{system}{langs_always}}));
+ $ENV{DRAKLIVE_REGION} = $live->{settings}{region};
+ run_({ setarch => $live->{settings}{arch} },
+ 'perl', $drakx_in_chroot,
+ $repository,
+ get_system_root($live),
+ if_($live->{system}{auto_install}, '--auto_install', $live->{settings}{config_root} . '/' . $live->{system}{auto_install}),
+ if_($live->{system}{patch_install}, '--defcfg', $live->{settings}{config_root} . '/' . $live->{system}{patch_install}),
+ if_($live->{system}{rpmsrate}, '--rpmsrate', $live->{settings}{config_root} . '/' . $live->{system}{rpmsrate}),
+ ($live->{system}{stage2_updates} ? (map { ('--stage2-update', $live->{settings}{config_root} . '/' . $_->[0], $_->[1]) } @{$live->{system}{stage2_updates}}) : ()),
+ ) or die "unable to install system chroot";
+ post_install_system($live);
+}
+
+sub configure_draklive_resize {
+ my ($live) = @_;
+
+ my $resizable_loopback = find { $_->{min_size} } @{$live->{mount}{dirs} || []};
+ if ($resizable_loopback) {
+ output(get_system_root($live) . '/etc/sysconfig/draklive-resize', <<EOF);
+DRAKLIVE_RESIZE=yes
+LOOPBACK=$live->{prefix}{live}{mnt}$live->{prefix}{media}{mnt}$live->{prefix}{media}{loopbacks}/$resizable_loopback->{source}
+TYPE=$resizable_loopback->{fs}
+MIN_SIZE=$resizable_loopback->{min_size}
+MOUNT=$live->{prefix}{live}{mnt}$resizable_loopback->{mountpoint}_resized
+OLD_MOUNT=$live->{prefix}{live}{mnt}$resizable_loopback->{mountpoint}
+UNION=/
+EOF
+ }
+}
+
+sub copy_files_to {
+ my ($live, $files, $root) = @_;
+ foreach (@$files) {
+ my ($source, $dest, $o_perm) = @$_;
+ $dest = $root . '/' . $dest;
+ mkdir_p(dirname($dest));
+ my @sources = glob($live->{settings}{config_root} . '/' . $source);
+ print STDERR "copying @sources to $dest\n";
+ cp_f(@sources, $dest);
+ chmod $o_perm, $dest if $o_perm;
+ }
+}
+
+sub post_install_system {
+ my ($live) = @_;
+
+ my $previous_umask = umask;
+ #- workaround buggy installation of directories that are not owned by any packages
+ umask 022;
+
+ #- remove previous draklive leftovers if needed
+ run_({ root => get_system_root($live) }, 'urpmi.removemedia', '-a');
+
+ foreach (@{$live->{system}{additional_media}}) {
+ run_({ root => get_system_root($live) }, 'urpmi.addmedia', if_($_->{distrib}, '--distrib'), $_->{name}, $_->{path})
+ or die "unable to add media from $_->{path}";
+ @{$_->{packages}} or next;
+ run_({ root => get_system_root($live), setarch => $live->{settings}{arch} },
+ 'urpmi', '--auto', '--no-verify-rpm', if_(!$_->{distrib}, '--searchmedia', $_->{name}), @{$_->{packages}})
+ or die "unable to install packages from $_->{path}";
+ }
+
+ #- additional rpms may have dependencies in additional media
+ if (@{$live->{system}{rpms}}) {
+ my $rpm_tmp_dir = '/tmp/draklive_rpms';
+ mkdir_p(get_system_root($live) . $rpm_tmp_dir);
+ cp_f((map { $live->{settings}{config_root} . '/' . $_ } @{$live->{system}{rpms}}), get_system_root($live) . $rpm_tmp_dir);
+ run_({ root => get_system_root($live), setarch => $live->{settings}{arch} },
+ 'urpmi', '--auto', '--no-verify-rpm',
+ map { $rpm_tmp_dir . '/' . basename($_) } @{$live->{system}{rpms}})
+ or die "unable to install additional system rpms";
+ rm_rf(get_system_root($live) . $rpm_tmp_dir);
+ }
+
+ #- remove urpmi media added by drakx-in-chroot and additional media, they're unusable
+ run_({ root => get_system_root($live) }, 'urpmi.removemedia', '-a');
+
+ my $erase = join(' ', @{$live->{system}{erase_rpms}});
+ run_({ root => get_system_root($live), setarch => $live->{settings}{arch} },
+ 'sh', '-c', "rpm -qa $erase | xargs rpm -e ") if $erase;
+
+ run_({ root => get_system_root($live) }, 'chkconfig', '--del', $_) foreach @{$live->{system}{disable_services}};
+
+ #- make sure harddrake is run:
+ #- if previous HW config file is empty, we assumes DrakX has just completed the installation
+ #- (do it in chroot, or else Storable from the build box may write an incompatible config file)
+ run_({ root => get_system_root($live) },
+ 'perl', '-MStorable', '-e', qq(Storable::store({ UNKNOWN => {} }, '/etc/sysconfig/harddrake2/previous_hw')));
+
+ #- remove some build-machine specific configuration
+ substInFile { undef $_ if /^[^#]/ } get_system_root($live) . $_
+ foreach qw(/etc/fstab /etc/mtab /etc/modprobe.conf /etc/modprobe.preload /etc/iftab /etc/shorewall/interfaces /etc/mdadm.conf);
+ unlink($_) foreach map { glob_(get_system_root($live) . $_) } @{$live->{system}{remove_files} || []};
+
+ output_with_perm(get_system_root($live) . '/etc/fstab', 0644, "none / unionfs rw 0 0\n");
+
+ #- run harddrake because a crappy snd-usb-audio workaround may do something at shutdown
+ #- (do it after the modprobe files are cleaned)
+ run_({ root => get_system_root($live) }, '/usr/share/harddrake/service_harddrake', 'stop');
+
+ #- interactive mode can lead to race in initscripts
+ #- (don't use addVarsInSh from MDK::Common, it breaks shell escapes)
+ substInFile { s/^PROMPT=.*/PROMPT=no/ } get_system_root($live) . '/etc/sysconfig/init';
+
+ configure_draklive_resize($live);
+
+ if ($live->{system}{preselect_kdm_user}) {
+ #- preselect specified user in kdm
+ my $kdm_cfg = get_system_root($live) . '/etc/kde/kdm/kdmrc';
+ update_gnomekderc($kdm_cfg, 'X-:0-Greeter' => (PreselectUser => 'Default', DefaultUser => $live->{system}{preselect_kdm_user})) if -f $kdm_cfg;
+ }
+
+ #- apply patches and install files after the configuration is cleaned
+ #- to allow special configuration files (especially modprobe.preload)
+ foreach (@{$live->{system}{patches}}) {
+ my $patch = $live->{settings}{config_root} . '/' . $_;
+ my @args = ('-p0', '-d', get_system_root($live), '-i', $patch);
+ run_program::run('patch', '>', '/dev/null', '--dry-run', '-f', '-R', @args) || run_('patch', @args)
+ or die "unable to apply patch " . $patch;
+ }
+
+ copy_files_to($live, $live->{system}{files}, get_system_root($live));
+
+ run_({ setarch => $live->{settings}{arch} },
+ "chroot", get_system_root($live), "bash", "-c", $live->{system}{postInstall}) if $live->{system}{postInstall};
+
+ umask $previous_umask;
+
+ mkdir_p(get_builddir($live));
+ run_("chroot ". get_system_root($live) . " rpm -qa | sort > " . get_builddir($live) . "/packages.lst");
+}
+
+sub umount_external_filesystem {
+ my ($live) = @_;
+ my $mnt = get_system_root($live) . "/mnt/";
+ eval { fs::mount::umount("$mnt/$_") } foreach all($mnt);
+}
+
+sub list_excluded_files {
+ my ($live) = @_;
+ map {
+ $_->{path} ?
+ $_->{path} :
+ chomp_(cat_(($_->{rooted} && get_system_root($live)) . $_->{source}));
+ } @{$live->{system}{exclude_files}};
+}
+
+sub create_loopback_files {
+ my ($live) = @_;
+ # umount filesystem in the live before creating the loopback
+ umount_external_filesystem($live);
+ mkdir_p(get_builddir($live) . $live->{prefix}{build}{loopbacks});
+ foreach (grep { exists $loop{$_->{type}}{build} } @{$live->{mount}{dirs} || []}) {
+ $loop{$_->{type}}{build}->($live, $_);
+ }
+
+ if (my @excluded = list_excluded_files($live)) {
+ my $exclude_file = tmpnam();
+ output_p($exclude_file, map { s|^/||; "$_\n"; } @excluded);
+ run_('tar', 'cj', '-C', get_system_root($live), '-T', $exclude_file,
+ '-f', get_builddir($live) . $live->{prefix}{build}{tarballs} . "/excluded.tar.bz2");
+ unlink $exclude_file;
+ }
+}
+
+#- mainly for storage-specific subroutines
+sub get_storage_setting {
+ my ($media, $setting) = @_;
+ $storage{$media->{storage}}{$setting};
+}
+
+#- for actions that support an optionnal boot storage type
+sub get_boot_setting {
+ my ($media, $setting, $opts) = @_;
+ $opts->{boot} ? $storage{$opts->{boot}}{$setting} : get_media_setting($media, $setting);
+}
+
+#- for user-customisable media setting, that can override storage setting
+sub get_media_setting {
+ my ($media, $setting) = @_;
+ $media->{$setting} || get_storage_setting($media, $setting);
+}
+
+sub get_media_fs_module {
+ my ($media) = @_;
+ my $fs = get_media_setting($media, 'fs');
+ $fs eq 'iso9660' ? 'isofs' : $fs eq 'ext2' ? () : $fs;
+}
+
+sub get_media_label {
+ my ($media) = @_;
+ first(get_media_setting($media, 'source') =~ /^LABEL=(.*)$/);
+}
+
+sub get_media_device {
+ my ($media) = @_;
+ return $media->{device} if $media->{device};
+ my $label = get_media_label($media) or return get_media_setting($media, 'source');
+ my $device = chomp_(`readlink -f /dev/disk/by-label/$label`)
+ or die "unable to find device for /dev/disk/by-label/$label";
+ $device;
+}
+
+sub prepare_bootloader {
+ my ($live) = @_;
+ create_initrd($live);
+ cp_f(get_system_root($live) . '/boot/vmlinuz-' . find_kernel($live), get_builddir($live) . $live->{prefix}{build}{boot} . '/vmlinuz');
+ require bootsplash;
+ my $theme = do {
+ local $::prefix = get_system_root($live);
+ bootsplash::themes_read_sysconfig('800x600');
+ };
+ my $syslinux_dir = get_builddir($live) . $live->{prefix}{build}{boot} . '/syslinux';
+ mkdir_p($syslinux_dir);
+ my $default_gfxboot_theme = "Mandriva";
+ print "copying $default_gfxboot_theme gfxboot theme\n";
+ cp_f(glob_(get_system_root($live) . "/usr/share/gfxboot/themes/$default_gfxboot_theme/install/*"), $syslinux_dir);
+ if ($theme->{name} ne $default_gfxboot_theme) {
+ print "copying $theme->{name} gfxboot theme\n";
+ cp_f(glob_(get_system_root($live) . "/usr/share/gfxboot/themes/$theme->{name}/*"), $syslinux_dir);
+ }
+ if (! -f $syslinux_dir . '/bootlogo') {
+ warn "unable to find gfxboot splash ($bootlogo)";
+ }
+ output_p($syslinux_dir . '/gfxboot.cfg', "livecd=1\n");
+
+ run_({ root => get_system_root($live) }, '/usr/sbin/grub-gfxmenu', '--update-gfxmenu');
+ run_('mv', get_system_root($live) . '/boot/gfxmenu', get_builddir($live) . $live->{prefix}{build}{boot});
+
+ output(get_builddir($live) . $live->{prefix}{build}{boot} . '/help.msg',
+ pack("C*", 0x0E, 0x80, 0x03, 0x00, 0xC) . qq(
+Welcome to Mandriva live!
+
+The command line can be used to specify kernel options.
+
+$live->{media}{title} <kernel options>
+
+));
+
+ foreach my $media ($live->{media}, @{$live->{extra_media}}) {
+ foreach my $boot ('', @{$media->{extra_boot}}) {
+ my $opts = { boot => $boot };
+ output(get_builddir($live) . $live->{prefix}{build}{boot} . get_syslinux_path($media, $opts),
+ build_syslinux_cfg($live, $media, $opts));
+ }
+ }
+}
+
+sub device_allocate_fs {
+ my ($device, $size) = @_;
+ run_('dd', "of=$device", 'count=0', 'bs=1', "seek=" . removeXiBSuffix($size));
+}
+
+#- format $device as type $type
+sub device_mkfs {
+ my ($device, $type) = @_;
+ if ($type eq 'vfat') {
+ run_('mkfs.vfat', $device);
+ } elsif (member($type, 'ext2', 'ext3')) {
+ run_("mkfs.$type", "-m", 0, if_(!-b $device, '-F'), $device);
+ } else {
+ die "unable to mkfs for unsupported media type $type";
+ }
+}
+
+sub set_device_label {
+ my ($device, $type, $label) = @_;
+ if ($type eq 'vfat') {
+ local $ENV{MTOOLS_SKIP_CHECK} = 1;
+ run_('mlabel', '-i', $device, '::' . $label);
+ } elsif (member($type, 'ext2', 'ext3')) {
+ run_('e2label', $device, $label);
+ } else {
+ die "unable to set label for unsupported media type $type";
+ }
+}
+
+sub get_cdrom_master_path {
+ my ($live, $opts) = @_;
+ get_builddir($live) . $live->{prefix}{build}{images} . '/' . ($opts->{boot} ? 'boot-' . $opts->{boot} : 'live') . '.iso';
+}
+
+sub create_cdrom_master {
+ my ($live, $media, $opts) = @_;
+ my $label = get_media_label($media) or die "the source device must be described by a label";
+ my $dest;
+ unless ($opts->{onthefly}) {
+ $dest = get_cdrom_master_path($live, $opts);
+ mkdir_p(dirname($dest));
+ }
+ run_('genisoimage', '-pad', '-l', '-R', '-J',
+ '-V', $label, #'-A', $application, '-p', $preparer, '-P', $publisher,
+ '-b', 'isolinux/isolinux.bin',
+ '-c', 'isolinux/boot.cat',
+ '-hide-rr-moved', '-no-emul-boot',
+ '-boot-load-size', 4, '-boot-info-table',
+ '-graft-points',
+ if_($dest, '-o', $dest),
+ 'isolinux=' . get_builddir($live) . $live->{prefix}{build}{boot} . '/syslinux',
+ 'isolinux/isolinux.bin=/usr/lib/syslinux/isolinux.bin',
+ 'isolinux/isolinux.cfg=' . get_builddir($live) . $live->{prefix}{build}{boot} . get_syslinux_path($media, $opts),
+ $live->{prefix}{media}{boot} . '=' . get_builddir($live) . $live->{prefix}{build}{boot},
+ if_(!$opts->{boot_only}, $live->{prefix}{media}{loopbacks} . '=' . get_builddir($live) . $live->{prefix}{build}{loopbacks}),
+ ) or die "unable to run genisoimage";
+ run_('mkcd', '--addmd5', $dest) if $dest;
+}
+
+sub get_usb_master_path {
+ my ($live) = @_;
+ get_builddir($live) . $live->{prefix}{build}{images} . '/live.img';
+}
+
+sub create_usb_master {
+ my ($live, $media, $opts) = @_;
+ my $dest = get_usb_master_path($live);
+ mkdir_p(dirname($dest));
+ #- dumb guess, a bit too large, and valid for FAT only
+ my $size = directory_usage(get_builddir($live) . $live->{prefix}{build}{loopbacks}) +
+ directory_usage(get_builddir($live) . $live->{prefix}{build}{boot});
+ device_allocate_fs($dest, $size);
+ device_mkfs($dest, get_media_setting($media, 'fs'))
+ or die "unable to format $dest";
+ local $opts->{device} = $dest;
+ record_usb_master($live, $media, $opts);
+}
+
+#- $opts:
+#- media: alternate media
+#- onthefly : if true, the create function must output to stdout
+sub create_master {
+ my ($live, $opts) = @_;
+ my $media = $opts->{media} || $live->{media};
+
+ if (my $create = get_boot_setting($media, 'create', $opts)) {
+ $create->($live, $media, $opts);
+ } else {
+ warn "not implemented yet";
+ }
+}
+
+sub maybe_umount_device {
+ my ($device) = @_;
+ run_('umount', $device) if cat_('/proc/mounts') =~ m!^$device\s+!m;
+}
+
+sub format_cdrom_device {
+ my ($_live, $media) = @_;
+ run_('wodim', '-v', 'dev=' . $media->{device}, "blank=fast");
+}
+
+sub format_usb_device {
+ my ($_live, $media) = @_;
+ maybe_umount_device($media->{device});
+ device_mkfs($media->{device}, get_media_setting($media, 'fs'))
+ or die "unable to format device $media->{device}";
+}
+
+#- $opts:
+#- media: alternate media
+sub format_device {
+ my ($live, $opts) = @_;
+ my $media = $opts->{media} || $live->{media};
+
+ $media->{device} or die "no device defined in media configuration";
+ if (my $format = get_boot_setting($media, 'format', $opts)) {
+ $format->($live, $media);
+ } else {
+ warn "not implemented yet";
+ }
+}
+
+sub record_cdrom_master {
+ my ($live, $media, $opts) = @_;
+ $media->{device} or die "no device defined in media configuration";
+ my $src = $opts->{onthefly} ? '-' : get_cdrom_master_path($live, $opts);
+ run_('wodim', '-v', 'dev=' . $media->{device}, $src);
+}
+
+sub record_usb_master {
+ my ($live, $media, $opts) = @_;
+ my $o_device = $opts->{device} || $media->{device};
+ if (my $label = !$opts->{boot_only} && $o_device && get_media_label($media)) {
+ set_device_label($o_device, get_media_setting($media, 'fs'), $label);
+ }
+ my $device = $opts->{device} || get_media_device($media)
+ or die "unable to find recording device (missing label? try with --device <device>)";
+ my $bootloader = get_boot_setting($media, 'bootloader', $opts);
+ member($bootloader, 'grub', 'syslinux') or die "no bootloader defined in media configuration";
+ mkdir_p($live->{mnt});
+ run_('mount', if_(-f $device, '-o', 'loop'), $device, $live->{mnt})
+ or die "unable to mount $device";
+ rm_rf($live->{mnt} . $live->{prefix}{media}{boot}) if -e $live->{mnt} . $live->{prefix}{media}{boot};
+ cp_af(get_builddir($live) . $live->{prefix}{build}{boot}, $live->{mnt} . $live->{prefix}{media}{boot});
+
+ my $grub_device_map = $live->{mnt} . $live->{prefix}{media}{boot} . "/grub/device.map";
+ if ($bootloader eq 'syslinux') {
+ cp_f(get_builddir($live) . $_, $live->{mnt}) foreach map {
+ $live->{prefix}{boot} . $_;
+ } get_syslinux_path($media, $opts), get_initrd_path($media), @syslinux_boot_files;
+ } elsif ($bootloader eq 'grub') {
+ #- FIXME: add get_grub_path (when building boot configuration files)
+ # and get_bootloader_path (when copying)
+ mkdir_p($live->{mnt} . $live->{prefix}{media}{boot} . '/grub');
+ cp_f(get_builddir($live) . $live->{prefix}{build}{boot} . '/gfxmenu', $live->{mnt} . $live->{prefix}{media}{boot});
+ output_p($live->{mnt} . $live->{prefix}{media}{boot} . '/grub/menu.lst', build_grub_cfg($live, $media, $device));
+ unlink $grub_device_map;
+ }
+
+ if (-b $device) {
+ if ($bootloader eq 'syslinux') {
+ #- use syslinux -s, "safe, slow and stupid" version of SYSLINUX, unless specified otherwise
+ run_('syslinux', if_(!$media->{fast_syslinux}, '-s'), $device)
+ or die "unable to run syslinux on $device";
+ } elsif ($bootloader eq 'grub') {
+ my $local_grub_install = get_builddir($live) . $live->{prefix}{build}{scripts} . '/grub-install';
+ mkdir_p(dirname($local_grub_install));
+ cp_f(get_system_root($live) . '/sbin/grub-install', $local_grub_install);
+ my $root = get_system_root($live);
+ substInFile {
+ s!^\s*exec_prefix=.*!exec_prefix=$root!;
+ s!^\s*grub_prefix=/boot/!grub_prefix=$live->{prefix}{media}{boot}/!;
+ s!^\s*bootdir=(.*)/boot$!bootdir=$1$live->{prefix}{media}{boot}!;
+ } $local_grub_install;
+
+ my $master_device = $device;
+ $master_device =~ s/(\d+)$//;
+ foreach ($master_device, $device) {
+ run_($local_grub_install, '--root-directory=' . $live->{mnt}, '--no-floppy', $_)
+ or die "unable to run grub on $device";
+ }
+ unlink $grub_device_map;
+ }
+ } else {
+ warn "not running $bootloader on non block device $device";
+ }
+
+ do {
+ my $loopbacks_source = get_builddir($live) . $live->{prefix}{build}{loopbacks} . '/';
+ my $total = directory_usage($loopbacks_source);
+ my $all_files = 0;
+ my $current_file = 0;
+ local $/ = "\r";
+ run_foreach($live->{update_progress} ? sub {
+ if (/^\s*(\d+)\s+\d+%\s+/) {
+ $current_file = $1;
+ $live->{update_progress}->(undef, $all_files + $current_file, $total);
+ }
+ if (/(?:^|\n)\S+/) {
+ $all_files += $current_file;
+ $current_file = 0;
+ }
+ } : sub {},
+ 'rsync', '-vdP', '--inplace', $loopbacks_source, $live->{mnt} . $live->{prefix}{media}{loopbacks})
+ or die "unable to copy loopback files";
+
+ copy_files_to($live, $live->{media}{files}, $live->{mnt});
+ } unless $opts->{boot_only};
+
+ run_('umount', $live->{mnt});
+ maybe_umount_device($device);
+
+ if ($live->{system}{hide_media_dirs}) {
+ run_('mattrib', '+a', '+r', '+s', '+h', '-/', '-i', $device, '::' . $live->{prefix}{media}{$_})
+ foreach qw(boot loopbacks);
+ }
+}
+
+#- $opts:
+#- media: alternate media
+#- onthefly : if true, the record function must read from stdin
+sub record_master {
+ my ($live, $opts) = @_;
+ my $media = $opts->{media} || $live->{media};
+
+ if (my $record = get_boot_setting($media, 'record', $opts)) {
+ $record->($live, $media, $opts);
+ } else {
+ warn "not implemented yet";
+ }
+}
+
+sub pipe_subs {
+ my ($writer, $reader) = @_;
+ my ($r, $w) = POSIX::pipe;
+ if (my $pid = fork()) {
+ POSIX::close($w) or die "couldn't close: $!\n";
+ my $stdin = POSIX::dup(0) or die "couldn't dup: $!\n";
+ POSIX::dup2($r, 0) or die "couldn't dup2: $!\n";
+ POSIX::close($r);
+ $reader->();
+ POSIX::close(0) or warn "writer exited $?";
+ POSIX::dup2($stdin, 0) or die "couldn't dup2: $!\n";
+ waitpid($pid, 0);
+ } else {
+ POSIX::close($r) or die "couldn't close: $!\n";
+ #- don't screw up reader
+ POSIX::dup2(POSIX::open('/dev/null', &POSIX::O_WRONLY), 2) or die "couldn't dup2: $!\n";
+ POSIX::dup2($w, 1) or die "couldn't dup2: $!\n";
+ POSIX::close($w);
+ $| = 1; #- autoflush write
+ exit !$writer->();
+ }
+}
+
+sub record_onthefly {
+ my ($live, $opts) = @_;
+ my $media = $opts->{media} || $live->{media};
+
+ my $record = get_storage_setting($media, 'record');
+ unless ($record) {
+ warn "not implemented yet";
+ return;
+ }
+ if (my $create = get_storage_setting($media, 'record_needs_master') && get_storage_setting($media, 'create')) {
+ #- pipe creation step to recording step
+ pipe_subs(sub { $create->($live, $media, { onthefly => 1 }) },
+ sub { $record->($live, $media, { onthefly => 1 }) });
+ } else {
+ #- no creation step, record directly
+ $record->($live, $media);
+ }
+}
+
+sub copy_wizard {
+ my ($live) = @_;
+
+ complete_config($live);
+ $live->{system}{vga_mode} = 788 if !defined $live->{system}{vga_mode};
+ my $live_media = $live->{prefix}{live}{mnt} . $live->{prefix}{media}{mnt};
+
+ require interactive;
+ require wizards;
+ my $in = 'interactive'->vnew('su');
+ my (@available_storage, @available_devices);
+ my ($storage, $device, $format);
+ my %source_types = (
+ live => N("Use current live system"),
+ file => N("Select a file"),
+ );
+ my ($source_type, $source_path);
+ my $source_is_mounted = sub { -d ($live->{settings}{builddir} . $live->{prefix}{media}{boot}) };
+ my $umount_source = sub {
+ if ($source_type ne 'live' && $source_is_mounted->()) {
+ run_('umount', $live->{settings}{builddir});
+ rmdir($live->{settings}{builddir});
+ }
+ };
+ my $w;
+ $w = wizards->new({
+ name => N("Live system copy wizard"),
+ pages => {
+ welcome => {
+ name => N("Welcome to the live system copy wizard"),
+ no_back => 1,
+ next => 'source',
+ },
+ source => {
+ name => N("Which live system do you want to copy?"),
+ data => [ if_(-d ($live_media . $live->{prefix}{media}{loopbacks}),
+ { type => 'list', val => \$source_type,
+ list => sort(keys(%source_types)),
+ format => sub { $source_types{$_[0]} } }),
+ { type => 'file', val => \$source_path,
+ disabled => sub { $source_type eq 'live' } } ],
+ pre => $umount_source,
+ complete => sub {
+ if ($source_type eq 'live') {
+ $live->{settings}{builddir} = $live_media;
+ } else {
+ $live->{settings}{builddir} = File::Temp::tempdir();
+ if (!run_('mount', '-o', 'loop', $source_path, $live->{settings}{builddir})) {
+ $in->ask_warn(N("Error"), N("Unable to use selected file"));
+ return 1;
+ }
+ }
+ 0;
+ },
+ post => sub {
+ my $boot = $live->{settings}{builddir} . $live->{prefix}{media}{boot};
+ @available_storage = sort(grep { -d "$boot/$_" && exists $storage{$_}{detect} } all($boot));
+ if (@available_storage == 1) {
+ $storage = $available_storage[0];
+ return 'device';
+ }
+ return 'storage';
+ }
+ },
+ storage => {
+ name => N("Please select the medium type"),
+ data => [ { type => 'list', allow_empty_list => 1,
+ val => \$storage, list => \@available_storage } ],
+ next => 'device',
+ },
+ device => {
+ name => N("Please select the device that will contain the new live system"),
+ pre => sub {
+ my %devices = map { $_->{device} => $_ } $storage{$storage}{detect}->();
+ $_->{formatted_name} = $_->{usb_description} || $_->{info} || $_->{device} foreach values %devices;
+ @available_devices = ();
+ require fs::proc_partitions;
+ foreach (fs::proc_partitions::read([ values %devices ])) {
+ if ($_->{rootDevice} && exists $devices{$_->{rootDevice}}) {
+ my $description = $devices{$_->{rootDevice}}{usb_description} || $devices{$_->{rootDevice}}{info};
+ $_->{formatted_name} = $description ? "$description ($_->{device})" : $_->{device};
+ push @available_devices, $_;
+ }
+ }
+ delete $devices{$_->{rootDevice}} foreach @available_devices;
+ unshift @available_devices, map { $devices{$_} } sort keys %devices;
+ undef $device;
+ },
+ data => [ { type => 'list', allow_empty_list => 1,
+ val => \$device, , list => \@available_devices,
+ format => sub { $_[0]{formatted_name} } },
+ { text => N("Format selected device"), val => \$format, type => 'bool' } ],
+ complete => sub {
+ return 0 if defined $device;
+ $in->ask_warn(N("Error"), N("You must select a device!"));
+ 1;
+ },
+ post => sub {
+ (my $_wait, $live->{update_progress}) = $in->wait_message_with_progress_bar;
+ do {
+ local $::isInstall = 1; # quick hack to embed the wait message
+ $live->{update_progress}->(N("Copying in progress"));
+ };
+ eval {
+ my $opts = { media => { storage => $storage, device => '/dev/' . $device->{device} } };
+ format_device($live, $opts) if $format;
+ record_onthefly($live, $opts);
+ };
+ delete $live->{update_progress};
+ if (my $error = $@) {
+ $in->ask_warn(N("Error"), $error);
+ $w->{pages}{device}{end} = 1;
+ }
+ return "end";
+ },
+ },
+ end => {
+ name => N("Congratulations") . "\n\n" . N("Your live system is now copied."),
+ no_back => 1,
+ end => 1,
+ },
+ }
+ });
+ $w->process($in);
+ $umount_source->();
+ $in->exit;
+}
+
+sub read_config {
+ my ($live, $config_root, $config_path, $settings_path) = @_;
+
+ if ($config_path && -e getcwd() . '/' . $config_path) {
+ $config_root = getcwd();
+ }
+ print "using $config_root as directory root\n";
+
+ add2hash($live->{settings} ||= {}, { getVarsFromSh($config_root . '/' . $settings_path) }) if $settings_path;
+ if ($config_path) {
+ #- don't use do(), since it can't see lexicals in the enclosing scope
+ my $cfg = eval(cat_($config_root . '/' . $config_path)) or die "unable to load $config_path: $@";
+ put_in_hash($live, $cfg);
+ print "loaded $config_path as config file\n";
+ }
+ $live->{settings}{config_root} = $config_root;
+}
+
+sub check_config {
+ my ($live) = @_;
+ unless (keys(%$live)) {
+ warn 'no live definition';
+ Pod::Usage::pod2usage();
+ }
+ #- check for minimum requirements
+ ref $live->{media} && $live->{media}{storage} or die "no media storage definition";
+ ref $live->{system} or die "no system definition";
+}
+
+sub complete_config {
+ my ($live) = @_;
+
+ my $default_prefix = {
+ build => {
+ boot => '/boot',
+ images => '/images',
+ initrd => '/initrd',
+ loopbacks => '/loopbacks',
+ tarballs => '/tarballs',
+ scripts => '/scripts',
+ },
+ media => {
+ boot => $live->{system}{hide_media_dirs} ? '/.boot' : '/boot',
+ loopbacks => $live->{system}{hide_media_dirs} ? '/.loopbacks' : '/loopbacks',
+ mnt => '/media',
+ },
+ live => {
+ mnt => '/live',
+ },
+ };
+
+ #- set unsupplied config dirs
+ add2hash($live->{prefix}{$_} ||= {}, $default_prefix->{$_}) foreach keys %$default_prefix;
+
+ $live->{settings}{builddir} ||= '/var/lib/draklive/build';
+ $live->{settings}{chroot} ||= '/var/lib/draklive/chroot';
+ mkdir_p(get_builddir($live));
+ mkdir_p(get_system_root($live));
+
+ $live->{mnt} ||= get_builddir($live) . "/mnt";
+
+ $live->{settings}{arch} ||= `rpm --eval '%{_target_cpu}'`;
+ $live->{media}{title} ||= "live";
+}
+
+sub dump_config {
+ my ($live) = @_;
+ use Data::Dumper;
+ print Data::Dumper->Dump([ $live ], [ "live" ]);
+}
+
+sub clean {
+ my ($live) = @_;
+ # umount filesystem in the live before cleaning
+ umount_external_filesystem($live);
+ rm_rf($_) foreach grep { -e $_ } get_builddir($live), get_system_root($live);
+}
+
+my @actions = (
+ { name => 'dump-config', do => \&dump_config },
+ { name => 'clean', do => \&clean },
+ { name => 'install', do => \&install_system },
+ { name => 'post-install', do => \&post_install_system },
+ { name => 'initrd', do => \&create_initrd },
+ { name => 'boot', do => \&prepare_bootloader },
+ { name => 'loop', do => \&create_loopback_files },
+ { name => 'master', do => \&create_master },
+ { name => 'format', do => \&format_device },
+ { name => 'record', do => \&record_master },
+ { name => 'record-onthefly', do => \&record_onthefly },
+);
+my @all = qw(install boot loop master);
+
+require_root_capability();
+
+my (%live, %opts);
+my $config_root = '/etc/draklive';
+my $config_path = 'config/live.cfg';
+my $settings_path = 'config/settings.cfg';
+GetOptions(
+ "help" => sub { Pod::Usage::pod2usage('-verbose' => 1) },
+ "copy-wizard" => \$live{copy_wizard},
+ "boot-only" => \$opts{boot_only},
+ "boot-image=s" => sub { $opts{boot} = $_[1]; $opts{boot_only} = 1 },
+ "all" => sub { $_->{to_run} = 1 foreach grep { member($_->{name}, @all) } @actions },
+ (map { $_->{name} => \$_->{to_run} } @actions),
+ "device=s" => sub { $live{media}{device} = $opts{device} = $_[1] },
+ "all-regions" => sub { $live{all_regions} = 1 },
+ "config-root=s" => \$config_root,
+ "config=s" => \$config_path,
+ "settings=s" => \$settings_path,
+ "define=s" => \%{$live{settings}},
+) or Pod::Usage::pod2usage();
+
+require standalone;
+if ($live{copy_wizard}) {
+ copy_wizard(\%live);
+} else {
+ every { !$_->{to_run} } @actions and die 'nothing to do';
+ read_config(\%live, $config_root, $config_path, $settings_path);
+ check_config(\%live);
+ complete_config(\%live);
+ foreach my $region ($live{all_regions} ? sort(keys %{$live{regions}}) : $live{settings}{region}) {
+ $region and print qq(=== proceeding with region "$region"\n);
+ $live{settings}{region} = $region;
+ foreach (grep { $_->{to_run} } @actions) {
+ print qq(* entering step "$_->{name}"\n);
+ $_->{do}->(\%live, \%opts);
+ print qq(* step "$_->{name}" done\n);
+ }
+ }
+}
+
+__END__
+
+=head1 NAME
+
+draklive - A live distribution mastering tool
+
+=head1 SYNOPSIS
+
+draklive [options]
+
+ Options:
+ --help long help message
+
+ --install install selected distribution in chroot
+ --boot prepare initrd and bootloader files
+ --loop build compressed loopback files
+ --master build master image
+
+ --all run all steps, from installation to mastering
+
+ --clean clean installation chroot and work directory
+
+ --device <dev> use this device for live recording (not needed
+ if the device already has the required label)
+ --format format selected device
+ --record record live on selected media
+ --record-onthefly record live by creating master from loopback files
+ on the fly
+
+ --initrd build initrd only
+ --post-install run post install only (rpms and patches installation)
+
+ --config-root <dir>
+ root directory containing config files and additionnal files
+ defaults to current directory if it contains a configuration file
+ else, "/etc/draklive" is used
+
+ --config <file> use this configuration file as live description
+ defaults to "config/live.cfg"
+
+ --settings <file> use this file as live settings (key=value format)
+ defaults to "config/settings.cfg"
+ --define key=value
+ set setting "key" to "value"
+ takes precedence over values from a settings file
+
+ --all-regions proceed with all configured regions
+
+ --copy-wizard run the copy wizard
+
+ --boot-only copy only boot files
+ (affects master/record steps)
+
+ --boot-image <method>
+ create a boot image for the selected method
+ (affects master/record steps, implies --boot-only)
+
+Examples:
+
+ draklive --clean
+
+ draklive --all
+
+ draklive --record --device /dev/sdb1
+
+ draklive --config config/live.cfg --install
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<--config>
+
+Makes draklive use the next argument as a configuration file.
+This file should contain an hash describing the live distribution,
+meaning the system (chroot and boot), media (usb, cdrom, nfs),
+and mount type (simple R/W union, union with squash files).
+
+Here's a configuration sample:
+
+ {
+ settings {
+ repository => '/mnt/ken/2006.0',
+ root => '/chroot/live-move',
+ },
+ system => {
+ kernel => '2.6.12-12mdk-i586-up-1GB',
+ auto_install => 'config/auto_inst.cfg.pl',
+ patch_install => 'config/patch-2006-live.pl',
+ rpmsrate => 'config/rpmsrate',
+ rpms => [
+ 'rpms/unionfs-kernel-2.6.12-12mdk-i586-up-1GB-1.1.1.1.20051124.1mdk-1mdk.i586.rpm'
+ ],
+ patches => [
+ 'patches/halt.loopfs.patch',
+ ],
+ vga_mode => 788,
+ },
+ media => {
+ storage => 'cdrom',
+ },
+ extra_media => [
+ {
+ storage => 'usb',
+ },
+ ],
+ mount => $predefined{mounts}{squash_union}
+ };
+
+=item B<--settings>
+
+Makes draklive load the next argument as a file in key=value format
+into the $live->{settings} hash ($live being the global live configuration hash).
+
+Built-in keys:
+ arch: build architecture
+ builddir: directory hosting build files (initrd, loopbacks, images)
+ chroot: directory hosting chrooted installations
+ region: use the matching set of langs from the regions configuration hash
+ repository: path to the Mandriva distribution repository (ftp/http/local)
+
+Example keys:
+ desktop
+ media
+ product
+
+=back
+
+=head1 DESCRIPTION
+
+B<draklive> builds a live distribution according to a
+configuration file, creates a master image,
+and optionnally installs it on a device.
+
+See L<http://qa.mandriva.com/twiki/bin/view/Main/DrakLive>
+
+=head1 AUTHOR
+
+Olivier Blin <oblin@mandriva.com>
+
+=cut
diff --git a/draklive-copy-wizard.desktop b/draklive-copy-wizard.desktop
new file mode 100644
index 0000000..2c73b47
--- /dev/null
+++ b/draklive-copy-wizard.desktop
@@ -0,0 +1,7 @@
+[Desktop Entry]
+Encoding=UTF-8
+Exec=/usr/sbin/draklive --copy-wizard
+Icon=MandrivaOne-copy-icon
+Terminal=false
+Type=Application
+Name=Live copy