package sbus_probing::main; # $Id$ use c; use log; use common; use modules; my %sbus_table_network = ( hme => [ "Sun Happy Meal Ethernet", "sunhme" ], le => [ "Sun Lance Ethernet", "ignore:lance" ], qe => [ "Sun Quad Ethernet", "sunqe" ], mlanai => [ "MyriCOM MyriNET Gigabit Ethernet", "myri_sbus" ], myri => [ "MyriCOM MyriNET Gigabit Ethernet", "myri_sbus" ], ); my %sbus_table_scsi = ( soc => [ "Sun SPARCStorage Array", "fc4:soc:pluto" ], socal => [ "Sun Enterprise Network Array", "fc4:socal:fcal" ], 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}} ] : push @$sbus_probed, [ "AUDIO", @{$sbus_table_audio{$prob_name}} ]; } #- probe for video devices. if ($prob_type eq 'display' && ($sbus || $prob_name =~ /^(ffb|afb|cgfourteen)$/)) { $prob_name =~ s/[A-Z,]*(.*)/$1/; my $ext = ($prob_name eq 'mgx' && prom_getint('fb_size') == 0x400000 && '_4M' || $prob_name eq 'cgsix' && do { my ($chiprev, $vmsize) = (prom_getint('chiprev'), prom_getint('vmsize')); my $result = ''; $chiprev >= 1 && $chiprev <= 4 and $result = '_dbl'; $chiprev >= 5 && $chiprev <= 9 and $result = '_sgl'; $chiprev == 11 && $vmsize == 2 and $result = '_t1M'; $chiprev == 11 && $vmsize == 4 and $result = '_tp'; $chiprev == 11 && !$result and $result = '_t'; $result; } || $prob_name eq 'leo' && c::prom_getstring('model') =~ /501-2503/ && '_t' || $prob_name eq 'tcx' && c::prom_getbool('tcx-8-bit') && '_8b' || $prob_name eq 'afb' && sprintf "_btx%x", prom_getint('board_type') || $prob_name eq 'ffb' && sprintf "_btx%x", prom_getint('board_type')); $sbus_table_video{$prob_name . $ext} ? push @$sbus_probed, [ "VIDEO", @{$sbus_table_video{$prob_name . $ext}} ] : push @$sbus_probed, [ "VIDEO", @{$sbus_table_video{$prob_name}} ]; } #- parse prom tree. $prob_name eq 'sbus' || $prob_name eq 'sbi' and $nsbus = 1; $prob_name eq 'ebus' and $nebus = 1; $nextnode = c::prom_getchild($node) and prom_walk($sbus_probed, $nextnode, $nsbus, $nebus); $nextnode = c::prom_getsibling($node) and prom_walk($sbus_probed, $nextnode, $sbus, $ebus); } sub probe { eval { modules::load("openprom") } if arch() =~ /sparc/; my $root_node = c::prom_open(); my @l; prom_walk(\@l, $root_node, 0, 0); c::prom_close(); map { my %l; @l{qw(type description drivers)} = @$_ } @l; } ubmit();'>space:mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-09-18 00:38:30 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-09-18 00:38:30 +0000
commitec96183539bb600b1a25ecd1cb91d227a96aa450 (patch)
treef58566180729464eff75472dcca6a8e6fd5d2606 /perl-install/share/po
parentb3727fb87ab909938c9acb53673466d2aab4daff (diff)
downloaddrakx-ec96183539bb600b1a25ecd1cb91d227a96aa450.tar
drakx-ec96183539bb600b1a25ecd1cb91d227a96aa450.tar.gz
drakx-ec96183539bb600b1a25ecd1cb91d227a96aa450.tar.bz2
drakx-ec96183539bb600b1a25ecd1cb91d227a96aa450.tar.xz
drakx-ec96183539bb600b1a25ecd1cb91d227a96aa450.zip
typo fix
Diffstat (limited to 'perl-install/share/po')
-rw-r--r--perl-install/share/po/DrakX.pot2
-rw-r--r--perl-install/share/po/af.po2
-rw-r--r--perl-install/share/po/am.po2
-rw-r--r--perl-install/share/po/ar.po2
-rw-r--r--perl-install/share/po/az.po2
-rw-r--r--perl-install/share/po/be.po2
-rw-r--r--perl-install/share/po/bg.po2
-rw-r--r--perl-install/share/po/bn.po2
-rw-r--r--perl-install/share/po/br.po2
-rw-r--r--perl-install/share/po/bs.po2
-rw-r--r--perl-install/share/po/ca.po2
-rw-r--r--perl-install/share/po/cs.po2
-rw-r--r--perl-install/share/po/cy.po2
-rw-r--r--perl-install/share/po/da.po2
-rw-r--r--perl-install/share/po/de.po2
-rw-r--r--perl-install/share/po/el.po2
-rw-r--r--perl-install/share/po/eo.po2
-rw-r--r--perl-install/share/po/es.po2
-rw-r--r--perl-install/share/po/et.po2
-rw-r--r--perl-install/share/po/eu.po2
-rw-r--r--perl-install/share/po/fa.po2
-rw-r--r--perl-install/share/po/fi.po2
-rw-r--r--perl-install/share/po/fr.po4
-rw-r--r--perl-install/share/po/fur.po2
-rw-r--r--perl-install/share/po/ga.po2
-rw-r--r--perl-install/share/po/gl.po2
-rw-r--r--perl-install/share/po/he.po2
-rw-r--r--perl-install/share/po/hi.po2
-rw-r--r--perl-install/share/po/hr.po2
-rw-r--r--perl-install/share/po/hu.po2
-rw-r--r--perl-install/share/po/id.po2
-rw-r--r--perl-install/share/po/is.po2
-rw-r--r--perl-install/share/po/it.po4
-rw-r--r--perl-install/share/po/ja.po2
-rw-r--r--perl-install/share/po/ko.po2
-rw-r--r--perl-install/share/po/ky.po2
-rw-r--r--perl-install/share/po/lt.po2
-rw-r--r--perl-install/share/po/ltg.po2
-rw-r--r--perl-install/share/po/lv.po2
-rw-r--r--perl-install/share/po/mk.po2
-rw-r--r--perl-install/share/po/mn.po2
-rw-r--r--perl-install/share/po/ms.po2
-rw-r--r--perl-install/share/po/mt.po2
-rw-r--r--perl-install/share/po/nb.po2
-rw-r--r--perl-install/share/po/nl.po2
-rw-r--r--perl-install/share/po/nn.po2
-rw-r--r--perl-install/share/po/pa_IN.po2
-rw-r--r--perl-install/share/po/pl.po2
-rw-r--r--perl-install/share/po/pt.po2
-rw-r--r--perl-install/share/po/pt_BR.po2
-rw-r--r--perl-install/share/po/ro.po2
-rw-r--r--perl-install/share/po/ru.po2
-rw-r--r--perl-install/share/po/sc.po2
-rw-r--r--perl-install/share/po/sk.po2
-rw-r--r--perl-install/share/po/sl.po2
-rw-r--r--perl-install/share/po/sq.po2
-rw-r--r--perl-install/share/po/sr.po2
-rw-r--r--perl-install/share/po/sr@Latn.po2
-rw-r--r--perl-install/share/po/sv.po2
-rw-r--r--perl-install/share/po/ta.po2
-rw-r--r--perl-install/share/po/tg.po2
-rw-r--r--perl-install/share/po/th.po2
-rw-r--r--perl-install/share/po/tl.po2
-rw-r--r--perl-install/share/po/tr.po2
-rw-r--r--perl-install/share/po/uk.po2
-rw-r--r--perl-install/share/po/uz.po2
-rw-r--r--perl-install/share/po/uz@Latn.po2
-rw-r--r--perl-install/share/po/vi.po2
-rw-r--r--perl-install/share/po/wa.po2
-rw-r--r--perl-install/share/po/zh_CN.po2
-rw-r--r--perl-install/share/po/zh_TW.po2
71 files changed, 73 insertions, 73 deletions
diff --git a/perl-install/share/po/DrakX.pot b/perl-install/share/po/DrakX.pot
index c1e628197..fce4ee031 100644
--- a/perl-install/share/po/DrakX.pot
+++ b/perl-install/share/po/DrakX.pot
@@ -17359,7 +17359,7 @@ msgstr ""
#: standalone/drakgw:177
#, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr ""
#: standalone/drakgw:180
diff --git a/perl-install/share/po/af.po b/perl-install/share/po/af.po
index 91f307d46..f134649b1 100644
--- a/perl-install/share/po/af.po
+++ b/perl-install/share/po/af.po
@@ -20613,7 +20613,7 @@ msgstr "Kies asseblief die netwerkkaart wat aan u LAN gekoppel is."
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Plaaslike Netwerkadres"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/am.po b/perl-install/share/po/am.po
index 2e8a53262..13da68e8c 100644
--- a/perl-install/share/po/am.po
+++ b/perl-install/share/po/am.po
@@ -18204,7 +18204,7 @@ msgstr ""
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "የቀይ ባርኔታ መረብ"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/ar.po b/perl-install/share/po/ar.po
index ce3c89db1..efe646007 100644
--- a/perl-install/share/po/ar.po
+++ b/perl-install/share/po/ar.po
@@ -20687,7 +20687,7 @@ msgstr "الرجاء اختيار موائم الشبكة الذي سيتم به
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "عنوان الشبكة المحلية"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/az.po b/perl-install/share/po/az.po
index ddf4eb81d..67f22d0ae 100644
--- a/perl-install/share/po/az.po
+++ b/perl-install/share/po/az.po
@@ -20592,7 +20592,7 @@ msgstr ""
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Yerli Şəbəkə ünvanı"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/be.po b/perl-install/share/po/be.po
index 9b36fda0e..cffc052f8 100644
--- a/perl-install/share/po/be.po
+++ b/perl-install/share/po/be.po
@@ -18429,7 +18429,7 @@ msgstr ""
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Прагляд лякальнай сеткі"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/bg.po b/perl-install/share/po/bg.po
index f699aad6b..18a4edbe7 100644
--- a/perl-install/share/po/bg.po
+++ b/perl-install/share/po/bg.po
@@ -19584,7 +19584,7 @@ msgstr ""
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Адрес на Локална мрежа"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/bn.po b/perl-install/share/po/bn.po
index bb34973ea..6266f7941 100644
--- a/perl-install/share/po/bn.po
+++ b/perl-install/share/po/bn.po
@@ -20519,7 +20519,7 @@ msgstr ""
# ##msgstr "স্থানীয় নেটওয়ার্ক ঠিকানা"
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "স্থানীয় নেটওয়ার্ক অ্যাড্রেস"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/br.po b/perl-install/share/po/br.po
index 919589268..ff88c80b4 100644
--- a/perl-install/share/po/br.po
+++ b/perl-install/share/po/br.po
@@ -18585,7 +18585,7 @@ msgstr ""
#: standalone/drakgw:177
#, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Chomlec'h ar rouedad lec'hel"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/bs.po b/perl-install/share/po/bs.po
index 7b3632f2b..97b5359e2 100644
--- a/perl-install/share/po/bs.po
+++ b/perl-install/share/po/bs.po
@@ -20927,7 +20927,7 @@ msgstr ""
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Lokalna mrežna adresa"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/ca.po b/perl-install/share/po/ca.po
index d32f75181..b42c428a1 100644
--- a/perl-install/share/po/ca.po
+++ b/perl-install/share/po/ca.po
@@ -21265,7 +21265,7 @@ msgstr ""
#: standalone/drakgw:177
#, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Paràmetres de la xarxa local"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/cs.po b/perl-install/share/po/cs.po
index 4cc1d6354..fc8b4a83d 100644
--- a/perl-install/share/po/cs.po
+++ b/perl-install/share/po/cs.po
@@ -20935,7 +20935,7 @@ msgstr "Prosím zvolte si, ke kterému síťovému adaptéru bude připojena LAN
#: standalone/drakgw:177
#, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Nastavení lokální sítě"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/cy.po b/perl-install/share/po/cy.po
index 0103dd1b7..8e921ffdc 100644
--- a/perl-install/share/po/cy.po
+++ b/perl-install/share/po/cy.po
@@ -20934,7 +20934,7 @@ msgstr ""
#: standalone/drakgw:177
#, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Gosodiadau Rhwydwaith Ardal Leol"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/da.po b/perl-install/share/po/da.po
index 77d88e4ce..5fdaa2e4f 100644
--- a/perl-install/share/po/da.po
+++ b/perl-install/share/po/da.po
@@ -20847,7 +20847,7 @@ msgstr "Vælg hvilken netværksadapter som skal forbindes til dit lokalnet."
#: standalone/drakgw:177
#, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Opsætning af lokalnetværk"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/de.po b/perl-install/share/po/de.po
index b467c92ca..22f712794 100644
--- a/perl-install/share/po/de.po
+++ b/perl-install/share/po/de.po
@@ -21281,7 +21281,7 @@ msgstr ""
#: standalone/drakgw:177
#, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Einstellungen des lokalen Netzwerkes"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/el.po b/perl-install/share/po/el.po
index 22b2d8907..041e11cf4 100644
--- a/perl-install/share/po/el.po
+++ b/perl-install/share/po/el.po
@@ -20185,7 +20185,7 @@ msgstr ""
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "Τοπική διεύθυνση δικτύου"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/eo.po b/perl-install/share/po/eo.po
index 2e271a496..3d184746a 100644
--- a/perl-install/share/po/eo.po
+++ b/perl-install/share/po/eo.po
@@ -18821,7 +18821,7 @@ msgstr ""
#: standalone/drakgw:177
#, fuzzy, c-format
-msgid "Local Area Network setings"
+msgid "Local Area Network settings"
msgstr "neniu retkarto trovita"
#: standalone/drakgw:180
diff --git a/perl-install/share/po/es.po b/perl-install/share/po/es.po
index 0d54d500d..4919d8206 100644
--- a/perl-install/share/po/es.po
+++ b/perl-install/share/po/es.po