diff options
| -rwxr-xr-x | draklive | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -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) |