lib/Xconfig/various.pm

package Xconfig::various; # $Id: various.pm 269742 2010-06-02 09:25:35Z cfergeau $

use diagnostics;
use strict;

use Xconfig::card;
use Xconfig::default;
use Xconfig::resolution_and_depth;
use common;


sub to_string {
    my ($raw_X) = @_;

    $raw_X->is_fbdev ? 'frame-buffer' : Xconfig::resolution_and_depth::to_string($raw_X->get_resolution);
}

sub info {
    my ($raw_X, $card) = @_;
    my $info;
    my $keyboard = eval { $raw_X->get_keyboard } || {};
    my @monitors = eval { $raw_X->get_monitors };
    my $device = eval { $raw_X->get_device } || {};
    my $mouse = eval { first($raw_X->get_mice) } || {};

    $info .= N("Disable Ctrl-Alt-Backspace: %s\n", configure_ServerFlag($raw_X, 'DontZap') eq 'False' ? N("no") : N("yes"));
    $info .= N("3D hardware acceleration: %s\n", translate(bool2yesno($card->{use_DRI_GLX} || $card->{DRI_GLX_SPECIAL})));
    $info .= N("Keyboard layout: %s\n", $keyboard->{XkbLayout});
    $info .= N("Mouse type: %s\n", $mouse->{Protocol});
    foreach my $monitor (@monitors) {
        $info .= N("Monitor: %s\n", $monitor->{ModelName});
        $info .= N("Monitor HorizSync: %s\n", $monitor->{HorizSync});
        $info .= N("Monitor VertRefresh: %s\n", $monitor->{VertRefresh});
    }
    $info .= N("Graphics card: %s\n", $device->{VendorName} . ' ' . $device->{BoardName});
    $info .= N("Graphics memory: %s kB\n", $device->{VideoRam}) if $device->{VideoRam};
    if (my $resolution = eval { $raw_X->get_resolution }) {
        $info .= N("Color depth: %s\n", translate($Xconfig::resolution_and_depth::depth2text{$resolution->{Depth}})) if $resolution->{Depth};
        $info .= N("Resolution: %s\n", Xconfig::resolution_and_depth::to_string($resolution));
    }
    $info .= N("Xorg driver: %s\n", $device->{Driver}) if $device->{Driver};
    $info;
}

sub default {
    my ($card, $various) = @_;

    my $isLaptop = detect_devices::isLaptop();

    add2hash_($various, { 
        isLaptop => $isLaptop,
        xdm => 1,
        DontZap => 0,
        Composite => !($card->{Driver} eq 'nvidia' && $card->{DriverVersion} eq '71xx'),
        if_($card->{Driver} eq 'nvidia', RenderAccel => !member($card->{DriverVersion}, qw(71xx 96xx)), 
                                         Clone => 0, ForceModeDVI => 0),
        if_($card->{Driver} eq 'savage', HWCursor => 1),
        if_($card->{Driver} eq 'intel' && $isLaptop, Clone => 0),
        if_($card->{Driver} eq 'ati' && $isLaptop, Clone => 1, BIOSHotkeys => 0),
        if_(exists $card->{DRI_GLX}, use_DRI_GLX => $card->{DRI_GLX} && !$card->{Xinerama}),
        if_(member($card->{Driver}, qw(i128 ati sis trident via savage)), EXA => 0), #- list taken from http://wiki.x.org/wiki/ExaStatus
    });
}

sub various {
    my ($in, $raw_X, $card, $options, $b_auto, $b_read_existing) = @_;

    tvout($in, $card, $options) if !$b_auto;

    my $use_DRI_GLX = member('dri', $raw_X->get_modules);

    my $various = { 
        if_($::isStandalone, xdm => runlevel() == 5),
        if_($b_read_existing,
            Composite => $raw_X->get_extension('Composite') ne 'Disable',
              if_($card->{Options}{MonitorLayout} eq 'NONE,CRT+LFP' ||
                  $card->{Options}{TwinViewOrientation} eq 'Clone',
            Clone => 1),
              if_($card->{Options}{MonitorLayout} eq 'LVDS,NONE',
            Clone => 0),
               if_($card->{Options}{BIOSHotkeys}, 
            BIOSHotkeys => 1),
              if_($card->{Options}{AccelMethod},
            EXA => $card->{Options}{AccelMethod} eq 'EXA'),
              if_($card->{Options}{ModeValidation},
            ForceModeDVI => 1),
              if_($card->{Driver} eq 'nvidia', 
            RenderAccel => !$card->{Options}{RenderAccel},
              ),
            HWCursor => !$card->{Options}{SWCursor},
            DontZap => (configure_ServerFlag($raw_X, 'DontZap') eq 'False' ? 0 : 1),
            if_($card->{DRI_GLX} || $use_DRI_GLX, use_DRI_GLX => $use_DRI_GLX),
        ),
    };
    default($card, $various);

    if (!$b_auto) {
        choose($in, $various) or return;
    }

    config($raw_X, $card, $various) && $various;
}

sub various_auto_install {
    my ($raw_X, $card, $old_X) = @_;

    my $various = { %$old_X };
    default($card, $various);
    config($raw_X, $card, $various);
    1;
}

sub config {
    my ($raw_X, $card, $various) = @_;

    if (exists $various->{DontZap}) {
        configure_ServerFlag($raw_X, 'DontZap', $various->{DontZap} eq 1 ? 'True' : 'False');
    }
    if ($various->{Composite}) {
        $raw_X->remove_extension('Composite');
        if ($card->{Driver} eq 'nvidia') {
            $card->{Options}{AddARGBGLXVisuals} = undef;
        }
    } else {
        $raw_X->set_extension('Composite', 'Disable');

        if ($card->{Driver} eq 'nvidia') {
            delete $card->{Options}{AddARGBGLXVisuals};
        }
    }
    if (exists $various->{use_DRI_GLX}) {
        $card->{use_DRI_GLX} = $various->{use_DRI_GLX};
    }

    if (exists $various->{RenderAccel}) {
        if ($various->{RenderAccel}) {
            delete $card->{Options}{RenderAccel};
        } else {
            $card->{Options}{RenderAccel} = 'false';
        }
    }

    if (exists $various->{HWCursor}) {
        if ($various->{HWCursor}) {
            delete $card->{Options}{SWCursor};
        } else {
            $card->{Options}{SWCursor} = undef;
        }
    }

    if (exists $various->{BIOSHotkeys}) {
        if ($various->{BIOSHotkeys}) {
            $card->{Options}{BIOSHotkeys} = undef;
        } else {
            delete $card->{Options}{BIOSHotkeys};
        }
    }

    if (exists $various->{EXA}) {
        if ($card->{Driver} eq 'intel') {
            # the intel driver is able to automatically pick UXA/EXA
            #  when xorg.conf has no accel method defined, but XAA
            #  has to be explicitly selected, that's why the logic
            #  is reversed compared to the other drivers
            if ($various->{EXA}) {
                delete $card->{Options}{AccelMethod};
            } else {
                $card->{Options}{AccelMethod} = 'XAA';
            }
        } else {
            if ($various->{EXA}) {
                $card->{Options}{AccelMethod} = 'EXA';
            } else {
                delete $card->{Options}{AccelMethod};
            }
        }
    }

    if (exists $various->{ForceModeDVI}) {
        if ($card->{Driver} eq 'nvidia') {
            if ($various->{ForceModeDVI}) {
                $card->{Options}{ExactModeTimingsDVI} = undef;
                $card->{Options}{ModeValidation} = 'NoWidthAlignmentCheck, NoDFPNativeResolutionCheck';
            } else {
                delete $card->{Options}{ExactModeTimingsDVI};
                delete $card->{Options}{ModeValidation};
            }
        }
    }

    if (exists $various->{Clone}) {
        if ($card->{Driver} eq 'nvidia') {
            if ($various->{Clone}) {
                $card->{Options}{TwinView} = undef;
                $card->{Options}{TwinViewOrientation} = 'Clone';
                delete $card->{Options}{DynamicTwinView};
            } else {
                delete $card->{Options}{TwinView};
                delete $card->{Options}{TwinViewOrientation};
                #- below disables runtime setting of TwinView via nvidia-settings
                #- it helps on Compiz (#39171)
                $card->{Options}{DynamicTwinView} = 'false';
            }
        } elsif ($card->{Driver} eq 'intel') {
            if ($various->{Clone}) {
                $card->{Options}{MonitorLayout} = 'NONE,CRT+LFP';
            } else {
                delete $card->{Options}{MonitorLayout};
            }
        } elsif ($card->{Driver} eq 'ati') {
            if ($various->{Clone}) {
                #- the default is Clone
                delete $card->{Options}{MonitorLayout};
            } else {
                #- forcing no display on CRT
                $card->{Options}{MonitorLayout} = 'LVDS,NONE';
            }
        }
    }

    Xconfig::various::runlevel($various->{xdm} ? 5 : 3);
}

sub runlevel {
    my ($o_runlevel) = @_;
    my $f = "$::prefix/etc/inittab";
    -r $f or log::l("missing inittab!!!"), return;
    if ($o_runlevel) {
        substInFile { s/^id:\d:initdefault:\s*$/id:$o_runlevel:initdefault:\n/ } $f if !$::testing;
        my $t = "/lib/systemd/system/runlevel$o_runlevel.target";
        if (!$::testing && -f "$::prefix$t") {
            my $d = "$::prefix/etc/systemd/system/default.target";
            unlink($d);
            symlink($t, $d);
        }
    } else {
        cat_($f) =~ /^id:(\d):initdefault:\s*$/m && $1;
    }
}

sub choose {
    my ($in, $various) = @_;

    $in->ask_from_({ title => N("Xorg configuration") }, [
        { label => N("Global options"), title => 1 },
        { text => N("Disable Ctrl-Alt-Backspace"),
          type => 'bool', val => \$various->{DontZap} },
        { label => N("Graphic card options"), title => 1 },
        { text => N("Enable Translucency (Composite extension)"),
          type => 'bool', val => \$various->{Composite} },
          exists $various->{HWCursor} ?
        { text => N("Use hardware accelerated mouse pointer"),
          type => 'bool', val => \$various->{HWCursor} } : (),
          exists $various->{RenderAccel} ?
        { text => N("Enable RENDER Acceleration (this may cause bugs displaying text)"),
          type => 'bool', val => \$various->{RenderAccel} } : (),
          exists $various->{Clone} ?
        { text => $various->{isLaptop} ? 
            N("Enable duplicate display on the external monitor") :
            N("Enable duplicate display on the second display"),
          type => 'bool', val => \$various->{Clone} } : (),
          exists $various->{ForceModeDVI} ?
        { text => N("Force display mode of DVI"),
          type => 'bool', val => \$various->{ForceModeDVI} } : (),
          exists $various->{BIOSHotkeys} ?
        { text => N("Enable BIOS hotkey for external monitor switching"),
          type => 'bool', val => \$various->{BIOSHotkeys} } : (),       
          exists $various->{EXA} ?
        { text => N("Use EXA instead of XAA (better performance for Render and Composite)"),
          type => 'bool', val => \$various->{EXA} } : (),
        { label => N("Graphical interface at startup"), title => 1 },
        { text => N("Automatically start the graphical interface (Xorg) upon booting"),
          type => 'bool', val => \$various->{xdm} },
    ]) or return;

    1;
}

sub tvout {
    my ($in, $card, $options) = @_;

    $card->{FB_TVOUT} && $options->{allowFB} or return;

    $in->ask_yesorno('', N("Your graphic card seems to have a TV-OUT connector.
It can be configured to work using frame-buffer.

For this you have to plug your graphic card to your TV before booting your computer.
Then choose the \"TVout\" entry in the bootloader

Do you have this feature?")) or return;
    
    #- rough default value (rationale: http://download.nvidia.com/XFree86_40/1.0-2960/README.txt)
    require timezone;
    my $norm = timezone::read()->{timezone} =~ /America/ ? 'NTSC' : 'PAL';

    $norm = $in->ask_from_list('', N("What norm is your TV using?"), [ 'NTSC', 'PAL' ], $norm) or return;

    configure_FB_TVOUT($in->do_pkgs, { norm => $norm });
}

sub configure_FB_TVOUT {
    my ($do_pkgs, $use_FB_TVOUT) = @_;

    my $raw_X = Xconfig::default::configure($do_pkgs);
    return if is_empty_array_ref($raw_X);

    $raw_X->set_monitors({ HorizSync => '30-50', VertRefresh => ($use_FB_TVOUT->{norm} eq 'NTSC' ? 60 : 50),
                           ModeLine => [ 
        { val => '"640x480"   29.50       640 675 678 944  480 530 535 625', pre_comment => "# PAL\n" },
        { val => '"800x600"   36.00       800 818 820 960  600 653 655 750' },
        { val => '"640x480"  28.195793   640 656 658 784  480 520 525 600', pre_comment => "# NTSC\n" },
        { val => '"800x600"  38.769241   800 812 814 880  600 646 649 735' },
    ] });
    $raw_X->set_devices({ Driver => 'fbdev' });

    my ($device) = $raw_X->get_devices;
    my ($monitor) = $raw_X->get_monitors;
    $raw_X->set_screens({ Device => $device->{Identifier}, Monitor => $monitor->{Identifier} });

    my $Screen = $raw_X->get_default_screen;
    $Screen->{Display} = [ map { { l => { Depth => { val => $_ } } } } 8, 16 ];

    $raw_X->write("$::prefix/etc/X11/xorg.conf.tvout");

    check_xorg_conf_symlink();

    {
        require bootloader;
        require fsedit;
        require detect_devices;
        my $all_hds = $::isInstall ? $::o->{all_hds} : fsedit::get_hds();
        my $bootloader = $::isInstall ? $::o->{bootloader} : bootloader::read($all_hds);
        
        if (my $tvout = bootloader::duplicate_kernel_entry($bootloader, 'TVout')) {
            $tvout->{append} .= " XFree=tvout";
            bootloader::install($bootloader, $all_hds);
        }
    }
}

sub configure_ServerFlag {
    my ($raw_X, $option, $value) = @_;
    my $ServerFlags = $raw_X->get_Section('ServerFlags');
    my $option_ref = $ServerFlags->{$option}->[0];
    if ($value) {
        $option_ref->{val} = $value;
        $option_ref->{commented} = 0;
        $option_ref->{Option} = 1;
    }
    return undef if $option_ref->{commented} eq 1;
    $option_ref->{val};
}

sub check_xorg_conf_symlink() {
    my $f = "$::prefix/etc/X11/xorg.conf";
    if (!-l $f && -e "$f.tvout") {
        rename $f, "$f.standard";
        symlink "xorg.conf.standard", $f;
    }
}

sub change_bootloader_config {
    my ($do, @do_params) = @_;

    require bootloader;
    my ($bootloader, $all_hds);

    if ($::isInstall && !$::globetrotter) {
        ($bootloader, $all_hds) = ($::o->{bootloader}, $::o->{all_hds});
        $bootloader && $bootloader->{method} or return;
    } else {
        require fsedit;
        require fs;
        require bootloader;
        $all_hds = fsedit::get_hds();
        fs::get_info_from_fstab($all_hds);

        $bootloader = bootloader::read($all_hds) or return;
    }

    $do->($bootloader, @do_params) or return;

    bootloader::action($bootloader, 'write', $all_hds);
    bootloader::action($bootloader, 'when_config_changed');
    1;
}

sub setupFB {
    my ($bios_vga_mode) = @_;

    change_bootloader_config(
        sub {
            my ($bootloader, $bios_vga_mode) = @_;
            foreach (@{$bootloader->{entries}}) {
                $_->{vga} = $bios_vga_mode if $_->{vga}; #- replace existing vga= with
            }
            bootloader::update_splash($bootloader);
            1;
        }, $bios_vga_mode);
}

sub setup_kms {
    change_bootloader_config(
        sub {
            my ($bootloader) = @_;
            my $kms_ok = run_program::rooted($::prefix, "/sbin/display_driver_helper", "--is-kms-allowed") || 0;
            return if $kms_ok != bootloader::get_append_simple($bootloader, "nokmsboot");
            if ($kms_ok) {
                bootloader::remove_append_simple($bootloader, "nokmsboot");
            } else {
                bootloader::set_append_simple($bootloader, "nokmsboot");
            }
            1;
        });
}

1;
1	package Xconfig::various; # $Id: various.pm 269742 2010-06-02 09:25:35Z cfergeau $
2
3	use diagnostics;
4	use strict;
5
6	use Xconfig::card;
7	use Xconfig::default;
8	use Xconfig::resolution_and_depth;
9	use common;
10
11
12	sub to_string {
13	my ($raw_X) = @_;
14
15	$raw_X->is_fbdev ? 'frame-buffer' : Xconfig::resolution_and_depth::to_string($raw_X->get_resolution);
16	}
17
18	sub info {
19	my ($raw_X, $card) = @_;
20	my $info;
21	my $keyboard = eval { $raw_X->get_keyboard } \|\| {};
22	my @monitors = eval { $raw_X->get_monitors };
23	my $device = eval { $raw_X->get_device } \|\| {};
24	my $mouse = eval { first($raw_X->get_mice) } \|\| {};
25
26	$info .= N("Disable Ctrl-Alt-Backspace: %s\n", configure_ServerFlag($raw_X, 'DontZap') eq 'False' ? N("no") : N("yes"));
27	$info .= N("3D hardware acceleration: %s\n", translate(bool2yesno($card->{use_DRI_GLX} \|\| $card->{DRI_GLX_SPECIAL})));
28	$info .= N("Keyboard layout: %s\n", $keyboard->{XkbLayout});
29	$info .= N("Mouse type: %s\n", $mouse->{Protocol});
30	foreach my $monitor (@monitors) {
31	$info .= N("Monitor: %s\n", $monitor->{ModelName});
32	$info .= N("Monitor HorizSync: %s\n", $monitor->{HorizSync});
33	$info .= N("Monitor VertRefresh: %s\n", $monitor->{VertRefresh});
34	}
35	$info .= N("Graphics card: %s\n", $device->{VendorName} . ' ' . $device->{BoardName});
36	$info .= N("Graphics memory: %s kB\n", $device->{VideoRam}) if $device->{VideoRam};
37	if (my $resolution = eval { $raw_X->get_resolution }) {
38	$info .= N("Color depth: %s\n", translate($Xconfig::resolution_and_depth::depth2text{$resolution->{Depth}})) if $resolution->{Depth};
39	$info .= N("Resolution: %s\n", Xconfig::resolution_and_depth::to_string($resolution));
40	}
41	$info .= N("Xorg driver: %s\n", $device->{Driver}) if $device->{Driver};
42	$info;
43	}
44
45	sub default {
46	my ($card, $various) = @_;
47
48	my $isLaptop = detect_devices::isLaptop();
49
50	add2hash_($various, {
51	isLaptop => $isLaptop,
52	xdm => 1,
53	DontZap => 0,
54	Composite => !($card->{Driver} eq 'nvidia' && $card->{DriverVersion} eq '71xx'),
55	if_($card->{Driver} eq 'nvidia', RenderAccel => !member($card->{DriverVersion}, qw(71xx 96xx)),
56	Clone => 0, ForceModeDVI => 0),
57	if_($card->{Driver} eq 'savage', HWCursor => 1),
58	if_($card->{Driver} eq 'intel' && $isLaptop, Clone => 0),
59	if_($card->{Driver} eq 'ati' && $isLaptop, Clone => 1, BIOSHotkeys => 0),
60	if_(exists $card->{DRI_GLX}, use_DRI_GLX => $card->{DRI_GLX} && !$card->{Xinerama}),
61	if_(member($card->{Driver}, qw(i128 ati sis trident via savage)), EXA => 0), #- list taken from http://wiki.x.org/wiki/ExaStatus
62	});
63	}
64
65	sub various {
66	my ($in, $raw_X, $card, $options, $b_auto, $b_read_existing) = @_;
67
68	tvout($in, $card, $options) if !$b_auto;
69
70	my $use_DRI_GLX = member('dri', $raw_X->get_modules);
71
72	my $various = {
73	if_($::isStandalone, xdm => runlevel() == 5),
74	if_($b_read_existing,
75	Composite => $raw_X->get_extension('Composite') ne 'Disable',
76	if_($card->{Options}{MonitorLayout} eq 'NONE,CRT+LFP' \|\|
77	$card->{Options}{TwinViewOrientation} eq 'Clone',
78	Clone => 1),
79	if_($card->{Options}{MonitorLayout} eq 'LVDS,NONE',
80	Clone => 0),
81	if_($card->{Options}{BIOSHotkeys},
82	BIOSHotkeys => 1),
83	if_($card->{Options}{AccelMethod},
84	EXA => $card->{Options}{AccelMethod} eq 'EXA'),
85	if_($card->{Options}{ModeValidation},
86	ForceModeDVI => 1),
87	if_($card->{Driver} eq 'nvidia',
88	RenderAccel => !$card->{Options}{RenderAccel},
89	),
90	HWCursor => !$card->{Options}{SWCursor},
91	DontZap => (configure_ServerFlag($raw_X, 'DontZap') eq 'False' ? 0 : 1),
92	if_($card->{DRI_GLX} \|\| $use_DRI_GLX, use_DRI_GLX => $use_DRI_GLX),
93	),
94	};
95	default($card, $various);
96
97	if (!$b_auto) {
98	choose($in, $various) or return;
99	}
100
101	config($raw_X, $card, $various) && $various;
102	}
103
104	sub various_auto_install {
105	my ($raw_X, $card, $old_X) = @_;
106
107	my $various = { %$old_X };
108	default($card, $various);
109	config($raw_X, $card, $various);
110	1;
111	}
112
113	sub config {
114	my ($raw_X, $card, $various) = @_;
115
116	if (exists $various->{DontZap}) {
117	configure_ServerFlag($raw_X, 'DontZap', $various->{DontZap} eq 1 ? 'True' : 'False');
118	}
119	if ($various->{Composite}) {
120	$raw_X->remove_extension('Composite');
121	if ($card->{Driver} eq 'nvidia') {
122	$card->{Options}{AddARGBGLXVisuals} = undef;
123	}
124	} else {
125	$raw_X->set_extension('Composite', 'Disable');
126
127	if ($card->{Driver} eq 'nvidia') {
128	delete $card->{Options}{AddARGBGLXVisuals};
129	}
130	}
131	if (exists $various->{use_DRI_GLX}) {
132	$card->{use_DRI_GLX} = $various->{use_DRI_GLX};
133	}
134
135	if (exists $various->{RenderAccel}) {
136	if ($various->{RenderAccel}) {
137	delete $card->{Options}{RenderAccel};
138	} else {
139	$card->{Options}{RenderAccel} = 'false';
140	}
141	}
142
143	if (exists $various->{HWCursor}) {
144	if ($various->{HWCursor}) {
145	delete $card->{Options}{SWCursor};
146	} else {
147	$card->{Options}{SWCursor} = undef;
148	}
149	}
150
151	if (exists $various->{BIOSHotkeys}) {
152	if ($various->{BIOSHotkeys}) {
153	$card->{Options}{BIOSHotkeys} = undef;
154	} else {
155	delete $card->{Options}{BIOSHotkeys};
156	}
157	}
158
159	if (exists $various->{EXA}) {
160	if ($card->{Driver} eq 'intel') {
161	# the intel driver is able to automatically pick UXA/EXA
162	# when xorg.conf has no accel method defined, but XAA
163	# has to be explicitly selected, that's why the logic
164	# is reversed compared to the other drivers
165	if ($various->{EXA}) {
166	delete $card->{Options}{AccelMethod};
167	} else {
168	$card->{Options}{AccelMethod} = 'XAA';
169	}
170	} else {
171	if ($various->{EXA}) {
172	$card->{Options}{AccelMethod} = 'EXA';
173	} else {
174	delete $card->{Options}{AccelMethod};
175	}
176	}
177	}
178
179	if (exists $various->{ForceModeDVI}) {
180	if ($card->{Driver} eq 'nvidia') {
181	if ($various->{ForceModeDVI}) {
182	$card->{Options}{ExactModeTimingsDVI} = undef;
183	$card->{Options}{ModeValidation} = 'NoWidthAlignmentCheck, NoDFPNativeResolutionCheck';
184	} else {
185	delete $card->{Options}{ExactModeTimingsDVI};
186	delete $card->{Options}{ModeValidation};
187	}
188	}
189	}
190
191	if (exists $various->{Clone}) {
192	if ($card->{Driver} eq 'nvidia') {
193	if ($various->{Clone}) {
194	$card->{Options}{TwinView} = undef;
195	$card->{Options}{TwinViewOrientation} = 'Clone';
196	delete $card->{Options}{DynamicTwinView};
197	} else {
198	delete $card->{Options}{TwinView};
199	delete $card->{Options}{TwinViewOrientation};
200	#- below disables runtime setting of TwinView via nvidia-settings
201	#- it helps on Compiz (#39171)
202	$card->{Options}{DynamicTwinView} = 'false';
203	}
204	} elsif ($card->{Driver} eq 'intel') {
205	if ($various->{Clone}) {
206	$card->{Options}{MonitorLayout} = 'NONE,CRT+LFP';
207	} else {
208	delete $card->{Options}{MonitorLayout};
209	}
210	} elsif ($card->{Driver} eq 'ati') {
211	if ($various->{Clone}) {
212	#- the default is Clone
213	delete $card->{Options}{MonitorLayout};
214	} else {
215	#- forcing no display on CRT
216	$card->{Options}{MonitorLayout} = 'LVDS,NONE';
217	}
218	}
219	}
220
221	Xconfig::various::runlevel($various->{xdm} ? 5 : 3);
222	}
223
224	sub runlevel {
225	my ($o_runlevel) = @_;
226	my $f = "$::prefix/etc/inittab";
227	-r $f or log::l("missing inittab!!!"), return;
228	if ($o_runlevel) {
229	substInFile { s/^id:\d:initdefault:\s*$/id:$o_runlevel:initdefault:\n/ } $f if !$::testing;
230	my $t = "/lib/systemd/system/runlevel$o_runlevel.target";
231	if (!$::testing && -f "$::prefix$t") {
232	my $d = "$::prefix/etc/systemd/system/default.target";
233	unlink($d);
234	symlink($t, $d);
235	}
236	} else {
237	cat_($f) =~ /^id:(\d):initdefault:\s*$/m && $1;
238	}
239	}
240
241	sub choose {
242	my ($in, $various) = @_;
243
244	$in->ask_from_({ title => N("Xorg configuration") }, [
245	{ label => N("Global options"), title => 1 },
246	{ text => N("Disable Ctrl-Alt-Backspace"),
247	type => 'bool', val => \$various->{DontZap} },
248	{ label => N("Graphic card options"), title => 1 },
249	{ text => N("Enable Translucency (Composite extension)"),
250	type => 'bool', val => \$various->{Composite} },
251	exists $various->{HWCursor} ?
252	{ text => N("Use hardware accelerated mouse pointer"),
253	type => 'bool', val => \$various->{HWCursor} } : (),
254	exists $various->{RenderAccel} ?
255	{ text => N("Enable RENDER Acceleration (this may cause bugs displaying text)"),
256	type => 'bool', val => \$various->{RenderAccel} } : (),
257	exists $various->{Clone} ?
258	{ text => $various->{isLaptop} ?
259	N("Enable duplicate display on the external monitor") :
260	N("Enable duplicate display on the second display"),
261	type => 'bool', val => \$various->{Clone} } : (),
262	exists $various->{ForceModeDVI} ?
263	{ text => N("Force display mode of DVI"),
264	type => 'bool', val => \$various->{ForceModeDVI} } : (),
265	exists $various->{BIOSHotkeys} ?
266	{ text => N("Enable BIOS hotkey for external monitor switching"),
267	type => 'bool', val => \$various->{BIOSHotkeys} } : (),
268	exists $various->{EXA} ?
269	{ text => N("Use EXA instead of XAA (better performance for Render and Composite)"),
270	type => 'bool', val => \$various->{EXA} } : (),
271	{ label => N("Graphical interface at startup"), title => 1 },
272	{ text => N("Automatically start the graphical interface (Xorg) upon booting"),
273	type => 'bool', val => \$various->{xdm} },
274	]) or return;
275
276	1;
277	}
278
279	sub tvout {
280	my ($in, $card, $options) = @_;
281
282	$card->{FB_TVOUT} && $options->{allowFB} or return;
283
284	$in->ask_yesorno('', N("Your graphic card seems to have a TV-OUT connector.
285	It can be configured to work using frame-buffer.
286
287	For this you have to plug your graphic card to your TV before booting your computer.
288	Then choose the \"TVout\" entry in the bootloader
289
290	Do you have this feature?")) or return;
291
292	#- rough default value (rationale: http://download.nvidia.com/XFree86_40/1.0-2960/README.txt)
293	require timezone;
294	my $norm = timezone::read()->{timezone} =~ /America/ ? 'NTSC' : 'PAL';
295
296	$norm = $in->ask_from_list('', N("What norm is your TV using?"), [ 'NTSC', 'PAL' ], $norm) or return;
297
298	configure_FB_TVOUT($in->do_pkgs, { norm => $norm });
299	}
300
301	sub configure_FB_TVOUT {
302	my ($do_pkgs, $use_FB_TVOUT) = @_;
303
304	my $raw_X = Xconfig::default::configure($do_pkgs);
305	return if is_empty_array_ref($raw_X);
306
307	$raw_X->set_monitors({ HorizSync => '30-50', VertRefresh => ($use_FB_TVOUT->{norm} eq 'NTSC' ? 60 : 50),
308	ModeLine => [
309	{ val => '"640x480" 29.50 640 675 678 944 480 530 535 625', pre_comment => "# PAL\n" },
310	{ val => '"800x600" 36.00 800 818 820 960 600 653 655 750' },
311	{ val => '"640x480" 28.195793 640 656 658 784 480 520 525 600', pre_comment => "# NTSC\n" },
312	{ val => '"800x600" 38.769241 800 812 814 880 600 646 649 735' },
313	] });
314	$raw_X->set_devices({ Driver => 'fbdev' });
315
316	my ($device) = $raw_X->get_devices;
317	my ($monitor) = $raw_X->get_monitors;
318	$raw_X->set_screens({ Device => $device->{Identifier}, Monitor => $monitor->{Identifier} });
319
320	my $Screen = $raw_X->get_default_screen;
321	$Screen->{Display} = [ map { { l => { Depth => { val => $_ } } } } 8, 16 ];
322
323	$raw_X->write("$::prefix/etc/X11/xorg.conf.tvout");
324
325	check_xorg_conf_symlink();
326
327	{
328	require bootloader;
329	require fsedit;
330	require detect_devices;
331	my $all_hds = $::isInstall ? $::o->{all_hds} : fsedit::get_hds();
332	my $bootloader = $::isInstall ? $::o->{bootloader} : bootloader::read($all_hds);
333
334	if (my $tvout = bootloader::duplicate_kernel_entry($bootloader, 'TVout')) {
335	$tvout->{append} .= " XFree=tvout";
336	bootloader::install($bootloader, $all_hds);
337	}
338	}
339	}
340
341	sub configure_ServerFlag {
342	my ($raw_X, $option, $value) = @_;
343	my $ServerFlags = $raw_X->get_Section('ServerFlags');
344	my $option_ref = $ServerFlags->{$option}->[0];
345	if ($value) {
346	$option_ref->{val} = $value;
347	$option_ref->{commented} = 0;
348	$option_ref->{Option} = 1;
349	}
350	return undef if $option_ref->{commented} eq 1;
351	$option_ref->{val};
352	}
353
354	sub check_xorg_conf_symlink() {
355	my $f = "$::prefix/etc/X11/xorg.conf";
356	if (!-l $f && -e "$f.tvout") {
357	rename $f, "$f.standard";
358	symlink "xorg.conf.standard", $f;
359	}
360	}
361
362	sub change_bootloader_config {
363	my ($do, @do_params) = @_;
364
365	require bootloader;
366	my ($bootloader, $all_hds);
367
368	if ($::isInstall && !$::globetrotter) {
369	($bootloader, $all_hds) = ($::o->{bootloader}, $::o->{all_hds});
370	$bootloader && $bootloader->{method} or return;
371	} else {
372	require fsedit;
373	require fs;
374	require bootloader;
375	$all_hds = fsedit::get_hds();
376	fs::get_info_from_fstab($all_hds);
377
378	$bootloader = bootloader::read($all_hds) or return;
379	}
380
381	$do->($bootloader, @do_params) or return;
382
383	bootloader::action($bootloader, 'write', $all_hds);
384	bootloader::action($bootloader, 'when_config_changed');
385	1;
386	}
387
388	sub setupFB {
389	my ($bios_vga_mode) = @_;
390
391	change_bootloader_config(
392	sub {
393	my ($bootloader, $bios_vga_mode) = @_;
394	foreach (@{$bootloader->{entries}}) {
395	$_->{vga} = $bios_vga_mode if $_->{vga}; #- replace existing vga= with
396	}
397	bootloader::update_splash($bootloader);
398	1;
399	}, $bios_vga_mode);
400	}
401
402	sub setup_kms {
403	change_bootloader_config(
404	sub {
405	my ($bootloader) = @_;
406	my $kms_ok = run_program::rooted($::prefix, "/sbin/display_driver_helper", "--is-kms-allowed") \|\| 0;
407	return if $kms_ok != bootloader::get_append_simple($bootloader, "nokmsboot");
408	if ($kms_ok) {
409	bootloader::remove_append_simple($bootloader, "nokmsboot");
410	} else {
411	bootloader::set_append_simple($bootloader, "nokmsboot");
412	}
413	1;
414	});
415	}
416
417	1;