From 71c0f098c0701b8ab3d6d4ebd1b337b1c8fd3d82 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 30 Aug 2010 16:42:49 +0000 Subject: extract record_cdrom_path --- draklive | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'draklive') diff --git a/draklive b/draklive index 1aae255..0e1c55a 100755 --- a/draklive +++ b/draklive @@ -910,14 +910,19 @@ sub format_device { } } -sub record_cdrom_master { - my ($live, $opts) = @_; +sub record_cdrom_path { + my ($live, $path, $opts) = @_; my $device = get_media_device($live, $opts) or die "no device defined in media configuration\n"; - my $src = $opts->{onthefly} ? '-' : get_cdrom_master_path($live, $opts); + my $src = $opts->{onthefly} ? '-' : $path; run_('wodim', '-v', 'dev=' . $device, $src); } +sub record_cdrom_master { + my ($live, $opts) = @_; + record_cdrom_path($live, get_cdrom_master_path($live, $opts), $opts); +} + sub rsync_delete_options { my ($opts) = @_; $opts->{keep_files} ? () : '--delete'; -- cgit v1.2.1