From 02f112fe20b167ebed9fbbb0bb95421665f689c9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 27 Jan 2003 07:33:45 +0000 Subject: this patch enable doc team to take snapshot of drakxtv even if they do not have any card: - running "/usr/sbin/drakxtv" will enable to take snapshot of error message when xawtv wasn't installed by the drakx installer - running "/usr/sbin/drakxtv --testing" will emulate a fake dummy tv card so that one is able to take snapshots of configuring a tv card --- perl-install/standalone/drakxtv | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv index ebcdf4ce7..d373b6e05 100755 --- a/perl-install/standalone/drakxtv +++ b/perl-install/standalone/drakxtv @@ -40,7 +40,7 @@ sub scan4channels { # -x "/usr/bin/scantv" or { #{ exec {'consolehelper'} $0, ("urpmi", "xawtv") or die N("consolehelper missing"); # }; - if (! -x "/usr/bin/scantv") { + if (!$::testing && ! -x "/usr/bin/scantv") { # log::explanations("package xawtv isn't installed"); $in->ask_warn("XawTV isn't installed!", formatAlaTeX(N("XawTV isn't installed! @@ -130,6 +130,7 @@ You can install it by typing \"urpmi xawtv\" as root, in a console."))); } my @devices = grep { $_->{media_type} eq 'MULTIMEDIA_VIDEO' || $_->{driver} eq 'usbvision' } detect_devices::probeall(1); +push @devices, { driver => 'bttv', description => 'dummy' } if $::testing && !@devices; if (@devices) { # TODO: That need some work for multiples TV cards foreach (@devices) { -- cgit v1.2.1