add --record-replicator option

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)