summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-15 14:37:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-15 14:37:15 +0000
commitcf5f4d02bc5380afa126c75c724517aff6356ea7 (patch)
treecb323fa52afa187870af57b752f6fad8cc6c5afc /perl-install/Xconfig
parent439c56f83d802760f5fc10d1971cbca1154e4c60 (diff)
downloaddrakx-backup-do-not-use-cf5f4d02bc5380afa126c75c724517aff6356ea7.tar
drakx-backup-do-not-use-cf5f4d02bc5380afa126c75c724517aff6356ea7.tar.gz
drakx-backup-do-not-use-cf5f4d02bc5380afa126c75c724517aff6356ea7.tar.bz2
drakx-backup-do-not-use-cf5f4d02bc5380afa126c75c724517aff6356ea7.tar.xz
drakx-backup-do-not-use-cf5f4d02bc5380afa126c75c724517aff6356ea7.zip
- new function Xconfig::monitor::is_valid()
- new function Xconfig::monitor::probe() which probes DDC, then fallbacks on DMI
Diffstat (limited to 'perl-install/Xconfig')
-rw-r--r--perl-install/Xconfig/main.pm6
-rw-r--r--perl-install/Xconfig/monitor.pm63
2 files changed, 50 insertions, 19 deletions
diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm
index 715cc0d1f..abcbe8be1 100644
--- a/perl-install/Xconfig/main.pm
+++ b/perl-install/Xconfig/main.pm
@@ -64,10 +64,10 @@ sub configure_everything {
my $X = {};
my $ok = 1;
- my $ddc_info = Xconfig::monitor::getinfoFromDDC();
- $options->{VideoRam_probed} = $ddc_info->{VideoRam_probed};
+ my $probed_info = Xconfig::monitor::probe();
+ $options->{VideoRam_probed} = $probed_info->{VideoRam_probed};
$ok &&= $X->{card} = Xconfig::card::configure($in, $raw_X, $do_pkgs, $auto, $options);
- $ok &&= $X->{monitors} = Xconfig::monitor::configure($in, $raw_X, int($raw_X->get_devices), $ddc_info, $auto);
+ $ok &&= $X->{monitors} = Xconfig::monitor::configure($in, $raw_X, int($raw_X->get_devices), $probed_info, $auto);
$ok &&= Xconfig::screen::configure($raw_X);
$ok &&= $X->{resolution} = Xconfig::resolution_and_depth::configure($in, $raw_X, $X->{card}, $X->{monitors}, $auto);
$ok &&= Xconfig::test::test($in, $raw_X, $X->{card}, '', 'skip_badcard') if !$auto;
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm
index 81be56e35..1338b08aa 100644
--- a/perl-install/Xconfig/monitor.pm
+++ b/perl-install/Xconfig/monitor.pm
@@ -33,11 +33,11 @@ my @HorizSync_ranges = (
);
sub configure {
- my ($in, $raw_X, $nb_monitors, $o_ddc_info, $b_auto) = @_;
+ my ($in, $raw_X, $nb_monitors, $o_probed_info, $b_auto) = @_;
my $monitors = [ $raw_X->get_or_new_monitors($nb_monitors) ];
- if ($o_ddc_info) {
- put_in_hash($monitors->[0], $o_ddc_info);
+ if ($o_probed_info) {
+ put_in_hash($monitors->[0], $o_probed_info);
}
my $head_nb = 1;
foreach my $monitor (@$monitors) {
@@ -63,14 +63,15 @@ sub configure_auto_install {
mapn {
my ($monitor, $auto_install_monitor) = @_;
put_in_hash($monitor, $auto_install_monitor);
+ configure_automatic($monitor);
} $monitors, $old_X->{monitors} if $old_X->{monitors};
- if (!$monitors->[0]{HorizSync} && !($monitors->[0]{VendorName} && $monitors->[0]{ModelName})) {
- put_in_hash($monitors->[0], getinfoFromDDC());
+ if (!is_valid($monitors->[0])) {
+ put_in_hash($monitors->[0], probe());
}
foreach my $monitor (@$monitors) {
- if (!configure_automatic($monitor)) {
+ if (!is_valid($monitor)) {
good_default_monitor() =~ /(.*)\|(.*)/ or internal_error("bad good_default_monitor");
put_in_hash($monitor, { VendorName => $1, ModelName => $2 });
configure_automatic($monitor) or internal_error("good_default_monitor (" . good_default_monitor() . ") is unknown in MonitorsDB");
@@ -83,7 +84,7 @@ sub configure_auto_install {
sub choose {
my ($in, $monitor, $head_nb, $b_auto) = @_;
- my $ok = configure_automatic($monitor);
+ my $ok = is_valid($monitor);
if ($b_auto) {
log::l("Xconfig::monitor: auto failed") if !$ok;
return $ok;
@@ -99,7 +100,7 @@ sub choose {
my $merged_name = $monitor->{VendorName} . '|' . $monitor->{ModelName};
if (!exists $h_monitors{$merged_name}) {
- $merged_name = $monitor->{HorizSync} ? 'Custom' : good_default_monitor();
+ $merged_name = is_valid($monitor) ? 'Custom' : good_default_monitor();
} else {
$merged_name;
}
@@ -121,12 +122,15 @@ sub choose {
if ($merged_name eq "Plug'n Play") {
local $::noauto = 0; #- hey, you asked for plug'n play, so i do probe!
delete @$monitor{'VendorName', 'ModelName', 'EISA_ID'};
- put_in_hash($monitor, getinfoFromDDC()) if $head_nb <= 1;
- if ($head_nb > 1 || configure_automatic($monitor)) {
- $monitor->{VendorName} = "Plug'n Play";
+ if ($head_nb <= 1) {
+ if (my $probed_info = probe()) {
+ put_in_hash($monitor, $probed_info);
+ } else {
+ $in->ask_warn('', N("Plug'n Play probing failed. Please select the correct monitor"));
+ goto ask_monitor;
+ }
} else {
- $in->ask_warn('', N("Plug'n Play probing failed. Please select the correct monitor"));
- goto ask_monitor;
+ $monitor->{VendorName} = "Plug'n Play";
}
} elsif ($merged_name eq 'Custom') {
$in->ask_from('',
@@ -155,7 +159,7 @@ sub configure_automatic {
if (my $mon = find { lc($_->{EISA_ID}) eq $monitor->{EISA_ID} } monitors_db()) {
add2hash($monitor, $mon);
log::l("EISA_ID corresponds to: $monitor->{ModelName}");
- } elsif (!$monitor->{HorizSync} || !$monitor->{VertRefresh}) {
+ } elsif (!is_valid($monitor)) {
log::l("unknown EISA_ID and partial DDC probe, so unknown monitor");
delete @$monitor{'VendorName', 'ModelName', 'EISA_ID'};
}
@@ -164,11 +168,23 @@ sub configure_automatic {
put_in_hash($monitor, $mon);
}
}
+ is_valid($monitor);
+}
+
+sub is_valid {
+ my ($monitor) = @_;
+ $monitor->{HorizSync} && $monitor->{VertRefresh};
+}
- return $monitor->{HorizSync} && $monitor->{VertRefresh};
+sub probe() {
+ my $monitor = probe_DDC();
+ if (!configure_automatic($monitor || {})) {
+ $monitor = probe_DMI();
+ }
+ is_valid($monitor) && $monitor;
}
-sub getinfoFromDDC() {
+sub probe_DDC() {
my ($edid, $vbe) = any::monitor_full_edid() or return;
my $monitor = eval($edid);
@@ -200,6 +216,21 @@ sub getinfoFromDDC() {
$monitor;
}
+sub probe_DMI() {
+ my ($res) = my @res = uniq(map { if_($_->{driver} =~ /^Resolution:(.*)/, $1) } detect_devices::probeall()) or return;
+ if (@res > 1) {
+ log::l("oops, more than one resolution from DMI and pci probe: ", join(' ', @res));
+ }
+ my ($X, $Y) = $res =~ /(\d+)x(\d+)/ or log::l("bad resolution $res"), return;
+
+ {
+ VendorName => 'Generic',
+ ModelName => "Flat Panel $res",
+ HorizSync => '31.5-100', VertRefresh => '60',
+ preferred_resolution => { X => $X, Y => $Y },
+ };
+}
+
my $monitors_db;
sub monitors_db() {
$monitors_db ||= readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB");