package Xconfig::main; # $Id: main.pm 261482 2009-10-06 10:15:34Z cfergeau $ use diagnostics; use strict; use Xconfig::monitor; use Xconfig::card; use Xconfig::plugins; use Xconfig::resolution_and_depth; use Xconfig::various; use Xconfig::screen; use Xconfig::test; use Xconfig::xfree; use common; sub configure_monitor { my ($in) = @_; my $raw_X = Xconfig::xfree->read; Xconfig::monitor::configure($in, $raw_X, int($raw_X->get_devices)) or return; if ($raw_X->is_modified) { $raw_X->write; 'need_restart'; } else { ''; } } sub configure_resolution { my ($in) = @_; my $raw_X = Xconfig::xfree->read; my $X = { card => Xconfig::card::from_raw_X($raw_X), monitors => [ $raw_X->get_monitors ], }; $X->{resolutions} = Xconfig::resolution_and_depth::configure($in, $raw_X, $X->{card}, $X->{monitors}) or return; if ($raw_X->is_modified) { &write($raw_X, $X); } else { ''; } } sub configure_everything_auto_install { my ($raw_X, $do_pkgs, $old_X, $options) = @_; my $X = {}; $X->{monitors} = Xconfig::monitor::configure_auto_install($raw_X, $old_X) or return; $options->{VideoRam_probed} = $X->{monitors}[0]{VideoRam_probed}; $X->{card} = Xconfig::card::configure_auto_install($raw_X, $do_pkgs, $old_X, $options) or return; Xconfig::screen::configure($raw_X) or return; $X->{resolutions} = Xconfig::resolution_and_depth::configure_auto_install($raw_X, $X->{card}, $X->{monitors}, $old_X); my $action = &write($raw_X, $X, $options->{skip_fb_setup}); $action; } sub configure_everything { my ($in, $raw_X, $do_pkgs, $auto, $options) = @_; my $X = {}; my $ok = 1; my $probed_info = Xconfig::monitor::probe($raw_X->get_Driver); $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), $probed_info, $auto); $ok &&= Xconfig::screen::configure($raw_X); $ok &&= $X->{resolutions} = 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; if (!$ok) { return if $auto; ($ok) = configure_chooser_raw($in, $raw_X, $do_pkgs, $options, $X, 1); } may_write($in, $raw_X, $X, $ok); } sub configure_chooser_raw { my ($in, $raw_X, $do_pkgs, $options, $X, $b_modified) = @_; my %texts; my $update_texts = sub { $texts{card} = $X->{card} && $X->{card}{BoardName} || N("Custom"); $texts{monitors} = $X->{monitors} && $X->{monitors}[0]{ModelName} || N("Custom"); $texts{resolutions} = Xconfig::resolution_and_depth::to_string($X->{resolutions}[0]); $texts{$_} =~ s/(.{20}).*/$1.../ foreach keys %texts; #- ensure not too long }; $update_texts->(); my $may_set; my $prompt_for_resolution = sub { $may_set->('resolutions', Xconfig::resolution_and_depth::configure($in, $raw_X, $X->{card}, $X->{monitors})); }; $may_set = sub { my ($field, $val) = @_; if ($val) { $X->{$field} = $val; $X->{"modified_$field"} = 1; $b_modified = 1; $update_texts->(); if (member($field, 'card', 'monitors')) { my ($default_resolution, @other_resolutions) = Xconfig::resolution_and_depth::choices($raw_X, $X->{resolutions}[0], $X->{card}, $X->{monitors}); if (Xconfig::resolution_and_depth::to_string($default_resolution) ne Xconfig::resolution_and_depth::to_string($X->{resolutions}[0])) { $prompt_for_resolution->(); } else { Xconfig::screen::configure($raw_X); $may_set->('resolutions', Xconfig::resolution_and_depth::set_resolution($raw_X, $X->{card}, $X->{monitors}, $default_resolution, @other_resolutions)); } } } }; my $ok; $in->ask_from_({ interactive_help_id => 'configureX_chooser', title => N("Graphic Card & Monitor Configuration"), if_($::isStandalone, ok => N("Quit")) }, [ { label => N("Graphic Card"), val => \$texts{card}, clicked => sub { $may_set->('card', Xconfig::card::configure($in, $raw_X, $do_pkgs, 0, $options)); } }, { label => N("_: This is a display device\nMonitor"), val => \$texts{monitors}, clicked => sub { $may_set->('monitors', Xconfig::monitor::configure($in, $raw_X, int($raw_X->get_devices))); } }, { label => N("Resolution"), val => \$texts{resolutions}, disabled => sub { !$X->{card} || !$X->{monitors} }, clicked => $prompt_for_resolution }, if_(Xconfig::card::check_bad_card($X->{card}) || $::isStandalone, { val => N("Test"), disabled => sub { !$X->{card} || !$X->{monitors} }, clicked => sub { $ok = Xconfig::test::test($in, $raw_X, $X->{card}, 'auto', 0); } }, ), { val => N("Options"), clicked => sub { Xconfig::various::various($in, $raw_X, $X->{card}, $options, 0, 'read_existing'); Xconfig::card::to_raw_X($X->{card}, $raw_X); } }, if_(Xconfig::plugins::list(), { val => N("Plugins"), clicked => sub { Xconfig::plugins::choose($in, $raw_X); } }, ), ]); $ok, $b_modified; } sub configure_chooser { my ($in, $raw_X, $do_pkgs, $options) = @_; my $X = { card => scalar eval { Xconfig::card::from_raw_X($raw_X) }, monitors => [ $raw_X->get_monitors ], resolutions => [ eval { $raw_X->get_resolutions } ], }; my ($ok) = configure_chooser_raw($in, $raw_X, $do_pkgs, $options, $X); if ($raw_X->is_modified) { may_write($in, $raw_X, $X, $ok); } else { ''; } } sub configure_everything_or_configure_chooser { my ($in, $options, $auto, $o_keyboard, $o_mouse) = @_; my $raw_X = eval { Xconfig::xfree->read }; my $err = $@ && formatError($@); $err ||= _check_valid($raw_X) if $raw_X; #- that's ok if config is empty if ($err) { log::l("ERROR: bad X config file (error: $err)"); $options->{ignore_bad_conf} or $in->ask_okcancel('', N("Your Xorg configuration file is broken, we will ignore it.")) or return; undef $raw_X; } my $rc = 'ok'; if (!$raw_X) { $raw_X = Xconfig::default::configure($in->do_pkgs, $o_keyboard, $o_mouse); $rc = configure_everything($in, $raw_X, $in->do_pkgs, $auto, $options); } elsif (!$auto) { $rc = configure_chooser($in, $raw_X, $in->do_pkgs, $options); } $rc && $raw_X, $rc; } sub may_write { my ($in, $raw_X, $X, $ok) = @_; $ok ||= $in->ask_yesorno('', N("Keep the changes? The current configuration is: %s", Xconfig::various::info($raw_X, $X->{card})), 1); $ok && &write($raw_X, $X); } sub write { my ($raw_X, $X, $o_skip_fb_setup) = @_; export_to_install_X($X) if $::isInstall; my $only_resolution = $raw_X->is_only_resolution_modified; $raw_X->write; Xconfig::various::check_xorg_conf_symlink(); Xconfig::various::setup_kms(); if ($X->{resolutions}[0]{bios}) { Xconfig::various::setupFB($X->{resolutions}[0]{bios}) if !$o_skip_fb_setup;; 'need_reboot'; } elsif (my $resolution = $only_resolution && eval { $raw_X->get_resolution }) { 'need_xrandr' . sprintf(' --size %dx%d', @$resolution{'X', 'Y'}); } else { 'need_restart'; } } sub export_to_install_X { my ($X) = @_; my $resolution = $X->{resolutions}[0]; $::o->{X}{resolution_wanted} = $resolution->{automatic} ? 'automatic' : $resolution->{X} . 'x' . $resolution->{Y}; $::o->{X}{default_depth} = $resolution->{Depth} if $resolution->{Depth}; $::o->{X}{bios_vga_mode} = $resolution->{bios} if $resolution->{bios}; $::o->{X}{monitors} = $X->{monitors} if $X->{monitors}[0]{manually_chosen} && $X->{monitors}[0]{vendor} ne "Plug'n Play"; $::o->{X}{card} = $X->{card} if $X->{card}{manually_chosen}; $::o->{X}{Xinerama} = 1 if $X->{card}{Xinerama}; } sub _check_valid { my ($raw_X) = @_; my %_sections = map { my @l = $raw_X->get_Sections($_) or return "missing section $_"; $_ => \@l; } qw(Device Screen ServerLayout); ''; } 1;