From 334a0b23586970e78a11b03f557b431c1696cf70 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 30 Aug 2010 16:44:54 +0000 Subject: add --record-replicator option --- draklive | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/draklive b/draklive index 97e5f05..4aa7a7f 100755 --- a/draklive +++ b/draklive @@ -1132,6 +1132,19 @@ sub record_master { } } +#- $opts: +#- onthefly : if true, the record function must read from stdin +sub record_replicator { + my ($live, $opts) = @_; + + my $replicator_media = $live->{replicator}{media} or die "no replicator media"; + if (my $record_replicator = $replicator_media->get_boot_setting('record_replicator', $opts)) { + $record_replicator->($live, $opts); + } else { + warn "not implemented yet\n"; + } +} + sub pipe_subs { my ($writer, $reader) = @_; my ($r, $w) = POSIX::pipe; @@ -1573,6 +1586,7 @@ my @actions = ( { name => 'format', do => \&format_device }, { name => 'record', do => \&record_master }, { name => 'record-onthefly', do => \&record_onthefly }, + { name => 'record-replicator', do => \&record_replicator }, ); my @all = qw(install boot loop master image vm-image replicator); @@ -1649,6 +1663,8 @@ draklive [options] --record-onthefly record live by creating master from loopback files on the fly --keep-files keep existing files on media when recording + --record-replicator + record replicator on selected media --initrd build initrd only --post-install run post install only (rpms and patches installation) -- cgit v1.2.1