summaryrefslogtreecommitdiffstats
path: root/lib/Xconfig/main.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Xconfig/main.pm')
-rw-r--r--lib/Xconfig/main.pm253
1 files changed, 253 insertions, 0 deletions
diff --git a/lib/Xconfig/main.pm b/lib/Xconfig/main.pm
new file mode 100644
index 0000000..d92c27f
--- /dev/null
+++ b/lib/Xconfig/main.pm
@@ -0,0 +1,253 @@
+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);
+ my $configured = $X->{card} && Xconfig::screen::configure($raw_X);
+
+ #- still try to configure screen and resolution (to set default background)
+ #- if card configuration failed (for example if best driver is not available)
+ $X->{resolutions} = Xconfig::resolution_and_depth::configure_auto_install($raw_X, $X->{card} ||{}, $X->{monitors}, $old_X);
+ return if !$configured;
+
+ 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();
+ $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 {
+ # Always ask for reboot as the driver could've changed.
+ # TODO: Do 'need_restart' instead when no reboot needed, like no driver
+ # change.
+ 'need_reboot';
+ }
+}
+
+
+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;
generated by cgit v1.2.1 (git 2.21.0) at 2024-06-02 13:35:01 +0000