summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xdraklive16
1 files changed, 16 insertions, 0 deletions
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)