summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-16 12:33:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-16 12:33:38 +0000
commit3eddf2583b774f928ece9212375b291c3878a478 (patch)
tree8b5e448416dee6f7a47b6ebfeeb1befa40519b7e /perl-install/standalone
parent6defeabbc00f6b5d8bcc2ca587b670d82d35446f (diff)
downloaddrakx-3eddf2583b774f928ece9212375b291c3878a478.tar
drakx-3eddf2583b774f928ece9212375b291c3878a478.tar.gz
drakx-3eddf2583b774f928ece9212375b291c3878a478.tar.bz2
drakx-3eddf2583b774f928ece9212375b291c3878a478.tar.xz
drakx-3eddf2583b774f928ece9212375b291c3878a478.zip
- harddrake::bttv is renamed harddrake::v4l
- harddrake::v4l handle saa7134 too now (and not only bttv) - harddrake::v4l::config need a new driver parameter in order to be able to offer the right cards and tuners list - drakxtv: kill some old comments - add the list of cards supported by saa7134 - add a not to remember a potentiel speedup
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakxtv31
1 files changed, 15 insertions, 16 deletions
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index 745860cca..be29f8966 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -18,12 +18,6 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# If we ever want to autoconf the tv card at install time, we should
-# make a package out of this.
-# Maybe we'll have to for harddrake2
-#
-#package tvdrake;
-
use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
@@ -55,7 +49,7 @@ sub scan4channels {
formatAlaTeX(_("XawTV isn't installed!
-If you do have a TV card but DrakX has neither detected it (no bttv
+If you do have a TV card but DrakX has neither detected it (no bttv nor saa7134
module in \"/etc/modules\") nor installed xawtv, please send the
results of \"lspcidrake -v -f\" to \"install\@mandrakesoft.com\"
with subject \"undetected TV card\".
@@ -140,16 +134,21 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
}
}
-my @devices = detect_devices::probeall(1);
-if (grep { $_->{media_type} eq 'MULTIMEDIA_VIDEO' } @devices) {
- if (($< == 0) && (grep { $_->{driver} eq 'bttv' } @devices)) {
- require harddrake::bttv;
- modules::read_conf;
- harddrake::bttv::config($in);
- modules::write_conf;
+my @devices = grep { $_->{media_type} eq 'MULTIMEDIA_VIDEO' } detect_devices::probeall(1);
+if (@devices) {
+ # TODO: That need some work for multiples TV cards
+ foreach (@devices) {
+ if (($< == 0) && (grep { $_->{driver} =~ '(bttv|saa7134)' } @devices)) {
+ require harddrake::v4l;
+ require modules;
+ no strict 'subs';
+ modules::read_conf;
+ harddrake::v4l::config($in, $_->{driver});
+ modules::write_conf;
+ }
+ scan4channels();
+ $in->exit(0);
}
- scan4channels();
- $in->exit(0);
} else {
$in->ask_warn(_("No TV Card detected!"), formatAlaTeX(
_("No TV Card has been detected on your machine. Please verify that a Linux-supported Video/TV Card is correctly plugged in.