home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / Xconfigurator.pm < prev   
Encoding:
Perl POD Document  |  2000-01-12  |  24.9 KB  |  873 lines
  1. package Xconfigurator;
  2.  
  3.  
  4.  
  5.  
  6.  
  7. use pci_probing::main;
  8. use common qw(:common :file :functional :system);
  9. use log;
  10. use run_program;
  11. use Xconfigurator_consts;
  12. use my_gtk qw(:wrappers);
  13.  
  14. my $tmpconfig = "/tmp/Xconfig";
  15.  
  16. my ($prefix, %cards, %monitors);
  17.  
  18. 1;
  19.  
  20. sub getVGAMode($) { $_[0]->{card}{vga_mode} || $vgamodes{"640x480x16"}; }
  21.  
  22. sub setVirtual($) {
  23.     my $vt = '';
  24.     local *C;
  25.     sysopen C, "/dev/console", 2 or die "failed to open /dev/console: $!";
  26.     ioctl(C, c::VT_GETSTATE(), $vt) or die "ioctl VT_GETSTATE failed";
  27.     ioctl(C, c::VT_ACTIVATE(), $_[0]) or die "ioctl VT_ACTIVATE failed";
  28.     ioctl(C, c::VT_WAITACTIVE(), $_[0]) or die "ioctl VT_WAITACTIVE failed";
  29.     unpack "S", $vt;
  30. }
  31.  
  32. sub readCardsDB {
  33.     my ($file) = @_;
  34.     my ($card);
  35.  
  36.     %cards and return;
  37.  
  38.     local *F;
  39.     open F, $file or die "file $file not found";
  40.  
  41.     my ($lineno, $cmd, $val) = 0;
  42.     my $fs = {
  43.         LINE => sub { push @{$card->{lines}}, $val unless $val eq "VideoRam" },
  44.     NAME => sub {
  45.         $cards{$card->{type}} = $card if $card;
  46.         $card = { type => $val };
  47.     },
  48.     SEE => sub {
  49.         my $c = $cards{$val} or die "Error in database, invalid reference $val at line $lineno";
  50.  
  51.         push @{$card->{lines}}, @{$c->{lines} || []};
  52.         add2hash($card->{flags}, $c->{flags});
  53.         add2hash($card, $c);
  54.     },
  55.     CHIPSET => sub {
  56.         $card->{chipset} = $val;
  57.         $card->{flags}{needVideoRam} = 1 if member($val, qw(mgag10 mgag200 RIVA128));
  58.     },
  59.     SERVER => sub { $card->{server} = $val; },
  60.     RAMDAC => sub { $card->{ramdac} = $val; },
  61.     DACSPEED => sub { $card->{dacspeed} = $val; },
  62.     CLOCKCHIP => sub { $card->{clockchip} = $val; $card->{flags}{noclockprobe} = 1; },
  63.     NOCLOCKPROBE => sub { $card->{flags}{noclockprobe} = 1 },
  64.     UNSUPPORTED => sub { $card->{flags}{unsupported} = 1 },
  65.     COMMENT => sub {},
  66.     };
  67.  
  68.     foreach (<F>) { $lineno++;
  69.     s/\s+$//;
  70.     /^#/ and next;
  71.     /^$/ and next;
  72.     /^END/ and last;
  73.  
  74.     ($cmd, $val) = /(\S+)\s*(.*)/ or next; #log::l("bad line $lineno ($_)"), next;
  75.  
  76.     my $f = $fs->{$cmd};
  77.  
  78.     $f ? &$f() : log::l("unknown line $lineno ($_)");
  79.     }
  80.     push @{$cards{S3}{lines}}, $s3_comment;
  81.     push @{$cards{'CL-GD'}{lines}}, $cirrus_comment;
  82.  
  83.     
  84.     $cards{I128}{flags}{noclockprobe} = 1;
  85. }
  86.  
  87. sub readMonitorsDB {
  88.     my ($file) = @_;
  89.  
  90.     %monitors and return;
  91.  
  92.     local *F;
  93.     open F, $file or die "can't open monitors database ($file): $!";
  94.     my $lineno = 0; foreach (<F>) {
  95.     $lineno++;
  96.     s/\s+$//;
  97.     /^#/ and next;
  98.     /^$/ and next;
  99.  
  100.     my @fields = qw(type bandwidth hsyncrange vsyncrange);
  101.     my @l = split /\s*;\s*/;
  102.     @l == @fields or log::l("bad line $lineno ($_)"), next;
  103.  
  104.     my %l; @l{@fields} = @l;
  105.     $monitors{$l{type}} = \%l;
  106.     }
  107.     while (my ($k, $v) = each %standard_monitors) {
  108.     $monitors{" " . translate($k)} =
  109.         { hsyncrange => $v->[1], vsyncrange => $v->[2] };
  110.     }
  111. }
  112.  
  113. sub rewriteInittab {
  114.     my ($runlevel) = @_;
  115.     my $f = "$prefix/etc/inittab";
  116.     -r $f or log::l("missing inittab!!!"), return;
  117.     substInFile { s/^(id:)[35](:initdefault:)\s*$/$1$runlevel$2\n/ } $f;
  118. }
  119.  
  120. sub keepOnlyLegalModes {
  121.     my ($card, $monitor) = @_;
  122.     my $mem = 1024 * ($card->{memory} || ($card->{server} eq 'FBDev' ? 2048 : 99999));
  123.     my $hsync = max(split(/[,-]/, $monitor->{hsyncrange}));
  124.  
  125.     while (my ($depth, $res) = each %{$card->{depth}}) {
  126.     @$res = grep {
  127.         $mem >= product(@$_, $depth / 8) &&
  128.         $hsync >= ($min_hsync4wres{$_->[0]} || 0) &&
  129.         ($card->{server} ne 'FBDev' || $vgamodes{"$_->[0]x$_->[1]x$depth"})
  130.     } @$res;
  131.     delete $card->{depth}{$depth} if @$res == 0;
  132.     }
  133.  
  134. }
  135.  
  136. sub cardConfigurationAuto() {
  137.     my $card;
  138.     if (my ($c) = pci_probing::main::probe("DISPLAY")) {
  139.     local $_;
  140.     ($card->{identifier}, $_) = @$c;
  141.     $card->{type} = $1 if /Card:(.*)/;
  142.     $card->{server} = $1 if /Server:(.*)/;
  143.     $card->{flags}{needVideoRam} &&= /86c368/;
  144.     push @{$card->{lines}}, @{$lines{$card->{identifier}} || []};
  145.     }
  146.     $card;
  147. }
  148.  
  149. sub cardConfiguration(;$$$) {
  150.     my ($card, $noauto, $allowFB) = @_;
  151.     $card ||= {};
  152.  
  153.     readCardsDB("$prefix/usr/X11R6/lib/X11/Cards");
  154.  
  155.     add2hash($card, $cards{$card->{type}}) if $card->{type}; 
  156.     undef $card->{type} unless $card->{server}; 
  157.     add2hash($card, cardConfigurationAuto()) unless $card->{server} || $noauto;
  158.     $card->{server} = 'FBDev' unless !$allowFB || $card->{server} || $card->{type} || $noauto;
  159.     $card->{type} = $in->ask_from_list(_("Graphic card"), _("Select a graphic card"), ['Unlisted', keys %cards]) unless $card->{type} || $card->{server};
  160.     undef $card->{type}, $card->{server} = $in->ask_from_list(_("X server"), _("Choose a X server"), $allowFB ? \@allservers : \@allbutfbservers ) if $card->{type} eq "Unlisted";
  161.  
  162.     add2hash($card, $cards{$card->{type}}) if $card->{type};
  163.     add2hash($card, { vendor => "Unknown", board => "Unknown" });
  164.  
  165.     $card->{prog} = "/usr/X11R6/bin/XF86_$card->{server}";
  166.  
  167.     -x "$prefix$card->{prog}" or $install && do {
  168.     $in->suspend;
  169.     &$install($card->{server});
  170.     $in->resume;
  171.     };
  172.     -x "$prefix$card->{prog}" or die "server $card->{server} is not available (should be in $prefix$card->{prog})";
  173.  
  174.     unless ($card->{type}) {
  175.     $card->{flags}{noclockprobe} = member($card->{server}, qw(I128 S3 S3V Mach64));
  176.     }
  177.  
  178.     $card->{flags}{needVideoRam} and
  179.       $card->{memory} ||=
  180.     $videomemory{$in->ask_from_list_('',
  181.                      _("Select the memory size of your graphic card"),
  182.                      [ sort { $videomemory{$a} <=> $videomemory{$b} }
  183.                        keys %videomemory])};
  184.     $card;
  185. }
  186.  
  187. sub optionsConfiguration($) {
  188.     my ($o) = @_;
  189.     my @l;
  190.     my %l;
  191.  
  192.     foreach (@options) {
  193.     if ($o->{card}{server} eq $_->[1] && $o->{card}{identifier} =~ /$_->[2]/) {
  194.         $o->{card}{options}{$_->[0]} ||= 0;
  195.         unless ($l{$_->[0]}) {
  196.         push @l, $_->[0], { val => \$o->{card}{options}{$_->[0]}, type => 'bool' };
  197.         $l{$_->[0]} = 1;
  198.         }
  199.     }
  200.     }
  201.     @l = @l[0..19] if @l > 19; 
  202.  
  203.     $in->ask_from_entries_refH('', _("Choose options for server"), \@l);
  204. }
  205.  
  206. sub monitorConfiguration(;$$) {
  207.     my $monitor = shift || {};
  208.     my $useFB = shift || 0;
  209.  
  210.     if ($useFB) {
  211.     
  212.     
  213.     $monitor->{hsyncrange} ||= $hsyncranges[0];
  214.     $monitor->{vsyncrange} ||= $vsyncranges[0];
  215.     add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown" });
  216.     } else {
  217.     $monitor->{hsyncrange} && $monitor->{vsyncrange} and return $monitor;
  218.  
  219.     readMonitorsDB(-e "MonitorsDB" ? "MonitorsDB" : "/usr/X11R6/lib/X11/MonitorsDB");
  220.  
  221.     add2hash($monitor, { type => $in->ask_from_list(_("Monitor"), _("Choose a monitor"), ['Unlisted', keys %monitors], ' ' . translate($default_monitor)) }) unless $monitor->{type};
  222.     if ($monitor->{type} eq 'Unlisted') {
  223.         $in->ask_from_entries_ref('',
  224. _("The two critical parameters are the vertical refresh rate, which is the rate
  225. at which the whole screen is refreshed, and most importantly the horizontal
  226. sync rate, which is the rate at which scanlines are displayed.
  227.  
  228. It is VERY IMPORTANT that you do not specify a monitor type with a sync range
  229. that is beyond the capabilities of your monitor: you may damage your monitor.
  230.  If in doubt, choose a conservative setting."),
  231.                       [ _("Horizontal refresh rate"), _("Vertical refresh rate") ],
  232.                       [ { val => \$monitor->{hsyncrange}, list => \@hsyncranges },
  233.                     { val => \$monitor->{vsyncrange}, list => \@vsyncranges }, ]);
  234.     } else {
  235.         add2hash($monitor, $monitors{$monitor->{type}});
  236.     }
  237.     add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown" });
  238.     }
  239.  
  240.     $monitor;
  241. }
  242.  
  243. sub testConfig($) {
  244.     my ($o) = @_;
  245.     my ($resolutions, $clocklines);
  246.  
  247.     write_XF86Config($o, $tmpconfig);
  248.  
  249.     unlink "/tmp/.X9-lock";
  250.     
  251.  
  252.     local *F;
  253.     open F, "$prefix$o->{card}{prog} :9 -probeonly -pn -xf86config $tmpconfig 2>&1 |";
  254.     foreach (<F>) {
  255.     $o->{card}{memory} ||= $2 if /(videoram|Video RAM):\s*(\d*)/;
  256.  
  257.     # look for clocks
  258.     push @$clocklines, $1 if /clocks: (.*)/ && !/(pixel |num)clocks:/;
  259.  
  260.     push @$resolutions, [ $1, $2 ] if /: Mode "(\d+)x(\d+)": mode clock/;
  261.     print;
  262.     }
  263.     close F or die "X probeonly failed";
  264.  
  265.     ($resolutions, $clocklines);
  266. }
  267.  
  268. sub testFinalConfig($;$$) {
  269.     my ($o, $auto, $skiptest) = @_;
  270.  
  271.     $o->{monitor}{hsyncrange} && $o->{monitor}{vsyncrange} or
  272.       $in->ask_warn('', _("Monitor not configured")), return;
  273.  
  274.     $o->{card}{server} or
  275.       $in->ask_warn('', _("Graphic card not configured yet")), return;
  276.  
  277.     $o->{card}{depth} or
  278.       $in->ask_warn('', _("Resolutions not chosen yet")), return;
  279.  
  280.     my $f = "/etc/X11/XF86Config.test";
  281.     write_XF86Config($o, $::testing ? $tmpconfig : "$prefix/$f");
  282.  
  283.     $skiptest || $o->{card}{server} eq 'FBDev' and return 1; 
  284.  
  285.     
  286.     my $bad_card = $o->{card}{identifier} =~ /i740|ViRGE/;
  287.     log::l("the graphic card does not like X in framebuffer") if $bad_card;
  288.  
  289.     my $mesg = _("Do you want to test the configuration?");
  290.     my $def = 1;
  291.     if ($bad_card && !$::isStandalone) {
  292.     !$::expert || $auto and return 1;
  293.     $mesg = $mesg . "\n" . _("Warning: testing is dangerous on this graphic card");
  294.     $def = 0;
  295.     }
  296.     $auto && $def or $in->ask_yesorno(_("Test configuration"), $mesg, $def) or return 1;
  297.  
  298.     unlink "$prefix/tmp/.X9-lock";
  299.  
  300.     
  301.     
  302.     
  303.     if (-d "/tmp/.X11-unix") {
  304.     symlinkf "$prefix/tmp/.X11-unix/X9", "/tmp/.X11-unix/X9" if $prefix;
  305.     } else {
  306.     symlinkf "$prefix/tmp/.X11-unix", "/tmp/.X11-unix" if $prefix;
  307.     }
  308.     
  309.  
  310.     my $f_err = "$prefix/tmp/Xoutput";
  311.     my $pid;
  312.     unless ($pid = fork) {
  313.     open STDERR, ">$f_err";
  314.     chroot $prefix if $prefix;
  315.     exec $o->{card}{prog}, 
  316.       "-xf86config", $::testing ? $tmpconfig : $f, 
  317.       ":9" or c::_exit(0);
  318.     }
  319.  
  320.     do { sleep 1 } until c::Xtest(":9") || waitpid($pid, c::WNOHANG());
  321.  
  322.     my $b = before_leaving { unlink $f_err };
  323.  
  324.     local $_;
  325.     local *F; open F, $f_err;
  326.     i: while (<F>) {
  327.     if (/\b(error|not supported)\b/i) {
  328.         my @msg = !/error/ && $_ ;
  329.         while (<F>) {
  330.         /not fatal/ and last i;
  331.         /^$/ and last;
  332.         push @msg, $_;
  333.         }
  334.         $in->ask_warn('', [ _("An error occurred:"), " ",
  335.                 @msg,
  336.                 _("\ntry changing some parameters") ]);
  337.         return 0;
  338.     }
  339.     }
  340.  
  341.     local *F;
  342.     open F, "|perl" or die '';
  343.     print F "use lib qw(", join(' ', @INC), ");\n";
  344.     print F q{
  345.     use interactive_gtk;
  346.         use my_gtk qw(:wrappers);
  347.  
  348.     $ENV{DISPLAY} = ":9";
  349.  
  350.         gtkset_mousecursor(68);
  351.         gtkset_background(200 * 256, 210 * 256, 210 * 256);
  352.         my ($h, $w) = Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW)->get_size;
  353.         $my_gtk::force_position = [ $w / 3, $h / 2.4 ];
  354.     $my_gtk::force_focus = 1;
  355.         my $text = Gtk::Label->new;
  356.         my $time = 8;
  357.         Gtk->timeout_add(1000, sub {
  358.         $text->set(_("(leaving in %d seconds)", $time));
  359.         $time-- or Gtk->main_quit;
  360.     });
  361.  
  362.     exit (interactive_gtk->new->ask_yesorno('', [ _("Is this correct?"), $text ], 0) ? 0 : 222);
  363.     };
  364.     my $rc = close F;
  365.     my $err = $?;
  366.  
  367.     unlink "/tmp/.X11-unix/X9" if $prefix;
  368.     kill 2, $pid;
  369.  
  370.     $rc || $err == 222 << 8 or $in->ask_warn('', _("An error occurred, try changing some parameters"));
  371.     $rc;
  372. }
  373.  
  374. sub autoResolutions($;$) {
  375.     my ($o, $nowarning) = @_;
  376.     my $card = $o->{card};
  377.  
  378.     $nowarning || $in->ask_okcancel(_("Automatic resolutions"),
  379. _("To find the available resolutions I will try different ones.
  380. Your screen will blink...
  381. You can switch if off if you want, you'll hear a beep when it's over"), 1) or return;
  382.  
  383.     
  384.     my $vt = setVirtual(1);
  385.  
  386.     
  387.     my ($ok, $best);
  388.     foreach (reverse @depths) {
  389.     local $card->{default_depth} = $_;
  390.  
  391.     my ($resolutions, $clocklines) = eval { testConfig($o) };
  392.     if ($@ || !$resolutions) {
  393.         delete $card->{depth}{$_};
  394.     } else {
  395.         $card->{clocklines} ||= $clocklines unless $card->{flags}{noclockprobe};
  396.         $card->{depth}{$_} = [ @$resolutions ];
  397.     }
  398.     }
  399.  
  400.     
  401.     setVirtual($vt);
  402.     print "\a"; 
  403. }
  404.  
  405. sub autoDefaultDepth($$) {
  406.     my ($card, $wres_wanted) = @_;
  407.     my ($best, $depth);
  408.  
  409.     return 24 if $card->{identifier} =~ /SiS/;
  410.  
  411.     if ($card->{server} eq 'FBDev') {
  412.     return 16; 
  413.     }
  414.  
  415.     while (my ($d, $r) = each %{$card->{depth}}) {
  416.     $depth = max($depth || 0, $d);
  417.  
  418.     
  419.     $best = max($best || 0, $d) if $r->[0][0] >= $wres_wanted;
  420.     }
  421.     $best || $depth or die "no valid modes";
  422. }
  423.  
  424. sub autoDefaultResolution {
  425.     return "1024x768" if $isLaptop;
  426.  
  427.     my ($size) = @_;
  428.     $monitorSize2resolution[round($size || 14)] || 
  429.       $monitorSize2resolution[-1]; 
  430. }
  431.  
  432. sub chooseResolutionsGtk($$;$) {
  433.     my ($card, $chosen_depth, $chosen_w) = @_;
  434.     my $W = my_gtk->new(_("Resolution"));
  435.     my %txt2depth = reverse %depths;
  436.     my ($r, $depth_combo, %w2depth, %w2h, %w2widget);
  437.  
  438.     my $best_w;
  439.     while (my ($depth, $res) = each %{$card->{depth}}) {
  440.     foreach (@$res) {
  441.         $w2h{$_->[0]} = $_->[1];
  442.         push @{$w2depth{$_->[0]}}, $depth;
  443.  
  444.         $best_w = max($_->[0], $best_w) if $_->[0] <= $chosen_w;
  445.     }
  446.     }
  447.     $chosen_w = $best_w;
  448.  
  449.     my $set_depth = sub { $depth_combo->entry->set_text(translate($depths{$chosen_depth})) };
  450.  
  451.     
  452.     my $ignore;
  453.     my $set = sub { $ignore = 1; $_[0]->set_active(1); $ignore = 0; };
  454.  
  455.     while (my ($w, $h) = each %w2h) {
  456.     my $V = $w . "x" . $h;
  457.     $w2widget{$w} = $r = new Gtk::RadioButton($r ? ($V, $r) : $V);
  458.     &$set($r) if $chosen_w == $w;
  459.     $r->signal_connect("clicked" => sub {
  460.                    $ignore and return;
  461.                    $chosen_w = $w;
  462.                    unless (member($chosen_depth, @{$w2depth{$w}})) {
  463.                    $chosen_depth = max(@{$w2depth{$w}});
  464.                    &$set_depth();
  465.                    }
  466.                });
  467.     }
  468.     gtkadd($W->{window},
  469.        gtkpack_($W->create_box_with_title(_("Choose resolution and color depth")),
  470.             1, gtkpack(new Gtk::HBox(0,20),
  471.                    $depth_combo = new Gtk::Combo,
  472.                    gtkpack_(new Gtk::VBox(0,0),
  473.                     map { 0, $w2widget{$_} } ikeys(%w2widget),
  474.                     ),
  475.                    ),
  476.             0, gtkadd($W->create_okcancel,
  477.                   gtksignal_connect(new Gtk::Button(_("Show all")), clicked => sub { $W->{retval} = 1; $chosen_w = 0; Gtk->main_quit })),
  478.             ));
  479.     $depth_combo->disable_activate;
  480.     $depth_combo->set_use_arrows_always(1);
  481.     $depth_combo->entry->set_editable(0);
  482.     $depth_combo->set_popdown_strings(map { translate($depths{$_}) } ikeys(%{$card->{depth}}));
  483.     $depth_combo->entry->signal_connect(changed => sub {
  484.        $chosen_depth = $txt2depth{untranslate($depth_combo->entry->get_text, keys %txt2depth)};
  485.        my $w = $card->{depth}{$chosen_depth}[0][0];
  486.        $chosen_w > $w and &$set($w2widget{$chosen_w = $w});
  487.     });
  488.     &$set_depth();
  489.     $W->{ok}->grab_focus;
  490.  
  491.     $W->main or return;
  492.     ($chosen_depth, $chosen_w);
  493. }
  494.  
  495. sub chooseResolutions($$;$) {
  496.     goto &chooseResolutionsGtk if ref($in) =~ /gtk/;
  497.  
  498.     my ($card, $chosen_depth, $chosen_w) = @_;
  499.  
  500.     my $best_w;
  501.     local $_ = $in->ask_from_list(_("Resolutions"), "", 
  502.                   [ map_each { map { "$_->[0]x$_->[1] ${main::a}bpp" } @$::b } %{$card->{depth}} ]) or return;
  503.     reverse /(\d+)x\S+ (\d+)/;
  504. }
  505.  
  506.  
  507. sub resolutionsConfiguration($%) {
  508.     my ($o, %options) = @_;
  509.     my $card = $o->{card};
  510.  
  511.     
  512.     if (member($card->{server}, "Mono", "VGA16")) {
  513.     $card->{depth}{8} = [[ 640, 480 ]];
  514.     return;
  515.     }
  516.  
  517.     
  518.     
  519.     
  520.     
  521.     
  522.     
  523.     
  524.     
  525.     
  526.     
  527.     
  528.     
  529.     
  530.     
  531.     
  532.     
  533.     
  534.     
  535.     
  536.     
  537.     
  538.     
  539.     
  540.     
  541.  
  542.     if (is_empty_hash_ref($card->{depth})) {
  543.     $card->{depth}{$_} = [ map { [ split "x" ] } @resolutions ]
  544.       foreach @depths;
  545.  
  546.     unless ($options{noauto}) {
  547.         if ($options{nowarning} || $in->ask_okcancel(_("Automatic resolutions"),
  548. _("I can try to find the available resolutions (eg: 800x600).
  549. Sometimes, though, it may hang the machine.
  550. Do you want to try?"), 1)) {
  551.         autoResolutions($o, $options{nowarning});
  552.         is_empty_hash_ref($card->{depth}) and $in->ask_warn('',
  553. _("No valid modes found
  554. Try with another video card or monitor")), return;
  555.         }
  556.     }
  557.     }
  558.  
  559.     
  560.     foreach (values %{$card->{depth}}) {
  561.     my $i = 0;
  562.     @$_ = grep { first($i != $_->[0], $i = $_->[0]) }
  563.       sort { $b->[0] <=> $a->[0] } @$_;
  564.     }
  565.  
  566.     
  567.     keepOnlyLegalModes($card, $o->{monitor});
  568.  
  569.     my $res = $o->{resolution_wanted} || autoDefaultResolution($o->{monitor}{size});
  570.     my $wres = first(split 'x', $res);
  571.  
  572.     
  573.     $wres = max map { first(grep { $_->[0] <= $wres } @$_)->[0] } values %{$card->{depth}};
  574.     my $depth = eval { $card->{default_depth} || autoDefaultDepth($card, $wres) };
  575.  
  576.     $options{auto} or ($depth, $wres) = chooseResolutions($card, $depth, $wres) or return;
  577.  
  578.     unless ($wres) {
  579.     delete $card->{depth};
  580.     return resolutionsConfiguration($o, noauto => 1);
  581.     }
  582.  
  583.     
  584.     $card->{depth}{$depth} or die "you selected an unusable depth";
  585.  
  586.     
  587.     
  588.     $card->{depth}{$depth} = [ grep { $_->[0] <= $wres } @{$card->{depth}{$depth}} ];
  589.     $card->{default_depth} = $depth;
  590.     $card->{default_wres} = $wres;
  591.     $card->{vga_mode} = $vgamodes{"${wres}xx$depth"} || $vgamodes{"${res}x$depth"}; 
  592.     1;
  593. }
  594.  
  595.  
  596.  
  597. sub write_XF86Config {
  598.     my ($o, $file) = @_;
  599.     my $O;
  600.  
  601.     local *F;
  602.     open F, ">$file" or die "can't write XF86Config in $file: $!";
  603.  
  604.     print F $XF86firstchunk_text;
  605.  
  606.     
  607.     $O = $o->{keyboard};
  608.     print F $keyboardsection_start;
  609.  
  610.     print F "    RightAlt        ", ($O->{altmeta} ? "ModeShift" : "Meta"), "\n";
  611.     print F $keyboardsection_part2;
  612.     print F "    XkbDisable\n" unless $O->{xkb_keymap};
  613.     print F $keyboardsection_part3;
  614.     print F qq(    XkbLayout       "$O->{xkb_keymap}"\n);
  615.     print F join '', map { "    $_\n" } @{$xkb_options{$O->{xkb_keymap}} || []};
  616.     print F $keyboardsection_end;
  617.  
  618.     
  619.     $O = $o->{mouse};
  620.     print F $pointersection_text1;
  621.     print F qq(    Protocol    "$O->{XMOUSETYPE}"\n);
  622.     print F qq(    Device      "/dev/$O->{device}"\n);
  623.     
  624.     print F "    ZAxisMapping 4 5\n" if
  625.       member($O->{XMOUSETYPE}, qw(IntelliMouse IMPS/2 ThinkingMousePS/2 NetScrollPS/2 NetMousePS/2 MouseManPlusPS/2));
  626.  
  627.     print F $pointersection_text2;
  628.     print F "#" unless $O->{XEMU3};
  629.     print F "    Emulate3Buttons\n";
  630.     print F "#" unless $O->{XEMU3};
  631.     print F "    Emulate3Timeout    50\n\n";
  632.     print F "# ChordMiddle is an option for some 3-button Logitech mice\n\n";
  633.     print F "#" unless $O->{chordmiddle};
  634.     print F "    ChordMiddle\n\n";
  635.     print F "    ClearDTR\n" if $O->{cleardtrrts};
  636.     print F "    ClearRTS\n\n"  if $O->{cleardtrrts};
  637.     print F "EndSection\n\n\n";
  638.  
  639.     print F qq(
  640. Section "Module"
  641.    Load "xf86Wacom.so"
  642. EndSection
  643.      
  644. Section "XInput"
  645.     SubSection "WacomStylus"
  646.         Port "/dev/$o->{wacom}"
  647.         AlwaysCore
  648.     EndSubSection
  649.     SubSection "WacomCursor"
  650.         Port "/dev/$o->{wacom}"
  651.         AlwaysCore
  652.     EndSubSection
  653.     SubSection "WacomEraser"
  654.         Port "/dev/$o->{wacom}"
  655.         AlwaysCore
  656.     EndSubSection
  657. EndSection
  658.  
  659. ) if $o->{wacom};
  660.  
  661.     
  662.     $O = $o->{monitor};
  663.     print F $monitorsection_text1;
  664.     print F qq(    Identifier "$O->{type}"\n);
  665.     print F qq(    VendorName "$O->{vendor}"\n);
  666.     print F qq(    ModelName  "$O->{model}"\n);
  667.     print F "\n";
  668.     print F $monitorsection_text2;
  669.     print F qq(    HorizSync  $O->{hsyncrange}\n);
  670.     print F "\n";
  671.     print F $monitorsection_text3;
  672.     print F qq(    VertRefresh $O->{vsyncrange}\n);
  673.     print F "\n";
  674.     print F $monitorsection_text4;
  675.     print F ($O->{modelines} || '') . ($o->{card}{type} eq "TG 96" ? $modelines_text_Trident_TG_96xx : $modelines_text);
  676.     print F "\nEndSection\n\n\n";
  677.  
  678.     
  679.     $O = $o->{card};
  680.     print F $devicesection_text;
  681.     print F qq(Section "Device"\n);
  682.     print F qq(    Identifier  "$O->{type}"\n);
  683.     print F qq(    VendorName  "$O->{vendor}"\n);
  684.     print F qq(    BoardName   "$O->{board}"\n);
  685.  
  686.     print F "#" if $O->{memory} && !$O->{flags}{needVideoRam};
  687.     print F "    VideoRam    $O->{memory}\n" if $O->{memory};
  688.  
  689.     print F map { "    $_\n" } @{$O->{lines} || []};
  690.  
  691.     print F qq(    Ramdac      "$O->{ramdac}"\n) if $O->{ramdac};
  692.     print F qq(    Dacspeed    "$O->{dacspeed}"\n) if $O->{dacspeed};
  693.  
  694.     if ($O->{clockchip}) {
  695.     print F qq(    Clockchip   "$O->{clockchip}"\n);
  696.     } else {
  697.     print F "    # Clock lines\n";
  698.     print F "    Clocks $_\n" foreach (@{$O->{clocklines}});
  699.     }
  700.  
  701.     print F "\n";
  702.     print F map { (!$O->{options}{$_} && '#') . qq(    Option      "$_"\n) } keys %{$O->{options} || {}};
  703.     print F "EndSection\n\n\n";
  704.  
  705.     
  706.     print F $screensection_text1;
  707.  
  708.     my $screen = sub {
  709.     my ($server, $defdepth, $device, $depths) = @_;
  710.     print F qq(
  711.  
  712. Section "Screen"
  713.     Driver "$server"
  714.     Device      "$device"
  715.     Monitor     "$o->{monitor}{type}"
  716. );
  717.     print F "    DefaultColorDepth $defdepth\n" if $defdepth;
  718.  
  719.         foreach (ikeys(%$depths)) {
  720.         my $m = $server ne "fbdev" ? join(" ", map { qq("$_->[0]x$_->[1]") } @{$depths->{$_}}) : qq("default");
  721.         print F qq(    Subsection "Display"\n);
  722.         print F qq(        Depth       $_\n) if $_;
  723.         print F qq(        Modes       $m\n);
  724.         print F qq(        ViewPort    0 0\n);
  725.         print F qq(    EndSubsection\n);
  726.     }
  727.     print F "EndSection\n";
  728.     }; 
  729.  
  730.     
  731.     print F qq(
  732. # The Colour SVGA server
  733. );
  734.  
  735.     if (member($O->{server}, @svgaservers)) {
  736.     &$screen("svga", $O->{default_depth}, $O->{type}, $O->{depth});
  737.     } else {
  738.     &$screen("svga", '', "Generic VGA", { 8 => [[ 320, 200 ]] });
  739.     }
  740.  
  741.     &$screen("vga16", '',
  742.          (member($O->{server}, "Mono", "VGA16") ? $O->{type} : "Generic VGA"),
  743.          { '' => [[ 640, 480 ], [ 800, 600 ]]});
  744.  
  745.     &$screen("vga2", '',
  746.          (member($O->{server}, "Mono", "VGA16") ? $O->{type} : "Generic VGA"),
  747.          { '' => [[ 640, 480 ], [ 800, 600 ]]});
  748.  
  749.     &$screen("accel", $O->{default_depth}, $O->{type}, $O->{depth});
  750.  
  751.     &$screen("fbdev", $O->{default_depth}, $O->{type}, $O->{depth});
  752. }
  753.  
  754. sub XF86check_link {
  755.     my ($void) = @_;
  756.  
  757.     my $f = "$prefix/etc/X11/XF86Config";
  758.     touch($f);
  759.  
  760.     my $l = "$prefix/usr/X11R6/lib/X11/XF86Config";
  761.  
  762.     if (-e $l && (stat($f))[1] != (stat($l))[1]) { 
  763.     -e $l and unlink($l) || die "can't remove bad $l";
  764.     symlinkf "../../../../etc/X11/XF86Config", $l;
  765.     }
  766. }
  767.  
  768. sub show_info {
  769.     my ($o) = @_;
  770.     my $info;
  771.  
  772.     $info .= _("Keyboard layout: %s\n", $o->{keyboard}{xkb_keymap});
  773.     $info .= _("Mouse type: %s\n", $o->{mouse}{XMOUSETYPE});
  774.     $info .= _("Mouse device: %s\n", $o->{mouse}{device}) if $::expert;
  775.     $info .= _("Monitor: %s\n", $o->{monitor}{type});
  776.     $info .= _("Monitor HorizSync: %s\n", $o->{monitor}{hsyncrange}) if $::expert;
  777.     $info .= _("Monitor VertRefresh: %s\n", $o->{monitor}{vsyncrange}) if $::expert;
  778.     $info .= _("Graphic card: %s\n", $o->{card}{type});
  779.     $info .= _("Graphic memory: %s kB\n", $o->{card}{memory}) if $o->{card}{memory};
  780.     $info .= _("XFree86 server: %s\n", $o->{card}{server});
  781.  
  782.     $in->ask_warn('', $info);
  783. }
  784.  
  785.  
  786. sub main {
  787.     my ($o, $allowFB);
  788.     ($prefix, $o, $in, $allowFB, $isLaptop, $install) = @_;
  789.     $o ||= {};
  790.     
  791.     XF86check_link();
  792.  
  793.     {
  794.     my $w = $in->wait_message('', _("Preparing X-Window configuration"), 1);
  795.  
  796.     $o->{card} = cardConfiguration($o->{card}, $::noauto, $allowFB);
  797.  
  798.     $o->{monitor} = monitorConfiguration($o->{monitor}, $o->{card}{server} eq 'FBDev');
  799.     }
  800.     my $ok = resolutionsConfiguration($o, auto => $::auto, noauto => $::noauto);
  801.  
  802.     $ok &&= testFinalConfig($o, $::auto, $::skiptest);
  803.  
  804.     my $quit;
  805.     until ($ok || $quit) {
  806.  
  807.     my %c = my @c = (
  808.        __("Change Monitor") => sub { $o->{monitor} = monitorConfiguration() },
  809.            __("Change Graphic card") => sub { $o->{card} = cardConfiguration('', 'noauto', $allowFB) },
  810.            ($::expert ? (__("Change Server options") => sub { optionsConfiguration($o) }) : ()),
  811.        __("Change Resolution") => sub { resolutionsConfiguration($o, noauto => 1) },
  812.        __("Automatical resolutions search") => sub {
  813.            delete $o->{card}{depth};
  814.            resolutionsConfiguration($o, nowarning => 1);
  815.        },
  816.        __("Show information") => sub { show_info($o) },
  817.        __("Test again") => sub { $ok = testFinalConfig($o, 1) },
  818.        __("Quit") => sub { $quit = 1 },
  819.         );
  820.     $in->set_help('configureXmain') unless $::isStandalone;
  821.     my $f = $in->ask_from_list_(['XFdrake'],
  822.                  _("What do you want to do?"),
  823.                  [ grep { !ref } @c ]);
  824.     eval { &{$c{$f}} };
  825.     !$@ || $@ =~ /ask_from_list cancel/ or die;
  826.     $in->kill;
  827.     }
  828.     if (!$ok) {
  829.     $ok = !$in->ask_yesorno('', _("Forget the changes?"), 1);
  830.     }
  831.     if ($ok) {
  832.     unless ($::testing) {
  833.         my $f = "$prefix/etc/X11/XF86Config";
  834.         if (-e "$f.test") {
  835.         rename $f, "$f.old" or die "unable to make a backup of XF86Config";
  836.         rename "$f.test", $f;
  837.         symlinkf "../..$o->{card}{prog}", "$prefix/etc/X11/X";
  838.         }
  839.     }
  840.  
  841.     if ($::isStandalone && $0 =~ /Xdrakres/) {
  842.         my $found;
  843.         foreach (@window_managers) {
  844.         if (`pidof $_` > 0) {
  845.             if ($in->ask_okcancel('', _("Please relog into %s to activate the changes", ucfirst $_), 1)) {
  846.             system("kwmcom logout") if /kwm/;
  847.  
  848.             open STDIN, "</dev/zero";
  849.             open STDOUT, ">/dev/null";
  850.             open STDERR, ">&STDERR";
  851.             c::setsid();
  852.                 exec qw(perl -e), q{
  853.                           my $wm = shift;
  854.                     for (my $nb = 30; $nb && `pidof $wm` > 0; $nb--) { sleep 1 }
  855.                     system("killall X") unless `pidof $wm` > 0;
  856.                   }, $_;
  857.             }
  858.             $found = 1; last;
  859.         }
  860.         }
  861.         $in->ask_warn('', _("Please log out and then use Ctrl-Alt-BackSpace")) unless $found;
  862.     } else {
  863.         $in->set_help('configureXxdm') unless $::isStandalone;
  864.         my $run = $o->{xdm} || $::auto || $in->ask_yesorno(_("X at startup"),
  865. _("I can set up your computer to automatically start X upon booting.
  866. Would you like X to start when you reboot?"), 1);
  867.  
  868.         rewriteInittab($run ? 5 : 3) unless $::testing;
  869.     }
  870.     run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone;
  871.     }
  872. }
  873.