summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakxtv
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-02-26 12:47:42 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-02-26 12:47:42 +0000
commit3b5efdd9e04da2c23f7cf868b612b6c51b6a8c1d (patch)
tree430d88fa7196f6b6dc89b3d3250cfe39ec5ffc7d /perl-install/standalone/drakxtv
parent3cba76ad3eec3fbbba1fb4f77b3bcc07671f2896 (diff)
downloaddrakx-3b5efdd9e04da2c23f7cf868b612b6c51b6a8c1d.tar
drakx-3b5efdd9e04da2c23f7cf868b612b6c51b6a8c1d.tar.gz
drakx-3b5efdd9e04da2c23f7cf868b612b6c51b6a8c1d.tar.bz2
drakx-3b5efdd9e04da2c23f7cf868b612b6c51b6a8c1d.tar.xz
drakx-3b5efdd9e04da2c23f7cf868b612b6c51b6a8c1d.zip
update comments
Diffstat (limited to 'perl-install/standalone/drakxtv')
-rwxr-xr-xperl-install/standalone/drakxtv7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index 1cf1b4137..d4b7e83f0 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -21,6 +21,7 @@
# 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);
@@ -43,7 +44,7 @@ sub scan4channels {
"argentina" => _("Argentina"),
-1 =>_("All")
);
-# HRC is Harmonically Related Carrier
+# HRC means Harmonically Related Carrier
$in->ask_from("TVdrake", _("Please,\ntype in your tv norm and country"),
[
@@ -54,8 +55,8 @@ sub scan4channels {
my $wait = $in->wait_message(_('Please wait'),
_("Scanning for TV channels in progress ..."));
-# france is a bogus table provided to scantv which will
-# ignore it as "All" is selected because of -a
+# we provide scantv a bogus table (france) which will
+# will be ignored as "All" is selected because of -a
$ftable_id = "france -a " if ($ftable_id eq -1);
# Note that this'll be broken if/when we implement interactive_qt
my $use_X =$in->isa('interactive_gtk') && -x "/usr/X11R6/bin/xvt";
cal" ], esp => [ "Sun Enhanced SCSI Processor (ESP)", "ignore:esp" ], fas => [ "Sun Swift (ESP)", "ignore:esp" ], ptisp => [ "Performance Technologies ISP", "qlogicpti" ], isp => [ "QLogic ISP", "qlogicpti" ], ); my %sbus_table_audio = ( audio => [ "AMD7930", "amd7930" ], CS4231 => [ "CS4231 APC DMA (SBUS)", "cs4231" ], CS4231_PCI => [ "CS4231 EB2 DMA (PCI)", "cs4231" ], ); my %sbus_table_video = ( bwtwo => [ "Sun|Monochrome (bwtwo)", "Server:SunMono" ], cgthree => [ "Sun|Color3 (cgthree)", "Server:Sun" ], cgeight => [ "Sun|CG8/RasterOps", "Server:Sun" ], cgtwelve => [ "Sun|GS (cgtwelve)", "Server:Sun24" ], gt => [ "Sun|Graphics Tower", "Server:Sun24" ], mgx => [ "Sun|Quantum 3D MGXplus", "Server:Sun24" ], mgx_4M => [ "Sun|Quantum 3D MGXplus with 4M VRAM", "Server:Sun24" ], cgsix => [ "Sun|Unknown GX", "Server:Sun" ], cgsix_dbl => [ "Sun|Double Width GX", "Server:Sun" ], cgsix_sgl => [ "Sun|Single Width GX", "Server:Sun" ], cgsix_t1M => [ "Sun|Turbo GX with 1M VSIMM", "Server:Sun" ], cgsix_tp => [ "Sun|Turbo GX Plus", "Server:Sun" ], cgsix_t => [ "Sun|Turbo GX", "Server:Sun" ], cgfourteen => [ "Sun|SX", "Server:Sun24" ], cgfourteen_4M => [ "Sun|SX with 4M VSIMM", "Server:Sun24" ], cgfourteen_8M => [ "Sun|SX with 8M VSIMM", "Server:Sun24" ], leo => [ "Sun|ZX or Turbo ZX", "Server:Sun24" ], leo_t => [ "Sun|Turbo ZX", "Server:Sun24" ], tcx => [ "Sun|TCX (S24)", "Server:Sun24" ], tcx_8b => [ "Sun|TCX (8bit)", "Server:Sun" ], afb => [ "Sun|Elite3D", "Server:Sun24" ], afb_btx03 => [ "Sun|Elite3D-M6 Horizontal", "Server:Sun24" ], ffb => [ "Sun|FFB", "Server:Sun24" ], ffb_btx08 => [ "Sun|FFB 67Mhz Creator", "Server:Sun24" ], ffb_btx0b => [ "Sun|FFB 67Mhz Creator 3D", "Server:Sun24" ], ffb_btx1b => [ "Sun|FFB 75Mhz Creator 3D", "Server:Sun24" ], ffb_btx20 => [ "Sun|FFB2 Vertical Creator", "Server:Sun24" ], ffb_btx28 => [ "Sun|FFB2 Vertical Creator", "Server:Sun24" ], ffb_btx23 => [ "Sun|FFB2 Vertical Creator 3D", "Server:Sun24" ], ffb_btx2b => [ "Sun|FFB2 Vertical Creator 3D", "Server:Sun24" ], ffb_btx30 => [ "Sun|FFB2+ Vertical Creator", "Server:Sun24" ], ffb_btx33 => [ "Sun|FFB2+ Vertical Creator 3D", "Server:Sun24" ], ffb_btx40 => [ "Sun|FFB2 Horizontal Creator", "Server:Sun24" ], ffb_btx48 => [ "Sun|FFB2 Horizontal Creator", "Server:Sun24" ], ffb_btx43 => [ "Sun|FFB2 Horizontal Creator 3D", "Server:Sun24" ], ffb_btx4b => [ "Sun|FFB2 Horizontal Creator 3D", "Server:Sun24" ], ); 1; sub prom_getint($) { unpack "I", c::prom_getproperty($_[0]) } #- update $@sbus_probed according to SBUS detection. sub prom_walk($$$$) { my ($sbus_probed, $node, $sbus, $ebus) = @_; my ($prob_name, $prob_type) = (c::prom_getstring("name"), c::prom_getstring("device_type")); my ($nextnode, $nsbus, $nebus) = (undef, $sbus, $ebus); #- probe for network devices. if ($sbus && $prob_type eq 'network') { $prob_name =~ s/[A-Z,]*(.*)/$1/; $sbus_table_network{$prob_name} and push @$sbus_probed, [ "NETWORK", @{$sbus_table_network{$prob_name}} ]; #- TODO for Sun Quad Ethernet (qe) } #- probe for scsi devices. if ($sbus && ($prob_type eq 'scsi' || $prob_name =~ /^(soc|socal)$/)) { $prob_name =~ s/[A-Z,]*(.*)/$1/; $sbus_table_scsi{$prob_name} and push @$sbus_probed, [ "SCSI", @{$sbus_table_scsi{$prob_name}} ]; } #- probe for audio devices, there are no type to check here. if ($sbus_table_audio{$prob_name}) { $prob_name =~ /,/ and $prob_name =~ s/[A-Z,]*(.*)/$1/; my $ext = $prob_name eq 'CS4231' && $ebus && "_PCI"; $sbus_table_audio{$prob_name . $ext} ? push @$sbus_probed, [ "AUDIO", @{$sbus_table_audio{$prob_name . $ext}} ] :